Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0062/meta2c.mac
There is 1 other file named meta2c.mac in the archive. Click here to see a list.
TITLE META2
EXTERN %ID,%NUM,%STR,%GEN,%PUSH,%POP,%ERROR,%LEN
EXTERN %UNTIL,%TST,%COPYL,%COPYI,%TYPE,%RESET
EXTERN %BEGIN,%END,%BLOCK,%LIST,%LOOK,%SET,%CHECK
EXTERN %CLEAR,%SCAN,%GETNM,%PUTNM,%XLEN,%XBLK
EXTERN %GET,%PUT,%LEVEL,%SYMB,%XSYMB,%BLEVL,%FIN
EXTERN %CLEVL,%MAKND,%SETRE,%CPYDC,%CALND,%DMPTR,%MARK
STK1= 4
P= 17
F= 16
SUCCES= 400000
NDELET= 200000
BACKUP= 100000
SCATEN= 040000
T= 1
ENTRY %MESS1
%MESS1: ASCIZ /META2: /
BLOCK 20
ENTRY %MESS2
%MESS2: SIXBIT /MAC/
%META2: JSR %RESET
JSR %RESET+2
PUSHJ P,META2
JUMPGE F,%ERROR
JRST %FIN
OUT1: HRLM F,(P)
ADDI F,4
PUSHJ P,%TST
ASCIZ \*\
JUMPGE F,$29
PUSHJ P,%TST
ASCIZ \L\
JUMPGE F,$53
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%LEN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$53: JUMPL F,$49
PUSHJ P,%NUM
JUMPGE F,$125
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%GEN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$125: JUMPL F,$49
TLO F,SUCCES
JUMPGE F,$237
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%COPYI\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$237:$49: JUMPGE F,%ERROR
$29: JUMPL F,$25
PUSHJ P,%TST
ASCIZ \CL#\
JUMPGE F,$325
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%CLEVL+1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$325: JUMPL F,$25
PUSHJ P,%TST
ASCIZ \C#\
JUMPGE F,$397
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%BLOCK+1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$397: JUMPL F,$25
PUSHJ P,COMPUTE
JUMPGE F,$469
$469: JUMPL F,$25
PUSHJ P,%TST
ASCIZ \BL#\
JUMPGE F,$497
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%BLEVL+1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$497: JUMPL F,$25
PUSHJ P,%TST
ASCIZ \B#\
JUMPGE F,$569
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%BLOCK\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$569: JUMPL F,$25
PUSHJ P,%TST
ASCIZ \S#\
JUMPGE F,$641
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%SYMB\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$641: JUMPL F,$25
PUSHJ P,%TST
ASCIZ \N#\
JUMPGE F,$713
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%CALND\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$713: JUMPL F,$25
PUSHJ P,%TST
ASCIZ \^(\
JUMPGE F,$833
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%PUSH
DEC 1
PUSHJ P,%TST
ASCIZ \,\
JUMPGE F,%ERROR
PUSHJ P,AREX
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%POP
DEC 1
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%GET\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$833: JUMPL F,$25
PUSHJ P,%TST
ASCIZ \^\
JUMPGE F,$1001
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%POP\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$1001: JUMPL F,$25
PUSHJ P,%TST
ASCIZ \+%(\
JUMPGE F,$1137
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLO\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SCATEN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$1137: JUMPL F,$1133
PUSHJ P,%TST
ASCIZ \%(\
JUMPGE F,$1209
$1209:$1133: JUMPGE F,$1121
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%PUSH
DEC 1
PUSHJ P,%TST
ASCIZ \,\
JUMPGE F,%ERROR
PUSHJ P,AREX
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%POP
DEC 1
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%PUT\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$1121: JUMPL F,$25
PUSHJ P,%TST
ASCIZ \+%\
JUMPGE F,$1409
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLO\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SCATEN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$1409: JUMPL F,$1405
PUSHJ P,%TST
ASCIZ \%\
JUMPGE F,$1481
$1481:$1405: JUMPGE F,$1393
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%PUSH\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$1393: JUMPL F,$25
PUSHJ P,%TST
ASCIZ \+#(\
JUMPGE F,$1633
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLO\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SCATEN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$1633: JUMPL F,$1629
PUSHJ P,%TST
ASCIZ \#(\
JUMPGE F,$1705
$1705:$1629: JUMPGE F,$1617
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%PUSH
DEC 1
PUSHJ P,%TST
ASCIZ \,\
JUMPGE F,%ERROR
PUSHJ P,AREX
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%STR
JUMPGE F,%ERROR
PUSHJ P,%PUSH
DEC 2
PUSHJ P,%POP
DEC 1
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%PUT\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \XWD\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \-1,^D\
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%POP
DEC 2
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ASCIZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$1617: JUMPL F,$25
PUSHJ P,%TST
ASCIZ \+#\
JUMPGE F,$1985
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLO\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SCATEN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$1985: JUMPL F,$1981
PUSHJ P,%TST
ASCIZ \#\
JUMPGE F,$2057
$2057:$1981: JUMPGE F,$1969
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%PUSH
DEC 1
PUSHJ P,%STR
JUMPGE F,%ERROR
PUSHJ P,%PUSH
DEC 2
PUSHJ P,%POP
DEC 1
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%PUSH\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \XWD\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \-1,^D\
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%POP
DEC 2
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ASCIZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$1969: JUMPL F,$25
PUSHJ P,%TST
ASCIZ \-\
JUMPGE F,$2297
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%COPYL\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \BYTE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \(7) 011,0\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$2297: JUMPL F,$25
PUSHJ P,%STR
JUMPGE F,$2413
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%COPYL\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ASCIZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$2413:$25: POPJ P,
OUTPUT: HRLM F,(P)
ADDI F,4
PUSHJ P,%TST
ASCIZ \.OUT\
JUMPGE F,$2557
PUSHJ P,%TST
ASCIZ \(\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%COPYL\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \BYTE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \(7) 011,0\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$2665: PUSHJ P,OUT1
JUMPL F,$2665
TLO F,SUCCES
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%COPYL\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \BYTE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \(7) 015,012,0\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$2557: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \.LABEL\
JUMPGE F,$2793
PUSHJ P,%TST
ASCIZ \(\
JUMPGE F,$2817
$2829: PUSHJ P,OUT1
JUMPL F,$2829
TLO F,SUCCES
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
$2817: JUMPL F,$2813
PUSHJ P,OUT1
JUMPGE F,$2869
$2869:$2813: JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%COPYL\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ASCIZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \/:/\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$2793: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \.RESET\
JUMPGE F,$3001
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%SETRE\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$3001: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \.N$*\
JUMPGE F,$3073
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%CPYDC\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$3073: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \.N$S\
JUMPGE F,$3145
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%CPYDC+1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$3145: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \.*\
JUMPGE F,$3217
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \HLRZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ADDI\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,^D\
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSH\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%PUTNM\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$3217: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \:\
JUMPGE F,$3433
PUSHJ P,%ID
JUMPGE F,%ERROR
PUSHJ P,%PUSH
DEC 1
PUSHJ P,%TST
ASCIZ \[\
JUMPGE F,%ERROR
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \]\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%MAKND\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \XWD\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \^D\
PUSHJ P,%COPYI
PUSHJ P,%POP
DEC 1
PUSHJ P,%COPYL
ASCIZ \,\
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$3433: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \.TYPE\
JUMPGE F,$3613
PUSHJ P,%STR
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%TYPE\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ASCIZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$3613: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \^(\
JUMPGE F,$3733
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%PUSH
DEC 1
PUSHJ P,%TST
ASCIZ \,\
JUMPGE F,%ERROR
PUSHJ P,AREX
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%POP
DEC 1
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%GET\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$3733: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \^\
JUMPGE F,$3901
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%POP\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$3901: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \+%(\
JUMPGE F,$4037
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLO\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SCATEN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$4037: JUMPL F,$4033
PUSHJ P,%TST
ASCIZ \%(\
JUMPGE F,$4109
$4109:$4033: JUMPGE F,$4021
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%PUSH
DEC 1
PUSHJ P,%TST
ASCIZ \,\
JUMPGE F,%ERROR
PUSHJ P,AREX
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%POP
DEC 1
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%PUT\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$4021: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \+%\
JUMPGE F,$4309
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLO\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SCATEN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$4309: JUMPL F,$4305
PUSHJ P,%TST
ASCIZ \%\
JUMPGE F,$4381
$4381:$4305: JUMPGE F,$4293
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%PUSH\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$4293: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \+#(\
JUMPGE F,$4533
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLO\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SCATEN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$4533: JUMPL F,$4529
PUSHJ P,%TST
ASCIZ \#(\
JUMPGE F,$4605
$4605:$4529: JUMPGE F,$4517
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%PUSH
DEC 1
PUSHJ P,%TST
ASCIZ \,\
JUMPGE F,%ERROR
PUSHJ P,AREX
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%STR
JUMPGE F,%ERROR
PUSHJ P,%PUSH
DEC 2
PUSHJ P,%POP
DEC 1
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%PUT\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \XWD\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \-1,^D\
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%POP
DEC 2
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ASCIZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$4517: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \+#\
JUMPGE F,$4885
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLO\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SCATEN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$4885: JUMPL F,$4881
PUSHJ P,%TST
ASCIZ \#\
JUMPGE F,$4957
$4957:$4881: JUMPGE F,$4869
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%PUSH
DEC 1
PUSHJ P,%STR
JUMPGE F,%ERROR
PUSHJ P,%PUSH
DEC 2
PUSHJ P,%POP
DEC 1
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%PUSH\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \XWD\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \-1,^D\
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%POP
DEC 2
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ASCIZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$4869: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \.BEGIN\
JUMPGE F,$5197
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%BEGIN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$5197: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \.END\
JUMPGE F,$5269
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%END\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$5269: JUMPL F,$2553
PUSHJ P,COMPUTE
JUMPGE F,$5341
$5341: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \.SETSCAN\
JUMPGE F,$5369
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%SCAN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \0\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$5369: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \.ENTER\
JUMPGE F,$5485
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%LOOK\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%TST+1
ASCIZ \C\
JUMPGE F,$5553
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \-1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$5553: JUMPL F,$5549
TLO F,SUCCES
JUMPGE F,$5625
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \2\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$5625:$5549: JUMPGE F,%ERROR
$5485: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \.CLEAR\
JUMPGE F,$5713
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%CLEAR\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$5713: JUMPL F,$2553
PUSHJ P,%TST
ASCIZ \.SET\
JUMPGE F,$5833
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%SET\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$5833:$2553: POPJ P,
EX3: HRLM F,(P)
ADDI F,4
PUSHJ P,%TST
ASCIZ \.ID\
JUMPGE F,$5985
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%ID\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$5985: JUMPL F,$5981
PUSHJ P,IFSTUFF
JUMPGE F,$6057
$6057: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \.TREE\
JUMPGE F,$6085
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%DMPTR\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$6085: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \.N#\
JUMPGE F,$6157
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%CALND\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$6157: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \.EMPTY\
JUMPGE F,$6277
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLO\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SUCCES\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$6277: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \.STRING\
JUMPGE F,$6349
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%STR\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$6349: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \.NUMBER\
JUMPGE F,$6421
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%NUM\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$6421: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \.CHECK\
JUMPGE F,$6493
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%CHECK\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%TST
ASCIZ \SET\
JUMPGE F,$6609
$6609: JUMPL F,$6605
PUSHJ P,%TST
ASCIZ \CLEAR\
JUMPGE F,$6637
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SUCCES\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$6637:$6605: JUMPGE F,%ERROR
$6493: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \.UNTIL\
JUMPGE F,$6725
PUSHJ P,%STR
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%UNTIL\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ASCIZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$6725: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \-.ID\
JUMPGE F,$6845
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%ID+1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$6845: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \-.STRING\
JUMPGE F,$6917
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%STR+1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$6917: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \-.NUMBER\
JUMPGE F,$6989
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%NUM+1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$6989: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \-\
JUMPGE F,$7061
PUSHJ P,%STR
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%TST+1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ASCIZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$7061: JUMPL F,$5981
PUSHJ P,%ID
JUMPGE F,$7181
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,\
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$7181: JUMPL F,$5981
PUSHJ P,%STR
JUMPGE F,$7253
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%TST\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ASCIZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$7253: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \.NODE\
JUMPGE F,$7365
PUSHJ P,%TST
ASCIZ \(\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \MOVE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,%MARK\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLO\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SUCCES\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \IF1\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \<\
PUSHJ P,%GEN
DEC 2
PUSHJ P,%COPYL
ASCIZ \=1>\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \MOVE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T+1,1(T)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \CAIE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T+1,\
PUSHJ P,%GEN
DEC 2
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SUCCES\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JUMPGE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,\
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ADD\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,1(T)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,TSTITM
JUMPGE F,%ERROR
$7765: PUSHJ P,%TST
ASCIZ \,\
JUMPGE F,$7785
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JUMPGE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,\
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \IF1\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \<\
PUSHJ P,%GEN
DEC 2
PUSHJ P,%COPYL
ASCIZ \=\
PUSHJ P,%GEN
DEC 2
PUSHJ P,%COPYL
ASCIZ \+1>\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,TSTITM
JUMPGE F,%ERROR
$7785:$7781: JUMPL F,$7765
TLO F,SUCCES
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
ASCIZ /:/
$7365: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \.SCAN\
JUMPGE F,$7977
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%SCAN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$7977: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \.LOOK\
JUMPGE F,$8093
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%LOOK\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%TST+1
ASCIZ \C\
JUMPGE F,$8161
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \0\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$8161: JUMPL F,$8157
TLO F,SUCCES
JUMPGE F,$8233
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$8233:$8157: JUMPGE F,%ERROR
$8093: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \.NOT\
JUMPGE F,$8321
PUSHJ P,%TST
ASCIZ \(\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLO\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,NDELET\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,EX3
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SUCCES\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,BACKUP+NDELET\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$8321: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \.PEEK\
JUMPGE F,$8505
PUSHJ P,%TST
ASCIZ \(\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLO\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,NDELET\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,EX3
JUMPGE F,$8581
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JUMPGE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,\
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$8581: JUMPL F,$8577
PUSHJ P,OUTPUT
JUMPGE F,$8657
$8657:$8577: JUMPGE F,%ERROR
$8685: PUSHJ P,EX3
JUMPGE F,$8705
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JUMPGE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,\
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$8705: JUMPL F,$8701
PUSHJ P,OUTPUT
JUMPGE F,$8781
$8781:$8701: JUMPL F,$8685
TLO F,SUCCES
JUMPGE F,%ERROR
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
ASCIZ /:/
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,NDELET\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLNN\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SUCCES\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,BACKUP\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$8505: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \(\
JUMPGE F,$8981
PUSHJ P,EX1
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
$8981: JUMPL F,$5981
PUSHJ P,%TST
ASCIZ \*\
JUMPGE F,$9025
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
ASCIZ /:/
PUSHJ P,EX3
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JUMPL\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,\
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLO\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SUCCES\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$9025:$5981: POPJ P,
EX2: HRLM F,(P)
ADDI F,4
PUSHJ P,EX3
JUMPGE F,$9217
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JUMPGE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,\
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$9217: JUMPL F,$9213
PUSHJ P,OUTPUT
JUMPGE F,$9293
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLO\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SUCCES\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$9293:$9213: JUMPGE F,$9201
$9365: PUSHJ P,EX3
JUMPGE F,$9385
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JUMPGE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,%ERROR\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$9385: JUMPL F,$9381
PUSHJ P,OUTPUT
JUMPGE F,$9457
$9457:$9381: JUMPL F,$9365
TLO F,SUCCES
JUMPGE F,%ERROR
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
ASCIZ /:/
$9201:$9197: POPJ P,
TSTITM: HRLM F,(P)
ADDI F,4
PUSHJ P,%ID
JUMPGE F,$9565
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \SKIPLE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T+1,1(T)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \CAILE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T+1,777777\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JRST\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \.+3\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \MOVE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T+1,(T+1)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \CAIE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T+1,\
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SUCCES\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%TST
ASCIZ \(\
JUMPGE F,$9853
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JUMPGE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,\
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
ASCIZ \+1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSH\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \MOVE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,1(T)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \IF1\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \<\
PUSHJ P,%GEN
DEC 2
PUSHJ P,%COPYL
ASCIZ \=1>\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \MOVE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T+1,1(T)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \CAIE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T+1,\
PUSHJ P,%GEN
DEC 2
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SUCCES\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JUMPGE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,\
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ADD\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,1(T)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,TSTITM
JUMPGE F,%ERROR
$10301: PUSHJ P,%TST
ASCIZ \,\
JUMPGE F,$10321
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JUMPGE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,\
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \IF1\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \<\
PUSHJ P,%GEN
DEC 2
PUSHJ P,%COPYL
ASCIZ \=\
PUSHJ P,%GEN
DEC 2
PUSHJ P,%COPYL
ASCIZ \+1>\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,TSTITM
JUMPGE F,%ERROR
$10321:$10317: JUMPL F,$10301
TLO F,SUCCES
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
ASCIZ /:/
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$9853: JUMPL F,$9849
TLO F,SUCCES
JUMPGE F,$10557
$10557:$9849: JUMPGE F,%ERROR
$9565: JUMPL F,$9561
PUSHJ P,%TST
ASCIZ \*\
JUMPGE F,$10601
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \MOVE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T+1,1(T)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLNE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T+1,777777\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \SOJA\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,.+3\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SUCCES\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$10601: JUMPL F,$9561
PUSHJ P,%TST
ASCIZ \-\
JUMPGE F,$10821
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%GETNM
MOVNS (P)
PUSHJ P,%PUTNM
$10821: JUMPL F,$10817
PUSHJ P,%NUM
JUMPGE F,$10889
$10889:$10817: JUMPGE F,$10805
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \MOVE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T+1,[DEC \
PUSHJ P,%COPYI
PUSHJ P,%COPYL
ASCIZ \]\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \CAME\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T+1,1(T)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SUCCES\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$10805: JUMPL F,$9561
TLO F,SUCCES
JUMPGE F,$11077
$11077:$9561: JUMPGE F,$9549
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \SOJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$9549:$9545: POPJ P,
EX1: HRLM F,(P)
ADDI F,4
PUSHJ P,EX2
JUMPGE F,$11197
$11209: PUSHJ P,%TST
ASCIZ \/\
JUMPGE F,$11229
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JUMPL\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,\
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,EX2
JUMPGE F,%ERROR
$11229:$11225: JUMPL F,$11209
TLO F,SUCCES
JUMPGE F,%ERROR
PUSHJ P,%GEN
DEC 1
PUSHJ P,%COPYL
ASCIZ /:/
$11197:$11193: POPJ P,
COMPUTE: HRLM F,(P)
ADDI F,4
PUSHJ P,%TST
ASCIZ \[\
JUMPGE F,$11377
PUSHJ P,%TST
ASCIZ \*\
JUMPGE F,$11401
PUSHJ P,%TST
ASCIZ \:=\
JUMPGE F,%ERROR
PUSHJ P,AREX
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \]\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%PUTNM\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$11401: JUMPL F,$11397
PUSHJ P,%TST
ASCIZ \N$\
JUMPGE F,$11497
PUSHJ P,%TST
ASCIZ \:=\
JUMPGE F,%ERROR
PUSHJ P,AREX
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \]\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSH\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \STK1,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$11497: JUMPL F,$11397
PUSHJ P,%ID
JUMPGE F,$11637
PUSHJ P,%PUSH
DEC 1
PUSHJ P,%TST
ASCIZ \(\
JUMPGE F,$11669
PUSHJ P,AREX
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \:=\
JUMPGE F,%ERROR
PUSHJ P,AREX
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \]\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T+1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \MOVEM\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,\
PUSHJ P,%POP
DEC 1
PUSHJ P,%COPYI
PUSHJ P,%COPYL
ASCIZ \-1(T+1)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$11669: JUMPL F,$11665
PUSHJ P,%TST
ASCIZ \:=\
JUMPGE F,$11889
PUSHJ P,AREX
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \]\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,\
PUSHJ P,%POP
DEC 1
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$11889:$11665: JUMPGE F,%ERROR
$11637:$11397: JUMPGE F,%ERROR
$11377:$11373: POPJ P,
IFSTUFF: HRLM F,(P)
ADDI F,4
PUSHJ P,%TST
ASCIZ \.IF\
JUMPGE F,$12053
PUSHJ P,%TST
ASCIZ \(\
JUMPGE F,%ERROR
PUSHJ P,BOOLEX
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLO\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SUCCES\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JUMPN\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,.+2\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TLZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,SUCCES\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$12053:$12049: POPJ P,
BOOLEX: HRLM F,(P)
ADDI F,4
PUSHJ P,BOOLTM
JUMPGE F,$12313
$12325: PUSHJ P,%TST
ASCIZ \.OR.\
JUMPGE F,$12345
PUSHJ P,BOOLTM
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ORM\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$12345:$12341: JUMPL F,$12325
TLO F,SUCCES
JUMPGE F,%ERROR
$12313:$12309: POPJ P,
BOOLTM: HRLM F,(P)
ADDI F,4
PUSHJ P,BOOLPR
JUMPGE F,$12517
$12529: PUSHJ P,%TST
ASCIZ \.AND.\
JUMPGE F,$12549
PUSHJ P,BOOLPR
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ANDM\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$12549:$12545: JUMPL F,$12529
TLO F,SUCCES
JUMPGE F,%ERROR
$12517:$12513: POPJ P,
BOOLPR: HRLM F,(P)
ADDI F,4
PUSHJ P,%TST
ASCIZ \.NOT.\
JUMPGE F,$12721
PUSHJ P,BOOLPR
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \SETCMM\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$12721: JUMPL F,$12717
PUSHJ P,AREX
JUMPGE F,$12801
PUSHJ P,REL
JUMPGE F,%ERROR
PUSHJ P,AREX
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T+1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSH\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,[0]\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \CAM\
PUSHJ P,%POP
DEC 2
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,T+1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \SETCMM\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$12801:$12717: POPJ P,
REL: HRLM F,(P)
ADDI F,4
PUSHJ P,%TST
ASCIZ \.EQ.\
JUMPGE F,$13109
PUSHJ P,%PUSH
XWD -1,^D2
ASCIZ \N\
$13109: JUMPL F,$13105
PUSHJ P,%TST
ASCIZ \.NE.\
JUMPGE F,$13149
PUSHJ P,%PUSH
XWD -1,^D2
ASCIZ \E\
$13149: JUMPL F,$13105
PUSHJ P,%TST
ASCIZ \.LT.\
JUMPGE F,$13189
PUSHJ P,%PUSH
XWD -1,^D2
ASCIZ \GE\
$13189: JUMPL F,$13105
PUSHJ P,%TST
ASCIZ \.LE.\
JUMPGE F,$13229
PUSHJ P,%PUSH
XWD -1,^D2
ASCIZ \G\
$13229: JUMPL F,$13105
PUSHJ P,%TST
ASCIZ \.GT.\
JUMPGE F,$13269
PUSHJ P,%PUSH
XWD -1,^D2
ASCIZ \LE\
$13269: JUMPL F,$13105
PUSHJ P,%TST
ASCIZ \.GE.\
JUMPGE F,$13309
PUSHJ P,%PUSH
XWD -1,^D2
ASCIZ \L\
$13309:$13105: POPJ P,
AREX: HRLM F,(P)
ADDI F,4
PUSHJ P,TERM
JUMPGE F,$13381
$13393: PUSHJ P,%TST
ASCIZ \+\
JUMPGE F,$13413
PUSHJ P,TERM
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ADDM\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$13413: JUMPL F,$13409
PUSHJ P,%TST
ASCIZ \-\
JUMPGE F,$13537
PUSHJ P,TERM
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \EXCH\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \SUBM\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$13537:$13409: JUMPL F,$13393
TLO F,SUCCES
JUMPGE F,%ERROR
$13381:$13377: POPJ P,
TERM: HRLM F,(P)
ADDI F,4
PUSHJ P,PRIME
JUMPGE F,$13753
$13765: PUSHJ P,%TST
ASCIZ \*\
JUMPGE F,$13785
PUSHJ P,PRIME
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \IMULM\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$13785: JUMPL F,$13781
PUSHJ P,%TST
ASCIZ \/\
JUMPGE F,$13909
PUSHJ P,PRIME
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \EXCH\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \IDIVM\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$13909: JUMPL F,$13781
PUSHJ P,%TST
ASCIZ \REM\
JUMPGE F,$14077
PUSHJ P,PRIME
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \EXCH\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \IDIV\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T,(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \MOVEM\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T+1,(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$14077:$13781: JUMPL F,$13765
TLO F,SUCCES
JUMPGE F,%ERROR
$13753:$13749: POPJ P,
PRIME: HRLM F,(P)
ADDI F,4
PUSHJ P,%NUM
JUMPGE F,$14337
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSH\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,[DEC \
PUSHJ P,%COPYI
PUSHJ P,%COPYL
ASCIZ \]\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$14337: JUMPL F,$14333
PUSHJ P,%TST
ASCIZ \(\
JUMPGE F,$14421
PUSHJ P,AREX
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
$14421: JUMPL F,$14333
PUSHJ P,%TST
ASCIZ \-\
JUMPGE F,$14465
PUSHJ P,PRIME
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \MOVNS\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$14465: JUMPL F,$14333
PUSHJ P,%TST
ASCIZ \*L\
JUMPGE F,$14545
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%XLEN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$14545: JUMPL F,$14333
PUSHJ P,%TST
ASCIZ \*\
JUMPGE F,$14617
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%GETNM\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$14617: JUMPL F,$14333
PUSHJ P,%TST
ASCIZ \SL#\
JUMPGE F,$14689
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%LEVEL\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \DEC\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$14689: JUMPL F,$14333
PUSHJ P,%TST
ASCIZ \S#\
JUMPGE F,$14809
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%XSYMB\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$14809: JUMPL F,$14333
PUSHJ P,%TST
ASCIZ \CL#\
JUMPGE F,$14881
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%CLEVL\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$14881: JUMPL F,$14333
PUSHJ P,%TST
ASCIZ \BL#\
JUMPGE F,$14953
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%BLEVL\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$14953: JUMPL F,$14333
PUSHJ P,%TST
ASCIZ \B#\
JUMPGE F,$15025
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%XBLK\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$15025: JUMPL F,$14333
PUSHJ P,%TST
ASCIZ \C#\
JUMPGE F,$15097
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%XBLK+1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$15097: JUMPL F,$14333
PUSHJ P,%TST
ASCIZ \N#\
JUMPGE F,$15169
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,%CALND\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \XWD\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \-1,^D\
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$15169: JUMPL F,$14333
PUSHJ P,%ID
JUMPGE F,$15297
PUSHJ P,%TST
ASCIZ \(\
JUMPGE F,$15317
PUSHJ P,%PUSH
DEC 1
PUSHJ P,AREX
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POP\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,T\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSH\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,\
PUSHJ P,%POP
DEC 1
PUSHJ P,%COPYI
PUSHJ P,%COPYL
ASCIZ \-1(T)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$15317: JUMPL F,$15313
TLO F,SUCCES
JUMPGE F,$15481
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSH\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,\
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$15481:$15313: JUMPGE F,%ERROR
$15297:$14333: POPJ P,
DECLARE: HRLM F,(P)
ADDI F,4
PUSHJ P,%TST
ASCIZ \.INTEGER\
JUMPGE F,$15605
PUSHJ P,ITEM
JUMPGE F,%ERROR
$15625: PUSHJ P,%TST
ASCIZ \,\
JUMPGE F,$15645
PUSHJ P,ITEM
JUMPGE F,%ERROR
$15645:$15641: JUMPL F,$15625
TLO F,SUCCES
JUMPGE F,%ERROR
$15605:$15601: POPJ P,
ITEM: HRLM F,(P)
ADDI F,4
PUSHJ P,%ID
JUMPGE F,$15729
PUSHJ P,%COPYI
PUSHJ P,%COPYL
ASCIZ /:/
PUSHJ P,%TST
ASCIZ \(\
JUMPGE F,$15765
PUSHJ P,%NUM
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \BLOCK\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$15765: JUMPL F,$15761
TLO F,SUCCES
JUMPGE F,$15849
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \BLOCK\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$15849:$15761: JUMPGE F,%ERROR
$15729:$15725: POPJ P,
COMMENT: HRLM F,(P)
ADDI F,4
PUSHJ P,%TST
ASCIZ \.COMMENT\
JUMPGE F,$15969
PUSHJ P,%UNTIL
ASCIZ \;\
JUMPGE F,%ERROR
$15969:$15965: POPJ P,
ST: HRLM F,(P)
ADDI F,4
PUSHJ P,%ID
JUMPGE F,$16037
PUSHJ P,%TST
ASCIZ \:\
JUMPGE F,%ERROR
PUSHJ P,%COPYI
PUSHJ P,%COPYL
ASCIZ /:/
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \HRLM\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,(P)\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ADDI\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,4\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$16157: PUSHJ P,EX1
JUMPL F,$16157
TLO F,SUCCES
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \;\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \POPJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$16037: JUMPL F,$16033
PUSHJ P,COMMENT
JUMPGE F,$16241
$16241:$16033: POPJ P,
META2: HRLM F,(P)
ADDI F,4
PUSHJ P,%TST
ASCIZ \.SYNTAX\
JUMPGE F,$16301
PUSHJ P,%ID
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TITLE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,SETUP
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ENTRY\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \%MESS1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
ASCIZ \%MESS1\
PUSHJ P,%COPYL
ASCIZ /:/
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ASCIZ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \/\
PUSHJ P,%COPYI
PUSHJ P,%COPYL
ASCIZ \: /\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \BLOCK\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \20\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ENTRY\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \%MESS2\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
ASCIZ \%MESS2\
PUSHJ P,%COPYL
ASCIZ /:/
PUSHJ P,%TST
ASCIZ \(\
JUMPGE F,$16605
PUSHJ P,%PUSH
DEC 1
PUSHJ P,%ID
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \)\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \SIXBIT\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \/\
PUSHJ P,%COPYI
PUSHJ P,%COPYL
ASCIZ \/\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%POP
DEC 1
$16605: JUMPL F,$16601
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \SIXBIT\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \/MAC/\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
TLO F,SUCCES
$16725:$16601: JUMPGE F,%ERROR
PUSHJ P,%COPYL
ASCIZ \%META2\
PUSHJ P,%COPYL
ASCIZ /:/
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JSR\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \%RESET\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JSR\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \%RESET+2\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \PUSHJ\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P,\
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JUMPGE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F,%ERROR\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \JRST\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \%FIN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$17033: PUSHJ P,ST
JUMPL F,$17033
TLO F,SUCCES
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \.END\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \END\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \%META2\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$16301: JUMPL F,$16297
PUSHJ P,%TST
ASCIZ \.SUBSYNTAX\
JUMPGE F,$17117
PUSHJ P,%ID
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \TITLE\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,SETUP
JUMPGE F,%ERROR
$17181: PUSHJ P,ST
JUMPL F,$17181
TLO F,SUCCES
JUMPGE F,%ERROR
PUSHJ P,%TST
ASCIZ \.END\
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \END\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$17117:$16297: POPJ P,
SETUP: HRLM F,(P)
ADDI F,4
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \EXTERN\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \%ID,%NUM,%STR,%GEN,%PUSH,%POP,%ERROR,%LEN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
TLO F,SUCCES
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \EXTERN\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \%UNTIL,%TST,%COPYL,%COPYI,%TYPE,%RESET\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \EXTERN\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \%BEGIN,%END,%BLOCK,%LIST,%LOOK,%SET,%CHECK\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \EXTERN\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \%CLEAR,%SCAN,%GETNM,%PUTNM,%XLEN,%XBLK\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \EXTERN\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \%GET,%PUT,%LEVEL,%SYMB,%XSYMB,%BLEVL,%FIN\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \EXTERN\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \%CLEVL,%MAKND,%SETRE,%CPYDC,%CALND,%DMPTR,%MARK\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \STK1=\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \4\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \P=\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \17\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \F=\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \16\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \SUCCES=\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \400000\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \NDELET=\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \200000\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \BACKUP=\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \100000\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \SCATEN=\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \040000\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \T=\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \1\
PUSHJ P,%COPYL
BYTE (7) 015,012,0
PUSHJ P,%PUSH
DEC 3
$17913: PUSHJ P,DECLARE
JUMPGE F,$17933
$17933: JUMPL F,$17929
PUSHJ P,OUTSIDE
JUMPGE F,$17961
$17961: JUMPL F,$17929
PUSHJ P,COMMENT
JUMPGE F,$17989
$17989:$17929: JUMPL F,$17913
TLO F,SUCCES
JUMPGE F,%ERROR
PUSHJ P,%POP
DEC 3
$17281:$17277: POPJ P,
OUTSIDE: HRLM F,(P)
ADDI F,4
PUSHJ P,%TST
ASCIZ \.INTERNAL\
JUMPGE F,$18077
PUSHJ P,%ID
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ENTRY\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$18133: PUSHJ P,%TST
ASCIZ \,\
JUMPGE F,$18153
PUSHJ P,%ID
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \ENTRY\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$18153:$18149: JUMPL F,$18133
TLO F,SUCCES
JUMPGE F,%ERROR
$18077: JUMPL F,$18073
PUSHJ P,%TST
ASCIZ \.EXTERNAL\
JUMPGE F,$18241
PUSHJ P,%ID
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \EXTERN\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$18297: PUSHJ P,%TST
ASCIZ \,\
JUMPGE F,$18317
PUSHJ P,%ID
JUMPGE F,%ERROR
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYL
ASCIZ \EXTERN\
PUSHJ P,%COPYL
BYTE (7) 011,0
PUSHJ P,%COPYI
PUSHJ P,%COPYL
BYTE (7) 015,012,0
$18317:$18313: JUMPL F,$18297
TLO F,SUCCES
JUMPGE F,%ERROR
$18241:$18073: POPJ P,
END %META2