home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG029.ARK / SYMSTACK.LIB < prev    next >
Text File  |  1984-04-29  |  572b  |  28 lines
  1. ;    MACRO LIBRARY FOR SYMBOL STACK
  2. ;
  3. ;    SYMBOL GENERATORS
  4. GENSET    MACRO    SYM,NUM,VAL
  5. ;;    GENERATE SYMBOL, SET IT TO VAL
  6. SYM&NUM    SET    VAL
  7.     ENDM
  8. ;
  9. GENVAL    MACRO    SYM,NAM,NUM
  10. ;;    SET SYMBOL TO GENERATED SYMBOL
  11. SYM    SET    NAM&NUM
  12.     ENDM
  13. ;
  14. ;    PUSH AND POP MACROS FOR SYMBOLIC VALUES
  15. SYMPSH    MACRO    VAL
  16. SSTKP    SET    0    ;; INITIALIZE 'STACK POINTER'
  17. SYMPSH    MACRO    VA    ;; REDEFINE
  18. SSTKP    SET    SSTKP+1    ;; BUMP POINTER
  19.     GENSET    SSTK,%SSTKP,%VA    ;; CREATE STACK ENTRY
  20.     ENDM
  21.     SYMPSH    VAL
  22.     ENDM
  23. ;
  24. SYMPOP    MACRO    SYM
  25.     GENVAL    SYM,SSTK,%SSTKP    ;; GET VALUE FROM STACK
  26. SSTKP    SET    SSTKP-1
  27.     ENDM
  28.