PDP-10 Archive: decus/20-0062/meta2c.mac from decus_20tap2

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - 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