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