reduce-historical/psl-1983/20-tests/main7.mac

	search monsym
	radix 10
	extern STACK
	extern L0001
	extern L0002
	extern HEAP
	extern L0183
	extern L0184
	extern L0185
	extern L0186
	extern BPS
	extern L1185
	extern L1186
	extern L1187
	extern L1188
;     (!*ENTRY INITHEAP EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (WVAR HEAPLOWERBOUND) (WVAR HEAPLAST))
;          (MOVE (REG T1) (WVAR HEAPLOWERBOUND))
;          (MOVEM (REG T1) (WVAR HEAPLAST))
;     (!*MOVE (WCONST 0) (REG 1))
;          (SETZM (REG 1))
;     (!*MOVE (REG 1) (WVAR HEAPPREVIOUSLAST))
;          (MOVEM (REG 1) (WVAR HEAPPREVIOUSLAST))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
	0
; (!*ENTRY INITHEAP EXPR 0)
L1189:	intern L1189
 MOVE 6,L0183
 MOVEM 6,L0185
 SETZM 1
 MOVEM 1,L0186
 POPJ 15,0
	extern L0004
	extern ARG1
	extern ARG2
	extern ARG3
	extern ARG4
	extern ARG5
	extern ARG6
	extern ARG7
	extern ARG8
	extern ARG9
	extern ARG10
	extern ARG11
	extern ARG12
	extern ARG13
	extern ARG14
	extern ARG15
;     (!*ENTRY MAIN!. EXPR 0)
;          (RESET)
;          (MOVE (REG ST) (LIT (HALFWORD (MINUS (WCONST STACKSIZE)) (DIFFERENCE (WCONST STACK) 1))))
;          (MOVE (REG NIL) (FLUID NIL))
;     (!*LINKE 0 FIRSTCALL EXPR 0)
;          (HRRZI (REG LINKREG) 400)
;          (SETZM (REG NARGREG))
;          (JRST (ENTRY FIRSTCALL))
;          (HALFWORD (MINUS (WCONST STACKSIZE)) (DIFFERENCE (WCONST STACK) 1))
	0
; (!*ENTRY MAIN!. EXPR 0)
	intern MAIN.
MAIN.: RESET
 MOVE 15,L1190
 MOVE 0,SYMVAL+128
 HRRZI 12,400
 SETZM 13
 JRST SYMFNC+400
L1190:	byte(18)-5000,STACK-1
;     (!*ENTRY INIT EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (WCONST 0) (REG 1))
;          (SETZM (REG 1))
;     (!*LINK INIT20 EXPR 1)
	extern INIT20
;          (PUSHJ (REG ST) (INTERNALENTRY INIT20))
;     (!*MOVE (WCONST 0) (!$FLUID IN!*))
;          (SETZM (!$FLUID IN!*))
;     (!*MOVE (WCONST 1) (!$FLUID OUT!*))
;          (HRRZI (REG T1) 1)
;          (MOVEM (REG T1) (!$FLUID OUT!*))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
	0
; (!*ENTRY INIT EXPR 0)
INIT:	intern INIT
 SETZM 1
 PUSHJ 15,INIT20
 SETZM SYMVAL+385
 HRRZI 6,1
 MOVEM 6,SYMVAL+154
 MOVE 1,0
 POPJ 15,0
;     (!*ENTRY GETC EXPR 0)
;     (!*ALLOC 0)
;     (!*JUMPNOTEQ (LABEL G0004) (WCONST 0) (!$FLUID IN!*))
;          (SKIPE (!$FLUID IN!*))
;          (JRST (LABEL G0004))
;     (!*MOVE (WCONST 0) (REG 1))
;          (SETZM (REG 1))
;     (!*LINKE 0 GETC20 EXPR 1)
	extern GETC20
;          (PUSHJ (REG ST) (INTERNALENTRY GETC20))
;          (POPJ (REG ST) 0)
;     (!*LBL (LABEL G0004))
;     (!*MOVE (!$FLUID IN!*) (REG 1))
;          (MOVE (REG 1) (!$FLUID IN!*))
;     (!*LINKE 0 INDEPENDENTREADCHAR EXPR 1)
;          (HRRZI (REG LINKREG) 391)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY INDEPENDENTREADCHAR))
	0
; (!*ENTRY GETC EXPR 0)
GETC:	intern GETC
 SKIPE SYMVAL+385
 JRST L1191
 SETZM 1
 PUSHJ 15,GETC20
 POPJ 15,0
L1191: MOVE 1,SYMVAL+385
 HRRZI 12,391
 HRRZI 13,1
 JRST SYMFNC+391
;     (!*ENTRY TIMC EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (WCONST 0) (REG 1))
;          (SETZM (REG 1))
;     (!*LINKE 0 TIMC20 EXPR 1)
	extern TIMC20
;          (PUSHJ (REG ST) (INTERNALENTRY TIMC20))
;          (POPJ (REG ST) 0)
	0
; (!*ENTRY TIMC EXPR 0)
TIMC:	intern TIMC
 SETZM 1
 PUSHJ 15,TIMC20
 POPJ 15,0
;     (!*ENTRY PUTC EXPR 1)
;     (!*ALLOC 0)
;     (!*JUMPNOTEQ (LABEL G0004) (WCONST 1) (!$FLUID OUT!*))
;          (MOVE (REG T2) (!$FLUID OUT!*))
;          (CAIE (REG T2) 1)
;          (JRST (LABEL G0004))
;     (!*LINKE 0 PUTC20 EXPR 1)
	extern PUTC20
;          (PUSHJ (REG ST) (INTERNALENTRY PUTC20))
;          (POPJ (REG ST) 0)
;     (!*LBL (LABEL G0004))
;     (!*MOVE (REG 1) (REG 2))
;          (MOVE (REG 2) (REG 1))
;     (!*MOVE (!$FLUID OUT!*) (REG 1))
;          (MOVE (REG 1) (!$FLUID OUT!*))
;     (!*LINKE 0 INDEPENDENTWRITECHAR EXPR 2)
;          (HRRZI (REG LINKREG) 152)
;          (HRRZI (REG NARGREG) 2)
;          (JRST (ENTRY INDEPENDENTWRITECHAR))
	1
; (!*ENTRY PUTC EXPR 1)
PUTC:	intern PUTC
 MOVE 7,SYMVAL+154
 CAIE 7,1
 JRST L1192
 PUSHJ 15,PUTC20
 POPJ 15,0
L1192: MOVE 2,1
 MOVE 1,SYMVAL+154
 HRRZI 12,152
 HRRZI 13,2
 JRST SYMFNC+152
;     (!*ENTRY QUIT EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (WCONST 0) (REG 1))
;          (SETZM (REG 1))
;     (!*LINKE 0 QUIT20 EXPR 1)
	extern QUIT20
;          (PUSHJ (REG ST) (INTERNALENTRY QUIT20))
;          (POPJ (REG ST) 0)
	0
; (!*ENTRY QUIT EXPR 0)
QUIT:	intern QUIT
 SETZM 1
 PUSHJ 15,QUIT20
 POPJ 15,0
;     (!*ENTRY DATE EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (QUOTE "No-Date-Yet") (REG 1))
;          (MOVE (REG 1) (QUOTE "No-Date-Yet"))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
L1194:	10
	byte(7)78,111,45,68,97,116,101,45,89,101,116,0
	0
; (!*ENTRY DATE EXPR 0)
DATE:	intern DATE
 MOVE 1,L1193
 POPJ 15,0
L1193:	<4_31>+L1194
;     (!*ENTRY VERSIONNAME EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (QUOTE "DEC-20 test system") (REG 1))
;          (MOVE (REG 1) (QUOTE "DEC-20 test system"))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
L1196:	17
	byte(7)68,69,67,45,50,48,32,116,101,115,116,32,115,121,115,116,101,109,0
	0
; (!*ENTRY VERSIONNAME EXPR 0)
L1197:	intern L1197
 MOVE 1,L1195
 POPJ 15,0
L1195:	<4_31>+L1196
;     (!*ENTRY PUTINT EXPR 1)
;     (!*ALLOC 0)
;     (!*LINKE 0 PUTI20 EXPR 1)
	extern PUTI20
;          (PUSHJ (REG ST) (INTERNALENTRY PUTI20))
;          (POPJ (REG ST) 0)
	1
; (!*ENTRY PUTINT EXPR 1)
PUTINT:	intern PUTINT
 PUSHJ 15,PUTI20
 POPJ 15,0
;     (!*ENTRY !%STORE!-JCALL EXPR 2)
;     (!*ALLOC 0)
;     (!*WOR (REG 1) 23085449216)
;          (IOR (REG 1) 23085449216)
;     (!*MOVE (REG 1) (MEMORY (REG 2) (WCONST 0)))
;          (MOVEM (REG 1) (INDEXED (REG 2) 0))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
	2
; (!*ENTRY !%STORE!-JCALL EXPR 2)
L1198:	intern L1198
 IOR 1,[23085449216]
 MOVEM 1,0(2)
 POPJ 15,0
;     (!*ENTRY !%COPY!-FUNCTION!-CELL EXPR 2)
;     (!*ALLOC 0)
;     (!*MOVE (MEMORY (REG 1) (WCONST 0)) (MEMORY (REG 2) (WCONST 0)))
;          (MOVE (REG T1) (INDEXED (REG 1) 0))
;          (MOVEM (REG T1) (INDEXED (REG 2) 0))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
	2
; (!*ENTRY !%COPY!-FUNCTION!-CELL EXPR 2)
L1199:	intern L1199
 MOVE 6,0(1)
 MOVEM 6,0(2)
 POPJ 15,0
;     (!*ENTRY UNDEFINEDFUNCTION EXPR 0)
;     (!*MOVE (REG LINKREG) (FLUID UNDEFNCODE!*))
;          (MOVEM (REG LINKREG) (FLUID UNDEFNCODE!*))
;     (!*MOVE (REG NARGREG) (FLUID UNDEFNNARG!*))
;          (MOVEM (REG NARGREG) (FLUID UNDEFNNARG!*))
;     (!*JCALL UNDEFINEDFUNCTIONAUX)
;          (JRST (ENTRY UNDEFINEDFUNCTIONAUX))
	0
; (!*ENTRY UNDEFINEDFUNCTION EXPR 0)
L1200:	intern L1200
 MOVEM 12,SYMVAL+408
 MOVEM 13,SYMVAL+409
 JRST SYMFNC+249
;     (!*ENTRY FLAG EXPR 2)
;     (!*ALLOC 0)
;     (!*MOVE 2 (REG 1))
;          (HRRZI (REG 1) 2)
;     (!*LINKE 0 ERR20 EXPR 1)
	extern ERR20
;          (PUSHJ (REG ST) (INTERNALENTRY ERR20))
;          (POPJ (REG ST) 0)
	2
; (!*ENTRY FLAG EXPR 2)
FLAG:	intern FLAG
 HRRZI 1,2
 PUSHJ 15,ERR20
 POPJ 15,0
;     (!*ENTRY LONGTIMES EXPR 2)
;     (!*ALLOC 0)
;     (!*WTIMES2 (REG 1) (REG 2))
;          (IMUL (REG 1) (REG 2))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
	2
; (!*ENTRY LONGTIMES EXPR 2)
L1201:	intern L1201
 IMUL 1,2
 POPJ 15,0
;     (!*ENTRY LONGDIV EXPR 2)
;     (!*ALLOC 0)
;     (!*LINKE 0 WQUOTIENT EXPR 2)
;          (HRRZI (REG LINKREG) 171)
;          (HRRZI (REG NARGREG) 2)
;          (IDIV (REG 1) (REG 2))
;          (POPJ (REG ST) 0)
	2
; (!*ENTRY LONGDIV EXPR 2)
L1202:	intern L1202
 HRRZI 12,171
 HRRZI 13,2
 IDIV 1,2
 POPJ 15,0
;     (!*ENTRY LONGREMAINDER EXPR 2)
;     (!*ALLOC 0)
;     (!*LINKE 0 WREMAINDER EXPR 2)
;          (HRRZI (REG LINKREG) 411)
;          (HRRZI (REG NARGREG) 2)
;          (IDIV (REG 1) (REG 2))
;          (MOVE (REG 1) (REG 2))
;          (POPJ (REG ST) 0)
	2
; (!*ENTRY LONGREMAINDER EXPR 2)
L1203:	intern L1203
 HRRZI 12,411
 HRRZI 13,2
 IDIV 1,2
 MOVE 1,2
 POPJ 15,0
;     (!*ENTRY !%RECLAIM EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (QUOTE " *** Dummy !%RECLAIM: ") (REG 1))
;          (MOVE (REG 1) (QUOTE " *** Dummy !%RECLAIM: "))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*LINKE 0 HEAPINFO EXPR 0)
;          (HRRZI (REG LINKREG) 412)
;          (SETZM (REG NARGREG))
;          (JRST (ENTRY HEAPINFO))
L1205:	21
	byte(7)32,42,42,42,32,68,117,109,109,121,32,33,37,82,69,67,76,65,73,77,58,32,0
	0
; (!*ENTRY !%RECLAIM EXPR 0)
L1206:	intern L1206
 MOVE 1,L1204
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 HRRZI 12,412
 SETZM 13
 JRST SYMFNC+412
L1204:	<4_31>+L1205
;     (!*ENTRY RECLAIM EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (QUOTE "*** Dummy RECLAIM: ") (REG 1))
;          (MOVE (REG 1) (QUOTE "*** Dummy RECLAIM: "))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*LINKE 0 HEAPINFO EXPR 0)
;          (HRRZI (REG LINKREG) 412)
;          (SETZM (REG NARGREG))
;          (JRST (ENTRY HEAPINFO))
L1208:	18
	byte(7)42,42,42,32,68,117,109,109,121,32,82,69,67,76,65,73,77,58,32,0
	0
; (!*ENTRY RECLAIM EXPR 0)
L1209:	intern L1209
 MOVE 1,L1207
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 HRRZI 12,412
 SETZM 13
 JRST SYMFNC+412
L1207:	<4_31>+L1208
;     (!*ENTRY HEAPINFO EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (WCONST 1) (REG 2))
;          (HRRZI (REG 2) 1)
;     (!*MOVE (WVAR HEAPLAST) (REG 1))
;          (MOVE (REG 1) (WVAR HEAPLAST))
;     (!*WDIFFERENCE (REG 1) (WVAR HEAPLOWERBOUND))
;          (SUB (REG 1) (WVAR HEAPLOWERBOUND))
;     (!*LINK WQUOTIENT EXPR 2)
;          (HRRZI (REG LINKREG) 171)
;          (HRRZI (REG NARGREG) 2)
;          (IDIV (REG 1) (REG 2))
;     (!*LINK PRIN1 EXPR 1)
;          (HRRZI (REG LINKREG) 134)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN1))
;     (!*MOVE (QUOTE " Items used, ") (REG 1))
;          (MOVE (REG 1) (QUOTE " Items used, "))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (WCONST 1) (REG 2))
;          (HRRZI (REG 2) 1)
;     (!*MOVE (WVAR HEAPUPPERBOUND) (REG 1))
;          (MOVE (REG 1) (WVAR HEAPUPPERBOUND))
;     (!*WDIFFERENCE (REG 1) (WVAR HEAPLAST))
;          (SUB (REG 1) (WVAR HEAPLAST))
;     (!*LINK WQUOTIENT EXPR 2)
;          (HRRZI (REG LINKREG) 171)
;          (HRRZI (REG NARGREG) 2)
;          (IDIV (REG 1) (REG 2))
;     (!*LINK PRIN1 EXPR 1)
;          (HRRZI (REG LINKREG) 134)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN1))
;     (!*MOVE (QUOTE " Items left.") (REG 1))
;          (MOVE (REG 1) (QUOTE " Items left."))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*MOVE (WCONST 0) (REG 1))
;          (SETZM (REG 1))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
L1212:	11
	byte(7)32,73,116,101,109,115,32,108,101,102,116,46,0
L1213:	12
	byte(7)32,73,116,101,109,115,32,117,115,101,100,44,32,0
	0
; (!*ENTRY HEAPINFO EXPR 0)
L1214:	intern L1214
 HRRZI 2,1
 MOVE 1,L0185
 SUB 1,L0183
 HRRZI 12,171
 HRRZI 13,2
 IDIV 1,2
 HRRZI 12,134
 HRRZI 13,1
 PUSHJ 15,SYMFNC+134
 MOVE 1,L1210
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 HRRZI 2,1
 MOVE 1,L0184
 SUB 1,L0185
 HRRZI 12,171
 HRRZI 13,2
 IDIV 1,2
 HRRZI 12,134
 HRRZI 13,1
 PUSHJ 15,SYMFNC+134
 MOVE 1,L1211
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 SETZM 1
 POPJ 15,0
L1211:	<4_31>+L1212
L1210:	<4_31>+L1213
;     (!*ENTRY SPACED EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*MOVE (QUOTE "           ") (REG 1))
;          (MOVE (REG 1) (QUOTE "           "))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINKE 1 PRIN2T EXPR 1)
;          (ADJSP (REG ST) (MINUS 1))
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRIN2T))
L1216:	10
	byte(7)32,32,32,32,32,32,32,32,32,32,32,0
	1
; (!*ENTRY SPACED EXPR 1)
SPACED:	intern SPACED
 PUSH 15,1
 MOVE 1,L1215
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,0(15)
 ADJSP 15,-1
 HRRZI 12,141
 HRRZI 13,1
 JRST SYMFNC+141
L1215:	<4_31>+L1216
;     (!*ENTRY DASHED EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LINK TERPRI EXPR 0)
;          (HRRZI (REG LINKREG) 139)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY TERPRI))
;     (!*MOVE (QUOTE "---------- ") (REG 1))
;          (MOVE (REG 1) (QUOTE "---------- "))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINKE 1 PRIN2T EXPR 1)
;          (ADJSP (REG ST) (MINUS 1))
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRIN2T))
L1218:	10
	byte(7)45,45,45,45,45,45,45,45,45,45,32,0
	1
; (!*ENTRY DASHED EXPR 1)
DASHED:	intern DASHED
 PUSH 15,1
 HRRZI 12,139
 SETZM 13
 PUSHJ 15,SYMFNC+139
 MOVE 1,L1217
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,0(15)
 ADJSP 15,-1
 HRRZI 12,141
 HRRZI 13,1
 JRST SYMFNC+141
L1217:	<4_31>+L1218
;     (!*ENTRY DOTTED EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LINK TERPRI EXPR 0)
;          (HRRZI (REG LINKREG) 139)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY TERPRI))
;     (!*MOVE (QUOTE "   ....... ") (REG 1))
;          (MOVE (REG 1) (QUOTE "   ....... "))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINKE 1 PRIN2T EXPR 1)
;          (ADJSP (REG ST) (MINUS 1))
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRIN2T))
L1220:	10
	byte(7)32,32,32,46,46,46,46,46,46,46,32,0
	1
; (!*ENTRY DOTTED EXPR 1)
DOTTED:	intern DOTTED
 PUSH 15,1
 HRRZI 12,139
 SETZM 13
 PUSHJ 15,SYMFNC+139
 MOVE 1,L1219
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,0(15)
 ADJSP 15,-1
 HRRZI 12,141
 HRRZI 13,1
 JRST SYMFNC+141
L1219:	<4_31>+L1220
;     (!*ENTRY SHOULDBE EXPR 3)
;     (!*ALLOC 3)
;          (ADJSP (REG ST) 3)
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*MOVE (REG 2) (FRAME 2))
;          (MOVEM (REG 2) (INDEXED (REG ST) -1))
;     (!*MOVE (REG 3) (FRAME 3))
;          (MOVEM (REG 3) (INDEXED (REG ST) -2))
;     (!*MOVE (QUOTE "   ....... For ") (REG 1))
;          (MOVE (REG 1) (QUOTE "   ....... For "))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (QUOTE " ") (REG 1))
;          (MOVE (REG 1) (QUOTE " "))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*LINK PRIN1 EXPR 1)
;          (HRRZI (REG LINKREG) 134)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN1))
;     (!*MOVE (QUOTE " should be ") (REG 1))
;          (MOVE (REG 1) (QUOTE " should be "))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (FRAME 3) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -2))
;     (!*LINK PRIN1 EXPR 1)
;          (HRRZI (REG LINKREG) 134)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN1))
;     (!*JUMPNOTEQ (LABEL G0004) (FRAME 2) (FRAME 3))
;          (MOVE (REG T1) (INDEXED (REG ST) -1))
;          (CAME (REG T1) (INDEXED (REG ST) -2))
;          (JRST (LABEL G0004))
;     (!*MOVE (QUOTE "  [OK ]") (REG 1))
;          (MOVE (REG 1) (QUOTE "  [OK ]"))
;     (!*JUMP (LABEL G0006))
;          (JRST (LABEL G0006))
;     (!*LBL (LABEL G0004))
;     (!*MOVE (QUOTE "   [BAD] *******") (REG 1))
;          (MOVE (REG 1) (QUOTE "   [BAD] *******"))
;     (!*LBL (LABEL G0006))
;     (!*LINKE 3 PRIN2T EXPR 1)
;          (ADJSP (REG ST) (MINUS 3))
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRIN2T))
L1226:	15
	byte(7)32,32,32,91,66,65,68,93,32,42,42,42,42,42,42,42,0
L1227:	6
	byte(7)32,32,91,79,75,32,93,0
L1228:	10
	byte(7)32,115,104,111,117,108,100,32,98,101,32,0
L1229:	0
	byte(7)32,0
L1230:	14
	byte(7)32,32,32,46,46,46,46,46,46,46,32,70,111,114,32,0
	3
; (!*ENTRY SHOULDBE EXPR 3)
L1231:	intern L1231
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 MOVE 1,L1221
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,0(15)
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,L1222
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,-1(15)
 HRRZI 12,134
 HRRZI 13,1
 PUSHJ 15,SYMFNC+134
 MOVE 1,L1223
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,-2(15)
 HRRZI 12,134
 HRRZI 13,1
 PUSHJ 15,SYMFNC+134
 MOVE 6,-1(15)
 CAME 6,-2(15)
 JRST L1232
 MOVE 1,L1224
 JRST L1233
L1232: MOVE 1,L1225
L1233: ADJSP 15,-3
 HRRZI 12,141
 HRRZI 13,1
 JRST SYMFNC+141
L1225:	<4_31>+L1226
L1224:	<4_31>+L1227
L1223:	<4_31>+L1228
L1222:	<4_31>+L1229
L1221:	<4_31>+L1230
;     (!*ENTRY UNDEFINEDFUNCTIONAUXAUX EXPR 0)
;     (!*ALLOC 2)
;          (ADJSP (REG ST) 2)
;     (!*MOVE (!$FLUID UNDEFNNARG!*) (FRAME 2))
;          (MOVE (REG T1) (!$FLUID UNDEFNNARG!*))
;          (MOVEM (REG T1) (INDEXED (REG ST) -1))
;     (!*MOVE (!$FLUID UNDEFNCODE!*) (REG 1))
;          (MOVE (REG 1) (!$FLUID UNDEFNCODE!*))
;     (!*MKITEM (REG 1) (WCONST 30))
;          (TLZ (REG 1) 253952)
;          (TLO (REG 1) (LSH 30 13))
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*MOVE (QUOTE "Undefined Function ") (REG 1))
;          (MOVE (REG 1) (QUOTE "Undefined Function "))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK PRIN1 EXPR 1)
;          (HRRZI (REG LINKREG) 134)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN1))
;     (!*MOVE (QUOTE " called with ") (REG 1))
;          (MOVE (REG 1) (QUOTE " called with "))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (QUOTE " args from compiled code") (REG 1))
;          (MOVE (REG 1) (QUOTE " args from compiled code"))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*LINK QUIT EXPR 0)
;          (HRRZI (REG LINKREG) 148)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY QUIT))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (POPJ (REG ST) 0)
L1237:	23
	byte(7)32,97,114,103,115,32,102,114,111,109,32,99,111,109,112,105,108,101,100,32,99,111,100,101,0
L1238:	12
	byte(7)32,99,97,108,108,101,100,32,119,105,116,104,32,0
L1239:	18
	byte(7)85,110,100,101,102,105,110,101,100,32,70,117,110,99,116,105,111,110,32,0
	0
; (!*ENTRY UNDEFINEDFUNCTIONAUXAUX EXPR 0)
L1240:	intern L1240
 ADJSP 15,2
 MOVE 6,SYMVAL+409
 MOVEM 6,-1(15)
 MOVE 1,SYMVAL+408
 TLZ 1,253952
 TLO 1,245760
 MOVEM 1,0(15)
 MOVE 1,L1234
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,0(15)
 HRRZI 12,134
 HRRZI 13,1
 PUSHJ 15,SYMFNC+134
 MOVE 1,L1235
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,-1(15)
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,L1236
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 HRRZI 12,148
 SETZM 13
 PUSHJ 15,SYMFNC+148
 MOVE 1,0
 ADJSP 15,-2
 POPJ 15,0
L1236:	<4_31>+L1237
L1235:	<4_31>+L1238
L1234:	<4_31>+L1239
;     (!*ENTRY INF EXPR 1)
;     (!*ALLOC 0)
;     (!*FIELD (REG 1) (REG 1) (WCONST 18) (WCONST 18))
;          (HRRZ (REG 1) (REG 1))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
	1
; (!*ENTRY INF EXPR 1)
INF:	intern INF
 HRRZ 1,1
 POPJ 15,0
;     (!*ENTRY TAG EXPR 1)
;     (!*ALLOC 0)
;     (!*FIELD (REG 1) (REG 1) (WCONST 0) (WCONST 5))
;          (LDB (REG 1) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
;          (FULLWORD (FIELDPOINTER (REG 1) 0 5))
	1
; (!*ENTRY TAG EXPR 1)
TAG:	intern TAG
 LDB 1,L1241
 POPJ 15,0
L1241:	point 5,1,4
;     (!*ENTRY MKITEM EXPR 2)
;     (!*ALLOC 0)
;     (!*MOVE (REG 1) (REG 3))
;          (MOVE (REG 3) (REG 1))
;     (!*MOVE (REG 2) (REG 1))
;          (MOVE (REG 1) (REG 2))
;     (!*MKITEM (REG 1) (REG 3))
;          (DPB (REG 3) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
;          (FULLWORD (FIELDPOINTER (REG 1) 0 5))
	2
; (!*ENTRY MKITEM EXPR 2)
MKITEM:	intern MKITEM
 MOVE 3,1
 MOVE 1,2
 DPB 3,L1242
 POPJ 15,0
L1242:	point 5,1,4
;     (!*ENTRY BLDMSG EXPR 7)
;     (!*ALLOC 7)
;          (ADJSP (REG ST) 7)
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*MOVE (REG 2) (FRAME 2))
;          (MOVEM (REG 2) (INDEXED (REG ST) -1))
;     (!*MOVE (REG 3) (FRAME 3))
;          (MOVEM (REG 3) (INDEXED (REG ST) -2))
;     (!*MOVE (REG 4) (FRAME 4))
;          (MOVEM (REG 4) (INDEXED (REG ST) -3))
;     (!*MOVE (REG 5) (FRAME 5))
;          (MOVEM (REG 5) (INDEXED (REG ST) -4))
;     (!*MOVE (REG 6) (FRAME 6))
;          (HRRZI (REG T1) (IMMEDIATE (EXTRAREG 6)))
;          (MOVEM (REG T1) (INDEXED (REG ST) -5))
;     (!*MOVE (REG 7) (FRAME 7))
;          (HRRZI (REG T1) (IMMEDIATE (EXTRAREG 7)))
;          (MOVEM (REG T1) (INDEXED (REG ST) -6))
;     (!*MOVE (QUOTE "BldMsg called") (REG 1))
;          (MOVE (REG 1) (QUOTE "BldMsg called"))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*MOVE (FRAME 4) (REG 4))
;          (MOVE (REG 4) (INDEXED (REG ST) -3))
;     (!*MOVE (FRAME 3) (REG 3))
;          (MOVE (REG 3) (INDEXED (REG ST) -2))
;     (!*MOVE (FRAME 2) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) -1))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK LIST4 EXPR 4)
;          (HRRZI (REG LINKREG) 185)
;          (HRRZI (REG NARGREG) 4)
;          (PUSHJ (REG ST) (ENTRY LIST4))
;     (!*LINKE 7 PRINT EXPR 1)
;          (ADJSP (REG ST) (MINUS 7))
;          (HRRZI (REG LINKREG) 140)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRINT))
L1244:	12
	byte(7)66,108,100,77,115,103,32,99,97,108,108,101,100,0
	7
; (!*ENTRY BLDMSG EXPR 7)
BLDMSG:	intern BLDMSG
 ADJSP 15,7
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 MOVEM 4,-3(15)
 MOVEM 5,-4(15)
 HRRZI 6,L0004+0
 MOVEM 6,-5(15)
 HRRZI 6,L0004+1
 MOVEM 6,-6(15)
 MOVE 1,L1243
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 MOVE 4,-3(15)
 MOVE 3,-2(15)
 MOVE 2,-1(15)
 MOVE 1,0(15)
 HRRZI 12,185
 HRRZI 13,4
 PUSHJ 15,SYMFNC+185
 ADJSP 15,-7
 HRRZI 12,140
 HRRZI 13,1
 JRST SYMFNC+140
L1243:	<4_31>+L1244
;     (!*ENTRY TIME EXPR 0)
;     (!*ALLOC 0)
;     (!*LINKE 0 TIMC EXPR 0)
;          (HRRZI (REG LINKREG) 403)
;          (SETZM (REG NARGREG))
;          (JRST (ENTRY TIMC))
	0
; (!*ENTRY TIME EXPR 0)
TIME:	intern TIME
 HRRZI 12,403
 SETZM 13
 JRST SYMFNC+403
;     (!*ENTRY FUNCALL EXPR 2)
;     (!*ALLOC 0)
;     (!*MOVE (REG 2) (REG 3))
;          (MOVE (REG 3) (REG 2))
;     (!*MOVE (REG 1) (REG 2))
;          (MOVE (REG 2) (REG 1))
;     (!*MOVE (REG 3) (REG 1))
;          (MOVE (REG 1) (REG 3))
;     (!*LINKE 0 IDAPPLY1 EXPR 2)
;          (HRRZI (REG NARGREG) 1)
;          (MOVE (REG LINKREG) (REG 2))
;          (JRST (INDEXED (REG 2) (WARRAY SYMFNC)))
	2
; (!*ENTRY FUNCALL EXPR 2)
L1245:	intern L1245
 MOVE 3,2
 MOVE 2,1
 MOVE 1,3
 HRRZI 13,1
 MOVE 12,2
 JRST SYMFNC(2)
;     (!*ENTRY TESTSETUP EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (QUOTE 1000) (REG 1))
;          (HRRZI (REG 1) 1000)
;     (!*LINK PREPARETEST EXPR 1)
;          (HRRZI (REG LINKREG) 423)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PREPARETEST))
;     (!*MOVE (REG 1) (!$FLUID TESTLIST))
;          (MOVEM (REG 1) (!$FLUID TESTLIST))
;     (!*MOVE (QUOTE 2000) (REG 1))
;          (HRRZI (REG 1) 2000)
;     (!*LINK PREPARETEST EXPR 1)
;          (HRRZI (REG LINKREG) 423)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PREPARETEST))
;     (!*MOVE (REG 1) (!$FLUID TESTLIST2))
;          (MOVEM (REG 1) (!$FLUID TESTLIST2))
;     (!*LINK MAKELONGLIST EXPR 0)
;          (HRRZI (REG LINKREG) 424)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY MAKELONGLIST))
;     (!*MOVE (QUOTE (SETQ FOO (CADR (QUOTE (1 2 3))))) (REG 1))
;          (MOVE (REG 1) (QUOTE (SETQ FOO (CADR (QUOTE (1 2 3))))))
;     (!*MOVE (REG 1) (!$FLUID EVALFORM))
;          (MOVEM (REG 1) (!$FLUID EVALFORM))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
L1247:	<30_31>+290
	<9_31>+L1248
L1248:	<30_31>+425
	<9_31>+L1249
L1249:	<9_31>+L1250
	<30_31>+128
L1250:	<30_31>+278
	<9_31>+L1251
L1251:	<9_31>+L1252
	<30_31>+128
L1252:	<30_31>+223
	<9_31>+L1253
L1253:	<9_31>+L1254
	<30_31>+128
L1254:	1
	<9_31>+L1255
L1255:	2
	<9_31>+L1256
L1256:	3
	<30_31>+128
	0
; (!*ENTRY TESTSETUP EXPR 0)
L1257:	intern L1257
 HRRZI 1,1000
 HRRZI 12,423
 HRRZI 13,1
 PUSHJ 15,SYMFNC+423
 MOVEM 1,SYMVAL+427
 HRRZI 1,2000
 HRRZI 12,423
 HRRZI 13,1
 PUSHJ 15,SYMFNC+423
 MOVEM 1,SYMVAL+428
 HRRZI 12,424
 SETZM 13
 PUSHJ 15,SYMFNC+424
 MOVE 1,L1246
 MOVEM 1,SYMVAL+429
 POPJ 15,0
L1246:	<9_31>+L1247
;     (!*ENTRY MAKELONGLIST EXPR 0)
;     (!*ALLOC 1)
;          (ADJSP (REG ST) 1)
;     (!*MOVE (QUOTE (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z)) (!$FLUID LONGLIST))
;          (MOVE (REG T1) (QUOTE (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z)))
;          (MOVEM (REG T1) (!$FLUID LONGLIST))
;     (!*MOVE (QUOTE 0) (FRAME 1))
;          (SETZM (INDEXED (REG ST) 0))
;     (!*LBL (LABEL G0004))
;     (!*JUMPWLEQ (LABEL G0005) (FRAME 1) (QUOTE 5))
;          (MOVE (REG T1) (INDEXED (REG ST) 0))
;          (CAIG (REG T1) 5)
;          (JRST (LABEL G0005))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (!$FLUID LONGLIST) (REG 2))
;          (MOVE (REG 2) (!$FLUID LONGLIST))
;     (!*MOVE (REG 2) (REG 1))
;          (MOVE (REG 1) (REG 2))
;     (!*LINK APPEND EXPR 2)
;          (HRRZI (REG LINKREG) 282)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY APPEND))
;     (!*MOVE (REG 1) (!$FLUID LONGLIST))
;          (MOVEM (REG 1) (!$FLUID LONGLIST))
;     (!*WPLUS2 (FRAME 1) (WCONST 1))
;          (AOS (INDEXED (REG ST) 0))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 1)
;          (ADJSP (REG ST) (MINUS 1))
;          (POPJ (REG ST) 0)
L1259:	<30_31>+65
	<9_31>+L1260
L1260:	<30_31>+66
	<9_31>+L1261
L1261:	<30_31>+67
	<9_31>+L1262
L1262:	<30_31>+68
	<9_31>+L1263
L1263:	<30_31>+69
	<9_31>+L1264
L1264:	<30_31>+70
	<9_31>+L1265
L1265:	<30_31>+71
	<9_31>+L1266
L1266:	<30_31>+72
	<9_31>+L1267
L1267:	<30_31>+73
	<9_31>+L1268
L1268:	<30_31>+74
	<9_31>+L1269
L1269:	<30_31>+75
	<9_31>+L1270
L1270:	<30_31>+76
	<9_31>+L1271
L1271:	<30_31>+77
	<9_31>+L1272
L1272:	<30_31>+78
	<9_31>+L1273
L1273:	<30_31>+79
	<9_31>+L1274
L1274:	<30_31>+80
	<9_31>+L1275
L1275:	<30_31>+81
	<9_31>+L1276
L1276:	<30_31>+82
	<9_31>+L1277
L1277:	<30_31>+83
	<9_31>+L1278
L1278:	<30_31>+84
	<9_31>+L1279
L1279:	<30_31>+85
	<9_31>+L1280
L1280:	<30_31>+86
	<9_31>+L1281
L1281:	<30_31>+87
	<9_31>+L1282
L1282:	<30_31>+88
	<9_31>+L1283
L1283:	<30_31>+89
	<9_31>+L1284
L1284:	<30_31>+90
	<30_31>+128
	0
; (!*ENTRY MAKELONGLIST EXPR 0)
L1285:	intern L1285
 ADJSP 15,1
 MOVE 6,L1258
 MOVEM 6,SYMVAL+430
 SETZM 0(15)
L1286: MOVE 6,0(15)
 CAIG 6,5
 JRST L1287
 MOVE 1,0
 JRST L1288
L1287: MOVE 2,SYMVAL+430
 MOVE 1,2
 HRRZI 12,282
 HRRZI 13,2
 PUSHJ 15,SYMFNC+282
 MOVEM 1,SYMVAL+430
 AOS 0(15)
 JRST L1286
L1288: ADJSP 15,-1
 POPJ 15,0
L1258:	<9_31>+L1259
;     (!*ENTRY PREPARETEST EXPR 1)
;     (!*ALLOC 3)
;          (ADJSP (REG ST) 3)
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*MOVE (QUOTE -1) (FRAME 3))
;          (SETOM (INDEXED (REG ST) -2))
;     (!*MOVE (QUOTE NIL) (REG 2))
;          (MOVE (REG 2) (REG NIL))
;     (!*MOVE (REG 2) (FRAME 2))
;          (MOVEM (REG 2) (INDEXED (REG ST) -1))
;     (!*LBL (LABEL G0004))
;     (!*JUMPWGEQ (LABEL G0005) (FRAME 1) (FRAME 3))
;          (MOVE (REG T1) (INDEXED (REG ST) 0))
;          (CAML (REG T1) (INDEXED (REG ST) -2))
;          (JRST (LABEL G0005))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0005))
;     (!*WPLUS2 (FRAME 3) (WCONST 1))
;          (AOS (INDEXED (REG ST) -2))
;     (!*MOVE (FRAME 2) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) -1))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*LINK CONS EXPR 2)
;          (HRRZI (REG LINKREG) 179)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY CONS))
;     (!*MOVE (REG 1) (FRAME 2))
;          (MOVEM (REG 1) (INDEXED (REG ST) -1))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 3)
;          (ADJSP (REG ST) (MINUS 3))
;          (POPJ (REG ST) 0)
	1
; (!*ENTRY PREPARETEST EXPR 1)
L1289:	intern L1289
 ADJSP 15,3
 MOVEM 1,0(15)
 SETOM -2(15)
 MOVE 2,0
 MOVEM 2,-1(15)
L1290: MOVE 6,0(15)
 CAML 6,-2(15)
 JRST L1291
 MOVE 1,-1(15)
 JRST L1292
L1291: AOS -2(15)
 MOVE 2,-1(15)
 MOVE 1,0
 HRRZI 12,179
 HRRZI 13,2
 PUSHJ 15,SYMFNC+179
 MOVEM 1,-1(15)
 JRST L1290
L1292: ADJSP 15,-3
 POPJ 15,0
;     (!*ENTRY CDR1TEST EXPR 1)
;     (!*ALLOC 0)
;     (!*MOVE (REG 1) (REG 4))
;          (MOVE (REG 4) (REG 1))
;     (!*MOVE (QUOTE -1) (REG 3))
;          (SETOM (REG 3))
;     (!*LBL (LABEL G0004))
;     (!*WPLUS2 (REG 3) (WCONST 1))
;          (AOS (REG 3))
;     (!*MOVE (!$FLUID LONGLIST) (REG 2))
;          (MOVE (REG 2) (!$FLUID LONGLIST))
;     (!*JUMPWLEQ (LABEL G0005) (REG 3) (REG 4))
;          (CAMG (REG 3) (REG 4))
;          (JRST (LABEL G0005))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
;     (!*LBL (LABEL G0005))
;     (!*MOVE (CDR (REG 2)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG 2) 1))
;     (!*MOVE (REG 1) (REG 2))
;          (MOVE (REG 2) (REG 1))
;     (!*JUMPTYPE (LABEL G0005) (REG 1) PAIR)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;          (CAIN (REG T6) 9)
;          (JRST (LABEL G0005))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;          (FULLWORD (FIELDPOINTER (REG 1) 0 5))
	1
; (!*ENTRY CDR1TEST EXPR 1)
L1294:	intern L1294
 MOVE 4,1
 SETOM 3
L1295: AOS 3
 MOVE 2,SYMVAL+430
 CAMG 3,4
 JRST L1296
 MOVE 1,0
 POPJ 15,0
L1296: MOVE 1,1(2)
 MOVE 2,1
 LDB 11,L1293
 CAIN 11,9
 JRST L1296
 JRST L1295
L1293:	point 5,1,4
;     (!*ENTRY CDR2TEST EXPR 1)
;     (!*ALLOC 0)
;     (!*MOVE (REG 1) (REG 4))
;          (MOVE (REG 4) (REG 1))
;     (!*MOVE (QUOTE -1) (REG 3))
;          (SETOM (REG 3))
;     (!*LBL (LABEL G0004))
;     (!*WPLUS2 (REG 3) (WCONST 1))
;          (AOS (REG 3))
;     (!*MOVE (!$FLUID LONGLIST) (REG 2))
;          (MOVE (REG 2) (!$FLUID LONGLIST))
;     (!*JUMPWLEQ (LABEL G0005) (REG 3) (REG 4))
;          (CAMG (REG 3) (REG 4))
;          (JRST (LABEL G0005))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
;     (!*LBL (LABEL G0005))
;     (!*MOVE (CDR (REG 2)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG 2) 1))
;     (!*MOVE (REG 1) (REG 2))
;          (MOVE (REG 2) (REG 1))
;     (!*JUMPNOTEQ (LABEL G0005) (REG 1) (QUOTE NIL))
;          (CAME (REG 1) (REG NIL))
;          (JRST (LABEL G0005))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
	1
; (!*ENTRY CDR2TEST EXPR 1)
L1297:	intern L1297
 MOVE 4,1
 SETOM 3
L1298: AOS 3
 MOVE 2,SYMVAL+430
 CAMG 3,4
 JRST L1299
 MOVE 1,0
 POPJ 15,0
L1299: MOVE 1,1(2)
 MOVE 2,1
 CAME 1,0
 JRST L1299
 JRST L1298
;     (!*ENTRY CDDRTEST EXPR 1)
;     (!*ALLOC 0)
;     (!*MOVE (REG 1) (REG 4))
;          (MOVE (REG 4) (REG 1))
;     (!*MOVE (QUOTE -1) (REG 3))
;          (SETOM (REG 3))
;     (!*LBL (LABEL G0004))
;     (!*WPLUS2 (REG 3) (WCONST 1))
;          (AOS (REG 3))
;     (!*MOVE (!$FLUID LONGLIST) (REG 2))
;          (MOVE (REG 2) (!$FLUID LONGLIST))
;     (!*JUMPWLEQ (LABEL G0005) (REG 3) (REG 4))
;          (CAMG (REG 3) (REG 4))
;          (JRST (LABEL G0005))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
;     (!*LBL (LABEL G0005))
;     (!*MOVE (CDR (CDR (REG 2))) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG 2) 1))
;          (MOVE (REG 1) (INDEXED (REG 1) 1))
;     (!*MOVE (REG 1) (REG 2))
;          (MOVE (REG 2) (REG 1))
;     (!*JUMPNOTEQ (LABEL G0005) (REG 1) (QUOTE NIL))
;          (CAME (REG 1) (REG NIL))
;          (JRST (LABEL G0005))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
	1
; (!*ENTRY CDDRTEST EXPR 1)
L1300:	intern L1300
 MOVE 4,1
 SETOM 3
L1301: AOS 3
 MOVE 2,SYMVAL+430
 CAMG 3,4
 JRST L1302
 MOVE 1,0
 POPJ 15,0
L1302: MOVE 1,1(2)
 MOVE 1,1(1)
 MOVE 2,1
 CAME 1,0
 JRST L1302
 JRST L1301
;     (!*ENTRY LISTONLYCDRTEST1 EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (!$FLUID TESTLIST) (REG 4))
;          (MOVE (REG 4) (!$FLUID TESTLIST))
;     (!*LBL (LABEL G0004))
;     (!*MOVE (!$FLUID TESTLIST) (REG 3))
;          (MOVE (REG 3) (!$FLUID TESTLIST))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (CDR (REG 3)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG 3) 1))
;     (!*MOVE (REG 1) (REG 3))
;          (MOVE (REG 3) (REG 1))
;     (!*JUMPNOTEQ (LABEL G0005) (REG 1) (QUOTE NIL))
;          (CAME (REG 1) (REG NIL))
;          (JRST (LABEL G0005))
;     (!*MOVE (CDR (REG 4)) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG 4) 1))
;     (!*MOVE (REG 2) (REG 4))
;          (MOVE (REG 4) (REG 2))
;     (!*JUMPNOTEQ (LABEL G0004) (REG 2) (QUOTE NIL))
;          (CAME (REG 2) (REG NIL))
;          (JRST (LABEL G0004))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
	0
; (!*ENTRY LISTONLYCDRTEST1 EXPR 0)
L1303:	intern L1303
 MOVE 4,SYMVAL+427
L1304: MOVE 3,SYMVAL+427
L1305: MOVE 1,1(3)
 MOVE 3,1
 CAME 1,0
 JRST L1305
 MOVE 2,1(4)
 MOVE 4,2
 CAME 2,0
 JRST L1304
 MOVE 1,0
 POPJ 15,0
;     (!*ENTRY LISTONLYCDDRTEST1 EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (!$FLUID TESTLIST2) (REG 4))
;          (MOVE (REG 4) (!$FLUID TESTLIST2))
;     (!*LBL (LABEL G0004))
;     (!*MOVE (!$FLUID TESTLIST2) (REG 3))
;          (MOVE (REG 3) (!$FLUID TESTLIST2))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (CDR (CDR (REG 3))) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG 3) 1))
;          (MOVE (REG 1) (INDEXED (REG 1) 1))
;     (!*MOVE (REG 1) (REG 3))
;          (MOVE (REG 3) (REG 1))
;     (!*JUMPNOTEQ (LABEL G0005) (REG 1) (QUOTE NIL))
;          (CAME (REG 1) (REG NIL))
;          (JRST (LABEL G0005))
;     (!*MOVE (CDR (CDR (REG 4))) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG 4) 1))
;          (MOVE (REG 2) (INDEXED (REG 2) 1))
;     (!*MOVE (REG 2) (REG 4))
;          (MOVE (REG 4) (REG 2))
;     (!*JUMPNOTEQ (LABEL G0004) (REG 2) (QUOTE NIL))
;          (CAME (REG 2) (REG NIL))
;          (JRST (LABEL G0004))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
	0
; (!*ENTRY LISTONLYCDDRTEST1 EXPR 0)
L1306:	intern L1306
 MOVE 4,SYMVAL+428
L1307: MOVE 3,SYMVAL+428
L1308: MOVE 1,1(3)
 MOVE 1,1(1)
 MOVE 3,1
 CAME 1,0
 JRST L1308
 MOVE 2,1(4)
 MOVE 2,1(2)
 MOVE 4,2
 CAME 2,0
 JRST L1307
 MOVE 1,0
 POPJ 15,0
;     (!*ENTRY LISTONLYCDRTEST2 EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (!$FLUID TESTLIST) (REG 4))
;          (MOVE (REG 4) (!$FLUID TESTLIST))
;     (!*LBL (LABEL G0004))
;     (!*MOVE (!$FLUID TESTLIST) (REG 3))
;          (MOVE (REG 3) (!$FLUID TESTLIST))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (CDR (REG 3)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG 3) 1))
;     (!*MOVE (REG 1) (REG 3))
;          (MOVE (REG 3) (REG 1))
;     (!*JUMPTYPE (LABEL G0005) (REG 1) PAIR)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;          (CAIN (REG T6) 9)
;          (JRST (LABEL G0005))
;     (!*MOVE (CDR (REG 4)) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG 4) 1))
;     (!*MOVE (REG 2) (REG 4))
;          (MOVE (REG 4) (REG 2))
;     (!*JUMPTYPE (LABEL G0004) (REG 2) PAIR)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 2) 0 5))))
;          (CAIN (REG T6) 9)
;          (JRST (LABEL G0004))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
;          (FULLWORD (FIELDPOINTER (REG 1) 0 5))
;          (FULLWORD (FIELDPOINTER (REG 2) 0 5))
	0
; (!*ENTRY LISTONLYCDRTEST2 EXPR 0)
L1311:	intern L1311
 MOVE 4,SYMVAL+427
L1312: MOVE 3,SYMVAL+427
L1313: MOVE 1,1(3)
 MOVE 3,1
 LDB 11,L1309
 CAIN 11,9
 JRST L1313
 MOVE 2,1(4)
 MOVE 4,2
 LDB 11,L1310
 CAIN 11,9
 JRST L1312
 MOVE 1,0
 POPJ 15,0
L1309:	point 5,1,4
L1310:	point 5,2,4
;     (!*ENTRY LISTONLYCDDRTEST2 EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (!$FLUID TESTLIST2) (REG 4))
;          (MOVE (REG 4) (!$FLUID TESTLIST2))
;     (!*LBL (LABEL G0004))
;     (!*MOVE (!$FLUID TESTLIST2) (REG 3))
;          (MOVE (REG 3) (!$FLUID TESTLIST2))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (CDR (CDR (REG 3))) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG 3) 1))
;          (MOVE (REG 1) (INDEXED (REG 1) 1))
;     (!*MOVE (REG 1) (REG 3))
;          (MOVE (REG 3) (REG 1))
;     (!*JUMPTYPE (LABEL G0005) (REG 1) PAIR)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;          (CAIN (REG T6) 9)
;          (JRST (LABEL G0005))
;     (!*MOVE (CDR (CDR (REG 4))) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG 4) 1))
;          (MOVE (REG 2) (INDEXED (REG 2) 1))
;     (!*MOVE (REG 2) (REG 4))
;          (MOVE (REG 4) (REG 2))
;     (!*JUMPTYPE (LABEL G0004) (REG 2) PAIR)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 2) 0 5))))
;          (CAIN (REG T6) 9)
;          (JRST (LABEL G0004))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
;          (FULLWORD (FIELDPOINTER (REG 1) 0 5))
;          (FULLWORD (FIELDPOINTER (REG 2) 0 5))
	0
; (!*ENTRY LISTONLYCDDRTEST2 EXPR 0)
L1316:	intern L1316
 MOVE 4,SYMVAL+428
L1317: MOVE 3,SYMVAL+428
L1318: MOVE 1,1(3)
 MOVE 1,1(1)
 MOVE 3,1
 LDB 11,L1314
 CAIN 11,9
 JRST L1318
 MOVE 2,1(4)
 MOVE 2,1(2)
 MOVE 4,2
 LDB 11,L1315
 CAIN 11,9
 JRST L1317
 MOVE 1,0
 POPJ 15,0
L1314:	point 5,1,4
L1315:	point 5,2,4
;     (!*ENTRY EMPTYTEST EXPR 1)
;     (!*ALLOC 0)
;     (!*MOVE (REG 1) (REG 3))
;          (MOVE (REG 3) (REG 1))
;     (!*MOVE (QUOTE 0) (REG 2))
;          (SETZM (REG 2))
;     (!*LBL (LABEL G0004))
;     (!*JUMPWLEQ (LABEL G0005) (REG 2) (REG 3))
;          (CAMG (REG 2) (REG 3))
;          (JRST (LABEL G0005))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
;     (!*LBL (LABEL G0005))
;     (!*WPLUS2 (REG 2) (WCONST 1))
;          (AOS (REG 2))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
	1
; (!*ENTRY EMPTYTEST EXPR 1)
L1319:	intern L1319
 MOVE 3,1
 SETZM 2
L1320: CAMG 2,3
 JRST L1321
 MOVE 1,0
 POPJ 15,0
L1321: AOS 2
 JRST L1320
;     (!*ENTRY SLOWEMPTYTEST EXPR 1)
;     (!*PUSH (QUOTE 0))
;          (PUSH (REG ST) (LIT (FULLWORD 0)))
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LBL (LABEL G0004))
;     (!*MOVE (FRAME 1) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) 0))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*LINK GREATERP EXPR 2)
;          (HRRZI (REG LINKREG) 271)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY GREATERP))
;     (!*JUMPEQ (LABEL G0005) (REG 1) (QUOTE NIL))
;          (CAMN (REG 1) (REG NIL))
;          (JRST (LABEL G0005))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*LINK ADD1 EXPR 1)
;          (HRRZI (REG LINKREG) 268)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY ADD1))
;     (!*MOVE (REG 1) (FRAME 2))
;          (MOVEM (REG 1) (INDEXED (REG ST) -1))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (POPJ (REG ST) 0)
;          (FULLWORD 0)
	1
; (!*ENTRY SLOWEMPTYTEST EXPR 1)
L1323:	intern L1323
 PUSH 15,L1322
 PUSH 15,1
L1324: MOVE 2,0(15)
 MOVE 1,-1(15)
 HRRZI 12,271
 HRRZI 13,2
 PUSHJ 15,SYMFNC+271
 CAMN 1,0
 JRST L1325
 MOVE 1,0
 JRST L1326
L1325: MOVE 1,-1(15)
 HRRZI 12,268
 HRRZI 13,1
 PUSHJ 15,SYMFNC+268
 MOVEM 1,-1(15)
 JRST L1324
L1326: ADJSP 15,-2
 POPJ 15,0
L1322:	0
;     (!*ENTRY REVERSETEST EXPR 1)
;     (!*PUSH (QUOTE 0))
;          (PUSH (REG ST) (LIT (FULLWORD 0)))
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LBL (LABEL G0004))
;     (!*JUMPWLEQ (LABEL G0005) (FRAME 2) (FRAME 1))
;          (MOVE (REG T1) (INDEXED (REG ST) -1))
;          (CAMG (REG T1) (INDEXED (REG ST) 0))
;          (JRST (LABEL G0005))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (!$FLUID LONGLIST) (REG 1))
;          (MOVE (REG 1) (!$FLUID LONGLIST))
;     (!*LINK REVERSE EXPR 1)
;          (HRRZI (REG LINKREG) 284)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY REVERSE))
;     (!*WPLUS2 (FRAME 2) (WCONST 1))
;          (AOS (INDEXED (REG ST) -1))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (POPJ (REG ST) 0)
;          (FULLWORD 0)
	1
; (!*ENTRY REVERSETEST EXPR 1)
L1328:	intern L1328
 PUSH 15,L1327
 PUSH 15,1
L1329: MOVE 6,-1(15)
 CAMG 6,0(15)
 JRST L1330
 MOVE 1,0
 JRST L1331
L1330: MOVE 1,SYMVAL+430
 HRRZI 12,284
 HRRZI 13,1
 PUSHJ 15,SYMFNC+284
 AOS -1(15)
 JRST L1329
L1331: ADJSP 15,-2
 POPJ 15,0
L1327:	0
;     (!*ENTRY MYREVERSE1TEST EXPR 1)
;     (!*PUSH (QUOTE 0))
;          (PUSH (REG ST) (LIT (FULLWORD 0)))
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LBL (LABEL G0004))
;     (!*JUMPWLEQ (LABEL G0005) (FRAME 2) (FRAME 1))
;          (MOVE (REG T1) (INDEXED (REG ST) -1))
;          (CAMG (REG T1) (INDEXED (REG ST) 0))
;          (JRST (LABEL G0005))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (!$FLUID LONGLIST) (REG 1))
;          (MOVE (REG 1) (!$FLUID LONGLIST))
;     (!*LINK MYREVERSE1 EXPR 1)
;          (HRRZI (REG LINKREG) 441)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY MYREVERSE1))
;     (!*WPLUS2 (FRAME 2) (WCONST 1))
;          (AOS (INDEXED (REG ST) -1))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (POPJ (REG ST) 0)
;          (FULLWORD 0)
	1
; (!*ENTRY MYREVERSE1TEST EXPR 1)
L1333:	intern L1333
 PUSH 15,L1332
 PUSH 15,1
L1334: MOVE 6,-1(15)
 CAMG 6,0(15)
 JRST L1335
 MOVE 1,0
 JRST L1336
L1335: MOVE 1,SYMVAL+430
 HRRZI 12,441
 HRRZI 13,1
 PUSHJ 15,SYMFNC+441
 AOS -1(15)
 JRST L1334
L1336: ADJSP 15,-2
 POPJ 15,0
L1332:	0
;     (!*ENTRY MYREVERSE1 EXPR 1)
;     (!*PUSH (QUOTE NIL))
;          (PUSH (REG ST) (REG NIL))
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LBL (LABEL G0004))
;     (!*JUMPTYPE (LABEL G0005) (FRAME 1) PAIR)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (INDEXED (REG ST) 0) 0 5))))
;          (CAIN (REG T6) 9)
;          (JRST (LABEL G0005))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (FRAME 2) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) -1))
;     (!*MOVE (CAR (FRAME 1)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;          (MOVE (REG 1) (INDEXED (REG 1) 0))
;     (!*LINK CONS EXPR 2)
;          (HRRZI (REG LINKREG) 179)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY CONS))
;     (!*MOVE (REG 1) (FRAME 2))
;          (MOVEM (REG 1) (INDEXED (REG ST) -1))
;     (!*MOVE (CDR (FRAME 1)) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) 0))
;          (MOVE (REG 2) (INDEXED (REG 2) 1))
;     (!*MOVE (REG 2) (FRAME 1))
;          (MOVEM (REG 2) (INDEXED (REG ST) 0))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (POPJ (REG ST) 0)
;          (FULLWORD (FIELDPOINTER (INDEXED (REG ST) 0) 0 5))
	1
; (!*ENTRY MYREVERSE1 EXPR 1)
L1338:	intern L1338
 PUSH 15,0
 PUSH 15,1
L1339: LDB 11,L1337
 CAIN 11,9
 JRST L1340
 MOVE 1,-1(15)
 JRST L1341
L1340: MOVE 2,-1(15)
 MOVE 1,0(15)
 MOVE 1,0(1)
 HRRZI 12,179
 HRRZI 13,2
 PUSHJ 15,SYMFNC+179
 MOVEM 1,-1(15)
 MOVE 2,0(15)
 MOVE 2,1(2)
 MOVEM 2,0(15)
 JRST L1339
L1341: ADJSP 15,-2
 POPJ 15,0
L1337:	point 5,0(15),4
;     (!*ENTRY MYREVERSE2TEST EXPR 1)
;     (!*PUSH (QUOTE 0))
;          (PUSH (REG ST) (LIT (FULLWORD 0)))
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LBL (LABEL G0004))
;     (!*JUMPWLEQ (LABEL G0005) (FRAME 2) (FRAME 1))
;          (MOVE (REG T1) (INDEXED (REG ST) -1))
;          (CAMG (REG T1) (INDEXED (REG ST) 0))
;          (JRST (LABEL G0005))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (!$FLUID LONGLIST) (REG 1))
;          (MOVE (REG 1) (!$FLUID LONGLIST))
;     (!*LINK MYREVERSE2 EXPR 1)
;          (HRRZI (REG LINKREG) 443)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY MYREVERSE2))
;     (!*WPLUS2 (FRAME 2) (WCONST 1))
;          (AOS (INDEXED (REG ST) -1))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (POPJ (REG ST) 0)
;          (FULLWORD 0)
	1
; (!*ENTRY MYREVERSE2TEST EXPR 1)
L1343:	intern L1343
 PUSH 15,L1342
 PUSH 15,1
L1344: MOVE 6,-1(15)
 CAMG 6,0(15)
 JRST L1345
 MOVE 1,0
 JRST L1346
L1345: MOVE 1,SYMVAL+430
 HRRZI 12,443
 HRRZI 13,1
 PUSHJ 15,SYMFNC+443
 AOS -1(15)
 JRST L1344
L1346: ADJSP 15,-2
 POPJ 15,0
L1342:	0
;     (!*ENTRY MYREVERSE2 EXPR 1)
;     (!*PUSH (QUOTE NIL))
;          (PUSH (REG ST) (REG NIL))
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LBL (LABEL G0004))
;     (!*JUMPNOTEQ (LABEL G0005) (FRAME 1) (QUOTE NIL))
;          (CAME (REG NIL) (INDEXED (REG ST) 0))
;          (JRST (LABEL G0005))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (FRAME 2) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) -1))
;     (!*MOVE (CAR (FRAME 1)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;          (MOVE (REG 1) (INDEXED (REG 1) 0))
;     (!*LINK CONS EXPR 2)
;          (HRRZI (REG LINKREG) 179)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY CONS))
;     (!*MOVE (REG 1) (FRAME 2))
;          (MOVEM (REG 1) (INDEXED (REG ST) -1))
;     (!*MOVE (CDR (FRAME 1)) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) 0))
;          (MOVE (REG 2) (INDEXED (REG 2) 1))
;     (!*MOVE (REG 2) (FRAME 1))
;          (MOVEM (REG 2) (INDEXED (REG ST) 0))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (POPJ (REG ST) 0)
	1
; (!*ENTRY MYREVERSE2 EXPR 1)
L1347:	intern L1347
 PUSH 15,0
 PUSH 15,1
L1348: CAME 0,0(15)
 JRST L1349
 MOVE 1,-1(15)
 JRST L1350
L1349: MOVE 2,-1(15)
 MOVE 1,0(15)
 MOVE 1,0(1)
 HRRZI 12,179
 HRRZI 13,2
 PUSHJ 15,SYMFNC+179
 MOVEM 1,-1(15)
 MOVE 2,0(15)
 MOVE 2,1(2)
 MOVEM 2,0(15)
 JRST L1348
L1350: ADJSP 15,-2
 POPJ 15,0
;     (!*ENTRY LENGTHTEST EXPR 1)
;     (!*PUSH (QUOTE 0))
;          (PUSH (REG ST) (LIT (FULLWORD 0)))
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LBL (LABEL G0004))
;     (!*JUMPWLEQ (LABEL G0005) (FRAME 2) (FRAME 1))
;          (MOVE (REG T1) (INDEXED (REG ST) -1))
;          (CAMG (REG T1) (INDEXED (REG ST) 0))
;          (JRST (LABEL G0005))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (!$FLUID LONGLIST) (REG 1))
;          (MOVE (REG 1) (!$FLUID LONGLIST))
;     (!*LINK LENGTH EXPR 1)
;          (HRRZI (REG LINKREG) 319)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY LENGTH))
;     (!*WPLUS2 (FRAME 2) (WCONST 1))
;          (AOS (INDEXED (REG ST) -1))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (POPJ (REG ST) 0)
;          (FULLWORD 0)
	1
; (!*ENTRY LENGTHTEST EXPR 1)
L1352:	intern L1352
 PUSH 15,L1351
 PUSH 15,1
L1353: MOVE 6,-1(15)
 CAMG 6,0(15)
 JRST L1354
 MOVE 1,0
 JRST L1355
L1354: MOVE 1,SYMVAL+430
 HRRZI 12,319
 HRRZI 13,1
 PUSHJ 15,SYMFNC+319
 AOS -1(15)
 JRST L1353
L1355: ADJSP 15,-2
 POPJ 15,0
L1351:	0
;     (!*ENTRY FACT EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*JUMPWGEQ (LABEL G0004) (REG 1) (QUOTE 2))
;          (CAIL (REG 1) 2)
;          (JRST (LABEL G0004))
;     (!*MOVE (QUOTE 1) (REG 1))
;          (HRRZI (REG 1) 1)
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0004))
;     (!*WPLUS2 (REG 1) (WCONST -1))
;          (SOS (REG 1))
;     (!*LINK FACT EXPR 1)
;          (HRRZI (REG LINKREG) 446)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (INTERNALENTRY FACT))
;     (!*WTIMES2 (REG 1) (FRAME 1))
;          (IMUL (REG 1) (INDEXED (REG ST) 0))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 1)
;          (ADJSP (REG ST) (MINUS 1))
;          (POPJ (REG ST) 0)
	1
; (!*ENTRY FACT EXPR 1)
FACT:	intern FACT
 PUSH 15,1
 CAIL 1,2
 JRST L1356
 HRRZI 1,1
 JRST L1357
L1356: SOS 1
 HRRZI 12,446
 HRRZI 13,1
 PUSHJ 15,FACT
 IMUL 1,0(15)
L1357: ADJSP 15,-1
 POPJ 15,0
;     (!*ENTRY ARITHMETICTEST EXPR 1)
;     (!*PUSH (QUOTE 0))
;          (PUSH (REG ST) (LIT (FULLWORD 0)))
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LBL (LABEL G0004))
;     (!*JUMPWLEQ (LABEL G0005) (FRAME 2) (FRAME 1))
;          (MOVE (REG T1) (INDEXED (REG ST) -1))
;          (CAMG (REG T1) (INDEXED (REG ST) 0))
;          (JRST (LABEL G0005))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (QUOTE 9) (REG 1))
;          (HRRZI (REG 1) 9)
;     (!*LINK FACT EXPR 1)
;          (HRRZI (REG LINKREG) 446)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY FACT))
;     (!*WPLUS2 (FRAME 2) (WCONST 1))
;          (AOS (INDEXED (REG ST) -1))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (POPJ (REG ST) 0)
;          (FULLWORD 0)
	1
; (!*ENTRY ARITHMETICTEST EXPR 1)
L1359:	intern L1359
 PUSH 15,L1358
 PUSH 15,1
L1360: MOVE 6,-1(15)
 CAMG 6,0(15)
 JRST L1361
 MOVE 1,0
 JRST L1362
L1361: HRRZI 1,9
 HRRZI 12,446
 HRRZI 13,1
 PUSHJ 15,SYMFNC+446
 AOS -1(15)
 JRST L1360
L1362: ADJSP 15,-2
 POPJ 15,0
L1358:	0
;     (!*ENTRY EVALTEST EXPR 1)
;     (!*PUSH (QUOTE 0))
;          (PUSH (REG ST) (LIT (FULLWORD 0)))
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LBL (LABEL G0004))
;     (!*JUMPWLEQ (LABEL G0005) (FRAME 2) (FRAME 1))
;          (MOVE (REG T1) (INDEXED (REG ST) -1))
;          (CAMG (REG T1) (INDEXED (REG ST) 0))
;          (JRST (LABEL G0005))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (!$FLUID EVALFORM) (REG 1))
;          (MOVE (REG 1) (!$FLUID EVALFORM))
;     (!*LINK EVAL EXPR 1)
;          (HRRZI (REG LINKREG) 254)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY EVAL))
;     (!*WPLUS2 (FRAME 2) (WCONST 1))
;          (AOS (INDEXED (REG ST) -1))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (POPJ (REG ST) 0)
;          (FULLWORD 0)
	1
; (!*ENTRY EVALTEST EXPR 1)
L1364:	intern L1364
 PUSH 15,L1363
 PUSH 15,1
L1365: MOVE 6,-1(15)
 CAMG 6,0(15)
 JRST L1366
 MOVE 1,0
 JRST L1367
L1366: MOVE 1,SYMVAL+429
 HRRZI 12,254
 HRRZI 13,1
 PUSHJ 15,SYMFNC+254
 AOS -1(15)
 JRST L1365
L1367: ADJSP 15,-2
 POPJ 15,0
L1363:	0
;     (!*ENTRY TIMEEVAL EXPR 1)
;     (!*ALLOC 2)
;          (ADJSP (REG ST) 2)
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK TIME EXPR 0)
;          (HRRZI (REG LINKREG) 421)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY TIME))
;     (!*MOVE (REG 1) (FRAME 2))
;          (MOVEM (REG 1) (INDEXED (REG ST) -1))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK EVAL EXPR 1)
;          (HRRZI (REG LINKREG) 254)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY EVAL))
;     (!*LINK TIME EXPR 0)
;          (HRRZI (REG LINKREG) 421)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY TIME))
;     (!*MOVE (FRAME 2) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) -1))
;     (!*LINKE 2 DIFFERENCE EXPR 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (HRRZI (REG LINKREG) 273)
;          (HRRZI (REG NARGREG) 2)
;          (JRST (ENTRY DIFFERENCE))
	1
; (!*ENTRY TIMEEVAL EXPR 1)
L1368:	intern L1368
 ADJSP 15,2
 MOVEM 1,0(15)
 HRRZI 12,421
 SETZM 13
 PUSHJ 15,SYMFNC+421
 MOVEM 1,-1(15)
 MOVE 1,0(15)
 HRRZI 12,254
 HRRZI 13,1
 PUSHJ 15,SYMFNC+254
 HRRZI 12,421
 SETZM 13
 PUSHJ 15,SYMFNC+421
 MOVE 2,-1(15)
 ADJSP 15,-2
 HRRZI 12,273
 HRRZI 13,2
 JRST SYMFNC+273
;     (!*ENTRY TOPLEVELTAK EXPR 3)
;     (!*ALLOC 0)
;     (!*LINKE 0 TAK EXPR 3)
;          (HRRZI (REG LINKREG) 450)
;          (HRRZI (REG NARGREG) 3)
;          (JRST (ENTRY TAK))
	3
; (!*ENTRY TOPLEVELTAK EXPR 3)
L1369:	intern L1369
 HRRZI 12,450
 HRRZI 13,3
 JRST SYMFNC+450
;     (!*ENTRY TAK EXPR 3)
;     (!*ALLOC 5)
;          (ADJSP (REG ST) 5)
;     (!*LBL (LABEL G0002))
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*MOVE (REG 2) (FRAME 2))
;          (MOVEM (REG 2) (INDEXED (REG ST) -1))
;     (!*MOVE (REG 3) (FRAME 3))
;          (MOVEM (REG 3) (INDEXED (REG ST) -2))
;     (!*JUMPWLESSP (LABEL G0004) (REG 2) (REG 1))
;          (CAMGE (REG 2) (REG 1))
;          (JRST (LABEL G0004))
;     (!*MOVE (REG 3) (REG 1))
;          (MOVE (REG 1) (REG 3))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0004))
;     (!*WPLUS2 (REG 1) (WCONST -1))
;          (SOS (REG 1))
;     (!*LINK TAK EXPR 3)
;          (HRRZI (REG LINKREG) 450)
;          (HRRZI (REG NARGREG) 3)
;          (PUSHJ (REG ST) (INTERNALENTRY TAK))
;     (!*MOVE (REG 1) (FRAME 4))
;          (MOVEM (REG 1) (INDEXED (REG ST) -3))
;     (!*MOVE (FRAME 1) (REG 3))
;          (MOVE (REG 3) (INDEXED (REG ST) 0))
;     (!*MOVE (FRAME 3) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) -2))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*WPLUS2 (REG 1) (WCONST -1))
;          (SOS (REG 1))
;     (!*LINK TAK EXPR 3)
;          (HRRZI (REG LINKREG) 450)
;          (HRRZI (REG NARGREG) 3)
;          (PUSHJ (REG ST) (INTERNALENTRY TAK))
;     (!*MOVE (REG 1) (FRAME 5))
;          (MOVEM (REG 1) (INDEXED (REG ST) -4))
;     (!*MOVE (FRAME 2) (REG 3))
;          (MOVE (REG 3) (INDEXED (REG ST) -1))
;     (!*MOVE (FRAME 1) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) 0))
;     (!*MOVE (FRAME 3) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -2))
;     (!*WPLUS2 (REG 1) (WCONST -1))
;          (SOS (REG 1))
;     (!*LINK TAK EXPR 3)
;          (HRRZI (REG LINKREG) 450)
;          (HRRZI (REG NARGREG) 3)
;          (PUSHJ (REG ST) (INTERNALENTRY TAK))
;     (!*MOVE (REG 1) (REG 3))
;          (MOVE (REG 3) (REG 1))
;     (!*MOVE (FRAME 5) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) -4))
;     (!*MOVE (FRAME 4) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -3))
;     (!*JUMP (LABEL G0002))
;          (JRST (LABEL G0002))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 5)
;          (ADJSP (REG ST) (MINUS 5))
;          (POPJ (REG ST) 0)
	3
; (!*ENTRY TAK EXPR 3)
TAK:	intern TAK
 ADJSP 15,5
L1370: MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 CAMGE 2,1
 JRST L1371
 MOVE 1,3
 JRST L1372
L1371: SOS 1
 HRRZI 12,450
 HRRZI 13,3
 PUSHJ 15,TAK
 MOVEM 1,-3(15)
 MOVE 3,0(15)
 MOVE 2,-2(15)
 MOVE 1,-1(15)
 SOS 1
 HRRZI 12,450
 HRRZI 13,3
 PUSHJ 15,TAK
 MOVEM 1,-4(15)
 MOVE 3,-1(15)
 MOVE 2,0(15)
 MOVE 1,-2(15)
 SOS 1
 HRRZI 12,450
 HRRZI 13,3
 PUSHJ 15,TAK
 MOVE 3,1
 MOVE 2,-4(15)
 MOVE 1,-3(15)
 JRST L1370
L1372: ADJSP 15,-5
 POPJ 15,0
;     (!*ENTRY TOPLEVELGTAK EXPR 3)
;     (!*ALLOC 0)
;     (!*LINKE 0 GTAK EXPR 3)
;          (HRRZI (REG LINKREG) 452)
;          (HRRZI (REG NARGREG) 3)
;          (JRST (ENTRY GTAK))
	3
; (!*ENTRY TOPLEVELGTAK EXPR 3)
L1373:	intern L1373
 HRRZI 12,452
 HRRZI 13,3
 JRST SYMFNC+452
;     (!*ENTRY GTAK EXPR 3)
;     (!*ALLOC 5)
;          (ADJSP (REG ST) 5)
;     (!*LBL (LABEL G0002))
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*MOVE (REG 2) (FRAME 2))
;          (MOVEM (REG 2) (INDEXED (REG ST) -1))
;     (!*MOVE (REG 3) (FRAME 3))
;          (MOVEM (REG 3) (INDEXED (REG ST) -2))
;     (!*MOVE (REG 1) (REG 2))
;          (MOVE (REG 2) (REG 1))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*LINK LESSP EXPR 2)
;          (HRRZI (REG LINKREG) 272)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY LESSP))
;     (!*JUMPNOTEQ (LABEL G0004) (REG 1) (QUOTE NIL))
;          (CAME (REG 1) (REG NIL))
;          (JRST (LABEL G0004))
;     (!*MOVE (FRAME 3) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -2))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0004))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK SUB1 EXPR 1)
;          (HRRZI (REG LINKREG) 270)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY SUB1))
;     (!*MOVE (FRAME 3) (REG 3))
;          (MOVE (REG 3) (INDEXED (REG ST) -2))
;     (!*MOVE (FRAME 2) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) -1))
;     (!*LINK GTAK EXPR 3)
;          (HRRZI (REG LINKREG) 452)
;          (HRRZI (REG NARGREG) 3)
;          (PUSHJ (REG ST) (INTERNALENTRY GTAK))
;     (!*MOVE (REG 1) (FRAME 4))
;          (MOVEM (REG 1) (INDEXED (REG ST) -3))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*LINK SUB1 EXPR 1)
;          (HRRZI (REG LINKREG) 270)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY SUB1))
;     (!*MOVE (FRAME 1) (REG 3))
;          (MOVE (REG 3) (INDEXED (REG ST) 0))
;     (!*MOVE (FRAME 3) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) -2))
;     (!*LINK GTAK EXPR 3)
;          (HRRZI (REG LINKREG) 452)
;          (HRRZI (REG NARGREG) 3)
;          (PUSHJ (REG ST) (INTERNALENTRY GTAK))
;     (!*MOVE (REG 1) (FRAME 5))
;          (MOVEM (REG 1) (INDEXED (REG ST) -4))
;     (!*MOVE (FRAME 3) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -2))
;     (!*LINK SUB1 EXPR 1)
;          (HRRZI (REG LINKREG) 270)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY SUB1))
;     (!*MOVE (FRAME 2) (REG 3))
;          (MOVE (REG 3) (INDEXED (REG ST) -1))
;     (!*MOVE (FRAME 1) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) 0))
;     (!*LINK GTAK EXPR 3)
;          (HRRZI (REG LINKREG) 452)
;          (HRRZI (REG NARGREG) 3)
;          (PUSHJ (REG ST) (INTERNALENTRY GTAK))
;     (!*MOVE (REG 1) (REG 3))
;          (MOVE (REG 3) (REG 1))
;     (!*MOVE (FRAME 5) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) -4))
;     (!*MOVE (FRAME 4) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -3))
;     (!*JUMP (LABEL G0002))
;          (JRST (LABEL G0002))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 5)
;          (ADJSP (REG ST) (MINUS 5))
;          (POPJ (REG ST) 0)
	3
; (!*ENTRY GTAK EXPR 3)
GTAK:	intern GTAK
 ADJSP 15,5
L1374: MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 MOVE 2,1
 MOVE 1,-1(15)
 HRRZI 12,272
 HRRZI 13,2
 PUSHJ 15,SYMFNC+272
 CAME 1,0
 JRST L1375
 MOVE 1,-2(15)
 JRST L1376
L1375: MOVE 1,0(15)
 HRRZI 12,270
 HRRZI 13,1
 PUSHJ 15,SYMFNC+270
 MOVE 3,-2(15)
 MOVE 2,-1(15)
 HRRZI 12,452
 HRRZI 13,3
 PUSHJ 15,GTAK
 MOVEM 1,-3(15)
 MOVE 1,-1(15)
 HRRZI 12,270
 HRRZI 13,1
 PUSHJ 15,SYMFNC+270
 MOVE 3,0(15)
 MOVE 2,-2(15)
 HRRZI 12,452
 HRRZI 13,3
 PUSHJ 15,GTAK
 MOVEM 1,-4(15)
 MOVE 1,-2(15)
 HRRZI 12,270
 HRRZI 13,1
 PUSHJ 15,SYMFNC+270
 MOVE 3,-1(15)
 MOVE 2,0(15)
 HRRZI 12,452
 HRRZI 13,3
 PUSHJ 15,GTAK
 MOVE 3,1
 MOVE 2,-4(15)
 MOVE 1,-3(15)
 JRST L1374
L1376: ADJSP 15,-5
 POPJ 15,0
;     (!*ENTRY GTSTA EXPR 1)
;     (!*PUSH (QUOTE 1))
;          (PUSH (REG ST) (LIT (FULLWORD 1)))
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LBL (LABEL G0004))
;     (!*JUMPWLEQ (LABEL G0005) (FRAME 2) (QUOTE 100000))
;          (MOVE (REG T1) (INDEXED (REG ST) -1))
;          (CAIG (REG T1) 100000)
;          (JRST (LABEL G0005))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (FRAME 1) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) 0))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*MOVE (REG 2) (REG T1))
;          (MOVE (REG T1) (REG 2))
;     (!*LINK FASTAPPLY EXPR 1)
;          (HRRZI (REG LINKREG) 246)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY FASTAPPLY))
;     (!*WPLUS2 (FRAME 2) (WCONST 1))
;          (AOS (INDEXED (REG ST) -1))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (POPJ (REG ST) 0)
;          (FULLWORD 1)
	1
; (!*ENTRY GTSTA EXPR 1)
GTSTA:	intern GTSTA
 PUSH 15,L1377
 PUSH 15,1
L1378: MOVE 6,-1(15)
 CAIG 6,100000
 JRST L1379
 MOVE 1,0
 JRST L1380
L1379: MOVE 2,0(15)
 MOVE 1,-1(15)
 MOVE 6,2
 HRRZI 12,246
 HRRZI 13,1
 PUSHJ 15,SYMFNC+246
 AOS -1(15)
 JRST L1378
L1380: ADJSP 15,-2
 POPJ 15,0
L1377:	1
;     (!*ENTRY GTSTB EXPR 1)
;     (!*PUSH (QUOTE 1))
;          (PUSH (REG ST) (LIT (FULLWORD 1)))
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LBL (LABEL G0004))
;     (!*JUMPWLEQ (LABEL G0005) (FRAME 2) (QUOTE 100000))
;          (MOVE (REG T1) (INDEXED (REG ST) -1))
;          (CAIG (REG T1) 100000)
;          (JRST (LABEL G0005))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (FRAME 1) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) 0))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*MOVE (REG 2) (REG T1))
;          (MOVE (REG T1) (REG 2))
;     (!*LINK FASTAPPLY EXPR 1)
;          (HRRZI (REG LINKREG) 246)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY FASTAPPLY))
;     (!*WPLUS2 (FRAME 2) (WCONST 1))
;          (AOS (INDEXED (REG ST) -1))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (POPJ (REG ST) 0)
;          (FULLWORD 1)
	1
; (!*ENTRY GTSTB EXPR 1)
GTSTB:	intern GTSTB
 PUSH 15,L1381
 PUSH 15,1
L1382: MOVE 6,-1(15)
 CAIG 6,100000
 JRST L1383
 MOVE 1,0
 JRST L1384
L1383: MOVE 2,0(15)
 MOVE 1,-1(15)
 MOVE 6,2
 HRRZI 12,246
 HRRZI 13,1
 PUSHJ 15,SYMFNC+246
 AOS -1(15)
 JRST L1382
L1384: ADJSP 15,-2
 POPJ 15,0
L1381:	1
;     (!*ENTRY G0 EXPR 1)
;     (!*ALLOC 0)
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
	1
; (!*ENTRY G0 EXPR 1)
G0:	intern G0
 POPJ 15,0
;     (!*ENTRY G1 EXPR 1)
;     (!*ALLOC 0)
;     (!*WPLUS2 (REG 1) (WCONST 1))
;          (AOS (REG 1))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
	1
; (!*ENTRY G1 EXPR 1)
G1:	intern G1
 AOS 1
 POPJ 15,0
;     (!*ENTRY NREVERSE EXPR 1)
;     (!*ALLOC 0)
;     (!*MOVE (QUOTE NIL) (REG 2))
;          (MOVE (REG 2) (REG NIL))
;     (!*LINKE 0 NRECONC EXPR 2)
;          (HRRZI (REG LINKREG) 458)
;          (HRRZI (REG NARGREG) 2)
;          (JRST (ENTRY NRECONC))
	1
; (!*ENTRY NREVERSE EXPR 1)
L1385:	intern L1385
 MOVE 2,0
 HRRZI 12,458
 HRRZI 13,2
 JRST SYMFNC+458
;     (!*ENTRY NRECONC EXPR 2)
;     (!*ALLOC 0)
;     (!*MOVE (REG 1) (REG 5))
;          (MOVE (REG 5) (REG 1))
;     (!*MOVE (REG 2) (REG 4))
;          (MOVE (REG 4) (REG 2))
;     (!*MOVE (QUOTE NIL) (REG 3))
;          (MOVE (REG 3) (REG NIL))
;     (!*LBL (LABEL G0004))
;     (!*JUMPTYPE (LABEL G0005) (REG 5) PAIR)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 5) 0 5))))
;          (CAIN (REG T6) 9)
;          (JRST (LABEL G0005))
;     (!*MOVE (REG 4) (REG 1))
;          (MOVE (REG 1) (REG 4))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
;     (!*LBL (LABEL G0005))
;     (!*MOVE (REG 5) (REG 3))
;          (MOVE (REG 3) (REG 5))
;     (!*MOVE (CDR (REG 5)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG 5) 1))
;     (!*MOVE (REG 1) (REG 5))
;          (MOVE (REG 5) (REG 1))
;     (!*MOVE (REG 3) (REG 2))
;          (MOVE (REG 2) (REG 3))
;     (!*MOVE (REG 4) (CDR (REG 2)))
;          (MOVEM (REG 4) (INDEXED (REG 2) 1))
;     (!*MOVE (REG 2) (REG 4))
;          (MOVE (REG 4) (REG 2))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;          (FULLWORD (FIELDPOINTER (REG 5) 0 5))
	2
; (!*ENTRY NRECONC EXPR 2)
L1387:	intern L1387
 MOVE 5,1
 MOVE 4,2
 MOVE 3,0
L1388: LDB 11,L1386
 CAIN 11,9
 JRST L1389
 MOVE 1,4
 POPJ 15,0
L1389: MOVE 3,5
 MOVE 1,1(5)
 MOVE 5,1
 MOVE 2,3
 MOVEM 4,1(2)
 MOVE 4,2
 JRST L1388
L1386:	point 5,5,4
;     (!*ENTRY NNILS EXPR 1)
;     (!*ALLOC 3)
;          (ADJSP (REG ST) 3)
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*MOVE (QUOTE NIL) (FRAME 2))
;          (MOVEM (REG NIL) (INDEXED (REG ST) -1))
;     (!*MOVE (QUOTE 0) (FRAME 3))
;          (SETZM (INDEXED (REG ST) -2))
;     (!*LBL (LABEL G0004))
;     (!*JUMPWLEQ (LABEL G0005) (FRAME 3) (FRAME 1))
;          (MOVE (REG T1) (INDEXED (REG ST) -2))
;          (CAMG (REG T1) (INDEXED (REG ST) 0))
;          (JRST (LABEL G0005))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (FRAME 2) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) -1))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*LINK CONS EXPR 2)
;          (HRRZI (REG LINKREG) 179)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY CONS))
;     (!*MOVE (REG 1) (FRAME 2))
;          (MOVEM (REG 1) (INDEXED (REG ST) -1))
;     (!*WPLUS2 (FRAME 3) (WCONST 1))
;          (AOS (INDEXED (REG ST) -2))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 3)
;          (ADJSP (REG ST) (MINUS 3))
;          (POPJ (REG ST) 0)
	1
; (!*ENTRY NNILS EXPR 1)
NNILS:	intern NNILS
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 0,-1(15)
 SETZM -2(15)
L1390: MOVE 6,-2(15)
 CAMG 6,0(15)
 JRST L1391
 MOVE 1,-1(15)
 JRST L1392
L1391: MOVE 2,-1(15)
 MOVE 1,0
 HRRZI 12,179
 HRRZI 13,2
 PUSHJ 15,SYMFNC+179
 MOVEM 1,-1(15)
 AOS -2(15)
 JRST L1390
L1392: ADJSP 15,-3
 POPJ 15,0
;     (!*ENTRY NILS EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LINK NNILS EXPR 1)
;          (HRRZI (REG LINKREG) 460)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY NNILS))
;     (!*MOVE (REG 1) (!$GLOBAL TESTGLOBALVAR))
;          (MOVEM (REG 1) (!$GLOBAL TESTGLOBALVAR))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*EXIT 1)
;          (ADJSP (REG ST) (MINUS 1))
;          (POPJ (REG ST) 0)
	1
; (!*ENTRY NILS EXPR 1)
NILS:	intern NILS
 PUSH 15,1
 HRRZI 12,460
 HRRZI 13,1
 PUSHJ 15,SYMFNC+460
 MOVEM 1,SYMVAL+462
 MOVE 1,0(15)
 ADJSP 15,-1
 POPJ 15,0
;     (!*ENTRY NR EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (!$GLOBAL TESTGLOBALVAR) (REG 1))
;          (MOVE (REG 1) (!$GLOBAL TESTGLOBALVAR))
;     (!*LINK NREVERSE EXPR 1)
;          (HRRZI (REG LINKREG) 459)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY NREVERSE))
;     (!*MOVE (REG 1) (!$GLOBAL TESTGLOBALVAR))
;          (MOVEM (REG 1) (!$GLOBAL TESTGLOBALVAR))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
	0
; (!*ENTRY NR EXPR 0)
NR:	intern NR
 MOVE 1,SYMVAL+462
 HRRZI 12,459
 HRRZI 13,1
 PUSHJ 15,SYMFNC+459
 MOVEM 1,SYMVAL+462
 MOVE 1,0
 POPJ 15,0
;     (!*ENTRY FIRSTCALL EXPR 0)
;     (!*ALLOC 3)
;          (ADJSP (REG ST) 3)
;     (!*MOVE (QUOTE NIL) (FRAME 1))
;          (MOVEM (REG NIL) (INDEXED (REG ST) 0))
;     (!*MOVE (QUOTE NIL) (FRAME 2))
;          (MOVEM (REG NIL) (INDEXED (REG ST) -1))
;     (!*LINK INIT EXPR 0)
;          (HRRZI (REG LINKREG) 402)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY INIT))
;     (!*LINK INITHEAP EXPR 0)
;          (HRRZI (REG LINKREG) 399)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY INITHEAP))
;     (!*LINK INITEVAL EXPR 0)
;          (HRRZI (REG LINKREG) 309)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY INITEVAL))
;     (!*MOVE (QUOTE "MINI-PSL with File I/O") (REG 1))
;          (MOVE (REG 1) (QUOTE "MINI-PSL with File I/O"))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*MOVE (QUOTE "   Type (IOTEST) to test basic file I/O") (REG 1))
;          (MOVE (REG 1) (QUOTE "   Type (IOTEST) to test basic file I/O"))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*MOVE (QUOTE "   Future tests will be READ in this way") (REG 1))
;          (MOVE (REG 1) (QUOTE "   Future tests will be READ in this way"))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*MOVE (QUOTE "   !*RAISE and !*PVAL set T") (REG 1))
;          (MOVE (REG 1) (QUOTE "   !*RAISE and !*PVAL set T"))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*MOVE (REG 1) (!$FLUID DEBUG))
;          (MOVEM (REG 1) (!$FLUID DEBUG))
;     (!*LINK INITREAD EXPR 0)
;          (HRRZI (REG LINKREG) 190)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY INITREAD))
;     (!*MOVE (QUOTE T) (REG 1))
;          (MOVE (REG 1) (FLUID T))
;     (!*MOVE (REG 1) (!$FLUID !*RAISE))
;          (MOVEM (REG 1) (!$FLUID !*RAISE))
;     (!*MOVE (QUOTE T) (REG 1))
;          (MOVE (REG 1) (FLUID T))
;     (!*MOVE (REG 1) (!$FLUID !*PVAL))
;          (MOVEM (REG 1) (!$FLUID !*PVAL))
;     (!*MOVE (WCONST 26) (REG 1))
;          (HRRZI (REG 1) 26)
;     (!*MKITEM (REG 1) (WCONST 30))
;          (TLZ (REG 1) 253952)
;          (TLO (REG 1) (LSH 30 13))
;     (!*MOVE (REG 1) (!$FLUID !$EOF!$))
;          (MOVEM (REG 1) (!$FLUID !$EOF!$))
;     (!*MOVE (QUOTE " .... Now we test INITCODE") (REG 1))
;          (MOVE (REG 1) (QUOTE " .... Now we test INITCODE"))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*LINK INITCODE EXPR 0)
;          (HRRZI (REG LINKREG) 464)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY INITCODE))
;     (!*MOVE (WCONST 0) (!$FLUID IN!*))
;          (SETZM (!$FLUID IN!*))
;     (!*MOVE (WCONST 1) (!$FLUID OUT!*))
;          (HRRZI (REG T1) 1)
;          (MOVEM (REG T1) (!$FLUID OUT!*))
;     (!*MOVE (WCONST 0) (FRAME 3))
;          (SETZM (INDEXED (REG ST) -2))
;     (!*LINK CLEARIO EXPR 0)
;          (HRRZI (REG LINKREG) 396)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY CLEARIO))
;     (!*LBL (LABEL G0005))
;     (!*JUMPNOTEQ (LABEL G0004) (FRAME 2) (QUOTE NIL))
;          (CAME (REG NIL) (INDEXED (REG ST) -1))
;          (JRST (LABEL G0004))
;     (!*WPLUS2 (FRAME 3) (WCONST 1))
;          (AOS (INDEXED (REG ST) -2))
;     (!*MOVE (FRAME 3) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -2))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (QUOTE " lisp> ") (REG 1))
;          (MOVE (REG 1) (QUOTE " lisp> "))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*LINK READ EXPR 0)
;          (HRRZI (REG LINKREG) 221)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY READ))
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*JUMPNOTEQ (LABEL G0011) (REG 1) (!$GLOBAL !$EOF!$))
;          (CAME (REG 1) (!$GLOBAL !$EOF!$))
;          (JRST (LABEL G0011))
;     (!*LINK TERPRI EXPR 0)
;          (HRRZI (REG LINKREG) 139)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY TERPRI))
;     (!*MOVE (QUOTE " *** Top Level EOF *** ") (REG 1))
;          (MOVE (REG 1) (QUOTE " *** Top Level EOF *** "))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*JUMP (LABEL G0005))
;          (JRST (LABEL G0005))
;     (!*LBL (LABEL G0011))
;     (!*JUMPNOTEQ (LABEL G0012) (REG 1) (QUOTE QUIT))
;          (CAME (REG 1) (QUOTE QUIT))
;          (JRST (LABEL G0012))
;     (!*MOVE (QUOTE T) (FRAME 2))
;          (MOVE (REG T1) (FLUID T))
;          (MOVEM (REG T1) (INDEXED (REG ST) -1))
;     (!*JUMP (LABEL G0005))
;          (JRST (LABEL G0005))
;     (!*LBL (LABEL G0012))
;     (!*LINK TERPRI EXPR 0)
;          (HRRZI (REG LINKREG) 139)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY TERPRI))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK EVAL EXPR 1)
;          (HRRZI (REG LINKREG) 254)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY EVAL))
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*JUMPEQ (LABEL G0005) (QUOTE NIL) (!$FLUID !*PVAL))
;          (CAMN (REG NIL) (!$FLUID !*PVAL))
;          (JRST (LABEL G0005))
;     (!*LINK PRINT EXPR 1)
;          (HRRZI (REG LINKREG) 140)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRINT))
;     (!*JUMP (LABEL G0005))
;          (JRST (LABEL G0005))
;     (!*LBL (LABEL G0004))
;     (!*LINK QUIT EXPR 0)
;          (HRRZI (REG LINKREG) 148)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY QUIT))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 3)
;          (ADJSP (REG ST) (MINUS 3))
;          (POPJ (REG ST) 0)
L1401:	22
	byte(7)32,42,42,42,32,84,111,112,32,76,101,118,101,108,32,69,79,70,32,42,42,42,32,0
L1402:	6
	byte(7)32,108,105,115,112,62,32,0
L1403:	25
	byte(7)32,46,46,46,46,32,78,111,119,32,119,101,32,116,101,115,116,32,73,78,73,84,67,79,68,69,0
L1404:	26
	byte(7)32,32,32,33,42,82,65,73,83,69,32,97,110,100,32,33,42,80,86,65,76,32,115,101,116,32,84,0
L1405:	39
	byte(7)32,32,32,70,117,116,117,114,101,32,116,101,115,116,115,32,119,105,108,108,32,98,101,32,82,69,65,68,32,105,110,32,116,104,105,115,32,119,97,121,0
L1406:	38
	byte(7)32,32,32,84,121,112,101,32,40,73,79,84,69,83,84,41,32,116,111,32,116,101,115,116,32,98,97,115,105,99,32,102,105,108,101,32,73,47,79,0
L1407:	21
	byte(7)77,73,78,73,45,80,83,76,32,119,105,116,104,32,70,105,108,101,32,73,47,79,0
	0
; (!*ENTRY FIRSTCALL EXPR 0)
L1408:	intern L1408
 ADJSP 15,3
 MOVEM 0,0(15)
 MOVEM 0,-1(15)
 HRRZI 12,402
 SETZM 13
 PUSHJ 15,SYMFNC+402
 HRRZI 12,399
 SETZM 13
 PUSHJ 15,SYMFNC+399
 HRRZI 12,309
 SETZM 13
 PUSHJ 15,SYMFNC+309
 MOVE 1,L1393
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 MOVE 1,L1394
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 MOVE 1,L1395
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 MOVE 1,L1396
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 MOVE 1,0
 MOVEM 1,SYMVAL+195
 HRRZI 12,190
 SETZM 13
 PUSHJ 15,SYMFNC+190
 MOVE 1,SYMVAL+84
 MOVEM 1,SYMVAL+191
 MOVE 1,SYMVAL+84
 MOVEM 1,SYMVAL+378
 HRRZI 1,26
 TLZ 1,253952
 TLO 1,245760
 MOVEM 1,SYMVAL+377
 MOVE 1,L1397
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 HRRZI 12,464
 SETZM 13
 PUSHJ 15,SYMFNC+464
 SETZM SYMVAL+385
 HRRZI 6,1
 MOVEM 6,SYMVAL+154
 SETZM -2(15)
 HRRZI 12,396
 SETZM 13
 PUSHJ 15,SYMFNC+396
L1409: CAME 0,-1(15)
 JRST L1410
 AOS -2(15)
 MOVE 1,-2(15)
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,L1398
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 HRRZI 12,221
 SETZM 13
 PUSHJ 15,SYMFNC+221
 MOVEM 1,0(15)
 CAME 1,SYMVAL+377
 JRST L1411
 HRRZI 12,139
 SETZM 13
 PUSHJ 15,SYMFNC+139
 MOVE 1,L1399
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 JRST L1409
L1411: CAME 1,L1400
 JRST L1412
 MOVE 6,SYMVAL+84
 MOVEM 6,-1(15)
 JRST L1409
L1412: HRRZI 12,139
 SETZM 13
 PUSHJ 15,SYMFNC+139
 MOVE 1,0(15)
 HRRZI 12,254
 HRRZI 13,1
 PUSHJ 15,SYMFNC+254
 MOVEM 1,0(15)
 CAMN 0,SYMVAL+378
 JRST L1409
 HRRZI 12,140
 HRRZI 13,1
 PUSHJ 15,SYMFNC+140
 JRST L1409
L1410: HRRZI 12,148
 SETZM 13
 PUSHJ 15,SYMFNC+148
 MOVE 1,0
 ADJSP 15,-3
 POPJ 15,0
L1400:	<30_31>+148
L1399:	<4_31>+L1401
L1398:	<4_31>+L1402
L1397:	<4_31>+L1403
L1396:	<4_31>+L1404
L1395:	<4_31>+L1405
L1394:	<4_31>+L1406
L1393:	<4_31>+L1407
;     (!*ENTRY IOTEST EXPR 0)
;     (!*ALLOC 6)
;          (ADJSP (REG ST) 6)
;     (!*MOVE (QUOTE NIL) (FRAME 1))
;          (MOVEM (REG NIL) (INDEXED (REG ST) 0))
;     (!*MOVE (QUOTE NIL) (FRAME 2))
;          (MOVEM (REG NIL) (INDEXED (REG ST) -1))
;     (!*MOVE (QUOTE NIL) (FRAME 3))
;          (MOVEM (REG NIL) (INDEXED (REG ST) -2))
;     (!*MOVE (QUOTE NIL) (FRAME 4))
;          (MOVEM (REG NIL) (INDEXED (REG ST) -3))
;     (!*MOVE (QUOTE NIL) (FRAME 6))
;          (MOVEM (REG NIL) (INDEXED (REG ST) -5))
;     (!*MOVE (QUOTE "---- Test of File IO") (REG 1))
;          (MOVE (REG 1) (QUOTE "---- Test of File IO"))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*MOVE (QUOTE 0) (!$GLOBAL IN!*))
;          (SETZM (!$GLOBAL IN!*))
;     (!*MOVE (QUOTE 1) (!$GLOBAL OUT!*))
;          (HRRZI (REG T1) 1)
;          (MOVEM (REG T1) (!$GLOBAL OUT!*))
;     (!*MOVE (QUOTE "     Test CLEARIO") (REG 1))
;          (MOVE (REG 1) (QUOTE "     Test CLEARIO"))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*LBL (LABEL G0004))
;     (!*MOVE (QUOTE "     Input String for Input File") (REG 1))
;          (MOVE (REG 1) (QUOTE "     Input String for Input File"))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*LINK READ EXPR 0)
;          (HRRZI (REG LINKREG) 221)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY READ))
;     (!*MOVE (REG 1) (FRAME 5))
;          (MOVEM (REG 1) (INDEXED (REG ST) -4))
;     (!*LINK TERPRI EXPR 0)
;          (HRRZI (REG LINKREG) 139)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY TERPRI))
;     (!*JUMPNOTTYPE (LABEL G0004) (FRAME 5) STR)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (INDEXED (REG ST) -4) 0 5))))
;          (CAIE (REG T6) 4)
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0005))
;     (!*MOVE (QUOTE "     Input String for OutPut File") (REG 1))
;          (MOVE (REG 1) (QUOTE "     Input String for OutPut File"))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*LINK READ EXPR 0)
;          (HRRZI (REG LINKREG) 221)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY READ))
;     (!*MOVE (REG 1) (FRAME 6))
;          (MOVEM (REG 1) (INDEXED (REG ST) -5))
;     (!*LINK TERPRI EXPR 0)
;          (HRRZI (REG LINKREG) 139)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY TERPRI))
;     (!*JUMPNOTTYPE (LABEL G0005) (FRAME 6) STR)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (INDEXED (REG ST) -5) 0 5))))
;          (CAIE (REG T6) 4)
;          (JRST (LABEL G0005))
;     (!*MOVE (QUOTE INPUT) (REG 2))
;          (MOVE (REG 2) (QUOTE INPUT))
;     (!*MOVE (FRAME 5) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -4))
;     (!*LINK OPEN EXPR 2)
;          (HRRZI (REG LINKREG) 372)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY OPEN))
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*MOVE (QUOTE "      Input File Opened on ") (REG 1))
;          (MOVE (REG 1) (QUOTE "      Input File Opened on "))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (QUOTE ", copy to TTY ") (REG 1))
;          (MOVE (REG 1) (QUOTE ", copy to TTY "))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*LBL (LABEL G0016))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK INDEPENDENTREADCHAR EXPR 1)
;          (HRRZI (REG LINKREG) 391)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY INDEPENDENTREADCHAR))
;     (!*MOVE (REG 1) (FRAME 3))
;          (MOVEM (REG 1) (INDEXED (REG ST) -2))
;     (!*JUMPEQ (LABEL G0015) (REG 1) (QUOTE 26))
;          (CAIN (REG 1) 26)
;          (JRST (LABEL G0015))
;     (!*LINK PUTC EXPR 1)
;          (HRRZI (REG LINKREG) 142)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PUTC))
;     (!*JUMP (LABEL G0016))
;          (JRST (LABEL G0016))
;     (!*LBL (LABEL G0015))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK CLOSE EXPR 1)
;          (HRRZI (REG LINKREG) 373)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY CLOSE))
;     (!*MOVE (QUOTE "     File Closed, Input test done") (REG 1))
;          (MOVE (REG 1) (QUOTE "     File Closed, Input test done"))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*MOVE (QUOTE INPUT) (REG 2))
;          (MOVE (REG 2) (QUOTE INPUT))
;     (!*MOVE (FRAME 5) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -4))
;     (!*LINK OPEN EXPR 2)
;          (HRRZI (REG LINKREG) 372)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY OPEN))
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*MOVE (QUOTE OUTPUT) (REG 2))
;          (MOVE (REG 2) (QUOTE OUTPUT))
;     (!*MOVE (FRAME 6) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -5))
;     (!*LINK OPEN EXPR 2)
;          (HRRZI (REG LINKREG) 372)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY OPEN))
;     (!*MOVE (REG 1) (FRAME 2))
;          (MOVEM (REG 1) (INDEXED (REG ST) -1))
;     (!*MOVE (QUOTE "      Input File  on ") (REG 1))
;          (MOVE (REG 1) (QUOTE "      Input File  on "))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (QUOTE ", copy to Output File on") (REG 1))
;          (MOVE (REG 1) (QUOTE ", copy to Output File on"))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*LBL (LABEL G0024))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK INDEPENDENTREADCHAR EXPR 1)
;          (HRRZI (REG LINKREG) 391)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY INDEPENDENTREADCHAR))
;     (!*MOVE (REG 1) (FRAME 3))
;          (MOVEM (REG 1) (INDEXED (REG ST) -2))
;     (!*JUMPEQ (LABEL G0023) (REG 1) (QUOTE 26))
;          (CAIN (REG 1) 26)
;          (JRST (LABEL G0023))
;     (!*MOVE (REG 1) (REG 2))
;          (MOVE (REG 2) (REG 1))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*LINK INDEPENDENTWRITECHAR EXPR 2)
;          (HRRZI (REG LINKREG) 152)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY INDEPENDENTWRITECHAR))
;     (!*JUMP (LABEL G0024))
;          (JRST (LABEL G0024))
;     (!*LBL (LABEL G0023))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK CLOSE EXPR 1)
;          (HRRZI (REG LINKREG) 373)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY CLOSE))
;     (!*MOVE (FRAME 2) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -1))
;     (!*LINK CLOSE EXPR 1)
;          (HRRZI (REG LINKREG) 373)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY CLOSE))
;     (!*MOVE (QUOTE "Both Files Closed, Inspect File:") (REG 1))
;          (MOVE (REG 1) (QUOTE "Both Files Closed, Inspect File:"))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (FRAME 6) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -5))
;     (!*LINK PRIN2T EXPR 1)
;          (HRRZI (REG LINKREG) 141)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2T))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 6)
;          (ADJSP (REG ST) (MINUS 6))
;          (POPJ (REG ST) 0)
;          (FULLWORD (FIELDPOINTER (INDEXED (REG ST) -4) 0 5))
;          (FULLWORD (FIELDPOINTER (INDEXED (REG ST) -5) 0 5))
L1427:	31
	byte(7)66,111,116,104,32,70,105,108,101,115,32,67,108,111,115,101,100,44,32,73,110,115,112,101,99,116,32,70,105,108,101,58,0
L1428:	23
	byte(7)44,32,99,111,112,121,32,116,111,32,79,117,116,112,117,116,32,70,105,108,101,32,111,110,0
L1429:	20
	byte(7)32,32,32,32,32,32,73,110,112,117,116,32,70,105,108,101,32,32,111,110,32,0
L1430:	32
	byte(7)32,32,32,32,32,70,105,108,101,32,67,108,111,115,101,100,44,32,73,110,112,117,116,32,116,101,115,116,32,100,111,110,101,0
L1431:	13
	byte(7)44,32,99,111,112,121,32,116,111,32,84,84,89,32,0
L1432:	26
	byte(7)32,32,32,32,32,32,73,110,112,117,116,32,70,105,108,101,32,79,112,101,110,101,100,32,111,110,32,0
L1433:	32
	byte(7)32,32,32,32,32,73,110,112,117,116,32,83,116,114,105,110,103,32,102,111,114,32,79,117,116,80,117,116,32,70,105,108,101,0
L1434:	31
	byte(7)32,32,32,32,32,73,110,112,117,116,32,83,116,114,105,110,103,32,102,111,114,32,73,110,112,117,116,32,70,105,108,101,0
L1435:	16
	byte(7)32,32,32,32,32,84,101,115,116,32,67,76,69,65,82,73,79,0
L1436:	19
	byte(7)45,45,45,45,32,84,101,115,116,32,111,102,32,70,105,108,101,32,73,79,0
	0
; (!*ENTRY IOTEST EXPR 0)
IOTEST:	intern IOTEST
 ADJSP 15,6
 MOVEM 0,0(15)
 MOVEM 0,-1(15)
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 MOVEM 0,-5(15)
 MOVE 1,L1413
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 SETZM SYMVAL+385
 HRRZI 6,1
 MOVEM 6,SYMVAL+154
 MOVE 1,L1414
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
L1437: MOVE 1,L1415
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 HRRZI 12,221
 SETZM 13
 PUSHJ 15,SYMFNC+221
 MOVEM 1,-4(15)
 HRRZI 12,139
 SETZM 13
 PUSHJ 15,SYMFNC+139
 LDB 11,L1416
 CAIE 11,4
 JRST L1437
L1438: MOVE 1,L1417
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 HRRZI 12,221
 SETZM 13
 PUSHJ 15,SYMFNC+221
 MOVEM 1,-5(15)
 HRRZI 12,139
 SETZM 13
 PUSHJ 15,SYMFNC+139
 LDB 11,L1418
 CAIE 11,4
 JRST L1438
 MOVE 2,L1419
 MOVE 1,-4(15)
 HRRZI 12,372
 HRRZI 13,2
 PUSHJ 15,SYMFNC+372
 MOVEM 1,0(15)
 MOVE 1,L1420
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,0(15)
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,L1421
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
L1439: MOVE 1,0(15)
 HRRZI 12,391
 HRRZI 13,1
 PUSHJ 15,SYMFNC+391
 MOVEM 1,-2(15)
 CAIN 1,26
 JRST L1440
 HRRZI 12,142
 HRRZI 13,1
 PUSHJ 15,SYMFNC+142
 JRST L1439
L1440: MOVE 1,0(15)
 HRRZI 12,373
 HRRZI 13,1
 PUSHJ 15,SYMFNC+373
 MOVE 1,L1422
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 MOVE 2,L1419
 MOVE 1,-4(15)
 HRRZI 12,372
 HRRZI 13,2
 PUSHJ 15,SYMFNC+372
 MOVEM 1,0(15)
 MOVE 2,L1423
 MOVE 1,-5(15)
 HRRZI 12,372
 HRRZI 13,2
 PUSHJ 15,SYMFNC+372
 MOVEM 1,-1(15)
 MOVE 1,L1424
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,0(15)
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,L1425
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,-1(15)
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
L1441: MOVE 1,0(15)
 HRRZI 12,391
 HRRZI 13,1
 PUSHJ 15,SYMFNC+391
 MOVEM 1,-2(15)
 CAIN 1,26
 JRST L1442
 MOVE 2,1
 MOVE 1,-1(15)
 HRRZI 12,152
 HRRZI 13,2
 PUSHJ 15,SYMFNC+152
 JRST L1441
L1442: MOVE 1,0(15)
 HRRZI 12,373
 HRRZI 13,1
 PUSHJ 15,SYMFNC+373
 MOVE 1,-1(15)
 HRRZI 12,373
 HRRZI 13,1
 PUSHJ 15,SYMFNC+373
 MOVE 1,L1426
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,-5(15)
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 MOVE 1,0
 ADJSP 15,-6
 POPJ 15,0
L1416:	point 5,-4(15),4
L1418:	point 5,-5(15),4
L1426:	<4_31>+L1427
L1425:	<4_31>+L1428
L1424:	<4_31>+L1429
L1423:	<30_31>+383
L1422:	<4_31>+L1430
L1421:	<4_31>+L1431
L1420:	<4_31>+L1432
L1419:	<30_31>+375
L1417:	<4_31>+L1433
L1415:	<4_31>+L1434
L1414:	<4_31>+L1435
L1413:	<4_31>+L1436
	0
; (!*ENTRY INITCODE EXPR 0)
L1443:	intern L1443
 HRRZI 1,15
 HRRZI 12,176
 HRRZI 13,1
 PUSHJ 15,SYMFNC+176
 MOVEM 1,SYMVAL+166
 POPJ 15,0
	extern SYMVAL
	extern SYMPRP
	extern SYMNAM
L1444:	0
	byte(7)0,0
	intern L1444
L1445:	0
	byte(7)1,0
	intern L1445
L1446:	0
	byte(7)2,0
	intern L1446
L1447:	0
	byte(7)3,0
	intern L1447
L1448:	0
	byte(7)4,0
	intern L1448
L1449:	0
	byte(7)5,0
	intern L1449
L1450:	0
	byte(7)6,0
	intern L1450
L1451:	0
	byte(7)7,0
	intern L1451
L1452:	0
	byte(7)8,0
	intern L1452
L1453:	0
	byte(7)9,0
	intern L1453
L1454:	0
	byte(7)10,0
	intern L1454
L1455:	0
	byte(7)11,0
	intern L1455
L1456:	0
	byte(7)12,0
	intern L1456
L1457:	0
	byte(7)13,0
	intern L1457
L1458:	0
	byte(7)14,0
	intern L1458
L1459:	0
	byte(7)15,0
	intern L1459
L1460:	0
	byte(7)16,0
	intern L1460
L1461:	0
	byte(7)17,0
	intern L1461
L1462:	0
	byte(7)18,0
	intern L1462
L1463:	0
	byte(7)19,0
	intern L1463
L1464:	0
	byte(7)20,0
	intern L1464
L1465:	0
	byte(7)21,0
	intern L1465
L1466:	0
	byte(7)22,0
	intern L1466
L1467:	0
	byte(7)23,0
	intern L1467
L1468:	0
	byte(7)24,0
	intern L1468
L1469:	0
	byte(7)25,0
	intern L1469
L1470:	0
	byte(7)26,0
	intern L1470
L1471:	0
	byte(7)27,0
	intern L1471
L1472:	0
	byte(7)28,0
	intern L1472
L1473:	0
	byte(7)29,0
	intern L1473
L1474:	0
	byte(7)30,0
	intern L1474
L1475:	0
	byte(7)31,0
	intern L1475
L1476:	0
	byte(7)32,0
	intern L1476
L1477:	0
	byte(7)33,0
	intern L1477
L1478:	0
	byte(7)34,0
	intern L1478
L1479:	0
	byte(7)35,0
	intern L1479
L1480:	0
	byte(7)36,0
	intern L1480
L1481:	0
	byte(7)37,0
	intern L1481
L1482:	0
	byte(7)38,0
	intern L1482
L1483:	0
	byte(7)39,0
	intern L1483
L1484:	0
	byte(7)40,0
	intern L1484
L1485:	0
	byte(7)41,0
	intern L1485
L1486:	0
	byte(7)42,0
	intern L1486
L1487:	0
	byte(7)43,0
	intern L1487
L1488:	0
	byte(7)44,0
	intern L1488
L1489:	0
	byte(7)45,0
	intern L1489
L1490:	0
	byte(7)46,0
	intern L1490
L1491:	0
	byte(7)47,0
	intern L1491
L1492:	0
	byte(7)48,0
	intern L1492
L1493:	0
	byte(7)49,0
	intern L1493
L1494:	0
	byte(7)50,0
	intern L1494
L1495:	0
	byte(7)51,0
	intern L1495
L1496:	0
	byte(7)52,0
	intern L1496
L1497:	0
	byte(7)53,0
	intern L1497
L1498:	0
	byte(7)54,0
	intern L1498
L1499:	0
	byte(7)55,0
	intern L1499
L1500:	0
	byte(7)56,0
	intern L1500
L1501:	0
	byte(7)57,0
	intern L1501
L1502:	0
	byte(7)58,0
	intern L1502
L1503:	0
	byte(7)59,0
	intern L1503
L1504:	0
	byte(7)60,0
	intern L1504
L1505:	0
	byte(7)61,0
	intern L1505
L1506:	0
	byte(7)62,0
	intern L1506
L1507:	0
	byte(7)63,0
	intern L1507
L1508:	0
	byte(7)64,0
	intern L1508
L1509:	0
	byte(7)65,0
	intern L1509
L1510:	0
	byte(7)66,0
	intern L1510
L1511:	0
	byte(7)67,0
	intern L1511
L1512:	0
	byte(7)68,0
	intern L1512
L1513:	0
	byte(7)69,0
	intern L1513
L1514:	0
	byte(7)70,0
	intern L1514
L1515:	0
	byte(7)71,0
	intern L1515
L1516:	0
	byte(7)72,0
	intern L1516
L1517:	0
	byte(7)73,0
	intern L1517
L1518:	0
	byte(7)74,0
	intern L1518
L1519:	0
	byte(7)75,0
	intern L1519
L1520:	0
	byte(7)76,0
	intern L1520
L1521:	0
	byte(7)77,0
	intern L1521
L1522:	0
	byte(7)78,0
	intern L1522
L1523:	0
	byte(7)79,0
	intern L1523
L1524:	0
	byte(7)80,0
	intern L1524
L1525:	0
	byte(7)81,0
	intern L1525
L1526:	0
	byte(7)82,0
	intern L1526
L1527:	0
	byte(7)83,0
	intern L1527
L1528:	0
	byte(7)84,0
	intern L1528
L1529:	0
	byte(7)85,0
	intern L1529
L1530:	0
	byte(7)86,0
	intern L1530
L1531:	0
	byte(7)87,0
	intern L1531
L1532:	0
	byte(7)88,0
	intern L1532
L1533:	0
	byte(7)89,0
	intern L1533
L1534:	0
	byte(7)90,0
	intern L1534
L1535:	0
	byte(7)91,0
	intern L1535
L1536:	0
	byte(7)92,0
	intern L1536
L1537:	0
	byte(7)93,0
	intern L1537
L1538:	0
	byte(7)94,0
	intern L1538
L1539:	0
	byte(7)95,0
	intern L1539
L1540:	0
	byte(7)96,0
	intern L1540
L1541:	0
	byte(7)97,0
	intern L1541
L1542:	0
	byte(7)98,0
	intern L1542
L1543:	0
	byte(7)99,0
	intern L1543
L1544:	0
	byte(7)100,0
	intern L1544
L1545:	0
	byte(7)101,0
	intern L1545
L1546:	0
	byte(7)102,0
	intern L1546
L1547:	0
	byte(7)103,0
	intern L1547
L1548:	0
	byte(7)104,0
	intern L1548
L1549:	0
	byte(7)105,0
	intern L1549
L1550:	0
	byte(7)106,0
	intern L1550
L1551:	0
	byte(7)107,0
	intern L1551
L1552:	0
	byte(7)108,0
	intern L1552
L1553:	0
	byte(7)109,0
	intern L1553
L1554:	0
	byte(7)110,0
	intern L1554
L1555:	0
	byte(7)111,0
	intern L1555
L1556:	0
	byte(7)112,0
	intern L1556
L1557:	0
	byte(7)113,0
	intern L1557
L1558:	0
	byte(7)114,0
	intern L1558
L1559:	0
	byte(7)115,0
	intern L1559
L1560:	0
	byte(7)116,0
	intern L1560
L1561:	0
	byte(7)117,0
	intern L1561
L1562:	0
	byte(7)118,0
	intern L1562
L1563:	0
	byte(7)119,0
	intern L1563
L1564:	0
	byte(7)120,0
	intern L1564
L1565:	0
	byte(7)121,0
	intern L1565
L1566:	0
	byte(7)122,0
	intern L1566
L1567:	0
	byte(7)123,0
	intern L1567
L1568:	0
	byte(7)124,0
	intern L1568
L1569:	0
	byte(7)125,0
	intern L1569
L1570:	0
	byte(7)126,0
	intern L1570
L1571:	0
	byte(7)127,0
	intern L1571
L1572:	2
	byte(7)78,73,76,0
	intern L1572
L1573:	6
	byte(7)80,82,73,78,49,73,68,0
	intern L1573
L1574:	7
	byte(7)80,82,73,78,49,73,78,84,0
	intern L1574
L1575:	10
	byte(7)80,82,73,78,49,83,84,82,73,78,71,0
	intern L1575
L1576:	8
	byte(7)80,82,73,78,49,80,65,73,82,0
	intern L1576
L1577:	5
	byte(7)80,82,84,73,84,77,0
	intern L1577
L1578:	4
	byte(7)80,82,73,78,49,0
	intern L1578
L1579:	6
	byte(7)80,82,73,78,50,73,68,0
	intern L1579
L1580:	10
	byte(7)80,82,73,78,50,83,84,82,73,78,71,0
	intern L1580
L1581:	8
	byte(7)80,82,73,78,50,80,65,73,82,0
	intern L1581
L1582:	4
	byte(7)80,82,73,78,50,0
	intern L1582
L1583:	5
	byte(7)84,69,82,80,82,73,0
	intern L1583
L1584:	4
	byte(7)80,82,73,78,84,0
	intern L1584
L1585:	5
	byte(7)80,82,73,78,50,84,0
	intern L1585
L1586:	3
	byte(7)80,85,84,67,0
	intern L1586
L1587:	5
	byte(7)80,66,76,65,78,75,0
	intern L1587
L1588:	8
	byte(7)80,82,73,78,49,73,78,84,88,0
	intern L1588
L1589:	6
	byte(7)76,79,78,71,68,73,86,0
	intern L1589
L1590:	12
	byte(7)76,79,78,71,82,69,77,65,73,78,68,69,82,0
	intern L1590
L1591:	3
	byte(7)66,89,84,69,0
	intern L1591
L1592:	3
	byte(7)81,85,73,84,0
	intern L1592
L1593:	4
	byte(7)69,82,82,79,82,0
	intern L1593
L1594:	11
	byte(7)67,72,65,78,78,69,76,80,82,73,78,50,0
	intern L1594
L1595:	15
	byte(7)67,72,65,78,78,69,76,87,82,73,84,69,67,72,65,82,0
	intern L1595
L1596:	19
	byte(7)73,78,68,69,80,69,78,68,69,78,84,87,82,73,84,69,67,72,65,82,0
	intern L1596
L1597:	8
	byte(7)87,82,73,84,69,67,72,65,82,0
	intern L1597
L1598:	3
	byte(7)79,85,84,42,0
	intern L1598
L1599:	10
	byte(7)69,82,82,79,82,72,69,65,68,69,82,0
	intern L1599
L1600:	11
	byte(7)69,82,82,79,82,84,82,65,73,76,69,82,0
	intern L1600
L1601:	9
	byte(7)70,65,84,65,76,69,82,82,79,82,0
	intern L1601
L1602:	7
	byte(7)83,84,68,69,82,82,79,82,0
	intern L1602
L1603:	9
	byte(7)78,79,78,73,68,69,82,82,79,82,0
	intern L1603
L1604:	5
	byte(7)80,82,73,78,49,84,0
	intern L1604
L1605:	8
	byte(7)84,89,80,69,69,82,82,79,82,0
	intern L1605
L1606:	13
	byte(7)85,83,65,71,69,84,89,80,69,69,82,82,79,82,0
	intern L1606
L1607:	1
	byte(7)70,78,0
	intern L1607
L1608:	7
	byte(7)79,70,70,69,78,68,69,82,0
	intern L1608
L1609:	13
	byte(7)78,79,78,78,85,77,66,69,82,69,82,82,79,82,0
	intern L1609
L1610:	11
	byte(7)76,65,77,66,73,78,68,65,82,71,83,42,0
	intern L1610
L1611:	6
	byte(7)76,65,77,66,73,78,68,0
	intern L1611
L1612:	6
	byte(7)85,78,66,73,78,68,78,0
	intern L1612
L1613:	14
	byte(7)78,79,78,73,78,84,69,71,69,82,69,82,82,79,82,0
	intern L1613
L1614:	22
	byte(7)78,79,78,80,79,83,73,84,73,86,69,73,78,84,69,71,69,82,69,82,82,79,82,0
	intern L1614
L1615:	8
	byte(7)87,81,85,79,84,73,69,78,84,0
	intern L1615
L1616:	7
	byte(7)37,82,69,67,76,65,73,77,0
	intern L1616
L1617:	5
	byte(7)71,84,72,69,65,80,0
	intern L1617
L1618:	4
	byte(7)71,84,83,84,82,0
	intern L1618
L1619:	5
	byte(7)71,84,86,69,67,84,0
	intern L1619
L1620:	7
	byte(7)71,84,87,65,82,82,65,89,0
	intern L1620
L1621:	3
	byte(7)71,84,73,68,0
	intern L1621
L1622:	7
	byte(7)72,65,82,68,67,79,78,83,0
	intern L1622
L1623:	3
	byte(7)67,79,78,83,0
	intern L1623
L1624:	4
	byte(7)88,67,79,78,83,0
	intern L1624
L1625:	4
	byte(7)78,67,79,78,83,0
	intern L1625
L1626:	5
	byte(7)77,75,86,69,67,84,0
	intern L1626
L1627:	4
	byte(7)76,73,83,84,50,0
	intern L1627
L1628:	4
	byte(7)76,73,83,84,51,0
	intern L1628
L1629:	4
	byte(7)76,73,83,84,52,0
	intern L1629
L1630:	4
	byte(7)76,73,83,84,53,0
	intern L1630
L1631:	6
	byte(7)80,85,84,66,89,84,69,0
	intern L1631
L1632:	7
	byte(7)77,75,83,84,82,73,78,71,0
	intern L1632
L1633:	4
	byte(7)69,81,83,84,82,0
	intern L1633
L1634:	7
	byte(7)73,78,73,84,82,69,65,68,0
	intern L1634
L1635:	5
	byte(7)42,82,65,73,83,69,0
	intern L1635
L1636:	2
	byte(7)67,72,42,0
	intern L1636
L1637:	3
	byte(7)84,79,75,42,0
	intern L1637
L1638:	7
	byte(7)84,79,75,84,89,80,69,42,0
	intern L1638
L1639:	4
	byte(7)68,69,66,85,71,0
	intern L1639
L1640:	7
	byte(7)83,69,84,82,65,73,83,69,0
	intern L1640
L1641:	9
	byte(7)67,76,69,65,82,87,72,73,84,69,0
	intern L1641
L1642:	11
	byte(7)67,76,69,65,82,67,79,77,77,69,78,84,0
	intern L1642
L1643:	6
	byte(7)82,69,65,68,83,84,82,0
	intern L1643
L1644:	5
	byte(7)68,73,71,73,84,80,0
	intern L1644
L1645:	6
	byte(7)82,69,65,68,73,78,84,0
	intern L1645
L1646:	8
	byte(7)65,76,80,72,65,69,83,67,80,0
	intern L1646
L1647:	5
	byte(7)82,69,65,68,73,68,0
	intern L1647
L1648:	4
	byte(7)82,65,84,79,77,0
	intern L1648
L1649:	5
	byte(7)87,72,73,84,69,80,0
	intern L1649
L1650:	3
	byte(7)71,69,84,67,0
	intern L1650
L1651:	8
	byte(7)76,79,78,71,84,73,77,69,83,0
	intern L1651
L1652:	13
	byte(7)66,85,70,70,69,82,84,79,83,84,82,73,78,71,0
	intern L1652
L1653:	8
	byte(7)82,65,73,83,69,67,72,65,82,0
	intern L1653
L1654:	11
	byte(7)65,76,80,72,65,78,85,77,69,83,67,80,0
	intern L1654
L1655:	5
	byte(7)73,78,84,69,82,78,0
	intern L1655
L1656:	6
	byte(7)69,83,67,65,80,69,80,0
	intern L1656
L1657:	5
	byte(7)65,76,80,72,65,80,0
	intern L1657
L1658:	9
	byte(7)76,79,87,69,82,67,65,83,69,80,0
	intern L1658
L1659:	7
	byte(7)76,79,79,75,85,80,73,68,0
	intern L1659
L1660:	8
	byte(7)73,78,73,84,78,69,87,73,68,0
	intern L1660
L1661:	11
	byte(7)77,65,75,69,70,85,78,66,79,85,78,68,0
	intern L1661
L1662:	9
	byte(7)85,80,80,69,82,67,65,83,69,80,0
	intern L1662
L1663:	8
	byte(7)65,76,80,72,65,78,85,77,80,0
	intern L1663
L1664:	4
	byte(7)82,69,65,68,49,0
	intern L1664
L1665:	3
	byte(7)82,69,65,68,0
	intern L1665
L1666:	7
	byte(7)82,69,65,68,76,73,83,84,0
	intern L1666
L1667:	4
	byte(7)81,85,79,84,69,0
	intern L1667
L1668:	6
	byte(7)83,65,70,69,67,68,82,0
	intern L1668
L1669:	9
	byte(7)83,89,77,70,78,67,66,65,83,69,0
	intern L1669
L1670:	5
	byte(7)87,80,76,85,83,50,0
	intern L1670
L1671:	5
	byte(7)83,89,77,70,78,67,0
	intern L1671
L1672:	6
	byte(7)87,84,73,77,69,83,50,0
	intern L1672
L1673:	29
	byte(7)65,68,68,82,69,83,83,73,78,71,85,78,73,84,83,80,69,82,70,85,78,67,84,73,79,78,67,69,76,76,0
	intern L1673
L1674:	16
	byte(7)83,72,79,85,76,68,66,69,85,78,68,69,70,73,78,69,68,0
	intern L1674
L1675:	8
	byte(7)70,85,78,66,79,85,78,68,80,0
	intern L1675
L1676:	18
	byte(7)37,67,79,80,89,45,70,85,78,67,84,73,79,78,45,67,69,76,76,0
	intern L1676
L1677:	25
	byte(7)67,79,77,80,73,76,69,68,67,65,76,76,73,78,71,73,78,84,69,82,80,82,69,84,69,68,0
	intern L1677
L1678:	11
	byte(7)70,76,65,77,66,68,65,76,73,78,75,80,0
	intern L1678
L1679:	11
	byte(7)37,83,84,79,82,69,45,74,67,65,76,76,0
	intern L1679
L1680:	14
	byte(7)77,65,75,69,70,76,65,77,66,68,65,76,73,78,75,0
	intern L1680
L1681:	5
	byte(7)70,67,79,68,69,80,0
	intern L1681
L1682:	8
	byte(7)77,65,75,69,70,67,79,68,69,0
	intern L1682
L1683:	14
	byte(7)71,69,84,70,67,79,68,69,80,79,73,78,84,69,82,0
	intern L1683
L1684:	12
	byte(7)67,79,68,69,80,82,73,77,73,84,73,86,69,0
	intern L1684
L1685:	7
	byte(7)67,79,68,69,80,84,82,42,0
	intern L1685
L1686:	12
	byte(7)83,65,86,69,82,69,71,73,83,84,69,82,83,0
	intern L1686
L1687:	8
	byte(7)67,79,68,69,70,79,82,77,42,0
	intern L1687
L1688:	8
	byte(7)67,79,68,69,78,65,82,71,42,0
	intern L1688
L1689:	28
	byte(7)67,79,77,80,73,76,69,68,67,65,76,76,73,78,71,73,78,84,69,82,80,82,69,84,69,68,65,85,88,0
	intern L1689
L1690:	8
	byte(7)70,65,83,84,65,80,80,76,89,0
	intern L1690
L1691:	14
	byte(7)70,65,83,84,76,65,77,66,68,65,65,80,80,76,89,0
	intern L1691
L1692:	5
	byte(7)76,65,77,66,68,65,0
	intern L1692
L1693:	19
	byte(7)85,78,68,69,70,73,78,69,68,70,85,78,67,84,73,79,78,65,85,88,0
	intern L1693
L1694:	22
	byte(7)85,78,68,69,70,73,78,69,68,70,85,78,67,84,73,79,78,65,85,88,65,85,88,0
	intern L1694
L1695:	8
	byte(7)67,79,68,69,65,80,80,76,89,0
	intern L1695
L1696:	12
	byte(7)67,79,68,69,69,86,65,76,65,80,80,76,89,0
	intern L1696
L1697:	15
	byte(7)67,79,68,69,69,86,65,76,65,80,80,76,89,65,85,88,0
	intern L1697
L1698:	3
	byte(7)69,86,65,76,0
	intern L1698
L1699:	10
	byte(7)66,73,78,68,69,86,65,76,65,85,88,0
	intern L1699
L1700:	7
	byte(7)66,73,78,68,69,86,65,76,0
	intern L1700
L1701:	5
	byte(7)76,66,73,78,68,49,0
	intern L1701
L1702:	2
	byte(7)71,69,84,0
	intern L1702
L1703:	31
	byte(7)67,79,77,80,73,76,69,68,67,65,76,76,73,78,71,73,78,84,69,82,80,82,69,84,69,68,65,85,88,65,85,88,0
	intern L1703
L1704:	10
	byte(7)42,76,65,77,66,68,65,76,73,78,75,0
	intern L1704
L1705:	5
	byte(7)66,76,68,77,83,71,0
	intern L1705
L1706:	6
	byte(7)69,86,80,82,79,71,78,0
	intern L1706
L1707:	6
	byte(7)83,89,83,50,73,78,84,0
	intern L1707
L1708:	4
	byte(7)80,76,85,83,50,0
	intern L1708
L1709:	4
	byte(7)77,73,78,85,83,0
	intern L1709
L1710:	4
	byte(7)87,65,68,68,49,0
	intern L1710
L1711:	3
	byte(7)69,76,83,69,0
	intern L1711
L1712:	3
	byte(7)65,68,68,49,0
	intern L1712
L1713:	4
	byte(7)87,83,85,66,49,0
	intern L1713
L1714:	3
	byte(7)83,85,66,49,0
	intern L1714
L1715:	7
	byte(7)71,82,69,65,84,69,82,80,0
	intern L1715
L1716:	4
	byte(7)76,69,83,83,80,0
	intern L1716
L1717:	9
	byte(7)68,73,70,70,69,82,69,78,67,69,0
	intern L1717
L1718:	5
	byte(7)84,73,77,69,83,50,0
	intern L1718
L1719:	2
	byte(7)67,65,82,0
	intern L1719
L1720:	2
	byte(7)67,68,82,0
	intern L1720
L1721:	3
	byte(7)67,65,65,82,0
	intern L1721
L1722:	3
	byte(7)67,65,68,82,0
	intern L1722
L1723:	3
	byte(7)67,68,65,82,0
	intern L1723
L1724:	3
	byte(7)67,68,68,82,0
	intern L1724
L1725:	3
	byte(7)65,84,79,77,0
	intern L1725
L1726:	5
	byte(7)65,80,80,69,78,68,0
	intern L1726
L1727:	3
	byte(7)77,69,77,81,0
	intern L1727
L1728:	6
	byte(7)82,69,86,69,82,83,69,0
	intern L1728
L1729:	4
	byte(7)69,86,76,73,83,0
	intern L1729
L1730:	4
	byte(7)80,82,79,71,78,0
	intern L1730
L1731:	5
	byte(7)69,86,67,79,78,68,0
	intern L1731
L1732:	3
	byte(7)67,79,78,68,0
	intern L1732
L1733:	2
	byte(7)83,69,84,0
	intern L1733
L1734:	3
	byte(7)83,69,84,81,0
	intern L1734
L1735:	3
	byte(7)80,85,84,68,0
	intern L1735
L1736:	1
	byte(7)68,69,0
	intern L1736
L1737:	3
	byte(7)69,88,80,82,0
	intern L1737
L1738:	1
	byte(7)68,70,0
	intern L1738
L1739:	4
	byte(7)70,69,88,80,82,0
	intern L1739
L1740:	1
	byte(7)68,78,0
	intern L1740
L1741:	4
	byte(7)78,69,88,80,82,0
	intern L1741
L1742:	1
	byte(7)68,77,0
	intern L1742
L1743:	4
	byte(7)77,65,67,82,79,0
	intern L1743
L1744:	3
	byte(7)76,73,83,84,0
	intern L1744
L1745:	4
	byte(7)65,84,83,79,67,0
	intern L1745
L1746:	2
	byte(7)71,69,81,0
	intern L1746
L1747:	2
	byte(7)76,69,81,0
	intern L1747
L1748:	4
	byte(7)69,81,67,65,82,0
	intern L1748
L1749:	3
	byte(7)71,69,84,68,0
	intern L1749
L1750:	4
	byte(7)67,79,80,89,68,0
	intern L1750
L1751:	5
	byte(7)68,69,76,65,84,81,0
	intern L1751
L1752:	2
	byte(7)80,85,84,0
	intern L1752
L1753:	7
	byte(7)73,78,73,84,69,86,65,76,0
	intern L1753
L1754:	4
	byte(7)87,72,73,76,69,0
	intern L1754
L1755:	4
	byte(7)70,84,89,80,69,0
	intern L1755
L1756:	6
	byte(7)76,65,77,66,68,65,80,0
	intern L1756
L1757:	8
	byte(7)71,69,84,76,65,77,66,68,65,0
	intern L1757
L1758:	14
	byte(7)76,65,77,66,68,65,69,86,65,76,65,80,80,76,89,0
	intern L1758
L1759:	8
	byte(7)71,69,84,70,78,84,89,80,69,0
	intern L1759
L1760:	10
	byte(7)76,65,77,66,68,65,65,80,80,76,89,0
	intern L1760
L1761:	4
	byte(7)65,80,80,76,89,0
	intern L1761
L1762:	7
	byte(7)68,79,76,65,77,66,68,65,0
	intern L1762
L1763:	5
	byte(7)76,69,78,71,84,72,0
	intern L1763
L1764:	4
	byte(7)67,79,68,69,80,0
	intern L1764
L1765:	4
	byte(7)80,65,73,82,80,0
	intern L1765
L1766:	2
	byte(7)73,68,80,0
	intern L1766
L1767:	1
	byte(7)69,81,0
	intern L1767
L1768:	3
	byte(7)78,85,76,76,0
	intern L1768
L1769:	2
	byte(7)78,79,84,0
	intern L1769
L1770:	6
	byte(7)76,69,78,71,84,72,49,0
	intern L1770
L1771:	5
	byte(7)77,65,80,79,66,76,0
	intern L1771
L1772:	10
	byte(7)80,82,73,78,84,70,69,88,80,82,83,0
	intern L1772
L1773:	10
	byte(7)80,82,73,78,84,49,70,69,88,80,82,0
	intern L1773
L1774:	5
	byte(7)70,69,88,80,82,80,0
	intern L1774
L1775:	13
	byte(7)80,82,73,78,84,70,85,78,67,84,73,79,78,83,0
	intern L1775
L1776:	13
	byte(7)80,82,73,78,84,49,70,85,78,67,84,73,79,78,0
	intern L1776
L1777:	3
	byte(7)80,82,79,80,0
	intern L1777
L1778:	6
	byte(7)82,69,77,80,82,79,80,0
	intern L1778
L1779:	7
	byte(7)83,89,83,50,70,73,88,78,0
	intern L1779
L1780:	13
	byte(7)73,78,70,83,84,65,82,84,73,78,71,66,73,84,0
	intern L1780
L1781:	11
	byte(7)73,78,70,66,73,84,76,69,78,71,84,72,0
	intern L1781
L1782:	4
	byte(7)82,69,83,69,84,0
	intern L1782
L1783:	13
	byte(7)66,83,84,65,67,75,79,86,69,82,70,76,79,87,0
	intern L1783
L1784:	6
	byte(7)69,82,82,79,85,84,42,0
	intern L1784
L1785:	14
	byte(7)66,83,84,65,67,75,85,78,68,69,82,70,76,79,87,0
	intern L1785
L1786:	17
	byte(7)67,65,80,84,85,82,69,69,78,86,73,82,79,78,77,69,78,84,0
	intern L1786
L1787:	17
	byte(7)82,69,83,84,79,82,69,69,78,86,73,82,79,78,77,69,78,84,0
	intern L1787
L1788:	17
	byte(7)37,67,76,69,65,82,45,67,65,84,67,72,45,83,84,65,67,75,0
	intern L1788
L1789:	12
	byte(7)67,76,69,65,82,66,73,78,68,73,78,71,83,0
	intern L1789
L1790:	5
	byte(7)80,66,73,78,68,49,0
	intern L1790
L1791:	7
	byte(7)80,82,79,71,66,73,78,68,0
	intern L1791
L1792:	9
	byte(7)83,89,83,67,76,69,65,82,73,79,0
	intern L1792
L1793:	8
	byte(7)68,69,67,50,48,79,80,69,78,0
	intern L1793
L1794:	10
	byte(7)83,89,83,79,80,69,78,82,69,65,68,0
	intern L1794
L1795:	11
	byte(7)83,89,83,79,80,69,78,87,82,73,84,69,0
	intern L1795
L1796:	12
	byte(7)68,69,67,50,48,82,69,65,68,67,72,65,82,0
	intern L1796
L1797:	9
	byte(7)83,89,83,82,69,65,68,82,69,67,0
	intern L1797
L1798:	6
	byte(7)73,79,69,82,82,79,82,0
	intern L1798
L1799:	13
	byte(7)68,69,67,50,48,87,82,73,84,69,67,72,65,82,0
	intern L1799
L1800:	10
	byte(7)83,89,83,87,82,73,84,69,82,69,67,0
	intern L1800
L1801:	7
	byte(7)83,89,83,67,76,79,83,69,0
	intern L1801
L1802:	11
	byte(7)67,72,65,78,78,69,76,69,82,82,79,82,0
	intern L1802
L1803:	11
	byte(7)83,89,83,77,65,88,66,85,70,70,69,82,0
	intern L1803
L1804:	19
	byte(7)84,69,82,77,73,78,65,76,73,78,80,85,84,72,65,78,68,76,69,82,0
	intern L1804
L1805:	15
	byte(7)87,82,73,84,69,79,78,76,89,67,72,65,78,78,69,76,0
	intern L1805
L1806:	15
	byte(7)67,79,77,80,82,69,83,83,82,69,65,68,67,72,65,82,0
	intern L1806
L1807:	13
	byte(7)67,72,65,78,78,69,76,78,79,84,79,80,69,78,0
	intern L1807
L1808:	14
	byte(7)82,69,65,68,79,78,76,89,67,72,65,78,78,69,76,0
	intern L1808
L1809:	16
	byte(7)84,79,83,84,82,73,78,71,87,82,73,84,69,67,72,65,82,0
	intern L1809
L1810:	15
	byte(7)69,88,80,76,79,68,69,87,82,73,84,69,67,72,65,82,0
	intern L1810
L1811:	16
	byte(7)70,76,65,84,83,73,90,69,87,82,73,84,69,67,72,65,82,0
	intern L1811
L1812:	26
	byte(7)73,76,76,69,71,65,76,83,84,65,78,68,65,82,68,67,72,65,78,78,69,76,67,76,79,83,69,0
	intern L1812
L1813:	4
	byte(7)36,69,79,76,36,0
	intern L1813
L1814:	2
	byte(7)82,68,83,0
	intern L1814
L1815:	2
	byte(7)87,82,83,0
	intern L1815
L1816:	3
	byte(7)79,80,69,78,0
	intern L1816
L1817:	4
	byte(7)67,76,79,83,69,0
	intern L1817
L1818:	7
	byte(7)84,89,80,69,70,73,76,69,0
	intern L1818
L1819:	4
	byte(7)73,78,80,85,84,0
	intern L1819
L1820:	4
	byte(7)68,83,75,73,78,0
	intern L1820
L1821:	4
	byte(7)36,69,79,70,36,0
	intern L1821
L1822:	4
	byte(7)42,80,86,65,76,0
	intern L1822
L1823:	4
	byte(7)42,69,67,72,79,0
	intern L1823
L1824:	4
	byte(7)76,65,80,73,78,0
	intern L1824
L1825:	21
	byte(7)83,89,83,84,69,77,79,80,69,78,70,73,76,69,70,79,82,73,78,80,85,84,0
	intern L1825
L1826:	22
	byte(7)83,89,83,84,69,77,79,80,69,78,70,73,76,69,70,79,82,79,85,84,80,85,84,0
	intern L1826
L1827:	5
	byte(7)79,85,84,80,85,84,0
	intern L1827
L1828:	22
	byte(7)73,78,68,69,80,69,78,68,69,78,84,67,76,79,83,69,67,72,65,78,78,69,76,0
	intern L1828
L1829:	2
	byte(7)73,78,42,0
	intern L1829
L1830:	5
	byte(7)83,84,68,73,78,42,0
	intern L1830
L1831:	6
	byte(7)83,84,68,79,85,84,42,0
	intern L1831
L1832:	9
	byte(7)80,82,79,77,80,84,79,85,84,42,0
	intern L1832
L1833:	14
	byte(7)70,73,78,68,70,82,69,69,67,72,65,78,78,69,76,0
	intern L1833
L1834:	7
	byte(7)73,79,66,85,70,70,69,82,0
	intern L1834
L1835:	18
	byte(7)73,78,68,69,80,69,78,68,69,78,84,82,69,65,68,67,72,65,82,0
	intern L1835
L1836:	20
	byte(7)83,89,83,84,69,77,79,80,69,78,70,73,76,69,83,80,69,67,73,65,76,0
	intern L1836
L1837:	15
	byte(7)84,69,83,84,76,69,71,65,76,67,72,65,78,78,69,76,0
	intern L1837
L1838:	24
	byte(7)83,89,83,84,69,77,77,65,82,75,65,83,67,76,79,83,69,68,67,72,65,78,78,69,76,0
	intern L1838
L1839:	14
	byte(7)67,76,69,65,82,79,78,69,67,72,65,78,78,69,76,0
	intern L1839
L1840:	6
	byte(7)67,76,69,65,82,73,79,0
	intern L1840
L1841:	17
	byte(7)67,72,65,78,78,69,76,87,82,73,84,69,83,84,82,73,78,71,0
	intern L1841
L1842:	12
	byte(7)80,82,79,77,80,84,83,84,82,73,78,71,42,0
	intern L1842
L1843:	7
	byte(7)73,78,73,84,72,69,65,80,0
	intern L1843
L1844:	8
	byte(7)70,73,82,83,84,67,65,76,76,0
	intern L1844
L1845:	4
	byte(7)77,65,73,78,46,0
	intern L1845
L1846:	3
	byte(7)73,78,73,84,0
	intern L1846
L1847:	3
	byte(7)84,73,77,67,0
	intern L1847
L1848:	3
	byte(7)68,65,84,69,0
	intern L1848
L1849:	10
	byte(7)86,69,82,83,73,79,78,78,65,77,69,0
	intern L1849
L1850:	5
	byte(7)80,85,84,73,78,84,0
	intern L1850
L1851:	16
	byte(7)85,78,68,69,70,73,78,69,68,70,85,78,67,84,73,79,78,0
	intern L1851
L1852:	10
	byte(7)85,78,68,69,70,78,67,79,68,69,42,0
	intern L1852
L1853:	10
	byte(7)85,78,68,69,70,78,78,65,82,71,42,0
	intern L1853
L1854:	3
	byte(7)70,76,65,71,0
	intern L1854
L1855:	9
	byte(7)87,82,69,77,65,73,78,68,69,82,0
	intern L1855
L1856:	7
	byte(7)72,69,65,80,73,78,70,79,0
	intern L1856
L1857:	6
	byte(7)82,69,67,76,65,73,77,0
	intern L1857
L1858:	5
	byte(7)83,80,65,67,69,68,0
	intern L1858
L1859:	5
	byte(7)68,65,83,72,69,68,0
	intern L1859
L1860:	5
	byte(7)68,79,84,84,69,68,0
	intern L1860
L1861:	7
	byte(7)83,72,79,85,76,68,66,69,0
	intern L1861
L1862:	2
	byte(7)73,78,70,0
	intern L1862
L1863:	2
	byte(7)84,65,71,0
	intern L1863
L1864:	5
	byte(7)77,75,73,84,69,77,0
	intern L1864
L1865:	3
	byte(7)84,73,77,69,0
	intern L1865
L1866:	6
	byte(7)70,85,78,67,65,76,76,0
	intern L1866
L1867:	10
	byte(7)80,82,69,80,65,82,69,84,69,83,84,0
	intern L1867
L1868:	11
	byte(7)77,65,75,69,76,79,78,71,76,73,83,84,0
	intern L1868
L1869:	2
	byte(7)70,79,79,0
	intern L1869
L1870:	8
	byte(7)84,69,83,84,83,69,84,85,80,0
	intern L1870
L1871:	7
	byte(7)84,69,83,84,76,73,83,84,0
	intern L1871
L1872:	8
	byte(7)84,69,83,84,76,73,83,84,50,0
	intern L1872
L1873:	7
	byte(7)69,86,65,76,70,79,82,77,0
	intern L1873
L1874:	7
	byte(7)76,79,78,71,76,73,83,84,0
	intern L1874
L1875:	7
	byte(7)67,68,82,49,84,69,83,84,0
	intern L1875
L1876:	7
	byte(7)67,68,82,50,84,69,83,84,0
	intern L1876
L1877:	7
	byte(7)67,68,68,82,84,69,83,84,0
	intern L1877
L1878:	15
	byte(7)76,73,83,84,79,78,76,89,67,68,82,84,69,83,84,49,0
	intern L1878
L1879:	16
	byte(7)76,73,83,84,79,78,76,89,67,68,68,82,84,69,83,84,49,0
	intern L1879
L1880:	15
	byte(7)76,73,83,84,79,78,76,89,67,68,82,84,69,83,84,50,0
	intern L1880
L1881:	16
	byte(7)76,73,83,84,79,78,76,89,67,68,68,82,84,69,83,84,50,0
	intern L1881
L1882:	8
	byte(7)69,77,80,84,89,84,69,83,84,0
	intern L1882
L1883:	12
	byte(7)83,76,79,87,69,77,80,84,89,84,69,83,84,0
	intern L1883
L1884:	10
	byte(7)82,69,86,69,82,83,69,84,69,83,84,0
	intern L1884
L1885:	9
	byte(7)77,89,82,69,86,69,82,83,69,49,0
	intern L1885
L1886:	13
	byte(7)77,89,82,69,86,69,82,83,69,49,84,69,83,84,0
	intern L1886
L1887:	9
	byte(7)77,89,82,69,86,69,82,83,69,50,0
	intern L1887
L1888:	13
	byte(7)77,89,82,69,86,69,82,83,69,50,84,69,83,84,0
	intern L1888
L1889:	9
	byte(7)76,69,78,71,84,72,84,69,83,84,0
	intern L1889
L1890:	3
	byte(7)70,65,67,84,0
	intern L1890
L1891:	13
	byte(7)65,82,73,84,72,77,69,84,73,67,84,69,83,84,0
	intern L1891
L1892:	7
	byte(7)69,86,65,76,84,69,83,84,0
	intern L1892
L1893:	7
	byte(7)84,73,77,69,69,86,65,76,0
	intern L1893
L1894:	2
	byte(7)84,65,75,0
	intern L1894
L1895:	10
	byte(7)84,79,80,76,69,86,69,76,84,65,75,0
	intern L1895
L1896:	3
	byte(7)71,84,65,75,0
	intern L1896
L1897:	11
	byte(7)84,79,80,76,69,86,69,76,71,84,65,75,0
	intern L1897
L1898:	4
	byte(7)71,84,83,84,65,0
	intern L1898
L1899:	4
	byte(7)71,84,83,84,66,0
	intern L1899
L1900:	1
	byte(7)71,48,0
	intern L1900
L1901:	1
	byte(7)71,49,0
	intern L1901
L1902:	6
	byte(7)78,82,69,67,79,78,67,0
	intern L1902
L1903:	7
	byte(7)78,82,69,86,69,82,83,69,0
	intern L1903
L1904:	4
	byte(7)78,78,73,76,83,0
	intern L1904
L1905:	3
	byte(7)78,73,76,83,0
	intern L1905
L1906:	12
	byte(7)84,69,83,84,71,76,79,66,65,76,86,65,82,0
	intern L1906
L1907:	1
	byte(7)78,82,0
	intern L1907
L1908:	7
	byte(7)73,78,73,84,67,79,68,69,0
	intern L1908
L1909:	5
	byte(7)73,79,84,69,83,84,0
	intern L1909
	extern SYMFNC
	extern L0003
	end MAIN.