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 EQSTR EXPR 2)
; (!*ALLOC 3)
; (ADJSP (REG ST) 3)
; (!*FIELD (REG 1) (REG 1) (WCONST 18) (WCONST 18))
; (HRRZ (REG 1) (REG 1))
; (!*MOVE (REG 1) (FRAME 3))
; (MOVEM (REG 1) (INDEXED (REG ST) -2))
; (!*FIELD (REG 2) (REG 2) (WCONST 18) (WCONST 18))
; (HRRZ (REG 2) (REG 2))
; (!*MOVE (REG 2) (FRAME 2))
; (MOVEM (REG 2) (INDEXED (REG ST) -1))
; (!*SIGNEDFIELD (REG 3) (MEMORY (REG 1) (WCONST 0)) (WCONST 18) (WCONST 18))
; (HRRE (REG 3) (INDEXED (REG 1) 0))
; (!*MOVE (REG 3) (FRAME 1))
; (MOVEM (REG 3) (INDEXED (REG ST) 0))
; (!*SIGNEDFIELD (REG 4) (MEMORY (REG 2) (WCONST 0)) (WCONST 18) (WCONST 18))
; (HRRE (REG 4) (INDEXED (REG 2) 0))
; (!*JUMPEQ (LABEL G0004) (REG 3) (REG 4))
; (CAMN (REG 3) (REG 4))
; (JRST (LABEL G0004))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*JUMP (LABEL G0001))
; (JRST (LABEL G0001))
; (!*LBL (LABEL G0004))
; (!*JUMPWGEQ (LABEL G0008) (FRAME 1) (WCONST 0))
; (SKIPL (INDEXED (REG ST) 0))
; (JRST (LABEL G0008))
; (!*MOVE (QUOTE T) (REG 1))
; (MOVE (REG 1) (FLUID T))
; (!*JUMP (LABEL G0001))
; (JRST (LABEL G0001))
; (!*LBL (LABEL G0008))
; (!*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))
; (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))
; (!*MOVE (REG 1) (REG 5))
; (MOVE (REG 5) (REG 1))
; (!*MOVE (FRAME 1) (REG 2))
; (MOVE (REG 2) (INDEXED (REG ST) 0))
; (!*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))
; (!*JUMPEQ (LABEL G0011) (REG 5) (REG 1))
; (CAMN (REG 5) (REG 1))
; (JRST (LABEL G0011))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*JUMP (LABEL G0001))
; (JRST (LABEL G0001))
; (!*LBL (LABEL G0011))
; (!*WPLUS2 (FRAME 1) (WCONST -1))
; (SOS (INDEXED (REG ST) 0))
; (!*JUMP (LABEL G0004))
; (JRST (LABEL G0004))
; (!*LBL (LABEL G0001))
; (!*EXIT 3)
; (ADJSP (REG ST) (MINUS 3))
; (POPJ (REG ST) 0)
; (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7))
2
; (!*ENTRY EQSTR EXPR 2)
EQSTR: intern EQSTR
ADJSP 15,3
HRRZ 1,1
MOVEM 1,-2(15)
HRRZ 2,2
MOVEM 2,-1(15)
HRRE 3,0(1)
MOVEM 3,0(15)
HRRE 4,0(2)
CAMN 3,4
JRST L0216
MOVE 1,0
JRST L0217
L0216: SKIPL 0(15)
JRST L0218
MOVE 1,SYMVAL+84
JRST L0217
L0218: MOVE 2,0(15)
MOVE 1,-2(15)
AOS 1
HRRZI 12,147
HRRZI 13,2
ADJBP 2,L0215
LDB 1,2
MOVE 5,1
MOVE 2,0(15)
MOVE 1,-1(15)
AOS 1
HRRZI 12,147
HRRZI 13,2
ADJBP 2,L0215
LDB 1,2
CAMN 5,1
JRST L0219
MOVE 1,0
JRST L0217
L0219: SOS 0(15)
JRST L0216
L0217: ADJSP 15,-3
POPJ 15,0
L0215: point 7,0(1),6
extern BUFFER
; (!*ENTRY INITREAD EXPR 0)
; (!*ALLOC 0)
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*MOVE (REG 1) (!$FLUID !*RAISE))
; (MOVEM (REG 1) (!$FLUID !*RAISE))
; (!*MOVE (WCONST 32) (REG 1))
; (HRRZI (REG 1) 32)
; (!*MOVE (REG 1) (!$FLUID CH!*))
; (MOVEM (REG 1) (!$FLUID CH!*))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*MOVE (REG 1) (!$FLUID TOK!*))
; (MOVEM (REG 1) (!$FLUID TOK!*))
; (!*MOVE (WCONST 2) (!$FLUID TOKTYPE!*))
; (HRRZI (REG T1) 2)
; (MOVEM (REG T1) (!$FLUID TOKTYPE!*))
; (!*JUMPEQ (LABEL G0004) (QUOTE NIL) (!$FLUID DEBUG))
; (CAMN (REG NIL) (!$FLUID DEBUG))
; (JRST (LABEL G0004))
; (!*MOVE (QUOTE "NextSymbol =") (REG 1))
; (MOVE (REG 1) (QUOTE "NextSymbol ="))
; (!*LINK PRIN2 EXPR 1)
; (HRRZI (REG LINKREG) 138)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY PRIN2))
; (!*MOVE (WVAR NEXTSYMBOL) (REG 1))
; (MOVE (REG 1) (WVAR NEXTSYMBOL))
; (!*LINK PRINT EXPR 1)
; (HRRZI (REG LINKREG) 140)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY PRINT))
; (!*LBL (LABEL G0004))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*EXIT 0)
; (POPJ (REG ST) 0)
L0221: 11
byte(7)78,101,120,116,83,121,109,98,111,108,32,61,0
0
; (!*ENTRY INITREAD EXPR 0)
L0222: intern L0222
MOVE 1,0
MOVEM 1,SYMVAL+191
HRRZI 1,32
MOVEM 1,SYMVAL+192
MOVE 1,0
MOVEM 1,SYMVAL+193
HRRZI 6,2
MOVEM 6,SYMVAL+194
CAMN 0,SYMVAL+195
JRST L0223
MOVE 1,L0220
HRRZI 12,138
HRRZI 13,1
PUSHJ 15,SYMFNC+138
MOVE 1,L0003
HRRZI 12,140
HRRZI 13,1
PUSHJ 15,SYMFNC+140
L0223: MOVE 1,0
POPJ 15,0
L0220: <4_31>+L0221
; (!*ENTRY SETRAISE EXPR 1)
; (!*ALLOC 0)
; (!*MOVE (REG 1) (!$FLUID !*RAISE))
; (MOVEM (REG 1) (!$FLUID !*RAISE))
; (!*EXIT 0)
; (POPJ (REG ST) 0)
1
; (!*ENTRY SETRAISE EXPR 1)
L0224: intern L0224
MOVEM 1,SYMVAL+191
POPJ 15,0
; (!*ENTRY RATOM EXPR 0)
; (!*ALLOC 1)
; (ADJSP (REG ST) 1)
; (!*LINK CLEARWHITE EXPR 0)
; (HRRZI (REG LINKREG) 197)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY CLEARWHITE))
; (!*JUMPNOTEQ (LABEL G0004) (WCONST 37) (!$FLUID CH!*))
; (MOVE (REG T2) (!$FLUID CH!*))
; (CAIE (REG T2) 37)
; (JRST (LABEL G0004))
; (!*LINK CLEARCOMMENT EXPR 0)
; (HRRZI (REG LINKREG) 198)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY CLEARCOMMENT))
; (!*LBL (LABEL G0004))
; (!*JUMPNOTEQ (LABEL G0007) (WCONST 34) (!$FLUID CH!*))
; (MOVE (REG T2) (!$FLUID CH!*))
; (CAIE (REG T2) 34)
; (JRST (LABEL G0007))
; (!*MOVE (WCONST 0) (!$FLUID TOKTYPE!*))
; (SETZM (!$FLUID TOKTYPE!*))
; (!*LINK READSTR EXPR 0)
; (HRRZI (REG LINKREG) 199)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY READSTR))
; (!*MOVE (REG 1) (FRAME 1))
; (MOVEM (REG 1) (INDEXED (REG ST) 0))
; (!*MOVE (REG 1) (!$FLUID TOK!*))
; (MOVEM (REG 1) (!$FLUID TOK!*))
; (!*JUMP (LABEL G0001))
; (JRST (LABEL G0001))
; (!*LBL (LABEL G0007))
; (!*MOVE (!$FLUID CH!*) (REG 1))
; (MOVE (REG 1) (!$FLUID CH!*))
; (!*LINK DIGITP EXPR 1)
; (HRRZI (REG LINKREG) 200)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY DIGITP))
; (!*JUMPEQ (LABEL G0012) (REG 1) (QUOTE NIL))
; (CAMN (REG 1) (REG NIL))
; (JRST (LABEL G0012))
; (!*MOVE (WCONST 1) (!$FLUID TOKTYPE!*))
; (HRRZI (REG T1) 1)
; (MOVEM (REG T1) (!$FLUID TOKTYPE!*))
; (!*LINK READINT EXPR 0)
; (HRRZI (REG LINKREG) 201)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY READINT))
; (!*MOVE (REG 1) (FRAME 1))
; (MOVEM (REG 1) (INDEXED (REG ST) 0))
; (!*MOVE (REG 1) (!$FLUID TOK!*))
; (MOVEM (REG 1) (!$FLUID TOK!*))
; (!*JUMP (LABEL G0001))
; (JRST (LABEL G0001))
; (!*LBL (LABEL G0012))
; (!*MOVE (!$FLUID CH!*) (REG 1))
; (MOVE (REG 1) (!$FLUID CH!*))
; (!*LINK ALPHAESCP EXPR 1)
; (HRRZI (REG LINKREG) 202)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY ALPHAESCP))
; (!*JUMPEQ (LABEL G0018) (REG 1) (QUOTE NIL))
; (CAMN (REG 1) (REG NIL))
; (JRST (LABEL G0018))
; (!*MOVE (WCONST 2) (!$FLUID TOKTYPE!*))
; (HRRZI (REG T1) 2)
; (MOVEM (REG T1) (!$FLUID TOKTYPE!*))
; (!*LINK READID EXPR 0)
; (HRRZI (REG LINKREG) 203)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY READID))
; (!*MOVE (REG 1) (FRAME 1))
; (MOVEM (REG 1) (INDEXED (REG ST) 0))
; (!*MOVE (REG 1) (!$FLUID TOK!*))
; (MOVEM (REG 1) (!$FLUID TOK!*))
; (!*JUMP (LABEL G0001))
; (JRST (LABEL G0001))
; (!*LBL (LABEL G0018))
; (!*MOVE (WCONST 3) (!$FLUID TOKTYPE!*))
; (HRRZI (REG T1) 3)
; (MOVEM (REG T1) (!$FLUID TOKTYPE!*))
; (!*MOVE (!$FLUID CH!*) (REG 1))
; (MOVE (REG 1) (!$FLUID CH!*))
; (!*MKITEM (REG 1) (WCONST 30))
; (TLZ (REG 1) 253952)
; (TLO (REG 1) (LSH 30 13))
; (!*MOVE (REG 1) (!$FLUID TOK!*))
; (MOVEM (REG 1) (!$FLUID TOK!*))
; (!*MOVE (WCONST 32) (REG 1))
; (HRRZI (REG 1) 32)
; (!*MOVE (REG 1) (!$FLUID CH!*))
; (MOVEM (REG 1) (!$FLUID CH!*))
; (!*MOVE (!$FLUID TOK!*) (REG 1))
; (MOVE (REG 1) (!$FLUID TOK!*))
; (!*LBL (LABEL G0001))
; (!*EXIT 1)
; (ADJSP (REG ST) (MINUS 1))
; (POPJ (REG ST) 0)
0
; (!*ENTRY RATOM EXPR 0)
RATOM: intern RATOM
ADJSP 15,1
HRRZI 12,197
SETZM 13
PUSHJ 15,SYMFNC+197
MOVE 7,SYMVAL+192
CAIE 7,37
JRST L0225
HRRZI 12,198
SETZM 13
PUSHJ 15,SYMFNC+198
L0225: MOVE 7,SYMVAL+192
CAIE 7,34
JRST L0226
SETZM SYMVAL+194
HRRZI 12,199
SETZM 13
PUSHJ 15,SYMFNC+199
MOVEM 1,0(15)
MOVEM 1,SYMVAL+193
JRST L0227
L0226: MOVE 1,SYMVAL+192
HRRZI 12,200
HRRZI 13,1
PUSHJ 15,SYMFNC+200
CAMN 1,0
JRST L0228
HRRZI 6,1
MOVEM 6,SYMVAL+194
HRRZI 12,201
SETZM 13
PUSHJ 15,SYMFNC+201
MOVEM 1,0(15)
MOVEM 1,SYMVAL+193
JRST L0227
L0228: MOVE 1,SYMVAL+192
HRRZI 12,202
HRRZI 13,1
PUSHJ 15,SYMFNC+202
CAMN 1,0
JRST L0229
HRRZI 6,2
MOVEM 6,SYMVAL+194
HRRZI 12,203
SETZM 13
PUSHJ 15,SYMFNC+203
MOVEM 1,0(15)
MOVEM 1,SYMVAL+193
JRST L0227
L0229: HRRZI 6,3
MOVEM 6,SYMVAL+194
MOVE 1,SYMVAL+192
TLZ 1,253952
TLO 1,245760
MOVEM 1,SYMVAL+193
HRRZI 1,32
MOVEM 1,SYMVAL+192
MOVE 1,SYMVAL+193
L0227: ADJSP 15,-1
POPJ 15,0
; (!*ENTRY CLEARWHITE EXPR 0)
; (!*ALLOC 0)
; (!*LBL (LABEL G0002))
; (!*MOVE (!$FLUID CH!*) (REG 1))
; (MOVE (REG 1) (!$FLUID CH!*))
; (!*LINK WHITEP EXPR 1)
; (HRRZI (REG LINKREG) 205)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY WHITEP))
; (!*JUMPNOTEQ (LABEL G0005) (REG 1) (QUOTE NIL))
; (CAME (REG 1) (REG NIL))
; (JRST (LABEL G0005))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*EXIT 0)
; (POPJ (REG ST) 0)
; (!*LBL (LABEL G0005))
; (!*LINK GETC EXPR 0)
; (HRRZI (REG LINKREG) 206)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY GETC))
; (!*MOVE (REG 1) (!$FLUID CH!*))
; (MOVEM (REG 1) (!$FLUID CH!*))
; (!*JUMP (LABEL G0002))
; (JRST (LABEL G0002))
0
; (!*ENTRY CLEARWHITE EXPR 0)
L0230: intern L0230
L0231: MOVE 1,SYMVAL+192
HRRZI 12,205
HRRZI 13,1
PUSHJ 15,SYMFNC+205
CAME 1,0
JRST L0232
MOVE 1,0
POPJ 15,0
L0232: HRRZI 12,206
SETZM 13
PUSHJ 15,SYMFNC+206
MOVEM 1,SYMVAL+192
JRST L0231
; (!*ENTRY CLEARCOMMENT EXPR 0)
; (!*ALLOC 0)
; (!*LBL (LABEL G0002))
; (!*JUMPNOTEQ (LABEL G0005) (WCONST 10) (!$FLUID CH!*))
; (MOVE (REG T2) (!$FLUID CH!*))
; (CAIE (REG T2) 10)
; (JRST (LABEL G0005))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*JUMP (LABEL G0003))
; (JRST (LABEL G0003))
; (!*LBL (LABEL G0005))
; (!*LINK GETC EXPR 0)
; (HRRZI (REG LINKREG) 206)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY GETC))
; (!*MOVE (REG 1) (!$FLUID CH!*))
; (MOVEM (REG 1) (!$FLUID CH!*))
; (!*JUMP (LABEL G0002))
; (JRST (LABEL G0002))
; (!*LBL (LABEL G0003))
; (!*LINKE 0 CLEARWHITE EXPR 0)
; (HRRZI (REG LINKREG) 197)
; (SETZM (REG NARGREG))
; (JRST (ENTRY CLEARWHITE))
0
; (!*ENTRY CLEARCOMMENT EXPR 0)
L0233: intern L0233
L0234: MOVE 7,SYMVAL+192
CAIE 7,10
JRST L0235
MOVE 1,0
JRST L0236
L0235: HRRZI 12,206
SETZM 13
PUSHJ 15,SYMFNC+206
MOVEM 1,SYMVAL+192
JRST L0234
L0236: HRRZI 12,197
SETZM 13
JRST SYMFNC+197
; (!*ENTRY READINT EXPR 0)
; (!*ALLOC 1)
; (ADJSP (REG ST) 1)
; (!*MOVE (!$FLUID CH!*) (REG 1))
; (MOVE (REG 1) (!$FLUID CH!*))
; (!*WPLUS2 (REG 1) (WCONST -48))
; (SUBI (REG 1) (MINUS -48))
; (!*MOVE (REG 1) (FRAME 1))
; (MOVEM (REG 1) (INDEXED (REG ST) 0))
; (!*LBL (LABEL G0005))
; (!*LINK GETC EXPR 0)
; (HRRZI (REG LINKREG) 206)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY GETC))
; (!*MOVE (REG 1) (!$FLUID CH!*))
; (MOVEM (REG 1) (!$FLUID CH!*))
; (!*LINK DIGITP EXPR 1)
; (HRRZI (REG LINKREG) 200)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY DIGITP))
; (!*JUMPEQ (LABEL G0004) (REG 1) (QUOTE NIL))
; (CAMN (REG 1) (REG NIL))
; (JRST (LABEL G0004))
; (!*MOVE (FRAME 1) (REG 2))
; (MOVE (REG 2) (INDEXED (REG ST) 0))
; (!*MOVE (WCONST 10) (REG 1))
; (HRRZI (REG 1) 10)
; (!*LINK LONGTIMES EXPR 2)
; (HRRZI (REG LINKREG) 207)
; (HRRZI (REG NARGREG) 2)
; (PUSHJ (REG ST) (ENTRY LONGTIMES))
; (!*MOVE (!$FLUID CH!*) (REG 2))
; (MOVE (REG 2) (!$FLUID CH!*))
; (!*WPLUS2 (REG 2) (REG 1))
; (ADDM (REG 1) (REG 2))
; (!*WPLUS2 (REG 2) (WCONST -48))
; (SUBI (REG 2) (MINUS -48))
; (!*MOVE (REG 2) (FRAME 1))
; (MOVEM (REG 2) (INDEXED (REG ST) 0))
; (!*JUMP (LABEL G0005))
; (JRST (LABEL G0005))
; (!*LBL (LABEL G0004))
; (!*MOVE (FRAME 1) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) 0))
; (!*MKITEM (REG 1) (WCONST 0))
; (TLZ (REG 1) 253952)
; (TLO (REG 1) (LSH 0 13))
; (!*EXIT 1)
; (ADJSP (REG ST) (MINUS 1))
; (POPJ (REG ST) 0)
0
; (!*ENTRY READINT EXPR 0)
L0237: intern L0237
ADJSP 15,1
MOVE 1,SYMVAL+192
SUBI 1,48
MOVEM 1,0(15)
L0238: HRRZI 12,206
SETZM 13
PUSHJ 15,SYMFNC+206
MOVEM 1,SYMVAL+192
HRRZI 12,200
HRRZI 13,1
PUSHJ 15,SYMFNC+200
CAMN 1,0
JRST L0239
MOVE 2,0(15)
HRRZI 1,10
HRRZI 12,207
HRRZI 13,2
PUSHJ 15,SYMFNC+207
MOVE 2,SYMVAL+192
ADDM 1,2
SUBI 2,48
MOVEM 2,0(15)
JRST L0238
L0239: MOVE 1,0(15)
TLZ 1,253952
TLO 1,0
ADJSP 15,-1
POPJ 15,0
; (!*ENTRY BUFFERTOSTRING EXPR 1)
; (!*ALLOC 3)
; (ADJSP (REG ST) 3)
; (!*MOVE (REG 1) (FRAME 1))
; (MOVEM (REG 1) (INDEXED (REG ST) 0))
; (!*LINK GTSTR EXPR 1)
; (HRRZI (REG LINKREG) 174)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY GTSTR))
; (!*MOVE (REG 1) (FRAME 2))
; (MOVEM (REG 1) (INDEXED (REG ST) -1))
; (!*MOVE (WCONST 0) (FRAME 3))
; (SETZM (INDEXED (REG ST) -2))
; (!*LBL (LABEL G0006))
; (!*JUMPWGREATERP (LABEL G0005) (FRAME 3) (FRAME 1))
; (MOVE (REG T1) (INDEXED (REG ST) -2))
; (CAMLE (REG T1) (INDEXED (REG ST) 0))
; (JRST (LABEL G0005))
; (!*MOVE (FRAME 3) (REG 2))
; (MOVE (REG 2) (INDEXED (REG ST) -2))
; (!*MOVE (WCONST (PLUS2 1 (WCONST BUFFER))) (REG 1))
; (HRRZI (REG 1) (IMMEDIATE (PLUS2 1 (WCONST BUFFER))))
; (!*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))
; (!*MOVE (REG 1) (REG 3))
; (MOVE (REG 3) (REG 1))
; (!*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 PUTBYTE EXPR 3)
; (HRRZI (REG LINKREG) 187)
; (HRRZI (REG NARGREG) 3)
; (ADJBP (REG 2) (LIT (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7))))
; (DPB (REG 3) (REG 2))
; (!*WPLUS2 (FRAME 3) (WCONST 1))
; (AOS (INDEXED (REG ST) -2))
; (!*JUMP (LABEL G0006))
; (JRST (LABEL G0006))
; (!*LBL (LABEL G0005))
; (!*MOVE (FRAME 2) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) -1))
; (!*MKITEM (REG 1) (WCONST 4))
; (TLZ (REG 1) 253952)
; (TLO (REG 1) (LSH 4 13))
; (!*EXIT 3)
; (ADJSP (REG ST) (MINUS 3))
; (POPJ (REG ST) 0)
; (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7))
1
; (!*ENTRY BUFFERTOSTRING EXPR 1)
L0241: intern L0241
ADJSP 15,3
MOVEM 1,0(15)
HRRZI 12,174
HRRZI 13,1
PUSHJ 15,SYMFNC+174
MOVEM 1,-1(15)
SETZM -2(15)
L0242: MOVE 6,-2(15)
CAMLE 6,0(15)
JRST L0243
MOVE 2,-2(15)
HRRZI 1,1+BUFFER
HRRZI 12,147
HRRZI 13,2
ADJBP 2,L0240
LDB 1,2
MOVE 3,1
MOVE 2,-2(15)
MOVE 1,-1(15)
AOS 1
HRRZI 12,187
HRRZI 13,3
ADJBP 2,L0240
DPB 3,2
AOS -2(15)
JRST L0242
L0243: MOVE 1,-1(15)
TLZ 1,253952
TLO 1,32768
ADJSP 15,-3
POPJ 15,0
L0240: point 7,0(1),6
; (!*ENTRY READSTR EXPR 0)
; (!*PUSH (WCONST -1))
; (PUSH (REG ST) (LIT (FULLWORD -1)))
; (!*LBL (LABEL G0005))
; (!*LINK GETC EXPR 0)
; (HRRZI (REG LINKREG) 206)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY GETC))
; (!*MOVE (REG 1) (!$FLUID CH!*))
; (MOVEM (REG 1) (!$FLUID CH!*))
; (!*JUMPEQ (LABEL G0004) (REG 1) (WCONST 34))
; (CAIN (REG 1) 34)
; (JRST (LABEL G0004))
; (!*WPLUS2 (FRAME 1) (WCONST 1))
; (AOS (INDEXED (REG ST) 0))
; (!*MOVE (REG 1) (REG 3))
; (MOVE (REG 3) (REG 1))
; (!*MOVE (FRAME 1) (REG 2))
; (MOVE (REG 2) (INDEXED (REG ST) 0))
; (!*MOVE (WCONST (PLUS2 1 (WCONST BUFFER))) (REG 1))
; (HRRZI (REG 1) (IMMEDIATE (PLUS2 1 (WCONST BUFFER))))
; (!*LINK PUTBYTE EXPR 3)
; (HRRZI (REG LINKREG) 187)
; (HRRZI (REG NARGREG) 3)
; (ADJBP (REG 2) (LIT (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7))))
; (DPB (REG 3) (REG 2))
; (!*JUMP (LABEL G0005))
; (JRST (LABEL G0005))
; (!*LBL (LABEL G0004))
; (!*MOVE (WCONST 32) (REG 1))
; (HRRZI (REG 1) 32)
; (!*MOVE (REG 1) (!$FLUID CH!*))
; (MOVEM (REG 1) (!$FLUID CH!*))
; (!*MOVE (FRAME 1) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) 0))
; (!*LINKE 1 BUFFERTOSTRING EXPR 1)
; (ADJSP (REG ST) (MINUS 1))
; (HRRZI (REG LINKREG) 208)
; (HRRZI (REG NARGREG) 1)
; (JRST (ENTRY BUFFERTOSTRING))
; (FULLWORD -1)
; (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7))
0
; (!*ENTRY READSTR EXPR 0)
L0246: intern L0246
PUSH 15,L0244
L0247: HRRZI 12,206
SETZM 13
PUSHJ 15,SYMFNC+206
MOVEM 1,SYMVAL+192
CAIN 1,34
JRST L0248
AOS 0(15)
MOVE 3,1
MOVE 2,0(15)
HRRZI 1,1+BUFFER
HRRZI 12,187
HRRZI 13,3
ADJBP 2,L0245
DPB 3,2
JRST L0247
L0248: HRRZI 1,32
MOVEM 1,SYMVAL+192
MOVE 1,0(15)
ADJSP 15,-1
HRRZI 12,208
HRRZI 13,1
JRST SYMFNC+208
L0244: -1
L0245: point 7,0(1),6
; (!*ENTRY READID EXPR 0)
; (!*ALLOC 3)
; (ADJSP (REG ST) 3)
; (!*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 (WCONST 0) (FRAME 1))
; (SETZM (INDEXED (REG ST) 0))
; (!*MOVE (!$FLUID CH!*) (REG 1))
; (MOVE (REG 1) (!$FLUID CH!*))
; (!*LINK RAISECHAR EXPR 1)
; (HRRZI (REG LINKREG) 209)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY RAISECHAR))
; (!*MOVE (REG 1) (REG 3))
; (MOVE (REG 3) (REG 1))
; (!*MOVE (WCONST 0) (REG 2))
; (SETZM (REG 2))
; (!*MOVE (WCONST (PLUS2 1 (WCONST BUFFER))) (REG 1))
; (HRRZI (REG 1) (IMMEDIATE (PLUS2 1 (WCONST BUFFER))))
; (!*LINK PUTBYTE EXPR 3)
; (HRRZI (REG LINKREG) 187)
; (HRRZI (REG NARGREG) 3)
; (ADJBP (REG 2) (LIT (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7))))
; (DPB (REG 3) (REG 2))
; (!*LBL (LABEL G0006))
; (!*LINK GETC EXPR 0)
; (HRRZI (REG LINKREG) 206)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY GETC))
; (!*MOVE (REG 1) (!$FLUID CH!*))
; (MOVEM (REG 1) (!$FLUID CH!*))
; (!*LINK ALPHANUMESCP EXPR 1)
; (HRRZI (REG LINKREG) 210)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY ALPHANUMESCP))
; (!*JUMPEQ (LABEL G0005) (REG 1) (QUOTE NIL))
; (CAMN (REG 1) (REG NIL))
; (JRST (LABEL G0005))
; (!*WPLUS2 (FRAME 1) (WCONST 1))
; (AOS (INDEXED (REG ST) 0))
; (!*MOVE (!$FLUID CH!*) (REG 1))
; (MOVE (REG 1) (!$FLUID CH!*))
; (!*LINK RAISECHAR EXPR 1)
; (HRRZI (REG LINKREG) 209)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY RAISECHAR))
; (!*MOVE (REG 1) (REG 3))
; (MOVE (REG 3) (REG 1))
; (!*MOVE (FRAME 1) (REG 2))
; (MOVE (REG 2) (INDEXED (REG ST) 0))
; (!*MOVE (WCONST (PLUS2 1 (WCONST BUFFER))) (REG 1))
; (HRRZI (REG 1) (IMMEDIATE (PLUS2 1 (WCONST BUFFER))))
; (!*LINK PUTBYTE EXPR 3)
; (HRRZI (REG LINKREG) 187)
; (HRRZI (REG NARGREG) 3)
; (ADJBP (REG 2) (LIT (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7))))
; (DPB (REG 3) (REG 2))
; (!*JUMP (LABEL G0006))
; (JRST (LABEL G0006))
; (!*LBL (LABEL G0005))
; (!*MOVE (FRAME 1) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) 0))
; (!*LINK BUFFERTOSTRING EXPR 1)
; (HRRZI (REG LINKREG) 208)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY BUFFERTOSTRING))
; (!*LINKE 3 INTERN EXPR 1)
; (ADJSP (REG ST) (MINUS 3))
; (HRRZI (REG LINKREG) 211)
; (HRRZI (REG NARGREG) 1)
; (JRST (ENTRY INTERN))
; (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7))
0
; (!*ENTRY READID EXPR 0)
READID: intern READID
ADJSP 15,3
MOVEM 0,-1(15)
MOVEM 0,-2(15)
SETZM 0(15)
MOVE 1,SYMVAL+192
HRRZI 12,209
HRRZI 13,1
PUSHJ 15,SYMFNC+209
MOVE 3,1
SETZM 2
HRRZI 1,1+BUFFER
HRRZI 12,187
HRRZI 13,3
ADJBP 2,L0249
DPB 3,2
L0250: HRRZI 12,206
SETZM 13
PUSHJ 15,SYMFNC+206
MOVEM 1,SYMVAL+192
HRRZI 12,210
HRRZI 13,1
PUSHJ 15,SYMFNC+210
CAMN 1,0
JRST L0251
AOS 0(15)
MOVE 1,SYMVAL+192
HRRZI 12,209
HRRZI 13,1
PUSHJ 15,SYMFNC+209
MOVE 3,1
MOVE 2,0(15)
HRRZI 1,1+BUFFER
HRRZI 12,187
HRRZI 13,3
ADJBP 2,L0249
DPB 3,2
JRST L0250
L0251: MOVE 1,0(15)
HRRZI 12,208
HRRZI 13,1
PUSHJ 15,SYMFNC+208
ADJSP 15,-3
HRRZI 12,211
HRRZI 13,1
JRST SYMFNC+211
L0249: point 7,0(1),6
; (!*ENTRY RAISECHAR EXPR 1)
; (!*PUSH (REG 1))
; (PUSH (REG ST) (REG 1))
; (!*LINK ESCAPEP EXPR 1)
; (HRRZI (REG LINKREG) 212)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY ESCAPEP))
; (!*JUMPEQ (LABEL G0004) (REG 1) (QUOTE NIL))
; (CAMN (REG 1) (REG NIL))
; (JRST (LABEL G0004))
; (!*LINKE 1 GETC EXPR 0)
; (ADJSP (REG ST) (MINUS 1))
; (HRRZI (REG LINKREG) 206)
; (SETZM (REG NARGREG))
; (JRST (ENTRY GETC))
; (!*LBL (LABEL G0004))
; (!*JUMPEQ (LABEL G0009) (QUOTE NIL) (!$FLUID !*RAISE))
; (CAMN (REG NIL) (!$FLUID !*RAISE))
; (JRST (LABEL G0009))
; (!*MOVE (FRAME 1) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) 0))
; (!*LINK ALPHAP EXPR 1)
; (HRRZI (REG LINKREG) 213)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY ALPHAP))
; (!*JUMPEQ (LABEL G0009) (REG 1) (QUOTE NIL))
; (CAMN (REG 1) (REG NIL))
; (JRST (LABEL G0009))
; (!*MOVE (FRAME 1) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) 0))
; (!*LINK LOWERCASEP EXPR 1)
; (HRRZI (REG LINKREG) 214)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY LOWERCASEP))
; (!*JUMPEQ (LABEL G0009) (REG 1) (QUOTE NIL))
; (CAMN (REG 1) (REG NIL))
; (JRST (LABEL G0009))
; (!*MOVE (FRAME 1) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) 0))
; (!*WPLUS2 (REG 1) (WCONST -32))
; (SUBI (REG 1) (MINUS -32))
; (!*JUMP (LABEL G0001))
; (JRST (LABEL G0001))
; (!*LBL (LABEL G0009))
; (!*MOVE (FRAME 1) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) 0))
; (!*LBL (LABEL G0001))
; (!*EXIT 1)
; (ADJSP (REG ST) (MINUS 1))
; (POPJ (REG ST) 0)
1
; (!*ENTRY RAISECHAR EXPR 1)
L0252: intern L0252
PUSH 15,1
HRRZI 12,212
HRRZI 13,1
PUSHJ 15,SYMFNC+212
CAMN 1,0
JRST L0253
ADJSP 15,-1
HRRZI 12,206
SETZM 13
JRST SYMFNC+206
L0253: CAMN 0,SYMVAL+191
JRST L0254
MOVE 1,0(15)
HRRZI 12,213
HRRZI 13,1
PUSHJ 15,SYMFNC+213
CAMN 1,0
JRST L0254
MOVE 1,0(15)
HRRZI 12,214
HRRZI 13,1
PUSHJ 15,SYMFNC+214
CAMN 1,0
JRST L0254
MOVE 1,0(15)
SUBI 1,32
JRST L0255
L0254: MOVE 1,0(15)
L0255: ADJSP 15,-1
POPJ 15,0
; (!*ENTRY INTERN EXPR 1)
; (!*ALLOC 2)
; (ADJSP (REG ST) 2)
; (!*MOVE (REG 1) (FRAME 1))
; (MOVEM (REG 1) (INDEXED (REG ST) 0))
; (!*JUMPNOTTYPE (LABEL G0004) (REG 1) ID)
; (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (REG 1) 0 5))))
; (CAIE (REG T6) 30)
; (JRST (LABEL G0004))
; (!*FIELD (REG 2) (REG 1) (WCONST 18) (WCONST 18))
; (HRRZ (REG 2) (REG 1))
; (!*MOVE (MEMORY (REG 2) (WCONST SYMNAM)) (FRAME 1))
; (MOVE (REG T1) (INDEXED (REG 2) (IMMEDIATE SYMNAM)))
; (MOVEM (REG T1) (INDEXED (REG ST) 0))
; (!*LBL (LABEL G0004))
; (!*MOVE (FRAME 1) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) 0))
; (!*LINK LOOKUPID EXPR 1)
; (HRRZI (REG LINKREG) 215)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY LOOKUPID))
; (!*MOVE (REG 1) (REG 2))
; (MOVE (REG 2) (REG 1))
; (!*MOVE (REG 2) (FRAME 2))
; (MOVEM (REG 2) (INDEXED (REG ST) -1))
; (!*JUMPEQ (LABEL G0007) (REG 2) (QUOTE NIL))
; (CAMN (REG 2) (REG NIL))
; (JRST (LABEL G0007))
; (!*MOVE (REG 2) (REG 1))
; (MOVE (REG 1) (REG 2))
; (!*MKITEM (REG 1) (WCONST 30))
; (TLZ (REG 1) 253952)
; (TLO (REG 1) (LSH 30 13))
; (!*JUMP (LABEL G0001))
; (JRST (LABEL G0001))
; (!*LBL (LABEL G0007))
; (!*LINK GTID EXPR 0)
; (HRRZI (REG LINKREG) 177)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY GTID))
; (!*MOVE (REG 1) (FRAME 2))
; (MOVEM (REG 1) (INDEXED (REG ST) -1))
; (!*JUMPEQ (LABEL G0012) (QUOTE NIL) (!$FLUID DEBUG))
; (CAMN (REG NIL) (!$FLUID DEBUG))
; (JRST (LABEL G0012))
; (!*MOVE (QUOTE "New ID# ") (REG 1))
; (MOVE (REG 1) (QUOTE "New ID# "))
; (!*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 PRINT EXPR 1)
; (HRRZI (REG LINKREG) 140)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY PRINT))
; (!*LBL (LABEL G0012))
; (!*MOVE (FRAME 1) (REG 2))
; (MOVE (REG 2) (INDEXED (REG ST) 0))
; (!*MOVE (FRAME 2) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) -1))
; (!*LINKE 2 INITNEWID EXPR 2)
; (ADJSP (REG ST) (MINUS 2))
; (HRRZI (REG LINKREG) 216)
; (HRRZI (REG NARGREG) 2)
; (JRST (ENTRY INITNEWID))
; (!*LBL (LABEL G0001))
; (!*EXIT 2)
; (ADJSP (REG ST) (MINUS 2))
; (POPJ (REG ST) 0)
; (FULLWORD (FIELDPOINTER (REG 1) 0 5))
L0258: 7
byte(7)78,101,119,32,73,68,35,32,0
1
; (!*ENTRY INTERN EXPR 1)
INTERN: intern INTERN
ADJSP 15,2
MOVEM 1,0(15)
LDB 11,L0256
CAIE 11,30
JRST L0259
HRRZ 2,1
MOVE 6,SYMNAM(2)
MOVEM 6,0(15)
L0259: MOVE 1,0(15)
HRRZI 12,215
HRRZI 13,1
PUSHJ 15,SYMFNC+215
MOVE 2,1
MOVEM 2,-1(15)
CAMN 2,0
JRST L0260
MOVE 1,2
TLZ 1,253952
TLO 1,245760
JRST L0261
L0260: HRRZI 12,177
SETZM 13
PUSHJ 15,SYMFNC+177
MOVEM 1,-1(15)
CAMN 0,SYMVAL+195
JRST L0262
MOVE 1,L0257
HRRZI 12,138
HRRZI 13,1
PUSHJ 15,SYMFNC+138
MOVE 1,-1(15)
HRRZI 12,140
HRRZI 13,1
PUSHJ 15,SYMFNC+140
L0262: MOVE 2,0(15)
MOVE 1,-1(15)
ADJSP 15,-2
HRRZI 12,216
HRRZI 13,2
JRST SYMFNC+216
L0261: ADJSP 15,-2
POPJ 15,0
L0256: point 5,1,4
L0257: <4_31>+L0258
; (!*ENTRY INITNEWID EXPR 2)
; (!*PUSH (REG 2))
; (PUSH (REG ST) (REG 2))
; (!*PUSH (REG 1))
; (PUSH (REG ST) (REG 1))
; (!*MOVE (QUOTE NIL) (REG 3))
; (MOVE (REG 3) (REG NIL))
; (!*MOVE (REG 3) (MEMORY (REG 1) (WCONST SYMVAL)))
; (MOVEM (REG 3) (INDEXED (REG 1) (IMMEDIATE SYMVAL)))
; (!*MOVE (QUOTE NIL) (REG 4))
; (MOVE (REG 4) (REG NIL))
; (!*MOVE (REG 4) (MEMORY (REG 1) (WCONST SYMPRP)))
; (MOVEM (REG 4) (INDEXED (REG 1) (IMMEDIATE SYMPRP)))
; (!*MOVE (REG 2) (REG 1))
; (MOVE (REG 1) (REG 2))
; (!*MKITEM (REG 1) (WCONST 4))
; (TLZ (REG 1) 253952)
; (TLO (REG 1) (LSH 4 13))
; (!*MOVE (REG 1) (MEMORY (FRAME 1) (WCONST SYMNAM)))
; (MOVE (REG T2) (INDEXED (REG ST) 0))
; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE SYMNAM)))
; (!*MOVE (FRAME 1) (REG 5))
; (MOVE (REG 5) (INDEXED (REG ST) 0))
; (!*MKITEM (REG 5) (WCONST 30))
; (TLZ (REG 5) 253952)
; (TLO (REG 5) (LSH 30 13))
; (!*MOVE (REG 5) (FRAME 1))
; (MOVEM (REG 5) (INDEXED (REG ST) 0))
; (!*MOVE (REG 5) (REG 1))
; (MOVE (REG 1) (REG 5))
; (!*LINK MAKEFUNBOUND EXPR 1)
; (HRRZI (REG LINKREG) 217)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY MAKEFUNBOUND))
; (!*MOVE (FRAME 1) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) 0))
; (!*EXIT 2)
; (ADJSP (REG ST) (MINUS 2))
; (POPJ (REG ST) 0)
2
; (!*ENTRY INITNEWID EXPR 2)
L0263: intern L0263
PUSH 15,2
PUSH 15,1
MOVE 3,0
MOVEM 3,SYMVAL(1)
MOVE 4,0
MOVEM 4,SYMPRP(1)
MOVE 1,2
TLZ 1,253952
TLO 1,32768
MOVE 7,0(15)
MOVEM 1,SYMNAM(7)
MOVE 5,0(15)
TLZ 5,253952
TLO 5,245760
MOVEM 5,0(15)
MOVE 1,5
HRRZI 12,217
HRRZI 13,1
PUSHJ 15,SYMFNC+217
MOVE 1,0(15)
ADJSP 15,-2
POPJ 15,0
; (!*ENTRY LOOKUPID EXPR 1)
; (!*PUSH (WVAR NEXTSYMBOL))
; (PUSH (REG ST) (WVAR NEXTSYMBOL))
; (!*PUSH (REG 1))
; (PUSH (REG ST) (REG 1))
; (!*JUMPEQ (LABEL G0004) (QUOTE NIL) (!$FLUID DEBUG))
; (CAMN (REG NIL) (!$FLUID DEBUG))
; (JRST (LABEL G0004))
; (!*MOVE (QUOTE "Lookup string=") (REG 1))
; (MOVE (REG 1) (QUOTE "Lookup string="))
; (!*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 PRIN1STRING EXPR 1)
; (HRRZI (REG LINKREG) 131)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY PRIN1STRING))
; (!*LINK TERPRI EXPR 0)
; (HRRZI (REG LINKREG) 139)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY TERPRI))
; (!*LBL (LABEL G0004))
; (!*JUMPWGREATERP (LABEL G0008) (FRAME 2) (WCONST 0))
; (SKIPLE (INDEXED (REG ST) -1))
; (JRST (LABEL G0008))
; (!*JUMPEQ (LABEL G0010) (QUOTE NIL) (!$FLUID DEBUG))
; (CAMN (REG NIL) (!$FLUID DEBUG))
; (JRST (LABEL G0010))
; (!*MOVE (QUOTE "Not Found in LookupId") (REG 1))
; (MOVE (REG 1) (QUOTE "Not Found in LookupId"))
; (!*LINK PRIN2T EXPR 1)
; (HRRZI (REG LINKREG) 141)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY PRIN2T))
; (!*LBL (LABEL G0010))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*JUMP (LABEL G0001))
; (JRST (LABEL G0001))
; (!*LBL (LABEL G0008))
; (!*WPLUS2 (FRAME 2) (WCONST -1))
; (SOS (INDEXED (REG ST) -1))
; (!*MOVE (FRAME 1) (REG 2))
; (MOVE (REG 2) (INDEXED (REG ST) 0))
; (!*MOVE (MEMORY (FRAME 2) (WCONST SYMNAM)) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) -1))
; (MOVE (REG 1) (INDEXED (REG 1) (IMMEDIATE SYMNAM)))
; (!*LINK EQSTR EXPR 2)
; (HRRZI (REG LINKREG) 189)
; (HRRZI (REG NARGREG) 2)
; (PUSHJ (REG ST) (ENTRY EQSTR))
; (!*JUMPEQ (LABEL G0004) (REG 1) (QUOTE NIL))
; (CAMN (REG 1) (REG NIL))
; (JRST (LABEL G0004))
; (!*JUMPEQ (LABEL G0018) (QUOTE NIL) (!$FLUID DEBUG))
; (CAMN (REG NIL) (!$FLUID DEBUG))
; (JRST (LABEL G0018))
; (!*MOVE (QUOTE "Found In LookUpId=") (REG 1))
; (MOVE (REG 1) (QUOTE "Found In LookUpId="))
; (!*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 PRINT EXPR 1)
; (HRRZI (REG LINKREG) 140)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY PRINT))
; (!*LBL (LABEL G0018))
; (!*MOVE (FRAME 2) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) -1))
; (!*LBL (LABEL G0001))
; (!*EXIT 2)
; (ADJSP (REG ST) (MINUS 2))
; (POPJ (REG ST) 0)
L0267: 17
byte(7)70,111,117,110,100,32,73,110,32,76,111,111,107,85,112,73,100,61,0
L0268: 20
byte(7)78,111,116,32,70,111,117,110,100,32,105,110,32,76,111,111,107,117,112,73,100,0
L0269: 13
byte(7)76,111,111,107,117,112,32,115,116,114,105,110,103,61,0
1
; (!*ENTRY LOOKUPID EXPR 1)
L0270: intern L0270
PUSH 15,L0003
PUSH 15,1
CAMN 0,SYMVAL+195
JRST L0271
MOVE 1,L0264
HRRZI 12,138
HRRZI 13,1
PUSHJ 15,SYMFNC+138
MOVE 1,0(15)
HRRZI 12,131
HRRZI 13,1
PUSHJ 15,SYMFNC+131
HRRZI 12,139
SETZM 13
PUSHJ 15,SYMFNC+139
L0271: SKIPLE -1(15)
JRST L0272
CAMN 0,SYMVAL+195
JRST L0273
MOVE 1,L0265
HRRZI 12,141
HRRZI 13,1
PUSHJ 15,SYMFNC+141
L0273: MOVE 1,0
JRST L0274
L0272: SOS -1(15)
MOVE 2,0(15)
MOVE 1,-1(15)
MOVE 1,SYMNAM(1)
HRRZI 12,189
HRRZI 13,2
PUSHJ 15,SYMFNC+189
CAMN 1,0
JRST L0271
CAMN 0,SYMVAL+195
JRST L0275
MOVE 1,L0266
HRRZI 12,138
HRRZI 13,1
PUSHJ 15,SYMFNC+138
MOVE 1,-1(15)
HRRZI 12,140
HRRZI 13,1
PUSHJ 15,SYMFNC+140
L0275: MOVE 1,-1(15)
L0274: ADJSP 15,-2
POPJ 15,0
L0266: <4_31>+L0267
L0265: <4_31>+L0268
L0264: <4_31>+L0269
; (!*ENTRY WHITEP EXPR 1)
; (!*ALLOC 0)
; (!*MOVE (REG 1) (REG 2))
; (MOVE (REG 2) (REG 1))
; (!*JUMPEQ (LABEL G0004) (REG 1) (WCONST 32))
; (CAIN (REG 1) 32)
; (JRST (LABEL G0004))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*JUMP (LABEL G0005))
; (JRST (LABEL G0005))
; (!*LBL (LABEL G0004))
; (!*MOVE (QUOTE T) (REG 1))
; (MOVE (REG 1) (FLUID T))
; (!*LBL (LABEL G0005))
; (!*JUMPNOTEQ (LABEL G0001) (REG 1) (QUOTE NIL))
; (CAME (REG 1) (REG NIL))
; (JRST (LABEL G0001))
; (!*MOVE (QUOTE T) (REG 1))
; (MOVE (REG 1) (FLUID T))
; (!*JUMPEQ (LABEL G0006) (REG 2) (WCONST 10))
; (CAIN (REG 2) 10)
; (JRST (LABEL G0006))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*LBL (LABEL G0006))
; (!*JUMPNOTEQ (LABEL G0001) (REG 1) (QUOTE NIL))
; (CAME (REG 1) (REG NIL))
; (JRST (LABEL G0001))
; (!*MOVE (QUOTE T) (REG 1))
; (MOVE (REG 1) (FLUID T))
; (!*JUMPEQ (LABEL G0007) (REG 2) (WCONST 9))
; (CAIN (REG 2) 9)
; (JRST (LABEL G0007))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*LBL (LABEL G0007))
; (!*JUMPNOTEQ (LABEL G0001) (REG 1) (QUOTE NIL))
; (CAME (REG 1) (REG NIL))
; (JRST (LABEL G0001))
; (!*MOVE (QUOTE T) (REG 1))
; (MOVE (REG 1) (FLUID T))
; (!*JUMPEQ (LABEL G0008) (REG 2) (WCONST 10))
; (CAIN (REG 2) 10)
; (JRST (LABEL G0008))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*LBL (LABEL G0008))
; (!*JUMPNOTEQ (LABEL G0001) (REG 1) (QUOTE NIL))
; (CAME (REG 1) (REG NIL))
; (JRST (LABEL G0001))
; (!*MOVE (QUOTE T) (REG 1))
; (MOVE (REG 1) (FLUID T))
; (!*JUMPEQ (LABEL G0009) (REG 2) (WCONST 12))
; (CAIN (REG 2) 12)
; (JRST (LABEL G0009))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*LBL (LABEL G0009))
; (!*JUMPNOTEQ (LABEL G0001) (REG 1) (QUOTE NIL))
; (CAME (REG 1) (REG NIL))
; (JRST (LABEL G0001))
; (!*MOVE (QUOTE T) (REG 1))
; (MOVE (REG 1) (FLUID T))
; (!*JUMPEQ (LABEL G0001) (REG 2) (WCONST 13))
; (CAIN (REG 2) 13)
; (JRST (LABEL G0001))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*LBL (LABEL G0001))
; (!*EXIT 0)
; (POPJ (REG ST) 0)
1
; (!*ENTRY WHITEP EXPR 1)
WHITEP: intern WHITEP
MOVE 2,1
CAIN 1,32
JRST L0276
MOVE 1,0
JRST L0277
L0276: MOVE 1,SYMVAL+84
L0277: CAME 1,0
JRST L0278
MOVE 1,SYMVAL+84
CAIN 2,10
JRST L0279
MOVE 1,0
L0279: CAME 1,0
JRST L0278
MOVE 1,SYMVAL+84
CAIN 2,9
JRST L0280
MOVE 1,0
L0280: CAME 1,0
JRST L0278
MOVE 1,SYMVAL+84
CAIN 2,10
JRST L0281
MOVE 1,0
L0281: CAME 1,0
JRST L0278
MOVE 1,SYMVAL+84
CAIN 2,12
JRST L0282
MOVE 1,0
L0282: CAME 1,0
JRST L0278
MOVE 1,SYMVAL+84
CAIN 2,13
JRST L0278
MOVE 1,0
L0278: POPJ 15,0
; (!*ENTRY DIGITP EXPR 1)
; (!*ALLOC 0)
; (!*MOVE (REG 1) (REG 2))
; (MOVE (REG 2) (REG 1))
; (!*JUMPWLEQ (LABEL G0004) (WCONST 48) (REG 1))
; (CAIL (REG 1) 48)
; (JRST (LABEL G0004))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*JUMP (LABEL G0005))
; (JRST (LABEL G0005))
; (!*LBL (LABEL G0004))
; (!*MOVE (QUOTE T) (REG 1))
; (MOVE (REG 1) (FLUID T))
; (!*LBL (LABEL G0005))
; (!*JUMPEQ (LABEL G0001) (REG 1) (QUOTE NIL))
; (CAMN (REG 1) (REG NIL))
; (JRST (LABEL G0001))
; (!*MOVE (QUOTE T) (REG 1))
; (MOVE (REG 1) (FLUID T))
; (!*JUMPWLEQ (LABEL G0001) (REG 2) (WCONST 57))
; (CAIG (REG 2) 57)
; (JRST (LABEL G0001))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*LBL (LABEL G0001))
; (!*EXIT 0)
; (POPJ (REG ST) 0)
1
; (!*ENTRY DIGITP EXPR 1)
DIGITP: intern DIGITP
MOVE 2,1
CAIL 1,48
JRST L0283
MOVE 1,0
JRST L0284
L0283: MOVE 1,SYMVAL+84
L0284: CAMN 1,0
JRST L0285
MOVE 1,SYMVAL+84
CAIG 2,57
JRST L0285
MOVE 1,0
L0285: POPJ 15,0
; (!*ENTRY ALPHAP EXPR 1)
; (!*PUSH (REG 1))
; (PUSH (REG ST) (REG 1))
; (!*LINK UPPERCASEP EXPR 1)
; (HRRZI (REG LINKREG) 218)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY UPPERCASEP))
; (!*JUMPNOTEQ (LABEL G0001) (REG 1) (QUOTE NIL))
; (CAME (REG 1) (REG NIL))
; (JRST (LABEL G0001))
; (!*MOVE (FRAME 1) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) 0))
; (!*LINKE 1 LOWERCASEP EXPR 1)
; (ADJSP (REG ST) (MINUS 1))
; (HRRZI (REG LINKREG) 214)
; (HRRZI (REG NARGREG) 1)
; (JRST (ENTRY LOWERCASEP))
; (!*LBL (LABEL G0001))
; (!*EXIT 1)
; (ADJSP (REG ST) (MINUS 1))
; (POPJ (REG ST) 0)
1
; (!*ENTRY ALPHAP EXPR 1)
ALPHAP: intern ALPHAP
PUSH 15,1
HRRZI 12,218
HRRZI 13,1
PUSHJ 15,SYMFNC+218
CAME 1,0
JRST L0286
MOVE 1,0(15)
ADJSP 15,-1
HRRZI 12,214
HRRZI 13,1
JRST SYMFNC+214
L0286: ADJSP 15,-1
POPJ 15,0
; (!*ENTRY UPPERCASEP EXPR 1)
; (!*ALLOC 0)
; (!*MOVE (REG 1) (REG 2))
; (MOVE (REG 2) (REG 1))
; (!*JUMPWLEQ (LABEL G0004) (WCONST 65) (REG 1))
; (CAIL (REG 1) 65)
; (JRST (LABEL G0004))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*JUMP (LABEL G0005))
; (JRST (LABEL G0005))
; (!*LBL (LABEL G0004))
; (!*MOVE (QUOTE T) (REG 1))
; (MOVE (REG 1) (FLUID T))
; (!*LBL (LABEL G0005))
; (!*JUMPEQ (LABEL G0001) (REG 1) (QUOTE NIL))
; (CAMN (REG 1) (REG NIL))
; (JRST (LABEL G0001))
; (!*MOVE (QUOTE T) (REG 1))
; (MOVE (REG 1) (FLUID T))
; (!*JUMPWLEQ (LABEL G0001) (REG 2) (WCONST 90))
; (CAIG (REG 2) 90)
; (JRST (LABEL G0001))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*LBL (LABEL G0001))
; (!*EXIT 0)
; (POPJ (REG ST) 0)
1
; (!*ENTRY UPPERCASEP EXPR 1)
L0287: intern L0287
MOVE 2,1
CAIL 1,65
JRST L0288
MOVE 1,0
JRST L0289
L0288: MOVE 1,SYMVAL+84
L0289: CAMN 1,0
JRST L0290
MOVE 1,SYMVAL+84
CAIG 2,90
JRST L0290
MOVE 1,0
L0290: POPJ 15,0
; (!*ENTRY LOWERCASEP EXPR 1)
; (!*ALLOC 0)
; (!*MOVE (REG 1) (REG 2))
; (MOVE (REG 2) (REG 1))
; (!*JUMPWLEQ (LABEL G0004) (WCONST 97) (REG 1))
; (CAIL (REG 1) 97)
; (JRST (LABEL G0004))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*JUMP (LABEL G0005))
; (JRST (LABEL G0005))
; (!*LBL (LABEL G0004))
; (!*MOVE (QUOTE T) (REG 1))
; (MOVE (REG 1) (FLUID T))
; (!*LBL (LABEL G0005))
; (!*JUMPEQ (LABEL G0001) (REG 1) (QUOTE NIL))
; (CAMN (REG 1) (REG NIL))
; (JRST (LABEL G0001))
; (!*MOVE (QUOTE T) (REG 1))
; (MOVE (REG 1) (FLUID T))
; (!*JUMPWLEQ (LABEL G0001) (REG 2) (WCONST 122))
; (CAIG (REG 2) 122)
; (JRST (LABEL G0001))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*LBL (LABEL G0001))
; (!*EXIT 0)
; (POPJ (REG ST) 0)
1
; (!*ENTRY LOWERCASEP EXPR 1)
L0291: intern L0291
MOVE 2,1
CAIL 1,97
JRST L0292
MOVE 1,0
JRST L0293
L0292: MOVE 1,SYMVAL+84
L0293: CAMN 1,0
JRST L0294
MOVE 1,SYMVAL+84
CAIG 2,122
JRST L0294
MOVE 1,0
L0294: POPJ 15,0
; (!*ENTRY ESCAPEP EXPR 1)
; (!*ALLOC 0)
; (!*JUMPEQ (LABEL G0003) (REG 1) (WCONST 33))
; (CAIN (REG 1) 33)
; (JRST (LABEL G0003))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*EXIT 0)
; (POPJ (REG ST) 0)
; (!*LBL (LABEL G0003))
; (!*MOVE (QUOTE T) (REG 1))
; (MOVE (REG 1) (FLUID T))
; (!*EXIT 0)
; (POPJ (REG ST) 0)
1
; (!*ENTRY ESCAPEP EXPR 1)
L0295: intern L0295
CAIN 1,33
JRST L0296
MOVE 1,0
POPJ 15,0
L0296: MOVE 1,SYMVAL+84
POPJ 15,0
; (!*ENTRY ALPHAESCP EXPR 1)
; (!*PUSH (REG 1))
; (PUSH (REG ST) (REG 1))
; (!*LINK ESCAPEP EXPR 1)
; (HRRZI (REG LINKREG) 212)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY ESCAPEP))
; (!*JUMPNOTEQ (LABEL G0001) (REG 1) (QUOTE NIL))
; (CAME (REG 1) (REG NIL))
; (JRST (LABEL G0001))
; (!*MOVE (FRAME 1) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) 0))
; (!*LINKE 1 ALPHAP EXPR 1)
; (ADJSP (REG ST) (MINUS 1))
; (HRRZI (REG LINKREG) 213)
; (HRRZI (REG NARGREG) 1)
; (JRST (ENTRY ALPHAP))
; (!*LBL (LABEL G0001))
; (!*EXIT 1)
; (ADJSP (REG ST) (MINUS 1))
; (POPJ (REG ST) 0)
1
; (!*ENTRY ALPHAESCP EXPR 1)
L0297: intern L0297
PUSH 15,1
HRRZI 12,212
HRRZI 13,1
PUSHJ 15,SYMFNC+212
CAME 1,0
JRST L0298
MOVE 1,0(15)
ADJSP 15,-1
HRRZI 12,213
HRRZI 13,1
JRST SYMFNC+213
L0298: ADJSP 15,-1
POPJ 15,0
; (!*ENTRY ALPHANUMP EXPR 1)
; (!*PUSH (REG 1))
; (PUSH (REG ST) (REG 1))
; (!*LINK DIGITP EXPR 1)
; (HRRZI (REG LINKREG) 200)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY DIGITP))
; (!*JUMPNOTEQ (LABEL G0001) (REG 1) (QUOTE NIL))
; (CAME (REG 1) (REG NIL))
; (JRST (LABEL G0001))
; (!*MOVE (FRAME 1) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) 0))
; (!*LINKE 1 ALPHAP EXPR 1)
; (ADJSP (REG ST) (MINUS 1))
; (HRRZI (REG LINKREG) 213)
; (HRRZI (REG NARGREG) 1)
; (JRST (ENTRY ALPHAP))
; (!*LBL (LABEL G0001))
; (!*EXIT 1)
; (ADJSP (REG ST) (MINUS 1))
; (POPJ (REG ST) 0)
1
; (!*ENTRY ALPHANUMP EXPR 1)
L0299: intern L0299
PUSH 15,1
HRRZI 12,200
HRRZI 13,1
PUSHJ 15,SYMFNC+200
CAME 1,0
JRST L0300
MOVE 1,0(15)
ADJSP 15,-1
HRRZI 12,213
HRRZI 13,1
JRST SYMFNC+213
L0300: ADJSP 15,-1
POPJ 15,0
; (!*ENTRY ALPHANUMESCP EXPR 1)
; (!*PUSH (REG 1))
; (PUSH (REG ST) (REG 1))
; (!*LINK ESCAPEP EXPR 1)
; (HRRZI (REG LINKREG) 212)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY ESCAPEP))
; (!*JUMPNOTEQ (LABEL G0001) (REG 1) (QUOTE NIL))
; (CAME (REG 1) (REG NIL))
; (JRST (LABEL G0001))
; (!*MOVE (FRAME 1) (REG 1))
; (MOVE (REG 1) (INDEXED (REG ST) 0))
; (!*LINKE 1 ALPHANUMP EXPR 1)
; (ADJSP (REG ST) (MINUS 1))
; (HRRZI (REG LINKREG) 219)
; (HRRZI (REG NARGREG) 1)
; (JRST (ENTRY ALPHANUMP))
; (!*LBL (LABEL G0001))
; (!*EXIT 1)
; (ADJSP (REG ST) (MINUS 1))
; (POPJ (REG ST) 0)
1
; (!*ENTRY ALPHANUMESCP EXPR 1)
L0301: intern L0301
PUSH 15,1
HRRZI 12,212
HRRZI 13,1
PUSHJ 15,SYMFNC+212
CAME 1,0
JRST L0302
MOVE 1,0(15)
ADJSP 15,-1
HRRZI 12,219
HRRZI 13,1
JRST SYMFNC+219
L0302: ADJSP 15,-1
POPJ 15,0
; (!*ENTRY READ EXPR 0)
; (!*ALLOC 0)
; (!*LINK RATOM EXPR 0)
; (HRRZI (REG LINKREG) 204)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY RATOM))
; (!*LINKE 0 READ1 EXPR 1)
; (HRRZI (REG LINKREG) 220)
; (HRRZI (REG NARGREG) 1)
; (JRST (ENTRY READ1))
0
; (!*ENTRY READ EXPR 0)
READ: intern READ
HRRZI 12,204
SETZM 13
PUSHJ 15,SYMFNC+204
HRRZI 12,220
HRRZI 13,1
JRST SYMFNC+220
; (!*ENTRY READ1 EXPR 1)
; (!*ALLOC 0)
; (!*JUMPNOTEQ (LABEL G0004) (REG 1) (QUOTE !())
; (CAME (REG 1) (QUOTE !())
; (JRST (LABEL G0004))
; (!*LINK RATOM EXPR 0)
; (HRRZI (REG LINKREG) 204)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY RATOM))
; (!*LINKE 0 READLIST EXPR 1)
; (HRRZI (REG LINKREG) 222)
; (HRRZI (REG NARGREG) 1)
; (JRST (ENTRY READLIST))
; (!*LBL (LABEL G0004))
; (!*JUMPNOTEQ (LABEL G0001) (REG 1) (QUOTE !'))
; (CAME (REG 1) (QUOTE !'))
; (JRST (LABEL G0001))
; (!*LINK READ EXPR 0)
; (HRRZI (REG LINKREG) 221)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY READ))
; (!*LINK NCONS EXPR 1)
; (HRRZI (REG LINKREG) 181)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY NCONS))
; (!*MOVE (QUOTE QUOTE) (REG 2))
; (MOVE (REG 2) (QUOTE QUOTE))
; (!*LINKE 0 XCONS EXPR 2)
; (HRRZI (REG LINKREG) 180)
; (HRRZI (REG NARGREG) 2)
; (JRST (ENTRY XCONS))
; (!*LBL (LABEL G0001))
; (!*EXIT 0)
; (POPJ (REG ST) 0)
1
; (!*ENTRY READ1 EXPR 1)
READ1: intern READ1
CAME 1,L0303
JRST L0306
HRRZI 12,204
SETZM 13
PUSHJ 15,SYMFNC+204
HRRZI 12,222
HRRZI 13,1
JRST SYMFNC+222
L0306: CAME 1,L0304
JRST L0307
HRRZI 12,221
SETZM 13
PUSHJ 15,SYMFNC+221
HRRZI 12,181
HRRZI 13,1
PUSHJ 15,SYMFNC+181
MOVE 2,L0305
HRRZI 12,180
HRRZI 13,2
JRST SYMFNC+180
L0307: POPJ 15,0
L0305: <30_31>+223
L0304: <30_31>+39
L0303: <30_31>+40
; (!*ENTRY READLIST EXPR 1)
; (!*PUSH (QUOTE NIL))
; (PUSH (REG ST) (REG NIL))
; (!*PUSH (REG 1))
; (PUSH (REG ST) (REG 1))
; (!*JUMPNOTEQ (LABEL G0004) (REG 1) (QUOTE !)))
; (CAME (REG 1) (QUOTE !)))
; (JRST (LABEL G0004))
; (!*MOVE (QUOTE NIL) (REG 1))
; (MOVE (REG 1) (REG NIL))
; (!*JUMP (LABEL G0001))
; (JRST (LABEL G0001))
; (!*LBL (LABEL G0004))
; (!*LINK READ1 EXPR 1)
; (HRRZI (REG LINKREG) 220)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (ENTRY READ1))
; (!*MOVE (REG 1) (FRAME 2))
; (MOVEM (REG 1) (INDEXED (REG ST) -1))
; (!*LINK RATOM EXPR 0)
; (HRRZI (REG LINKREG) 204)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY RATOM))
; (!*MOVE (REG 1) (FRAME 1))
; (MOVEM (REG 1) (INDEXED (REG ST) 0))
; (!*JUMPNOTEQ (LABEL G0009) (REG 1) (QUOTE !.))
; (CAME (REG 1) (QUOTE !.))
; (JRST (LABEL G0009))
; (!*LINK RATOM EXPR 0)
; (HRRZI (REG LINKREG) 204)
; (SETZM (REG NARGREG))
; (PUSHJ (REG ST) (ENTRY RATOM))
; (!*LINK READLIST EXPR 1)
; (HRRZI (REG LINKREG) 222)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (INTERNALENTRY READLIST))
; (!*MOVE (FRAME 2) (REG 2))
; (MOVE (REG 2) (INDEXED (REG ST) -1))
; (!*MOVE (CAR (REG 1)) (REG 1))
; (MOVE (REG 1) (INDEXED (REG 1) 0))
; (!*LINKE 2 XCONS EXPR 2)
; (ADJSP (REG ST) (MINUS 2))
; (HRRZI (REG LINKREG) 180)
; (HRRZI (REG NARGREG) 2)
; (JRST (ENTRY XCONS))
; (!*LBL (LABEL G0009))
; (!*LINK READLIST EXPR 1)
; (HRRZI (REG LINKREG) 222)
; (HRRZI (REG NARGREG) 1)
; (PUSHJ (REG ST) (INTERNALENTRY READLIST))
; (!*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 G0001))
; (!*EXIT 2)
; (ADJSP (REG ST) (MINUS 2))
; (POPJ (REG ST) 0)
1
; (!*ENTRY READLIST EXPR 1)
L0310: intern L0310
PUSH 15,0
PUSH 15,1
CAME 1,L0308
JRST L0311
MOVE 1,0
JRST L0312
L0311: HRRZI 12,220
HRRZI 13,1
PUSHJ 15,SYMFNC+220
MOVEM 1,-1(15)
HRRZI 12,204
SETZM 13
PUSHJ 15,SYMFNC+204
MOVEM 1,0(15)
CAME 1,L0309
JRST L0313
HRRZI 12,204
SETZM 13
PUSHJ 15,SYMFNC+204
HRRZI 12,222
HRRZI 13,1
PUSHJ 15,L0310
MOVE 2,-1(15)
MOVE 1,0(1)
ADJSP 15,-2
HRRZI 12,180
HRRZI 13,2
JRST SYMFNC+180
L0313: HRRZI 12,222
HRRZI 13,1
PUSHJ 15,L0310
MOVE 2,-1(15)
ADJSP 15,-2
HRRZI 12,180
HRRZI 13,2
JRST SYMFNC+180
L0312: ADJSP 15,-2
POPJ 15,0
L0309: <30_31>+46
L0308: <30_31>+41
end