File psl-1983/20-tests/sub2.mac artifact 615876b770 part of check-in 3af273af29


	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
;     (!*ENTRY CHANNELWRITECHAR EXPR 2)
;     (!*ALLOC 0)
;     (!*MOVE (REG 2) (REG 1))
;          (MOVE (REG 1) (REG 2))
;     (!*LINKE 0 PUTC EXPR 1)
;          (HRRZI (REG LINKREG) 142)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PUTC))
	2
; (!*ENTRY CHANNELWRITECHAR EXPR 2)
L0094:	intern L0094
 MOVE 1,2
 HRRZI 12,142
 HRRZI 13,1
 JRST SYMFNC+142
;     (!*ENTRY WRITECHAR EXPR 1)
;     (!*ALLOC 0)
;     (!*MOVE (REG 1) (REG 2))
;          (MOVE (REG 2) (REG 1))
;     (!*MOVE (!$GLOBAL OUT!*) (REG 1))
;          (MOVE (REG 1) (!$GLOBAL OUT!*))
;     (!*LINKE 0 INDEPENDENTWRITECHAR EXPR 2)
;          (HRRZI (REG LINKREG) 152)
;          (HRRZI (REG NARGREG) 2)
;          (JRST (ENTRY INDEPENDENTWRITECHAR))
	1
; (!*ENTRY WRITECHAR EXPR 1)
L0095:	intern L0095
 MOVE 2,1
 MOVE 1,SYMVAL+154
 HRRZI 12,152
 HRRZI 13,2
 JRST SYMFNC+152
;     (!*ENTRY PRIN1 EXPR 1)
;     (!*ALLOC 0)
;     (!*JUMPNOTTYPE (LABEL G0004) (REG 1) ID)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;          (CAIE (REG T6) 30)
;          (JRST (LABEL G0004))
;     (!*LINKE 0 PRIN1ID EXPR 1)
;          (HRRZI (REG LINKREG) 129)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRIN1ID))
;     (!*LBL (LABEL G0004))
;     (!*JUMPNOTINTYPE (LABEL G0005) (REG 1) POSINT)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;          (CAIN (REG T6) 31)
;          (JRST "L0108")
;          (CAILE (REG T6) 0)
;          (JRST (LABEL G0005))
;     (!*LINKE 0 PRIN1INT EXPR 1)
;          (HRRZI (REG LINKREG) 130)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRIN1INT))
;     (!*LBL (LABEL G0005))
;     (!*JUMPNOTTYPE (LABEL G0006) (REG 1) STR)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;          (CAIE (REG T6) 4)
;          (JRST (LABEL G0006))
;     (!*LINKE 0 PRIN1STRING EXPR 1)
;          (HRRZI (REG LINKREG) 131)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRIN1STRING))
;     (!*LBL (LABEL G0006))
;     (!*JUMPNOTTYPE (LABEL G0007) (REG 1) PAIR)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;          (CAIE (REG T6) 9)
;          (JRST (LABEL G0007))
;     (!*LINKE 0 PRIN1PAIR EXPR 1)
;          (HRRZI (REG LINKREG) 132)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRIN1PAIR))
;     (!*LBL (LABEL G0007))
;     (!*LINKE 0 PRTITM EXPR 1)
;          (HRRZI (REG LINKREG) 133)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRTITM))
;          (FULLWORD (FIELDPOINTER (REG 1) 0 5))
	1
; (!*ENTRY PRIN1 EXPR 1)
PRIN1:	intern PRIN1
 LDB 11,L0107
 CAIE 11,30
 JRST L0109
 HRRZI 12,129
 HRRZI 13,1
 JRST SYMFNC+129
L0109: LDB 11,L0107
 CAIN 11,31
 JRST L0108
 CAILE 11,0
 JRST L0110
L0108: HRRZI 12,130
 HRRZI 13,1
 JRST SYMFNC+130
L0110: LDB 11,L0107
 CAIE 11,4
 JRST L0111
 HRRZI 12,131
 HRRZI 13,1
 JRST SYMFNC+131
L0111: LDB 11,L0107
 CAIE 11,9
 JRST L0112
 HRRZI 12,132
 HRRZI 13,1
 JRST SYMFNC+132
L0112: HRRZI 12,133
 HRRZI 13,1
 JRST SYMFNC+133
L0107:	point 5,1,4
;     (!*ENTRY PRIN2 EXPR 1)
;     (!*ALLOC 0)
;     (!*JUMPNOTTYPE (LABEL G0004) (REG 1) ID)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;          (CAIE (REG T6) 30)
;          (JRST (LABEL G0004))
;     (!*LINKE 0 PRIN2ID EXPR 1)
;          (HRRZI (REG LINKREG) 135)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRIN2ID))
;     (!*LBL (LABEL G0004))
;     (!*JUMPNOTINTYPE (LABEL G0005) (REG 1) POSINT)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;          (CAIN (REG T6) 31)
;          (JRST "L0114")
;          (CAILE (REG T6) 0)
;          (JRST (LABEL G0005))
;     (!*LINKE 0 PRIN1INT EXPR 1)
;          (HRRZI (REG LINKREG) 130)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRIN1INT))
;     (!*LBL (LABEL G0005))
;     (!*JUMPNOTTYPE (LABEL G0006) (REG 1) STR)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;          (CAIE (REG T6) 4)
;          (JRST (LABEL G0006))
;     (!*LINKE 0 PRIN2STRING EXPR 1)
;          (HRRZI (REG LINKREG) 136)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRIN2STRING))
;     (!*LBL (LABEL G0006))
;     (!*JUMPNOTTYPE (LABEL G0007) (REG 1) PAIR)
;          (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
;          (CAIE (REG T6) 9)
;          (JRST (LABEL G0007))
;     (!*LINKE 0 PRIN2PAIR EXPR 1)
;          (HRRZI (REG LINKREG) 137)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRIN2PAIR))
;     (!*LBL (LABEL G0007))
;     (!*LINKE 0 PRTITM EXPR 1)
;          (HRRZI (REG LINKREG) 133)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRTITM))
;          (FULLWORD (FIELDPOINTER (REG 1) 0 5))
	1
; (!*ENTRY PRIN2 EXPR 1)
PRIN2:	intern PRIN2
 LDB 11,L0113
 CAIE 11,30
 JRST L0115
 HRRZI 12,135
 HRRZI 13,1
 JRST SYMFNC+135
L0115: LDB 11,L0113
 CAIN 11,31
 JRST L0114
 CAILE 11,0
 JRST L0116
L0114: HRRZI 12,130
 HRRZI 13,1
 JRST SYMFNC+130
L0116: LDB 11,L0113
 CAIE 11,4
 JRST L0117
 HRRZI 12,136
 HRRZI 13,1
 JRST SYMFNC+136
L0117: LDB 11,L0113
 CAIE 11,9
 JRST L0118
 HRRZI 12,137
 HRRZI 13,1
 JRST SYMFNC+137
L0118: HRRZI 12,133
 HRRZI 13,1
 JRST SYMFNC+133
L0113:	point 5,1,4
;     (!*ENTRY PRINT EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LINK PRIN1 EXPR 1)
;          (HRRZI (REG LINKREG) 134)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN1))
;     (!*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))
;     (!*EXIT 1)
;          (ADJSP (REG ST) (MINUS 1))
;          (POPJ (REG ST) 0)
	1
; (!*ENTRY PRINT EXPR 1)
PRINT:	intern PRINT
 PUSH 15,1
 HRRZI 12,134
 HRRZI 13,1
 PUSHJ 15,SYMFNC+134
 HRRZI 12,139
 SETZM 13
 PUSHJ 15,SYMFNC+139
 MOVE 1,0(15)
 ADJSP 15,-1
 POPJ 15,0
;     (!*ENTRY PRIN2T EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*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))
;     (!*EXIT 1)
;          (ADJSP (REG ST) (MINUS 1))
;          (POPJ (REG ST) 0)
	1
; (!*ENTRY PRIN2T EXPR 1)
PRIN2T:	intern PRIN2T
 PUSH 15,1
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 HRRZI 12,139
 SETZM 13
 PUSHJ 15,SYMFNC+139
 MOVE 1,0(15)
 ADJSP 15,-1
 POPJ 15,0
;     (!*ENTRY PBLANK EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (WCONST 32) (REG 1))
;          (HRRZI (REG 1) 32)
;     (!*LINKE 0 PUTC EXPR 1)
;          (HRRZI (REG LINKREG) 142)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PUTC))
	0
; (!*ENTRY PBLANK EXPR 0)
PBLANK:	intern PBLANK
 HRRZI 1,32
 HRRZI 12,142
 HRRZI 13,1
 JRST SYMFNC+142
;     (!*ENTRY PRIN1INT EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*JUMPNOTEQ (LABEL G0004) (REG 1) (WCONST 0))
;          (JUMPN (REG 1) (LABEL G0004))
;     (!*MOVE (WCONST 48) (REG 1))
;          (HRRZI (REG 1) 48)
;     (!*LINK PUTC EXPR 1)
;          (HRRZI (REG LINKREG) 142)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PUTC))
;     (!*JUMP (LABEL G0003))
;          (JRST (LABEL G0003))
;     (!*LBL (LABEL G0004))
;     (!*JUMPWGEQ (LABEL G0005) (REG 1) (WCONST 0))
;          (JUMPGE (REG 1) (LABEL G0005))
;     (!*MOVE (WCONST 45) (REG 1))
;          (HRRZI (REG 1) 45)
;     (!*LINK PUTC EXPR 1)
;          (HRRZI (REG LINKREG) 142)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PUTC))
;     (!*WMINUS (REG 1) (FRAME 1))
;          (MOVN (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK PRIN1INT EXPR 1)
;          (HRRZI (REG LINKREG) 130)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (INTERNALENTRY PRIN1INT))
;     (!*JUMP (LABEL G0003))
;          (JRST (LABEL G0003))
;     (!*LBL (LABEL G0005))
;     (!*LINK PRIN1INTX EXPR 1)
;          (HRRZI (REG LINKREG) 144)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN1INTX))
;     (!*LBL (LABEL G0003))
;     (!*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 PRIN1INT EXPR 1)
L0017:	intern L0017
 PUSH 15,1
 JUMPN 1,L0119
 HRRZI 1,48
 HRRZI 12,142
 HRRZI 13,1
 PUSHJ 15,SYMFNC+142
 JRST L0120
L0119: JUMPGE 1,L0121
 HRRZI 1,45
 HRRZI 12,142
 HRRZI 13,1
 PUSHJ 15,SYMFNC+142
 MOVN 1,0(15)
 HRRZI 12,130
 HRRZI 13,1
 PUSHJ 15,L0017
 JRST L0120
L0121: HRRZI 12,144
 HRRZI 13,1
 PUSHJ 15,SYMFNC+144
L0120: MOVE 1,0(15)
 ADJSP 15,-1
 POPJ 15,0
;     (!*ENTRY PRIN1INTX EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*JUMPNOTEQ (LABEL G0004) (REG 1) (WCONST 0))
;          (JUMPN (REG 1) (LABEL G0004))
;     (!*MOVE (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0001))
;          (JRST (LABEL G0001))
;     (!*LBL (LABEL G0004))
;     (!*MOVE (WCONST 10) (REG 2))
;          (HRRZI (REG 2) 10)
;     (!*LINK LONGDIV EXPR 2)
;          (HRRZI (REG LINKREG) 145)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY LONGDIV))
;     (!*LINK PRIN1INTX EXPR 1)
;          (HRRZI (REG LINKREG) 144)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (INTERNALENTRY PRIN1INTX))
;     (!*MOVE (WCONST 10) (REG 2))
;          (HRRZI (REG 2) 10)
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK LONGREMAINDER EXPR 2)
;          (HRRZI (REG LINKREG) 146)
;          (HRRZI (REG NARGREG) 2)
;          (PUSHJ (REG ST) (ENTRY LONGREMAINDER))
;     (!*WPLUS2 (REG 1) (WCONST 48))
;          (ADDI (REG 1) 48)
;     (!*LINKE 1 PUTC EXPR 1)
;          (ADJSP (REG ST) (MINUS 1))
;          (HRRZI (REG LINKREG) 142)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PUTC))
;     (!*LBL (LABEL G0001))
;     (!*EXIT 1)
;          (ADJSP (REG ST) (MINUS 1))
;          (POPJ (REG ST) 0)
	1
; (!*ENTRY PRIN1INTX EXPR 1)
L0021:	intern L0021
 PUSH 15,1
 JUMPN 1,L0122
 MOVE 1,0
 JRST L0123
L0122: HRRZI 2,10
 HRRZI 12,145
 HRRZI 13,2
 PUSHJ 15,SYMFNC+145
 HRRZI 12,144
 HRRZI 13,1
 PUSHJ 15,L0021
 HRRZI 2,10
 MOVE 1,0(15)
 HRRZI 12,146
 HRRZI 13,2
 PUSHJ 15,SYMFNC+146
 ADDI 1,48
 ADJSP 15,-1
 HRRZI 12,142
 HRRZI 13,1
 JRST SYMFNC+142
L0123: ADJSP 15,-1
 POPJ 15,0
;     (!*ENTRY PRIN1ID EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*FIELD (REG 1) (REG 1) (WCONST 18) (WCONST 18))
;          (HRRZ (REG 1) (REG 1))
;     (!*MOVE (MEMORY (REG 1) (WCONST SYMNAM)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG 1) (IMMEDIATE SYMNAM)))
;     (!*LINK PRIN2STRING EXPR 1)
;          (HRRZI (REG LINKREG) 136)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2STRING))
;     (!*LINK PBLANK EXPR 0)
;          (HRRZI (REG LINKREG) 143)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY PBLANK))
;     (!*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 PRIN1ID EXPR 1)
L0024:	intern L0024
 PUSH 15,1
 HRRZ 1,1
 MOVE 1,SYMNAM(1)
 HRRZI 12,136
 HRRZI 13,1
 PUSHJ 15,SYMFNC+136
 HRRZI 12,143
 SETZM 13
 PUSHJ 15,SYMFNC+143
 MOVE 1,0(15)
 ADJSP 15,-1
 POPJ 15,0
;     (!*ENTRY PRIN2ID EXPR 1)
;     (!*ALLOC 0)
;     (!*LINKE 0 PRIN1ID EXPR 1)
;          (HRRZI (REG LINKREG) 129)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRIN1ID))
	1
; (!*ENTRY PRIN2ID EXPR 1)
L0025:	intern L0025
 HRRZI 12,129
 HRRZI 13,1
 JRST SYMFNC+129
;     (!*ENTRY PRIN1STRING EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*MOVE (WCONST 34) (REG 1))
;          (HRRZI (REG 1) 34)
;     (!*LINK PUTC EXPR 1)
;          (HRRZI (REG LINKREG) 142)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PUTC))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK PRIN2STRING EXPR 1)
;          (HRRZI (REG LINKREG) 136)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2STRING))
;     (!*MOVE (WCONST 34) (REG 1))
;          (HRRZI (REG 1) 34)
;     (!*LINK PUTC EXPR 1)
;          (HRRZI (REG LINKREG) 142)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PUTC))
;     (!*LINK PBLANK EXPR 0)
;          (HRRZI (REG LINKREG) 143)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY PBLANK))
;     (!*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 PRIN1STRING EXPR 1)
L0026:	intern L0026
 PUSH 15,1
 HRRZI 1,34
 HRRZI 12,142
 HRRZI 13,1
 PUSHJ 15,SYMFNC+142
 MOVE 1,0(15)
 HRRZI 12,136
 HRRZI 13,1
 PUSHJ 15,SYMFNC+136
 HRRZI 1,34
 HRRZI 12,142
 HRRZI 13,1
 PUSHJ 15,SYMFNC+142
 HRRZI 12,143
 SETZM 13
 PUSHJ 15,SYMFNC+143
 MOVE 1,0(15)
 ADJSP 15,-1
 POPJ 15,0
;     (!*ENTRY PRIN2STRING EXPR 1)
;     (!*ALLOC 3)
;          (ADJSP (REG ST) 3)
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*FIELD (REG 2) (REG 1) (WCONST 18) (WCONST 18))
;          (HRRZ (REG 2) (REG 1))
;     (!*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))
;     (!*SIGNEDFIELD (REG 1) (MEMORY (FRAME 2) (WCONST 0)) (WCONST 18) (WCONST 18))
;          (HRRE (REG 1) (INDIRECT (INDEXED (REG ST) -1)))
;     (!*JUMPWGREATERP (LABEL G0004) (FRAME 3) (REG 1))
;          (CAMGE (REG 1) (INDEXED (REG ST) -2))
;          (JRST (LABEL G0004))
;     (!*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))
;          (AOS (REG 1))
;     (!*LINK BYTE EXPR 2)
;          (HRRZI (REG LINKREG) 147)
;          (HRRZI (REG NARGREG) 2)
;          (ADJBP (REG 2) (LIT (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7))))
;          (LDB (REG 1) (REG 2))
;     (!*LINK PUTC EXPR 1)
;          (HRRZI (REG LINKREG) 142)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PUTC))
;     (!*WPLUS2 (FRAME 3) (WCONST 1))
;          (AOS (INDEXED (REG ST) -2))
;     (!*JUMP (LABEL G0005))
;          (JRST (LABEL G0005))
;     (!*LBL (LABEL G0004))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*EXIT 3)
;          (ADJSP (REG ST) (MINUS 3))
;          (POPJ (REG ST) 0)
;          (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7))
	1
; (!*ENTRY PRIN2STRING EXPR 1)
L0028:	intern L0028
 ADJSP 15,3
 MOVEM 1,0(15)
 HRRZ 2,1
 MOVEM 2,-1(15)
 SETZM -2(15)
L0125: HRRE 1,@-1(15)
 CAMGE 1,-2(15)
 JRST L0126
 MOVE 2,-2(15)
 MOVE 1,-1(15)
 AOS 1
 HRRZI 12,147
 HRRZI 13,2
 ADJBP 2,L0124
 LDB 1,2
 HRRZI 12,142
 HRRZI 13,1
 PUSHJ 15,SYMFNC+142
 AOS -2(15)
 JRST L0125
L0126: MOVE 1,0(15)
 ADJSP 15,-3
 POPJ 15,0
L0124:	point 7,0(1),6
;     (!*ENTRY PRIN1PAIR EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*MOVE (WCONST 40) (REG 1))
;          (HRRZI (REG 1) 40)
;     (!*LINK PUTC EXPR 1)
;          (HRRZI (REG LINKREG) 142)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PUTC))
;     (!*MOVE (CAR (FRAME 1)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;          (MOVE (REG 1) (INDEXED (REG 1) 0))
;     (!*LINK PRIN1 EXPR 1)
;          (HRRZI (REG LINKREG) 134)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN1))
;     (!*MOVE (CDR (FRAME 1)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;          (MOVE (REG 1) (INDEXED (REG 1) 1))
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*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 (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0003))
;          (JRST (LABEL G0003))
;     (!*LBL (LABEL G0005))
;     (!*LINK PBLANK EXPR 0)
;          (HRRZI (REG LINKREG) 143)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY PBLANK))
;     (!*MOVE (CAR (FRAME 1)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;          (MOVE (REG 1) (INDEXED (REG 1) 0))
;     (!*LINK PRIN1 EXPR 1)
;          (HRRZI (REG LINKREG) 134)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN1))
;     (!*MOVE (CDR (FRAME 1)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;          (MOVE (REG 1) (INDEXED (REG 1) 1))
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0003))
;     (!*JUMPEQ (LABEL G0008) (FRAME 1) (QUOTE NIL))
;          (CAMN (REG NIL) (INDEXED (REG ST) 0))
;          (JRST (LABEL G0008))
;     (!*MOVE (QUOTE " . ") (REG 1))
;          (MOVE (REG 1) (QUOTE " . "))
;     (!*LINK PRIN2STRING EXPR 1)
;          (HRRZI (REG LINKREG) 136)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2STRING))
;     (!*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))
;     (!*LBL (LABEL G0008))
;     (!*MOVE (WCONST 41) (REG 1))
;          (HRRZI (REG 1) 41)
;     (!*LINK PUTC EXPR 1)
;          (HRRZI (REG LINKREG) 142)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PUTC))
;     (!*LINK PBLANK EXPR 0)
;          (HRRZI (REG LINKREG) 143)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY PBLANK))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*EXIT 1)
;          (ADJSP (REG ST) (MINUS 1))
;          (POPJ (REG ST) 0)
;          (FULLWORD (FIELDPOINTER (INDEXED (REG ST) 0) 0 5))
L0129:	2
	byte(7)32,46,32,0
	1
; (!*ENTRY PRIN1PAIR EXPR 1)
L0034:	intern L0034
 PUSH 15,1
 HRRZI 1,40
 HRRZI 12,142
 HRRZI 13,1
 PUSHJ 15,SYMFNC+142
 MOVE 1,0(15)
 MOVE 1,0(1)
 HRRZI 12,134
 HRRZI 13,1
 PUSHJ 15,SYMFNC+134
 MOVE 1,0(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
L0130: LDB 11,L0127
 CAIN 11,9
 JRST L0131
 MOVE 1,0
 JRST L0132
L0131: HRRZI 12,143
 SETZM 13
 PUSHJ 15,SYMFNC+143
 MOVE 1,0(15)
 MOVE 1,0(1)
 HRRZI 12,134
 HRRZI 13,1
 PUSHJ 15,SYMFNC+134
 MOVE 1,0(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
 JRST L0130
L0132: CAMN 0,0(15)
 JRST L0133
 MOVE 1,L0128
 HRRZI 12,136
 HRRZI 13,1
 PUSHJ 15,SYMFNC+136
 MOVE 1,0(15)
 HRRZI 12,134
 HRRZI 13,1
 PUSHJ 15,SYMFNC+134
L0133: HRRZI 1,41
 HRRZI 12,142
 HRRZI 13,1
 PUSHJ 15,SYMFNC+142
 HRRZI 12,143
 SETZM 13
 PUSHJ 15,SYMFNC+143
 MOVE 1,0(15)
 ADJSP 15,-1
 POPJ 15,0
L0127:	point 5,0(15),4
L0128:	<4_31>+L0129
;     (!*ENTRY PRIN2PAIR EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*MOVE (WCONST 40) (REG 1))
;          (HRRZI (REG 1) 40)
;     (!*LINK PUTC EXPR 1)
;          (HRRZI (REG LINKREG) 142)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PUTC))
;     (!*MOVE (CAR (FRAME 1)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;          (MOVE (REG 1) (INDEXED (REG 1) 0))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (CDR (FRAME 1)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;          (MOVE (REG 1) (INDEXED (REG 1) 1))
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*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 (QUOTE NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*JUMP (LABEL G0003))
;          (JRST (LABEL G0003))
;     (!*LBL (LABEL G0005))
;     (!*LINK PBLANK EXPR 0)
;          (HRRZI (REG LINKREG) 143)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY PBLANK))
;     (!*MOVE (CAR (FRAME 1)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;          (MOVE (REG 1) (INDEXED (REG 1) 0))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (CDR (FRAME 1)) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;          (MOVE (REG 1) (INDEXED (REG 1) 1))
;     (!*MOVE (REG 1) (FRAME 1))
;          (MOVEM (REG 1) (INDEXED (REG ST) 0))
;     (!*JUMP (LABEL G0004))
;          (JRST (LABEL G0004))
;     (!*LBL (LABEL G0003))
;     (!*JUMPEQ (LABEL G0008) (FRAME 1) (QUOTE NIL))
;          (CAMN (REG NIL) (INDEXED (REG ST) 0))
;          (JRST (LABEL G0008))
;     (!*MOVE (QUOTE " . ") (REG 1))
;          (MOVE (REG 1) (QUOTE " . "))
;     (!*LINK PRIN2STRING EXPR 1)
;          (HRRZI (REG LINKREG) 136)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2STRING))
;     (!*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))
;     (!*LBL (LABEL G0008))
;     (!*MOVE (WCONST 41) (REG 1))
;          (HRRZI (REG 1) 41)
;     (!*LINK PUTC EXPR 1)
;          (HRRZI (REG LINKREG) 142)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PUTC))
;     (!*LINK PBLANK EXPR 0)
;          (HRRZI (REG LINKREG) 143)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY PBLANK))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*EXIT 1)
;          (ADJSP (REG ST) (MINUS 1))
;          (POPJ (REG ST) 0)
;          (FULLWORD (FIELDPOINTER (INDEXED (REG ST) 0) 0 5))
L0136:	2
	byte(7)32,46,32,0
	1
; (!*ENTRY PRIN2PAIR EXPR 1)
L0042:	intern L0042
 PUSH 15,1
 HRRZI 1,40
 HRRZI 12,142
 HRRZI 13,1
 PUSHJ 15,SYMFNC+142
 MOVE 1,0(15)
 MOVE 1,0(1)
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,0(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
L0137: LDB 11,L0134
 CAIN 11,9
 JRST L0138
 MOVE 1,0
 JRST L0139
L0138: HRRZI 12,143
 SETZM 13
 PUSHJ 15,SYMFNC+143
 MOVE 1,0(15)
 MOVE 1,0(1)
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,0(15)
 MOVE 1,1(1)
 MOVEM 1,0(15)
 JRST L0137
L0139: CAMN 0,0(15)
 JRST L0140
 MOVE 1,L0135
 HRRZI 12,136
 HRRZI 13,1
 PUSHJ 15,SYMFNC+136
 MOVE 1,0(15)
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
L0140: HRRZI 1,41
 HRRZI 12,142
 HRRZI 13,1
 PUSHJ 15,SYMFNC+142
 HRRZI 12,143
 SETZM 13
 PUSHJ 15,SYMFNC+143
 MOVE 1,0(15)
 ADJSP 15,-1
 POPJ 15,0
L0134:	point 5,0(15),4
L0135:	<4_31>+L0136
;     (!*ENTRY TERPRI EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (WCONST 10) (REG 1))
;          (HRRZI (REG 1) 10)
;     (!*LINKE 0 PUTC EXPR 1)
;          (HRRZI (REG LINKREG) 142)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PUTC))
	0
; (!*ENTRY TERPRI EXPR 0)
TERPRI:	intern TERPRI
 HRRZI 1,10
 HRRZI 12,142
 HRRZI 13,1
 JRST SYMFNC+142
;     (!*ENTRY PRTITM EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*MOVE (QUOTE " <") (REG 1))
;          (MOVE (REG 1) (QUOTE " <"))
;     (!*LINK PRIN2STRING EXPR 1)
;          (HRRZI (REG LINKREG) 136)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2STRING))
;     (!*FIELD (REG 1) (FRAME 1) (WCONST 0) (WCONST 5))
;          (LDB (REG 1) (LIT (FULLWORD (FIELDPOINTER (INDEXED (REG ST) 0) 0 5))))
;     (!*LINK PRIN1INT EXPR 1)
;          (HRRZI (REG LINKREG) 130)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN1INT))
;     (!*MOVE (WCONST 58) (REG 1))
;          (HRRZI (REG 1) 58)
;     (!*LINK PUTC EXPR 1)
;          (HRRZI (REG LINKREG) 142)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PUTC))
;     (!*FIELD (REG 1) (FRAME 1) (WCONST 18) (WCONST 18))
;          (HRRZ (REG 1) (INDEXED (REG ST) 0))
;     (!*LINK PRIN1INT EXPR 1)
;          (HRRZI (REG LINKREG) 130)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN1INT))
;     (!*MOVE (QUOTE "> ") (REG 1))
;          (MOVE (REG 1) (QUOTE "> "))
;     (!*LINK PRIN2STRING EXPR 1)
;          (HRRZI (REG LINKREG) 136)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2STRING))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*EXIT 1)
;          (ADJSP (REG ST) (MINUS 1))
;          (POPJ (REG ST) 0)
;          (FULLWORD (FIELDPOINTER (INDEXED (REG ST) 0) 0 5))
L0144:	1
	byte(7)62,32,0
L0145:	1
	byte(7)32,60,0
	1
; (!*ENTRY PRTITM EXPR 1)
PRTITM:	intern PRTITM
 PUSH 15,1
 MOVE 1,L0141
 HRRZI 12,136
 HRRZI 13,1
 PUSHJ 15,SYMFNC+136
 LDB 1,L0142
 HRRZI 12,130
 HRRZI 13,1
 PUSHJ 15,SYMFNC+130
 HRRZI 1,58
 HRRZI 12,142
 HRRZI 13,1
 PUSHJ 15,SYMFNC+142
 HRRZ 1,0(15)
 HRRZI 12,130
 HRRZI 13,1
 PUSHJ 15,SYMFNC+130
 MOVE 1,L0143
 HRRZI 12,136
 HRRZI 13,1
 PUSHJ 15,SYMFNC+136
 MOVE 1,0(15)
 ADJSP 15,-1
 POPJ 15,0
L0142:	point 5,0(15),4
L0143:	<4_31>+L0144
L0141:	<4_31>+L0145
;     (!*ENTRY CHANNELPRIN2 EXPR 2)
;     (!*ALLOC 0)
;     (!*MOVE (REG 2) (REG 1))
;          (MOVE (REG 1) (REG 2))
;     (!*LINKE 0 PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRIN2))
	2
; (!*ENTRY CHANNELPRIN2 EXPR 2)
L0093:	intern L0093
 MOVE 1,2
 HRRZI 12,138
 HRRZI 13,1
 JRST SYMFNC+138
;     (!*ENTRY ERRORHEADER EXPR 0)
;     (!*ALLOC 0)
;     (!*MOVE (QUOTE "*** ERROR *** ") (REG 1))
;          (MOVE (REG 1) (QUOTE "*** ERROR *** "))
;     (!*LINKE 0 PRIN2STRING EXPR 1)
;          (HRRZI (REG LINKREG) 136)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY PRIN2STRING))
L0147:	13
	byte(7)42,42,42,32,69,82,82,79,82,32,42,42,42,32,0
	0
; (!*ENTRY ERRORHEADER EXPR 0)
L0098:	intern L0098
 MOVE 1,L0146
 HRRZI 12,136
 HRRZI 13,1
 JRST SYMFNC+136
L0146:	<4_31>+L0147
;     (!*ENTRY ERROR EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LINK ERRORHEADER EXPR 0)
;          (HRRZI (REG LINKREG) 155)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY ERRORHEADER))
;     (!*MOVE (FRAME 1) (REG 1))
;          (MOVE (REG 1) (INDEXED (REG ST) 0))
;     (!*LINKE 1 ERRORTRAILER EXPR 1)
;          (ADJSP (REG ST) (MINUS 1))
;          (HRRZI (REG LINKREG) 156)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY ERRORTRAILER))
	1
; (!*ENTRY ERROR EXPR 1)
ERROR:	intern ERROR
 PUSH 15,1
 HRRZI 12,155
 SETZM 13
 PUSHJ 15,SYMFNC+155
 MOVE 1,0(15)
 ADJSP 15,-1
 HRRZI 12,156
 HRRZI 13,1
 JRST SYMFNC+156
;     (!*ENTRY ERRORTRAILER EXPR 1)
;     (!*ALLOC 0)
;     (!*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)
	1
; (!*ENTRY ERRORTRAILER EXPR 1)
L0099:	intern L0099
 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
;     (!*ENTRY FATALERROR EXPR 1)
;     (!*PUSH (REG 1))
;          (PUSH (REG ST) (REG 1))
;     (!*LINK ERRORHEADER EXPR 0)
;          (HRRZI (REG LINKREG) 155)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY ERRORHEADER))
;     (!*MOVE (QUOTE " FATAL ") (REG 1))
;          (MOVE (REG 1) (QUOTE " FATAL "))
;     (!*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 ERRORTRAILER EXPR 1)
;          (ADJSP (REG ST) (MINUS 1))
;          (HRRZI (REG LINKREG) 156)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY ERRORTRAILER))
L0149:	6
	byte(7)32,70,65,84,65,76,32,0
	1
; (!*ENTRY FATALERROR EXPR 1)
L0102:	intern L0102
 PUSH 15,1
 HRRZI 12,155
 SETZM 13
 PUSHJ 15,SYMFNC+155
 MOVE 1,L0148
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,0(15)
 ADJSP 15,-1
 HRRZI 12,156
 HRRZI 13,1
 JRST SYMFNC+156
L0148:	<4_31>+L0149
;     (!*ENTRY STDERROR EXPR 1)
;     (!*ALLOC 0)
;     (!*LINKE 0 ERROR EXPR 1)
;          (HRRZI (REG LINKREG) 149)
;          (HRRZI (REG NARGREG) 1)
;          (JRST (ENTRY ERROR))
	1
; (!*ENTRY STDERROR EXPR 1)
L0103:	intern L0103
 HRRZI 12,149
 HRRZI 13,1
 JRST SYMFNC+149
;     (!*ENTRY TYPEERROR 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))
;     (!*LINK ERRORHEADER EXPR 0)
;          (HRRZI (REG LINKREG) 155)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY ERRORHEADER))
;     (!*MOVE (QUOTE "An attempt was made to do") (REG 1))
;          (MOVE (REG 1) (QUOTE "An attempt was made to do"))
;     (!*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 " on `") (REG 1))
;          (MOVE (REG 1) (QUOTE " 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 PRIN1 EXPR 1)
;          (HRRZI (REG LINKREG) 134)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN1))
;     (!*MOVE (QUOTE ", which is not ") (REG 1))
;          (MOVE (REG 1) (QUOTE ", which is not "))
;     (!*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 PRIN1T EXPR 1)
;          (HRRZI (REG LINKREG) 160)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN1T))
;     (!*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)
L0153:	14
	byte(7)44,32,119,104,105,99,104,32,105,115,32,110,111,116,32,0
L0154:	4
	byte(7)32,111,110,32,96,0
L0155:	24
	byte(7)65,110,32,97,116,116,101,109,112,116,32,119,97,115,32,109,97,100,101,32,116,111,32,100,111,0
	3
; (!*ENTRY TYPEERROR EXPR 3)
L0156:	intern L0156
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 HRRZI 12,155
 SETZM 13
 PUSHJ 15,SYMFNC+155
 MOVE 1,L0150
 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,L0151
 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,L0152
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,-2(15)
 HRRZI 12,160
 HRRZI 13,1
 PUSHJ 15,SYMFNC+160
 HRRZI 12,148
 SETZM 13
 PUSHJ 15,SYMFNC+148
 MOVE 1,0
 ADJSP 15,-3
 POPJ 15,0
L0152:	<4_31>+L0153
L0151:	<4_31>+L0154
L0150:	<4_31>+L0155
;     (!*ENTRY USAGETYPEERROR EXPR 4)
;     (!*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 4) (FRAME 3))
;          (MOVEM (REG 4) (INDEXED (REG ST) -2))
;     (!*LINK ERRORHEADER EXPR 0)
;          (HRRZI (REG LINKREG) 155)
;          (SETZM (REG NARGREG))
;          (PUSHJ (REG ST) (ENTRY ERRORHEADER))
;     (!*MOVE (QUOTE "An attempt was made to use") (REG 1))
;          (MOVE (REG 1) (QUOTE "An attempt was made to use"))
;     (!*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 " as ") (REG 1))
;          (MOVE (REG 1) (QUOTE " as "))
;     (!*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))
;     (!*MOVE (QUOTE " in `") (REG 1))
;          (MOVE (REG 1) (QUOTE " in `"))
;     (!*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 NIL) (REG 1))
;          (MOVE (REG 1) (REG NIL))
;     (!*LINK PRIN2 EXPR 1)
;          (HRRZI (REG LINKREG) 138)
;          (HRRZI (REG NARGREG) 1)
;          (PUSHJ (REG ST) (ENTRY PRIN2))
;     (!*MOVE (QUOTE " is needed") (REG 1))
;          (MOVE (REG 1) (QUOTE " is needed"))
;     (!*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 3)
;          (ADJSP (REG ST) (MINUS 3))
;          (POPJ (REG ST) 0)
L0161:	9
	byte(7)32,105,115,32,110,101,101,100,101,100,0
L0162:	4
	byte(7)32,105,110,32,96,0
L0163:	3
	byte(7)32,97,115,32,0
L0164:	25
	byte(7)65,110,32,97,116,116,101,109,112,116,32,119,97,115,32,109,97,100,101,32,116,111,32,117,115,101,0
	4
; (!*ENTRY USAGETYPEERROR EXPR 4)
L0165:	intern L0165
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 4,-2(15)
 HRRZI 12,155
 SETZM 13
 PUSHJ 15,SYMFNC+155
 MOVE 1,L0157
 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,L0158
 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 1,L0159
 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,0
 HRRZI 12,138
 HRRZI 13,1
 PUSHJ 15,SYMFNC+138
 MOVE 1,L0160
 HRRZI 12,141
 HRRZI 13,1
 PUSHJ 15,SYMFNC+141
 HRRZI 12,148
 SETZM 13
 PUSHJ 15,SYMFNC+148
 MOVE 1,0
 ADJSP 15,-3
 POPJ 15,0
L0160:	<4_31>+L0161
L0159:	<4_31>+L0162
L0158:	<4_31>+L0163
L0157:	<4_31>+L0164
;     (!*ENTRY NONIDERROR EXPR 2)
;     (!*ALLOC 0)
;     (!*MOVE (QUOTE "an identifier") (REG 3))
;          (MOVE (REG 3) (QUOTE "an identifier"))
;     (!*MOVE (!$FLUID FN) (REG 2))
;          (MOVE (REG 2) (!$FLUID FN))
;     (!*MOVE (!$FLUID OFFENDER) (REG 1))
;          (MOVE (REG 1) (!$FLUID OFFENDER))
;     (!*LINKE 0 TYPEERROR EXPR 3)
;          (HRRZI (REG LINKREG) 161)
;          (HRRZI (REG NARGREG) 3)
;          (JRST (ENTRY TYPEERROR))
L0167:	12
	byte(7)97,110,32,105,100,101,110,116,105,102,105,101,114,0
	2
; (!*ENTRY NONIDERROR EXPR 2)
L0106:	intern L0106
 MOVE 3,L0166
 MOVE 2,SYMVAL+163
 MOVE 1,SYMVAL+164
 HRRZI 12,161
 HRRZI 13,3
 JRST SYMFNC+161
L0166:	<4_31>+L0167
;     (!*ENTRY NONNUMBERERROR EXPR 2)
;     (!*ALLOC 0)
;     (!*LAMBIND (REGISTERS (REG 2) (REG 1)) (NONLOCALVARS (!$FLUID FN) (!$FLUID OFFENDER)))
;          (MOVEM (REG 2) (INDIRECT (FLUID LAMBINDARGS!*)))
;          (MOVE (REG 2) (FLUID LAMBINDARGS!*))
;          (MOVEM (REG 1) (INDEXED (REG 2) 1))
;          (MOVE (REG 1) (QUOTE [FN OFFENDER]))
;          (PUSHJ (REG ST) (ENTRY LAMBIND))
;     (!*MOVE (QUOTE "a number") (REG 3))
;          (MOVE (REG 3) (QUOTE "a number"))
;     (!*MOVE (!$FLUID FN) (REG 2))
;          (MOVE (REG 2) (!$FLUID FN))
;     (!*MOVE (!$FLUID OFFENDER) (REG 1))
;          (MOVE (REG 1) (!$FLUID OFFENDER))
;     (!*LINK TYPEERROR EXPR 3)
;          (HRRZI (REG LINKREG) 161)
;          (HRRZI (REG NARGREG) 3)
;          (PUSHJ (REG ST) (ENTRY TYPEERROR))
;     (!*FREERSTR (NONLOCALVARS (!$FLUID FN) (!$FLUID OFFENDER)))
;          (HRRZI (REG 1) 2)
;          (PUSHJ (REG ST) (ENTRY UNBINDN))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
L0170:	7
	byte(7)97,32,110,117,109,98,101,114,0
L0171:	1
	<30_31>+163
	<30_31>+164
	2
; (!*ENTRY NONNUMBERERROR EXPR 2)
L0172:	intern L0172
 MOVEM 2,@SYMVAL+166
 MOVE 2,SYMVAL+166
 MOVEM 1,1(2)
 MOVE 1,L0168
 PUSHJ 15,SYMFNC+167
 MOVE 3,L0169
 MOVE 2,SYMVAL+163
 MOVE 1,SYMVAL+164
 HRRZI 12,161
 HRRZI 13,3
 PUSHJ 15,SYMFNC+161
 HRRZI 1,2
 PUSHJ 15,SYMFNC+168
 POPJ 15,0
L0169:	<4_31>+L0170
L0168:	<8_31>+L0171
;     (!*ENTRY NONINTEGERERROR EXPR 2)
;     (!*ALLOC 0)
;     (!*LAMBIND (REGISTERS (REG 2) (REG 1)) (NONLOCALVARS (!$FLUID FN) (!$FLUID OFFENDER)))
;          (MOVEM (REG 2) (INDIRECT (FLUID LAMBINDARGS!*)))
;          (MOVE (REG 2) (FLUID LAMBINDARGS!*))
;          (MOVEM (REG 1) (INDEXED (REG 2) 1))
;          (MOVE (REG 1) (QUOTE [FN OFFENDER]))
;          (PUSHJ (REG ST) (ENTRY LAMBIND))
;     (!*MOVE (QUOTE "an integer") (REG 3))
;          (MOVE (REG 3) (QUOTE "an integer"))
;     (!*MOVE (!$FLUID FN) (REG 2))
;          (MOVE (REG 2) (!$FLUID FN))
;     (!*MOVE (!$FLUID OFFENDER) (REG 1))
;          (MOVE (REG 1) (!$FLUID OFFENDER))
;     (!*LINK TYPEERROR EXPR 3)
;          (HRRZI (REG LINKREG) 161)
;          (HRRZI (REG NARGREG) 3)
;          (PUSHJ (REG ST) (ENTRY TYPEERROR))
;     (!*FREERSTR (NONLOCALVARS (!$FLUID FN) (!$FLUID OFFENDER)))
;          (HRRZI (REG 1) 2)
;          (PUSHJ (REG ST) (ENTRY UNBINDN))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
L0175:	9
	byte(7)97,110,32,105,110,116,101,103,101,114,0
L0176:	1
	<30_31>+163
	<30_31>+164
	2
; (!*ENTRY NONINTEGERERROR EXPR 2)
L0177:	intern L0177
 MOVEM 2,@SYMVAL+166
 MOVE 2,SYMVAL+166
 MOVEM 1,1(2)
 MOVE 1,L0173
 PUSHJ 15,SYMFNC+167
 MOVE 3,L0174
 MOVE 2,SYMVAL+163
 MOVE 1,SYMVAL+164
 HRRZI 12,161
 HRRZI 13,3
 PUSHJ 15,SYMFNC+161
 HRRZI 1,2
 PUSHJ 15,SYMFNC+168
 POPJ 15,0
L0174:	<4_31>+L0175
L0173:	<8_31>+L0176
;     (!*ENTRY NONPOSITIVEINTEGERERROR EXPR 2)
;     (!*ALLOC 0)
;     (!*LAMBIND (REGISTERS (REG 2) (REG 1)) (NONLOCALVARS (!$FLUID FN) (!$FLUID OFFENDER)))
;          (MOVEM (REG 2) (INDIRECT (FLUID LAMBINDARGS!*)))
;          (MOVE (REG 2) (FLUID LAMBINDARGS!*))
;          (MOVEM (REG 1) (INDEXED (REG 2) 1))
;          (MOVE (REG 1) (QUOTE [FN OFFENDER]))
;          (PUSHJ (REG ST) (ENTRY LAMBIND))
;     (!*MOVE (QUOTE "a non-negative integer") (REG 3))
;          (MOVE (REG 3) (QUOTE "a non-negative integer"))
;     (!*MOVE (!$FLUID FN) (REG 2))
;          (MOVE (REG 2) (!$FLUID FN))
;     (!*MOVE (!$FLUID OFFENDER) (REG 1))
;          (MOVE (REG 1) (!$FLUID OFFENDER))
;     (!*LINK TYPEERROR EXPR 3)
;          (HRRZI (REG LINKREG) 161)
;          (HRRZI (REG NARGREG) 3)
;          (PUSHJ (REG ST) (ENTRY TYPEERROR))
;     (!*FREERSTR (NONLOCALVARS (!$FLUID FN) (!$FLUID OFFENDER)))
;          (HRRZI (REG 1) 2)
;          (PUSHJ (REG ST) (ENTRY UNBINDN))
;     (!*EXIT 0)
;          (POPJ (REG ST) 0)
L0180:	21
	byte(7)97,32,110,111,110,45,110,101,103,97,116,105,118,101,32,105,110,116,101,103,101,114,0
L0181:	1
	<30_31>+163
	<30_31>+164
	2
; (!*ENTRY NONPOSITIVEINTEGERERROR EXPR 2)
L0182:	intern L0182
 MOVEM 2,@SYMVAL+166
 MOVE 2,SYMVAL+166
 MOVEM 1,1(2)
 MOVE 1,L0178
 PUSHJ 15,SYMFNC+167
 MOVE 3,L0179
 MOVE 2,SYMVAL+163
 MOVE 1,SYMVAL+164
 HRRZI 12,161
 HRRZI 13,3
 PUSHJ 15,SYMFNC+161
 HRRZI 1,2
 PUSHJ 15,SYMFNC+168
 POPJ 15,0
L0179:	<4_31>+L0180
L0178:	<8_31>+L0181
	end


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]