Artifact 8047ba342bf5b236270e8f770aee6fb6d48537a92c7aebaaa69402b6bf3fcaf9:
- File
psl-1983/20-tests/sub4.mac
— part of check-in
[eb17ceb7f6]
at
2020-04-21 19:40:01
on branch master
— Add Reduce 3.0 to the historical section of the archive, and some more
files relating to version sof PSL from the early 1980s. Thanks are due to
Paul McJones and Nelson Beebe for these, as well as to all the original
authors.git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 50829) [annotate] [blame] [check-ins using] [more...]
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