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

	search monsym
	radix 10
	extern L0001
	extern L0002
	extern SYMNAM
	extern SYMVAL
	extern SYMFNC
	extern SYMPRP
	extern L0003
	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
	extern BNDSTK
	extern L1005
	extern L1006
	extern L1007
;     (!*ENTRY BSTACKOVERFLOW EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (QUOTE "***** Binding stack overflow, restarting...") (REG 2))
;          (MOVE (REG 2) (QUOTE "***** Binding stack overflow, restarting..."))
;     (!*MOVE (!$FLUID ERROUT!*) (REG 1))
;          (MOVE (REG 1) (!$FLUID ERROUT!*))
;     (!*LINK CHANNELPRIN2 EXPR 2)
;          (HRRZI (REG LINKREG) 150)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY CHANNELPRIN2))
;     (!*MOVE (WCONST 10) (REG 2))
;          (HRRZI (REG 2) 10)
;     (!*MOVE (!$FLUID ERROUT!*) (REG 1))
;          (MOVE (REG 1) (!$FLUID ERROUT!*))
;     (!*LINK CHANNELWRITECHAR EXPR 2)
;          (HRRZI (REG LINKREG) 151)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY CHANNELWRITECHAR))
;     (!*LINKE 0 RESET EXPR 0)
;          (HRRZI (REG LINKREG) 338)
;          (SETZM (REG NARGREG))
;          (JRST (ENTRY RESET))
L1009:	42
	byte(7)42,42,42,42,42,32,66,105,110,100,105,110,103,32,115,116,97,99,107,32,111,118,101,114,102,108,111,119,44,32,114,101,115,116,97,114,116,105,110,103,46,46,46,0
	0
; (!*ENTRY BSTACKOVERFLOW EXPR 0)
L1010:	intern L1010
 MOVE 2,L1008
 MOVE 1,SYMVAL+340
 HRRZI 12,150
 HRRZI 13,2
 PUSHJ 15,SYMFNC+150
 HRRZI 2,10
 MOVE 1,SYMVAL+340
 HRRZI 12,151
 HRRZI 13,2
 PUSHJ 15,SYMFNC+151
 HRRZI 12,338
 SETZM 13
 JRST SYMFNC+338
L1008:	<4_31>+L1009
;     (!*ENTRY BSTACKUNDERFLOW EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (QUOTE "***** Binding stack underflow, restarting...") (REG 2))
;          (MOVE (REG 2) (QUOTE "***** Binding stack underflow, restarting..."))
;     (!*MOVE (!$FLUID ERROUT!*) (REG 1))
;          (MOVE (REG 1) (!$FLUID ERROUT!*))
;     (!*LINK CHANNELPRIN2 EXPR 2)
;          (HRRZI (REG LINKREG) 150)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY CHANNELPRIN2))
;     (!*MOVE (WCONST 10) (REG 2))
;          (HRRZI (REG 2) 10)
;     (!*MOVE (!$FLUID ERROUT!*) (REG 1))
;          (MOVE (REG 1) (!$FLUID ERROUT!*))
;     (!*LINK CHANNELWRITECHAR EXPR 2)
;          (HRRZI (REG LINKREG) 151)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY CHANNELWRITECHAR))
;     (!*LINKE 0 RESET EXPR 0)
;          (HRRZI (REG LINKREG) 338)
;          (SETZM (REG NARGREG))
;          (JRST (ENTRY RESET))
L1012:	43
	byte(7)42,42,42,42,42,32,66,105,110,100,105,110,103,32,115,116,97,99,107,32,117,110,100,101,114,102,108,111,119,44,32,114,101,115,116,97,114,116,105,110,103,46,46,46,0
	0
; (!*ENTRY BSTACKUNDERFLOW EXPR 0)
L1013:	intern L1013
 MOVE 2,L1011
 MOVE 1,SYMVAL+340
 HRRZI 12,150
 HRRZI 13,2
 PUSHJ 15,SYMFNC+150
 HRRZI 2,10
 MOVE 1,SYMVAL+340
 HRRZI 12,151
 HRRZI 13,2
 PUSHJ 15,SYMFNC+151
 HRRZI 12,338
 SETZM 13
 JRST SYMFNC+338
L1011:	<4_31>+L1012
;     (!*ENTRY CAPTUREENVIRONMENT EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (WVAR BNDSTKPTR) (REG 1))
;          (MOVE (REG 1) (WVAR BNDSTKPTR))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
	0
; (!*ENTRY CAPTUREENVIRONMENT EXPR 0)
L1014:	intern L1014
 MOVE 1,L1007
 POPJ 15,0
;     (!*ENTRY RESTOREENVIRONMENT EXPR 1)
;     (!*ALLOC 0)
;     (!*MOVE (REG 1) (REG 5))
;          (MOVE (REG 5) (REG 1))
;     (!*JUMPWGEQ (LABEL G0004) (REG 1) (WVAR BNDSTKLOWERBOUND))
;          (CAML (REG 1) (WVAR BNDSTKLOWERBOUND))
;          (JRST (LABEL G0004))
;     (!*LINKE 0 BSTACKUNDERFLOW EXPR 0)
;          (HRRZI (REG LINKREG) 341)
;          (SETZM (REG NARGREG))
;          (JRST (ENTRY BSTACKUNDERFLOW))
;     (!*LBL (LABEL G0004))
;     (!*JUMPWLESSP (LABEL G0008) (REG 5) (WVAR BNDSTKPTR))
;          (CAMGE (REG 5) (WVAR BNDSTKPTR))
;          (JRST (LABEL G0008))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
;     (!*LBL (LABEL G0008))
;     (!*MOVE (MEMORY (WVAR BNDSTKPTR) (WCONST 0)) (REG 1))
;          (MOVE (REG 1) (INDIRECT (WVAR BNDSTKPTR)))
;     (!*MOVE (REG 1) (REG 4))
;          (MOVE (REG 4) (REG 1))
;     (!*MOVE (WVAR BNDSTKPTR) (REG 2))
;          (MOVE (REG 2) (WVAR BNDSTKPTR))
;     (!*MOVE (MEMORY (REG 2) (WCONST -1)) (REG 3))
;          (MOVE (REG 3) (INDEXED (REG 2) -1))
;     (!*MOVE (REG 1) (MEMORY (REG 3) (WCONST SYMVAL)))
;          (MOVEM (REG 1) (INDEXED (REG 3) (IMMEDIATE SYMVAL)))
;     (!*WPLUS2 (WVAR BNDSTKPTR) (WCONST -2))
;          (MOVNI (REG T2) (MINUS -2))
;          (ADDM (REG T2) (WVAR BNDSTKPTR))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
	1
; (!*ENTRY RESTOREENVIRONMENT EXPR 1)
L1015:	intern L1015
 MOVE 5,1
 CAML 1,L1005
 JRST L1016
 HRRZI 12,341
 SETZM 13
 JRST SYMFNC+341
L1016: CAMGE 5,L1007
 JRST L1017
 MOVE 1,0
 POPJ 15,0
L1017: MOVE 1,@L1007
 MOVE 4,1
 MOVE 2,L1007
 MOVE 3,-1(2)
 MOVEM 1,SYMVAL(3)
 MOVNI 7,2
 ADDM 7,L1007
 JRST L1016
;     (!*ENTRY CLEARBINDINGS EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (WVAR BNDSTKLOWERBOUND) (REG 1))
;          (MOVE (REG 1) (WVAR BNDSTKLOWERBOUND))
;     (!*LINK RESTOREENVIRONMENT EXPR 1)
;          (HRRZI (REG LINKREG) 343)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY RESTOREENVIRONMENT))
;     (!*LINKE 0 !%CLEAR!-CATCH!-STACK EXPR 0)
;          (HRRZI (REG LINKREG) 344)
;          (SETZM (REG NARGREG))
;          (JRST (ENTRY !%CLEAR!-CATCH!-STACK))
	0
; (!*ENTRY CLEARBINDINGS EXPR 0)
L1018:	intern L1018
 MOVE 1,L1005
 HRRZI 12,343
 HRRZI 13,1
 PUSHJ 15,SYMFNC+343
 HRRZI 12,344
 SETZM 13
 JRST SYMFNC+344
;     (!*ENTRY UNBINDN EXPR 1)
;     (!*ALLOC 0)
;     (!*WMINUS (REG 1) (REG 1))
;          (MOVNS (REG 1))
;     (!*WSHIFT (REG 1) (WCONST 1))
;          (LSH (REG 1) 1)
;     (!*WPLUS2 (REG 1) (WVAR BNDSTKPTR))
;          (ADD (REG 1) (WVAR BNDSTKPTR))
;     (!*LINKE 0 RESTOREENVIRONMENT EXPR 1)
;          (HRRZI (REG LINKREG) 343)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY RESTOREENVIRONMENT))
	1
; (!*ENTRY UNBINDN EXPR 1)
L1019:	intern L1019
 MOVNS 1
 LSH 1,1
 ADD 1,L1007
 HRRZI 12,343
 HRRZI 13,1
 JRST SYMFNC+343
;     (!*ENTRY LBIND1 EXPR 2)
;     (!*ALLOC 0)
;     (!*MOVE (REG 1) (REG 5))
;          (MOVE (REG 5) (REG 1))
;     (!*JUMPTYPE (LABEL G0004) (REG 1) ID)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;          (CAIN (REG T6) 30)
;          (JRST (LABEL G0004))
;     (!*MOVE (QUOTE "binding") (REG 2))
;          (MOVE (REG 2) (QUOTE "binding"))
;     (!*LINKE 0 NONIDERROR EXPR 2)
;          (HRRZI (REG LINKREG) 159)
;          (HRRZI (REG NARGREG) 2)
;          (JRST (ENTRY NONIDERROR))
;     (!*LBL (LABEL G0004))
;     (!*JUMPEQ (LABEL G0006) (REG 1) (QUOTE NIL))
;          (CAMN (REG 1) (REG NIL))
;          (JRST (LABEL G0006))
;     (!*JUMPNOTEQ (LABEL G0005) (REG 1) (QUOTE T))
;          (CAME (REG 1) (FLUID T))
;          (JRST (LABEL G0005))
;     (!*LBL (LABEL G0006))
;     (!*MOVE (QUOTE "T and NIL cannot be rebound") (REG 1))
;          (MOVE (REG 1) (QUOTE "T and NIL cannot be rebound"))
;     (!*LINKE 0 STDERROR EXPR 1)
;          (HRRZI (REG LINKREG) 158)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY STDERROR))
;     (!*LBL (LABEL G0005))
;     (!*WPLUS2 (WVAR BNDSTKPTR) (WCONST 2))
;          (HRRZI (REG T2) 2)
;          (ADDM (REG T2) (WVAR BNDSTKPTR))
;     (!*JUMPWGEQ (LABEL G0009) (WVAR BNDSTKUPPERBOUND) (WVAR BNDSTKPTR))
;          (MOVE (REG T1) (WVAR BNDSTKUPPERBOUND))
;          (CAML (REG T1) (WVAR BNDSTKPTR))
;          (JRST (LABEL G0009))
;     (!*LINKE 0 BSTACKOVERFLOW EXPR 0)
;          (HRRZI (REG LINKREG) 339)
;          (SETZM (REG NARGREG))
;          (JRST (ENTRY BSTACKOVERFLOW))
;     (!*LBL (LABEL G0009))
;     (!*FIELD (REG 1) (REG 1) (WCONST 18) (WCONST 18))
;          (HRRZ (REG 1) (REG 1))
;     (!*MOVE (REG 1) (REG 5))
;          (MOVE (REG 5) (REG 1))
;     (!*MOVE (WVAR BNDSTKPTR) (REG 4))
;          (MOVE (REG 4) (WVAR BNDSTKPTR))
;     (!*MOVE (REG 1) (MEMORY (REG 4) (WCONST -1)))
;          (MOVEM (REG 1) (INDEXED (REG 4) -1))
;     (!*MOVE (MEMORY (REG 1) (WCONST SYMVAL)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG 1) (IMMEDIATE SYMVAL)))
;     (!*MOVE (REG 1) (MEMORY (REG 4) (WCONST 0)))
;          (MOVEM (REG 1) (INDEXED (REG 4) 0))
;     (!*MOVE (REG 2) (MEMORY (REG 5) (WCONST SYMVAL)))
;          (MOVEM (REG 2) (INDEXED (REG 5) (IMMEDIATE SYMVAL)))
;     (!*MOVE (REG 2) (REG 1))
;          (MOVE (REG 1) (REG 2))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
;          (FULLWORD (FIELDPOINTER (REG 1) 0 5))
L1023:	26
	byte(7)84,32,97,110,100,32,78,73,76,32,99,97,110,110,111,116,32,98,101,32,114,101,98,111,117,110,100,0
L1024:	6
	byte(7)98,105,110,100,105,110,103,0
	2
; (!*ENTRY LBIND1 EXPR 2)
LBIND1:	intern LBIND1
 MOVE 5,1
 LDB 11,L1020
 CAIN 11,30
 JRST L1025
 MOVE 2,L1021
 HRRZI 12,159
 HRRZI 13,2
 JRST SYMFNC+159
L1025: CAMN 1,0
 JRST L1026
 CAME 1,SYMVAL+84
 JRST L1027
L1026: MOVE 1,L1022
 HRRZI 12,158
 HRRZI 13,1
 JRST SYMFNC+158
L1027: HRRZI 7,2
 ADDM 7,L1007
 MOVE 6,L1006
 CAML 6,L1007
 JRST L1028
 HRRZI 12,339
 SETZM 13
 JRST SYMFNC+339
L1028: HRRZ 1,1
 MOVE 5,1
 MOVE 4,L1007
 MOVEM 1,-1(4)
 MOVE 1,SYMVAL(1)
 MOVEM 1,0(4)
 MOVEM 2,SYMVAL(5)
 MOVE 1,2
 POPJ 15,0
L1020:	point 5,1,4
L1022:	<4_31>+L1023
L1021:	<4_31>+L1024
;     (!*ENTRY PBIND1 EXPR 1)
;     (!*ALLOC 0)
;     (!*MOVE (QUOTE NIL) (REG 2))
;          (MOVE (REG 2) (REG NIL))
;     (!*LINKE 0 LBIND1 EXPR 2)
;          (HRRZI (REG LINKREG) 257)
;          (HRRZI (REG NARGREG) 2)
;          (JRST (ENTRY LBIND1))
	1
; (!*ENTRY PBIND1 EXPR 1)
PBIND1:	intern PBIND1
 MOVE 2,0
 HRRZI 12,257
 HRRZI 13,2
 JRST SYMFNC+257
;     (!*ENTRY LAMBIND EXPR 1)
;     (!*ALLOC 3)
;          (ADJSP (REG ST) 3)
;     (!*FIELD (REG 1) (REG 1) (WCONST 18) (WCONST 18))
;          (HRRZ (REG 1) (REG 1))
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*SIGNEDFIELD (REG 2) (MEMORY (REG 1) (WCONST 0)) (WCONST 18) (WCONST 18))
;          (HRRE (REG 2) (INDEXED (REG 1) 0))
;     (!*MOVE (REG 2) (FRAME 2))
;          (MOVEM (REG 2) (INDEXED (REG ST) -1))
;     (!*MOVE (WCONST 0) (FRAME 3))
;          (SETZM (INDEXED (REG ST) -2))
;     (!*LBL (LABEL G0005))
;     (!*JUMPWGREATERP (LABEL G0004) (FRAME 3) (FRAME 2))
;          (MOVE (REG T1) (INDEXED (REG ST) -2))
;          (CAMLE (REG T1) (INDEXED (REG ST) -1))
;          (JRST (LABEL G0004))
;     (!*MOVE (FRAME 3) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) -2))
;     (!*WPLUS2 (REG 2) (!$FLUID LAMBINDARGS!*))
;          (ADD (REG 2) (!$FLUID LAMBINDARGS!*))
;     (!*MOVE (MEMORY (REG 2) (WCONST 0)) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG 2) 0))
;     (!*MOVE (FRAME 3) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -2))
;     (!*WPLUS2 (REG 1) (FRAME 1))
;          (ADD (REG 1) (INDEXED (REG ST) 0))
;     (!*MOVE (MEMORY (REG 1) (WCONST 1)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG 1) 1))
;     (!*LINK LBIND1 EXPR 2)
;          (HRRZI (REG LINKREG) 257)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY LBIND1))
;     (!*WPLUS2 (FRAME 3) (WCONST 1))
;          (AOS (INDEXED (REG ST) -2))
;     (!*JUMP (LABEL G0005))
;          (JRST (LABEL G0005))
;     (!*LBL (LABEL G0004))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 3)
;          (ADJSP (REG ST) (MINUS 3))
;          (POPJ (REG ST) 0)
	1
; (!*ENTRY LAMBIND EXPR 1)
L1029:	intern L1029
 ADJSP 15,3
 HRRZ 1,1
 MOVEM 1,0(15)
 HRRE 2,0(1)
 MOVEM 2,-1(15)
 SETZM -2(15)
L1030: MOVE 6,-2(15)
 CAMLE 6,-1(15)
 JRST L1031
 MOVE 2,-2(15)
 ADD 2,SYMVAL+166
 MOVE 2,0(2)
 MOVE 1,-2(15)
 ADD 1,0(15)
 MOVE 1,1(1)
 HRRZI 12,257
 HRRZI 13,2
 PUSHJ 15,SYMFNC+257
 AOS -2(15)
 JRST L1030
L1031: MOVE 1,0
 ADJSP 15,-3
 POPJ 15,0
;     (!*ENTRY PROGBIND EXPR 1)
;     (!*ALLOC 3)
;          (ADJSP (REG ST) 3)
;     (!*FIELD (REG 1) (REG 1) (WCONST 18) (WCONST 18))
;          (HRRZ (REG 1) (REG 1))
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*SIGNEDFIELD (REG 2) (MEMORY (REG 1) (WCONST 0)) (WCONST 18) (WCONST 18))
;          (HRRE (REG 2) (INDEXED (REG 1) 0))
;     (!*MOVE (REG 2) (FRAME 2))
;          (MOVEM (REG 2) (INDEXED (REG ST) -1))
;     (!*MOVE (WCONST 0) (FRAME 3))
;          (SETZM (INDEXED (REG ST) -2))
;     (!*LBL (LABEL G0005))
;     (!*JUMPWGREATERP (LABEL G0004) (FRAME 3) (FRAME 2))
;          (MOVE (REG T1) (INDEXED (REG ST) -2))
;          (CAMLE (REG T1) (INDEXED (REG ST) -1))
;          (JRST (LABEL G0004))
;     (!*MOVE (FRAME 3) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -2))
;     (!*WPLUS2 (REG 1) (FRAME 1))
;          (ADD (REG 1) (INDEXED (REG ST) 0))
;     (!*MOVE (MEMORY (REG 1) (WCONST 1)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG 1) 1))
;     (!*LINK PBIND1 EXPR 1)
;          (HRRZI (REG LINKREG) 346)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PBIND1))
;     (!*WPLUS2 (FRAME 3) (WCONST 1))
;          (AOS (INDEXED (REG ST) -2))
;     (!*JUMP (LABEL G0005))
;          (JRST (LABEL G0005))
;     (!*LBL (LABEL G0004))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*EXIT 3)
;          (ADJSP (REG ST) (MINUS 3))
;          (POPJ (REG ST) 0)
	1
; (!*ENTRY PROGBIND EXPR 1)
L1032:	intern L1032
 ADJSP 15,3
 HRRZ 1,1
 MOVEM 1,0(15)
 HRRE 2,0(1)
 MOVEM 2,-1(15)
 SETZM -2(15)
L1033: MOVE 6,-2(15)
 CAMLE 6,-1(15)
 JRST L1034
 MOVE 1,-2(15)
 ADD 1,0(15)
 MOVE 1,1(1)
 HRRZI 12,346
 HRRZI 13,1
 PUSHJ 15,SYMFNC+346
 AOS -2(15)
 JRST L1033
L1034: MOVE 1,0
 ADJSP 15,-3
 POPJ 15,0
;     (!*ENTRY GETD EXPR 1)
;     (!*PUSH (QUOTE NIL))
;          (PUSH (REG ST) (REG NIL))
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*JUMPTYPE (LABEL G0004) (REG 1) ID)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;          (CAIN (REG T6) 30)
;          (JRST (LABEL G0004))
;     (!*MOVE (QUOTE "*** Can only GETD off ID's: ") (REG 1))
;          (MOVE (REG 1) (QUOTE "*** Can only GETD off ID's: "))
;     (!*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 PRINT EXPR 1)
;          (HRRZI (REG LINKREG) 140)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRINT))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0004))
;     (!*LINK FUNBOUNDP EXPR 1)
;          (HRRZI (REG LINKREG) 231)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY FUNBOUNDP))
;     (!*JUMPEQ (LABEL G0008) (REG 1) (QUOTE NIL))
;          (CAMN (REG 1) (REG NIL))
;          (JRST (LABEL G0008))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0008))
;     (!*MOVE (QUOTE FTYPE) (REG 2))
;          (MOVE (REG 2) (QUOTE FTYPE))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK GET EXPR 2)
;          (HRRZI (REG LINKREG) 258)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY GET))
;     (!*MOVE (REG 1) (REG 2))
;          (MOVE (REG 2) (REG 1))
;     (!*MOVE (REG 2) (FRAME 2))
;          (MOVEM (REG 2) (INDEXED (REG ST) -1))
;     (!*JUMPNOTEQ (LABEL G0014) (REG 2) (QUOTE NIL))
;          (CAME (REG 2) (REG NIL))
;          (JRST (LABEL G0014))
;     (!*MOVE (QUOTE EXPR) (FRAME 2))
;          (MOVE (REG T1) (QUOTE EXPR))
;          (MOVEM (REG T1) (INDEXED (REG ST) -1))
;     (!*LBL (LABEL G0014))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK FCODEP EXPR 1)
;          (HRRZI (REG LINKREG) 237)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY FCODEP))
;     (!*JUMPEQ (LABEL G0018) (REG 1) (QUOTE NIL))
;          (CAMN (REG 1) (REG NIL))
;          (JRST (LABEL G0018))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK GETFCODEPOINTER EXPR 1)
;          (HRRZI (REG LINKREG) 239)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY GETFCODEPOINTER))
;     (!*MOVE (FRAME 2) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) -1))
;     (!*LINKE 2 XCONS EXPR 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (HRRZI (REG LINKREG) 180)
;          (HRRZI (REG NARGREG) 2)
;          (JRST (ENTRY XCONS))
;     (!*LBL (LABEL G0018))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK FLAMBDALINKP EXPR 1)
;          (HRRZI (REG LINKREG) 234)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY FLAMBDALINKP))
;     (!*JUMPEQ (LABEL G0024) (REG 1) (QUOTE NIL))
;          (CAMN (REG 1) (REG NIL))
;          (JRST (LABEL G0024))
;     (!*MOVE (QUOTE !*LAMBDALINK) (REG 2))
;          (MOVE (REG 2) (QUOTE !*LAMBDALINK))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK GET EXPR 2)
;          (HRRZI (REG LINKREG) 258)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY GET))
;     (!*MOVE (FRAME 2) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) -1))
;     (!*LINKE 2 XCONS EXPR 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (HRRZI (REG LINKREG) 180)
;          (HRRZI (REG NARGREG) 2)
;          (JRST (ENTRY XCONS))
;     (!*LBL (LABEL G0024))
;     (!*MOVE (QUOTE "*** GETD should find a LAMBDA or CODE") (REG 1))
;          (MOVE (REG 1) (QUOTE "*** GETD should find a LAMBDA or CODE"))
;     (!*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 PRINT EXPR 1)
;          (HRRZI (REG LINKREG) 140)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRINT))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 2)
;          (ADJSP (REG ST) (MINUS 2))
;          (POPJ (REG ST) 0)
;          (FULLWORD (FIELDPOINTER (REG 1) 0 5))
L1041:	36
	byte(7)42,42,42,32,71,69,84,68,32,115,104,111,117,108,100,32,102,105,110,100,32,97,32,76,65,77,66,68,65,32,111,114,32,67,79,68,69,0
L1042:	27
	byte(7)42,42,42,32,67,97,110,32,111,110,108,121,32,71,69,84,68,32,111,102,102,32,73,68,39,115,58,32,0
	1
; (!*ENTRY GETD EXPR 1)
GETD:	intern GETD
 PUSH 15,0
 PUSH 15,1
 LDB 11,L1035
 CAIN 11,30
 JRST L1043
 MOVE 1,L1036
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,0(15)
 HRRZI 12,140
 HRRZI 13,1
 PUSHJ 15,SYMFNC+140
 MOVE 1,0
 JRST L1044
L1043: HRRZI 12,231
 HRRZI 13,1
 PUSHJ 15,SYMFNC+231
 CAMN 1,0
 JRST L1045
 MOVE 1,0
 JRST L1044
L1045: MOVE 2,L1037
 MOVE 1,0(15)
 HRRZI 12,258
 HRRZI 13,2
 PUSHJ 15,SYMFNC+258
 MOVE 2,1
 MOVEM 2,-1(15)
 CAME 2,0
 JRST L1046
 MOVE 6,L1038
 MOVEM 6,-1(15)
L1046: MOVE 1,0(15)
 HRRZI 12,237
 HRRZI 13,1
 PUSHJ 15,SYMFNC+237
 CAMN 1,0
 JRST L1047
 MOVE 1,0(15)
 HRRZI 12,239
 HRRZI 13,1
 PUSHJ 15,SYMFNC+239
 MOVE 2,-1(15)
 ADJSP 15,-2
 HRRZI 12,180
 HRRZI 13,2
 JRST SYMFNC+180
L1047: MOVE 1,0(15)
 HRRZI 12,234
 HRRZI 13,1
 PUSHJ 15,SYMFNC+234
 CAMN 1,0
 JRST L1048
 MOVE 2,L1039
 MOVE 1,0(15)
 HRRZI 12,258
 HRRZI 13,2
 PUSHJ 15,SYMFNC+258
 MOVE 2,-1(15)
 ADJSP 15,-2
 HRRZI 12,180
 HRRZI 13,2
 JRST SYMFNC+180
L1048: MOVE 1,L1040
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,0(15)
 HRRZI 12,140
 HRRZI 13,1
 PUSHJ 15,SYMFNC+140
 MOVE 1,0
L1044: ADJSP 15,-2
 POPJ 15,0
L1035:	point 5,1,4
L1040:	<4_31>+L1041
L1039:	<30_31>+260
L1038:	<30_31>+293
L1037:	<30_31>+311
L1036:	<4_31>+L1042
;     (!*ENTRY PUTD 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))
;     (!*JUMPTYPE (LABEL G0004) (REG 1) ID)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;          (CAIN (REG T6) 30)
;          (JRST (LABEL G0004))
;     (!*MOVE (QUOTE "*** Can only define ID's as functions: ") (REG 1))
;          (MOVE (REG 1) (QUOTE "*** Can only define ID's as functions: "))
;     (!*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 PRINT EXPR 1)
;          (HRRZI (REG LINKREG) 140)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRINT))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0004))
;     (!*LINK FCODEP EXPR 1)
;          (HRRZI (REG LINKREG) 237)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY FCODEP))
;     (!*JUMPEQ (LABEL G0009) (REG 1) (QUOTE NIL))
;          (CAMN (REG 1) (REG NIL))
;          (JRST (LABEL G0009))
;     (!*MOVE (QUOTE "*** Redefining a COMPILED function: ") (REG 1))
;          (MOVE (REG 1) (QUOTE "*** Redefining a COMPILED 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 PRINT EXPR 1)
;          (HRRZI (REG LINKREG) 140)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRINT))
;     (!*JUMP (LABEL G0008))
;          (JRST (LABEL G0008))
;     (!*LBL (LABEL G0009))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK FUNBOUNDP EXPR 1)
;          (HRRZI (REG LINKREG) 231)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY FUNBOUNDP))
;     (!*JUMPNOTEQ (LABEL G0008) (REG 1) (QUOTE NIL))
;          (CAME (REG 1) (REG NIL))
;          (JRST (LABEL G0008))
;     (!*MOVE (QUOTE " Redefining function ") (REG 1))
;          (MOVE (REG 1) (QUOTE " Redefining 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 PRINT EXPR 1)
;          (HRRZI (REG LINKREG) 140)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRINT))
;     (!*LBL (LABEL G0008))
;     (!*MOVE (QUOTE !*LAMBDALINK) (REG 2))
;          (MOVE (REG 2) (QUOTE !*LAMBDALINK))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK REMPROP EXPR 2)
;          (HRRZI (REG LINKREG) 334)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY REMPROP))
;     (!*MOVE (QUOTE FTYPE) (REG 2))
;          (MOVE (REG 2) (QUOTE FTYPE))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK REMPROP EXPR 2)
;          (HRRZI (REG LINKREG) 334)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY REMPROP))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK MAKEFUNBOUND EXPR 1)
;          (HRRZI (REG LINKREG) 217)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY MAKEFUNBOUND))
;     (!*MOVE (FRAME 3) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -2))
;     (!*LINK LAMBDAP EXPR 1)
;          (HRRZI (REG LINKREG) 312)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY LAMBDAP))
;     (!*JUMPEQ (LABEL G0017) (REG 1) (QUOTE NIL))
;          (CAMN (REG 1) (REG NIL))
;          (JRST (LABEL G0017))
;     (!*MOVE (FRAME 3) (REG 3))
;          (MOVE (REG 3) (INDEXED (REG ST) -2))
;     (!*MOVE (QUOTE !*LAMBDALINK) (REG 2))
;          (MOVE (REG 2) (QUOTE !*LAMBDALINK))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK PUT EXPR 3)
;          (HRRZI (REG LINKREG) 308)
;          (HRRZI (REG NARGREG) 3)
;          (PUSHJ (REG ST) (ENTRY PUT))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK MAKEFLAMBDALINK EXPR 1)
;          (HRRZI (REG LINKREG) 236)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY MAKEFLAMBDALINK))
;     (!*JUMP (LABEL G0016))
;          (JRST (LABEL G0016))
;     (!*LBL (LABEL G0017))
;     (!*JUMPNOTTYPE (LABEL G0019) (FRAME 3) CODE)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (INDEXED (REG ST) -2) 0 5))))
;          (CAIE (REG T6) 15)
;          (JRST (LABEL G0019))
;     (!*MOVE (FRAME 3) (REG 2))
;          (MOVE (REG 2) (INDEXED (REG ST) -2))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK MAKEFCODE EXPR 2)
;          (HRRZI (REG LINKREG) 238)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY MAKEFCODE))
;     (!*JUMP (LABEL G0016))
;          (JRST (LABEL G0016))
;     (!*LBL (LABEL G0019))
;     (!*MOVE (QUOTE "*** Body must be a LAMBDA or CODE") (REG 1))
;          (MOVE (REG 1) (QUOTE "*** Body must be a LAMBDA or CODE"))
;     (!*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 " ") (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 3) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) -2))
;     (!*LINK PRINT EXPR 1)
;          (HRRZI (REG LINKREG) 140)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRINT))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0016))
;     (!*JUMPEQ (LABEL G0022) (FRAME 2) (QUOTE EXPR))
;          (MOVE (REG T1) (INDEXED (REG ST) -1))
;          (CAMN (REG T1) (QUOTE EXPR))
;          (JRST (LABEL G0022))
;     (!*MOVE (FRAME 2) (REG 3))
;          (MOVE (REG 3) (INDEXED (REG ST) -1))
;     (!*MOVE (QUOTE FTYPE) (REG 2))
;          (MOVE (REG 2) (QUOTE FTYPE))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK PUT EXPR 3)
;          (HRRZI (REG LINKREG) 308)
;          (HRRZI (REG NARGREG) 3)
;          (PUSHJ (REG ST) (ENTRY PUT))
;     (!*LBL (LABEL G0022))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 3)
;          (ADJSP (REG ST) (MINUS 3))
;          (POPJ (REG ST) 0)
;          (FULLWORD (FIELDPOINTER (REG 1) 0 5))
;          (FULLWORD (FIELDPOINTER (INDEXED (REG ST) -2) 0 5))
L1059:	0
	byte(7)32,0
L1060:	32
	byte(7)42,42,42,32,66,111,100,121,32,109,117,115,116,32,98,101,32,97,32,76,65,77,66,68,65,32,111,114,32,67,79,68,69,0
L1061:	20
	byte(7)32,82,101,100,101,102,105,110,105,110,103,32,102,117,110,99,116,105,111,110,32,0
L1062:	35
	byte(7)42,42,42,32,82,101,100,101,102,105,110,105,110,103,32,97,32,67,79,77,80,73,76,69,68,32,102,117,110,99,116,105,111,110,58,32,0
L1063:	38
	byte(7)42,42,42,32,67,97,110,32,111,110,108,121,32,100,101,102,105,110,101,32,73,68,39,115,32,97,115,32,102,117,110,99,116,105,111,110,115,58,32,0
	3
; (!*ENTRY PUTD EXPR 3)
PUTD:	intern PUTD
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 LDB 11,L1049
 CAIN 11,30
 JRST L1064
 MOVE 1,L1050
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,0(15)
 HRRZI 12,140
 HRRZI 13,1
 PUSHJ 15,SYMFNC+140
 MOVE 1,0
 JRST L1065
L1064: HRRZI 12,237
 HRRZI 13,1
 PUSHJ 15,SYMFNC+237
 CAMN 1,0
 JRST L1066
 MOVE 1,L1051
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,0(15)
 HRRZI 12,140
 HRRZI 13,1
 PUSHJ 15,SYMFNC+140
 JRST L1067
L1066: MOVE 1,0(15)
 HRRZI 12,231
 HRRZI 13,1
 PUSHJ 15,SYMFNC+231
 CAME 1,0
 JRST L1067
 MOVE 1,L1052
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,0(15)
 HRRZI 12,140
 HRRZI 13,1
 PUSHJ 15,SYMFNC+140
L1067: MOVE 2,L1053
 MOVE 1,0(15)
 HRRZI 12,334
 HRRZI 13,2
 PUSHJ 15,SYMFNC+334
 MOVE 2,L1054
 MOVE 1,0(15)
 HRRZI 12,334
 HRRZI 13,2
 PUSHJ 15,SYMFNC+334
 MOVE 1,0(15)
 HRRZI 12,217
 HRRZI 13,1
 PUSHJ 15,SYMFNC+217
 MOVE 1,-2(15)
 HRRZI 12,312
 HRRZI 13,1
 PUSHJ 15,SYMFNC+312
 CAMN 1,0
 JRST L1068
 MOVE 3,-2(15)
 MOVE 2,L1053
 MOVE 1,0(15)
 HRRZI 12,308
 HRRZI 13,3
 PUSHJ 15,SYMFNC+308
 MOVE 1,0(15)
 HRRZI 12,236
 HRRZI 13,1
 PUSHJ 15,SYMFNC+236
 JRST L1069
L1068: LDB 11,L1055
 CAIE 11,15
 JRST L1070
 MOVE 2,-2(15)
 MOVE 1,0(15)
 HRRZI 12,238
 HRRZI 13,2
 PUSHJ 15,SYMFNC+238
 JRST L1069
L1070: MOVE 1,L1056
 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,L1057
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,-2(15)
 HRRZI 12,140
 HRRZI 13,1
 PUSHJ 15,SYMFNC+140
 MOVE 1,0
 JRST L1065
L1069: MOVE 6,-1(15)
 CAMN 6,L1058
 JRST L1071
 MOVE 3,-1(15)
 MOVE 2,L1054
 MOVE 1,0(15)
 HRRZI 12,308
 HRRZI 13,3
 PUSHJ 15,SYMFNC+308
L1071: MOVE 1,0(15)
L1065: ADJSP 15,-3
 POPJ 15,0
L1049:	point 5,1,4
L1055:	point 5,-2(15),4
L1058:	<30_31>+293
L1057:	<4_31>+L1059
L1056:	<4_31>+L1060
L1054:	<30_31>+311
L1053:	<30_31>+260
L1052:	<4_31>+L1061
L1051:	<4_31>+L1062
L1050:	<4_31>+L1063
;     (!*ENTRY RESET EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (QUOTE "Should RESET here, but will QUIT") (REG 1))
;          (MOVE (REG 1) (QUOTE "Should RESET here, but will QUIT"))
;     (!*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 0)
;          (POPJ (REG ST) 0)
L1073:	31
	byte(7)83,104,111,117,108,100,32,82,69,83,69,84,32,104,101,114,101,44,32,98,117,116,32,119,105,108,108,32,81,85,73,84,0
	0
; (!*ENTRY RESET EXPR 0)
RESET:	intern RESET
 MOVE 1,L1072
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 HRRZI 12,148
 SETZM 13
 PUSHJ 15,SYMFNC+148
 MOVE 1,0
 POPJ 15,0
L1072:	<4_31>+L1073
	end