; MACRO LIBRARY FOR SYMBOL STACK ; ; SYMBOL GENERATORS GENSET MACRO SYM,NUM,VAL ;; GENERATE SYMBOL, SET IT TO VAL SYM&NUM SET VAL ENDM ; GENVAL MACRO SYM,NAM,NUM ;; SET SYMBOL TO GENERATED SYMBOL SYM SET NAM&NUM ENDM ; ; PUSH AND POP MACROS FOR SYMBOLIC VALUES SYMPSH MACRO VAL SSTKP SET 0 ;; INITIALIZE 'STACK POINTER' SYMPSH MACRO VA ;; REDEFINE SSTKP SET SSTKP+1 ;; BUMP POINTER GENSET SSTK,%SSTKP,%VA ;; CREATE STACK ENTRY ENDM SYMPSH VAL ENDM ; SYMPOP MACRO SYM GENVAL SYM,SSTK,%SSTKP ;; GET VALUE FROM STACK SSTKP SET SSTKP-1 ENDM