Artifact d1fd6afb2e86af66605f33c5e3e949fdcd49b4ff365e2688c0857850ab573c41:
- File
psl-1983/3-1/tests/20/main1.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: 37936) [annotate] [blame] [check-ins using] [more...]
search monsym radix 10 extern STACK extern L0001 extern L0002 extern HEAP extern L0006 extern L0007 extern L0008 extern L0009 extern L0010 extern L0011 extern L0012 extern BPS extern L0013 extern L0014 extern L0015 extern L0016 ; (!*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) L0017: intern L0017 MOVE 6,L0006 MOVEM 6,L0008 SETZM 1 MOVEM 1,L0010 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 extern L0005 ; (!*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) 130) ; (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,L0018 MOVE 0,SYMVAL+128 HRRZI 12,130 SETZM 13 JRST SYMFNC+130 L0018: 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+133 HRRZI 6,1 MOVEM 6,SYMVAL+134 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) 135) ; (HRRZI (REG NARGREG) 1) ; (JRST (ENTRY INDEPENDENTREADCHAR)) 0 ; (!*ENTRY GETC EXPR 0) GETC: intern GETC SKIPE SYMVAL+133 JRST L0019 SETZM 1 PUSHJ 15,GETC20 POPJ 15,0 L0019: MOVE 1,SYMVAL+133 HRRZI 12,135 HRRZI 13,1 JRST SYMFNC+135 ; (!*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) 138) ; (HRRZI (REG NARGREG) 2) ; (JRST (ENTRY INDEPENDENTWRITECHAR)) 1 ; (!*ENTRY PUTC EXPR 1) PUTC: intern PUTC MOVE 7,SYMVAL+134 CAIE 7,1 JRST L0020 PUSHJ 15,PUTC20 POPJ 15,0 L0020: MOVE 2,1 MOVE 1,SYMVAL+134 HRRZI 12,138 HRRZI 13,2 JRST SYMFNC+138 ; (!*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 EXITLISP EXPR 0) ; (!*ALLOC 0) ; (!*MOVE (WCONST 0) (REG 1)) ; (SETZM (REG 1)) ; (!*LINKE 0 QUIT20 EXPR 1) ; (PUSHJ (REG ST) (INTERNALENTRY QUIT20)) ; (POPJ (REG ST) 0) 0 ; (!*ENTRY EXITLISP EXPR 0) L0021: intern L0021 SETZM 1 PUSHJ 15,QUIT20 POPJ 15,0 ; (!*ENTRY RESET EXPR 0) ; (!*ALLOC 0) ; (!*MOVE (QUOTE "Should RESET here, but will QUIT") (REG 1)) ; (MOVE (REG 1) (QUOTE "Should RESET here, but will QUIT")) ; (!*LINK PRIN2T EXPR 1) ; (HRRZI (REG LINKREG) 142) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PRIN2T)) ; (!*LINK QUIT EXPR 0) ; (HRRZI (REG LINKREG) 140) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY QUIT)) ; (!*MOVE (QUOTE NIL) (REG 1)) ; (MOVE (REG 1) (REG NIL)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) L0023: 31 byte(7)83,104,111,117,108,100,32,82,69,83,69,84,32,104,101,114,101,44,32,98,117,116,32,119,105,108,108,32,81,85,73,84,0 0 ; (!*ENTRY RESET EXPR 0) RESET: intern RESET MOVE 1,L0022 HRRZI 12,142 HRRZI 13,1 PUSHJ 15,SYMFNC+142 HRRZI 12,140 SETZM 13 PUSHJ 15,SYMFNC+140 MOVE 1,0 POPJ 15,0 L0022: <4_31>+L0023 ; (!*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) L0025: 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,L0024 POPJ 15,0 L0024: <4_31>+L0025 ; (!*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) L0027: 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) L0028: intern L0028 MOVE 1,L0026 POPJ 15,0 L0026: <4_31>+L0027 ; (!*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) L0029: intern L0029 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) L0030: intern L0030 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) L0031: intern L0031 MOVEM 12,SYMVAL+150 MOVEM 13,SYMVAL+151 JRST SYMFNC+152 ; (!*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) L0032: intern L0032 IMUL 1,2 POPJ 15,0 ; (!*ENTRY LONGDIV EXPR 2) ; (!*ALLOC 0) ; (!*LINKE 0 WQUOTIENT EXPR 2) ; (HRRZI (REG LINKREG) 154) ; (HRRZI (REG NARGREG) 2) ; (IDIV (REG 1) (REG 2)) ; (POPJ (REG ST) 0) 2 ; (!*ENTRY LONGDIV EXPR 2) L0033: intern L0033 HRRZI 12,154 HRRZI 13,2 IDIV 1,2 POPJ 15,0 ; (!*ENTRY LONGREMAINDER EXPR 2) ; (!*ALLOC 0) ; (!*LINKE 0 WREMAINDER EXPR 2) ; (HRRZI (REG LINKREG) 156) ; (HRRZI (REG NARGREG) 2) ; (IDIV (REG 1) (REG 2)) ; (MOVE (REG 1) (REG 2)) ; (POPJ (REG ST) 0) 2 ; (!*ENTRY LONGREMAINDER EXPR 2) L0034: intern L0034 HRRZI 12,156 HRRZI 13,2 IDIV 1,2 MOVE 1,2 POPJ 15,0 ; (!*ENTRY FIRSTCALL EXPR 0) ; (!*ALLOC 0) ; (!*LINK INIT EXPR 0) ; (HRRZI (REG LINKREG) 132) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY INIT)) ; (!*MOVE (WCONST 70) (REG 1)) ; (HRRZI (REG 1) 70) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 97) (REG 1)) ; (HRRZI (REG 1) 97) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 99) (REG 1)) ; (HRRZI (REG 1) 99) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 61) (REG 1)) ; (HRRZI (REG 1) 61) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 10) (REG 1)) ; (HRRZI (REG 1) 10) ; (!*LINK IFACT EXPR 1) ; (HRRZI (REG LINKREG) 158) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY IFACT)) ; (!*LINK PUTINT EXPR 1) ; (HRRZI (REG LINKREG) 146) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTINT)) ; (!*LINK TERPRI EXPR 0) ; (HRRZI (REG LINKREG) 159) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TERPRI)) ; (!*MOVE (WCONST 84) (REG 1)) ; (HRRZI (REG 1) 84) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 101) (REG 1)) ; (HRRZI (REG 1) 101) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 115) (REG 1)) ; (HRRZI (REG 1) 115) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 116) (REG 1)) ; (HRRZI (REG 1) 116) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 70) (REG 1)) ; (HRRZI (REG 1) 70) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 97) (REG 1)) ; (HRRZI (REG 1) 97) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 99) (REG 1)) ; (HRRZI (REG 1) 99) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 116) (REG 1)) ; (HRRZI (REG 1) 116) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*LINK TERPRI EXPR 0) ; (HRRZI (REG LINKREG) 159) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TERPRI)) ; (!*LINK TESTFACT EXPR 0) ; (HRRZI (REG LINKREG) 160) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TESTFACT)) ; (!*LINK TERPRI EXPR 0) ; (HRRZI (REG LINKREG) 159) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TERPRI)) ; (!*MOVE (WCONST 84) (REG 1)) ; (HRRZI (REG 1) 84) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 101) (REG 1)) ; (HRRZI (REG 1) 101) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 115) (REG 1)) ; (HRRZI (REG 1) 115) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 116) (REG 1)) ; (HRRZI (REG 1) 116) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 84) (REG 1)) ; (HRRZI (REG 1) 84) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 97) (REG 1)) ; (HRRZI (REG 1) 97) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (WCONST 107) (REG 1)) ; (HRRZI (REG 1) 107) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*LINK TERPRI EXPR 0) ; (HRRZI (REG LINKREG) 159) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TERPRI)) ; (!*LINK TESTTAK EXPR 0) ; (HRRZI (REG LINKREG) 161) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TESTTAK)) ; (!*LINK QUIT EXPR 0) ; (HRRZI (REG LINKREG) 140) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY QUIT)) ; (!*MOVE (QUOTE NIL) (REG 1)) ; (MOVE (REG 1) (REG NIL)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) 0 ; (!*ENTRY FIRSTCALL EXPR 0) L0035: intern L0035 HRRZI 12,132 SETZM 13 PUSHJ 15,SYMFNC+132 HRRZI 1,70 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,97 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,99 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,61 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,10 HRRZI 12,158 HRRZI 13,1 PUSHJ 15,SYMFNC+158 HRRZI 12,146 HRRZI 13,1 PUSHJ 15,SYMFNC+146 HRRZI 12,159 SETZM 13 PUSHJ 15,SYMFNC+159 HRRZI 1,84 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,101 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,115 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,116 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,70 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,97 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,99 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,116 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 12,159 SETZM 13 PUSHJ 15,SYMFNC+159 HRRZI 12,160 SETZM 13 PUSHJ 15,SYMFNC+160 HRRZI 12,159 SETZM 13 PUSHJ 15,SYMFNC+159 HRRZI 1,84 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,101 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,115 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,116 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,84 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,97 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,107 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 12,159 SETZM 13 PUSHJ 15,SYMFNC+159 HRRZI 12,161 SETZM 13 PUSHJ 15,SYMFNC+161 HRRZI 12,140 SETZM 13 PUSHJ 15,SYMFNC+140 MOVE 1,0 POPJ 15,0 ; (!*ENTRY TERPRI EXPR 0) ; (!*ALLOC 0) ; (!*MOVE (WCONST 10) (REG 1)) ; (HRRZI (REG 1) 10) ; (!*LINKE 0 PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (JRST (ENTRY PUTC)) 0 ; (!*ENTRY TERPRI EXPR 0) TERPRI: intern TERPRI HRRZI 1,10 HRRZI 12,139 HRRZI 13,1 JRST SYMFNC+139 ; (!*ENTRY TESTFACT EXPR 0) ; (!*ALLOC 0) ; (!*LINK TIMC EXPR 0) ; (HRRZI (REG LINKREG) 137) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TIMC)) ; (!*LINK PUTINT EXPR 1) ; (HRRZI (REG LINKREG) 146) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTINT)) ; (!*LINK TERPRI EXPR 0) ; (HRRZI (REG LINKREG) 159) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TERPRI)) ; (!*MOVE (WCONST 10000) (REG 1)) ; (HRRZI (REG 1) 10000) ; (!*LINK ARITHMETICTEST EXPR 1) ; (HRRZI (REG LINKREG) 162) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY ARITHMETICTEST)) ; (!*LINK TIMC EXPR 0) ; (HRRZI (REG LINKREG) 137) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TIMC)) ; (!*LINK PUTINT EXPR 1) ; (HRRZI (REG LINKREG) 146) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTINT)) ; (!*LINK TERPRI EXPR 0) ; (HRRZI (REG LINKREG) 159) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TERPRI)) ; (!*MOVE (QUOTE NIL) (REG 1)) ; (MOVE (REG 1) (REG NIL)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) 0 ; (!*ENTRY TESTFACT EXPR 0) L0036: intern L0036 HRRZI 12,137 SETZM 13 PUSHJ 15,SYMFNC+137 HRRZI 12,146 HRRZI 13,1 PUSHJ 15,SYMFNC+146 HRRZI 12,159 SETZM 13 PUSHJ 15,SYMFNC+159 HRRZI 1,10000 HRRZI 12,162 HRRZI 13,1 PUSHJ 15,SYMFNC+162 HRRZI 12,137 SETZM 13 PUSHJ 15,SYMFNC+137 HRRZI 12,146 HRRZI 13,1 PUSHJ 15,SYMFNC+146 HRRZI 12,159 SETZM 13 PUSHJ 15,SYMFNC+159 MOVE 1,0 POPJ 15,0 ; (!*ENTRY ARITHMETICTEST EXPR 1) ; (!*PUSH (WCONST 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 (WCONST 9) (REG 1)) ; (HRRZI (REG 1) 9) ; (!*LINK FACT EXPR 1) ; (HRRZI (REG LINKREG) 163) ; (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) L0038: intern L0038 PUSH 15,L0037 PUSH 15,1 L0039: MOVE 6,-1(15) CAMG 6,0(15) JRST L0040 MOVE 1,0 JRST L0041 L0040: HRRZI 1,9 HRRZI 12,163 HRRZI 13,1 PUSHJ 15,SYMFNC+163 AOS -1(15) JRST L0039 L0041: ADJSP 15,-2 POPJ 15,0 L0037: 0 ; (!*ENTRY TESTTAK EXPR 0) ; (!*ALLOC 0) ; (!*LINK TIMC EXPR 0) ; (HRRZI (REG LINKREG) 137) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TIMC)) ; (!*LINK PUTINT EXPR 1) ; (HRRZI (REG LINKREG) 146) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTINT)) ; (!*LINK TERPRI EXPR 0) ; (HRRZI (REG LINKREG) 159) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TERPRI)) ; (!*MOVE (WCONST 6) (REG 3)) ; (HRRZI (REG 3) 6) ; (!*MOVE (WCONST 12) (REG 2)) ; (HRRZI (REG 2) 12) ; (!*MOVE (WCONST 18) (REG 1)) ; (HRRZI (REG 1) 18) ; (!*LINK TOPLEVELTAK EXPR 3) ; (HRRZI (REG LINKREG) 164) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY TOPLEVELTAK)) ; (!*LINK PUTINT EXPR 1) ; (HRRZI (REG LINKREG) 146) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTINT)) ; (!*LINK TERPRI EXPR 0) ; (HRRZI (REG LINKREG) 159) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TERPRI)) ; (!*LINK TIMC EXPR 0) ; (HRRZI (REG LINKREG) 137) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TIMC)) ; (!*LINK PUTINT EXPR 1) ; (HRRZI (REG LINKREG) 146) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTINT)) ; (!*LINK TERPRI EXPR 0) ; (HRRZI (REG LINKREG) 159) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TERPRI)) ; (!*MOVE (QUOTE NIL) (REG 1)) ; (MOVE (REG 1) (REG NIL)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) 0 ; (!*ENTRY TESTTAK EXPR 0) L0042: intern L0042 HRRZI 12,137 SETZM 13 PUSHJ 15,SYMFNC+137 HRRZI 12,146 HRRZI 13,1 PUSHJ 15,SYMFNC+146 HRRZI 12,159 SETZM 13 PUSHJ 15,SYMFNC+159 HRRZI 3,6 HRRZI 2,12 HRRZI 1,18 HRRZI 12,164 HRRZI 13,3 PUSHJ 15,SYMFNC+164 HRRZI 12,146 HRRZI 13,1 PUSHJ 15,SYMFNC+146 HRRZI 12,159 SETZM 13 PUSHJ 15,SYMFNC+159 HRRZI 12,137 SETZM 13 PUSHJ 15,SYMFNC+137 HRRZI 12,146 HRRZI 13,1 PUSHJ 15,SYMFNC+146 HRRZI 12,159 SETZM 13 PUSHJ 15,SYMFNC+159 MOVE 1,0 POPJ 15,0 ; (!*ENTRY FACT EXPR 1) ; (!*PUSH (REG 1)) ; (PUSH (REG ST) (REG 1)) ; (!*JUMPWGEQ (LABEL G0004) (REG 1) (WCONST 2)) ; (CAIL (REG 1) 2) ; (JRST (LABEL G0004)) ; (!*MOVE (WCONST 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) 163) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (INTERNALENTRY FACT)) ; (!*MOVE (REG 1) (REG 2)) ; (MOVE (REG 2) (REG 1)) ; (!*MOVE (FRAME 1) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) 0)) ; (!*LINKE 1 LONGTIMES EXPR 2) ; (ADJSP (REG ST) (MINUS 1)) ; (HRRZI (REG LINKREG) 153) ; (HRRZI (REG NARGREG) 2) ; (JRST (ENTRY LONGTIMES)) ; (!*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 L0043 HRRZI 1,1 JRST L0044 L0043: SOS 1 HRRZI 12,163 HRRZI 13,1 PUSHJ 15,FACT MOVE 2,1 MOVE 1,0(15) ADJSP 15,-1 HRRZI 12,153 HRRZI 13,2 JRST SYMFNC+153 L0044: ADJSP 15,-1 POPJ 15,0 ; (!*ENTRY IFACT EXPR 1) ; (!*PUSH (WCONST 1)) ; (PUSH (REG ST) (LIT (FULLWORD 1))) ; (!*PUSH (REG 1)) ; (PUSH (REG ST) (REG 1)) ; (!*LBL (LABEL G0004)) ; (!*JUMPNOTEQ (LABEL G0005) (FRAME 1) (WCONST 1)) ; (MOVE (REG T1) (INDEXED (REG ST) 0)) ; (CAIE (REG T1) 1) ; (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 (FRAME 1) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) 0)) ; (!*LINK LONGTIMES EXPR 2) ; (HRRZI (REG LINKREG) 153) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY LONGTIMES)) ; (!*MOVE (REG 1) (FRAME 2)) ; (MOVEM (REG 1) (INDEXED (REG ST) -1)) ; (!*WPLUS2 (FRAME 1) (WCONST -1)) ; (SOS (INDEXED (REG ST) 0)) ; (!*MOVE (FRAME 1) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) 0)) ; (!*LINK PUTINT EXPR 1) ; (HRRZI (REG LINKREG) 146) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTINT)) ; (!*LINK TERPRI EXPR 0) ; (HRRZI (REG LINKREG) 159) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TERPRI)) ; (!*MOVE (FRAME 2) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (!*LINK PUTINT EXPR 1) ; (HRRZI (REG LINKREG) 146) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTINT)) ; (!*LINK TERPRI EXPR 0) ; (HRRZI (REG LINKREG) 159) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TERPRI)) ; (!*JUMP (LABEL G0004)) ; (JRST (LABEL G0004)) ; (!*LBL (LABEL G0001)) ; (!*EXIT 2) ; (ADJSP (REG ST) (MINUS 2)) ; (POPJ (REG ST) 0) ; (FULLWORD 1) 1 ; (!*ENTRY IFACT EXPR 1) IFACT: intern IFACT PUSH 15,L0045 PUSH 15,1 L0046: MOVE 6,0(15) CAIE 6,1 JRST L0047 MOVE 1,-1(15) JRST L0048 L0047: MOVE 2,-1(15) MOVE 1,0(15) HRRZI 12,153 HRRZI 13,2 PUSHJ 15,SYMFNC+153 MOVEM 1,-1(15) SOS 0(15) MOVE 1,0(15) HRRZI 12,146 HRRZI 13,1 PUSHJ 15,SYMFNC+146 HRRZI 12,159 SETZM 13 PUSHJ 15,SYMFNC+159 MOVE 1,-1(15) HRRZI 12,146 HRRZI 13,1 PUSHJ 15,SYMFNC+146 HRRZI 12,159 SETZM 13 PUSHJ 15,SYMFNC+159 JRST L0046 L0048: ADJSP 15,-2 POPJ 15,0 L0045: 1 ; (!*ENTRY TOPLEVELTAK EXPR 3) ; (!*ALLOC 0) ; (!*LINKE 0 TAK EXPR 3) ; (HRRZI (REG LINKREG) 165) ; (HRRZI (REG NARGREG) 3) ; (JRST (ENTRY TAK)) 3 ; (!*ENTRY TOPLEVELTAK EXPR 3) L0049: intern L0049 HRRZI 12,165 HRRZI 13,3 JRST SYMFNC+165 ; (!*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) 165) ; (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) 165) ; (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) 165) ; (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 L0050: MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) CAMGE 2,1 JRST L0051 MOVE 1,3 JRST L0052 L0051: SOS 1 HRRZI 12,165 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,165 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,165 HRRZI 13,3 PUSHJ 15,TAK MOVE 3,1 MOVE 2,-4(15) MOVE 1,-3(15) JRST L0050 L0052: ADJSP 15,-5 POPJ 15,0 ; (!*ENTRY UNDEFINEDFUNCTIONAUX EXPR 0) ; (!*ALLOC 0) ; (!*MOVE (QUOTE 85) (REG 1)) ; (HRRZI (REG 1) 85) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (QUOTE 110) (REG 1)) ; (HRRZI (REG 1) 110) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (QUOTE 100) (REG 1)) ; (HRRZI (REG 1) 100) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (QUOTE 101) (REG 1)) ; (HRRZI (REG 1) 101) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (QUOTE 102) (REG 1)) ; (HRRZI (REG 1) 102) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (QUOTE 32) (REG 1)) ; (HRRZI (REG 1) 32) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 139) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*MOVE (!$FLUID UNDEFNCODE!*) (REG 1)) ; (MOVE (REG 1) (!$FLUID UNDEFNCODE!*)) ; (!*LINK PUTINT EXPR 1) ; (HRRZI (REG LINKREG) 146) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTINT)) ; (!*LINK TERPRI EXPR 0) ; (HRRZI (REG LINKREG) 159) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TERPRI)) ; (!*LINK QUIT EXPR 0) ; (HRRZI (REG LINKREG) 140) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY QUIT)) ; (!*MOVE (QUOTE NIL) (REG 1)) ; (MOVE (REG 1) (REG NIL)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) 0 ; (!*ENTRY UNDEFINEDFUNCTIONAUX EXPR 0) L0053: intern L0053 HRRZI 1,85 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,110 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,100 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,101 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,102 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 HRRZI 1,32 HRRZI 12,139 HRRZI 13,1 PUSHJ 15,SYMFNC+139 MOVE 1,SYMVAL+150 HRRZI 12,146 HRRZI 13,1 PUSHJ 15,SYMFNC+146 HRRZI 12,159 SETZM 13 PUSHJ 15,SYMFNC+159 HRRZI 12,140 SETZM 13 PUSHJ 15,SYMFNC+140 MOVE 1,0 POPJ 15,0 0 ; (!*ENTRY INITCODE EXPR 0) L0054: intern L0054 MOVE 1,0 POPJ 15,0 extern SYMVAL extern SYMPRP extern SYMNAM L0055: 0 byte(7)0,0 intern L0055 L0056: 0 byte(7)1,0 intern L0056 L0057: 0 byte(7)2,0 intern L0057 L0058: 0 byte(7)3,0 intern L0058 L0059: 0 byte(7)4,0 intern L0059 L0060: 0 byte(7)5,0 intern L0060 L0061: 0 byte(7)6,0 intern L0061 L0062: 0 byte(7)7,0 intern L0062 L0063: 0 byte(7)8,0 intern L0063 L0064: 0 byte(7)9,0 intern L0064 L0065: 0 byte(7)10,0 intern L0065 L0066: 0 byte(7)11,0 intern L0066 L0067: 0 byte(7)12,0 intern L0067 L0068: 0 byte(7)13,0 intern L0068 L0069: 0 byte(7)14,0 intern L0069 L0070: 0 byte(7)15,0 intern L0070 L0071: 0 byte(7)16,0 intern L0071 L0072: 0 byte(7)17,0 intern L0072 L0073: 0 byte(7)18,0 intern L0073 L0074: 0 byte(7)19,0 intern L0074 L0075: 0 byte(7)20,0 intern L0075 L0076: 0 byte(7)21,0 intern L0076 L0077: 0 byte(7)22,0 intern L0077 L0078: 0 byte(7)23,0 intern L0078 L0079: 0 byte(7)24,0 intern L0079 L0080: 0 byte(7)25,0 intern L0080 L0081: 0 byte(7)26,0 intern L0081 L0082: 0 byte(7)27,0 intern L0082 L0083: 0 byte(7)28,0 intern L0083 L0084: 0 byte(7)29,0 intern L0084 L0085: 0 byte(7)30,0 intern L0085 L0086: 0 byte(7)31,0 intern L0086 L0087: 0 byte(7)32,0 intern L0087 L0088: 0 byte(7)33,0 intern L0088 L0089: 0 byte(7)34,0 intern L0089 L0090: 0 byte(7)35,0 intern L0090 L0091: 0 byte(7)36,0 intern L0091 L0092: 0 byte(7)37,0 intern L0092 L0093: 0 byte(7)38,0 intern L0093 L0094: 0 byte(7)39,0 intern L0094 L0095: 0 byte(7)40,0 intern L0095 L0096: 0 byte(7)41,0 intern L0096 L0097: 0 byte(7)42,0 intern L0097 L0098: 0 byte(7)43,0 intern L0098 L0099: 0 byte(7)44,0 intern L0099 L0100: 0 byte(7)45,0 intern L0100 L0101: 0 byte(7)46,0 intern L0101 L0102: 0 byte(7)47,0 intern L0102 L0103: 0 byte(7)48,0 intern L0103 L0104: 0 byte(7)49,0 intern L0104 L0105: 0 byte(7)50,0 intern L0105 L0106: 0 byte(7)51,0 intern L0106 L0107: 0 byte(7)52,0 intern L0107 L0108: 0 byte(7)53,0 intern L0108 L0109: 0 byte(7)54,0 intern L0109 L0110: 0 byte(7)55,0 intern L0110 L0111: 0 byte(7)56,0 intern L0111 L0112: 0 byte(7)57,0 intern L0112 L0113: 0 byte(7)58,0 intern L0113 L0114: 0 byte(7)59,0 intern L0114 L0115: 0 byte(7)60,0 intern L0115 L0116: 0 byte(7)61,0 intern L0116 L0117: 0 byte(7)62,0 intern L0117 L0118: 0 byte(7)63,0 intern L0118 L0119: 0 byte(7)64,0 intern L0119 L0120: 0 byte(7)65,0 intern L0120 L0121: 0 byte(7)66,0 intern L0121 L0122: 0 byte(7)67,0 intern L0122 L0123: 0 byte(7)68,0 intern L0123 L0124: 0 byte(7)69,0 intern L0124 L0125: 0 byte(7)70,0 intern L0125 L0126: 0 byte(7)71,0 intern L0126 L0127: 0 byte(7)72,0 intern L0127 L0128: 0 byte(7)73,0 intern L0128 L0129: 0 byte(7)74,0 intern L0129 L0130: 0 byte(7)75,0 intern L0130 L0131: 0 byte(7)76,0 intern L0131 L0132: 0 byte(7)77,0 intern L0132 L0133: 0 byte(7)78,0 intern L0133 L0134: 0 byte(7)79,0 intern L0134 L0135: 0 byte(7)80,0 intern L0135 L0136: 0 byte(7)81,0 intern L0136 L0137: 0 byte(7)82,0 intern L0137 L0138: 0 byte(7)83,0 intern L0138 L0139: 0 byte(7)84,0 intern L0139 L0140: 0 byte(7)85,0 intern L0140 L0141: 0 byte(7)86,0 intern L0141 L0142: 0 byte(7)87,0 intern L0142 L0143: 0 byte(7)88,0 intern L0143 L0144: 0 byte(7)89,0 intern L0144 L0145: 0 byte(7)90,0 intern L0145 L0146: 0 byte(7)91,0 intern L0146 L0147: 0 byte(7)92,0 intern L0147 L0148: 0 byte(7)93,0 intern L0148 L0149: 0 byte(7)94,0 intern L0149 L0150: 0 byte(7)95,0 intern L0150 L0151: 0 byte(7)96,0 intern L0151 L0152: 0 byte(7)97,0 intern L0152 L0153: 0 byte(7)98,0 intern L0153 L0154: 0 byte(7)99,0 intern L0154 L0155: 0 byte(7)100,0 intern L0155 L0156: 0 byte(7)101,0 intern L0156 L0157: 0 byte(7)102,0 intern L0157 L0158: 0 byte(7)103,0 intern L0158 L0159: 0 byte(7)104,0 intern L0159 L0160: 0 byte(7)105,0 intern L0160 L0161: 0 byte(7)106,0 intern L0161 L0162: 0 byte(7)107,0 intern L0162 L0163: 0 byte(7)108,0 intern L0163 L0164: 0 byte(7)109,0 intern L0164 L0165: 0 byte(7)110,0 intern L0165 L0166: 0 byte(7)111,0 intern L0166 L0167: 0 byte(7)112,0 intern L0167 L0168: 0 byte(7)113,0 intern L0168 L0169: 0 byte(7)114,0 intern L0169 L0170: 0 byte(7)115,0 intern L0170 L0171: 0 byte(7)116,0 intern L0171 L0172: 0 byte(7)117,0 intern L0172 L0173: 0 byte(7)118,0 intern L0173 L0174: 0 byte(7)119,0 intern L0174 L0175: 0 byte(7)120,0 intern L0175 L0176: 0 byte(7)121,0 intern L0176 L0177: 0 byte(7)122,0 intern L0177 L0178: 0 byte(7)123,0 intern L0178 L0179: 0 byte(7)124,0 intern L0179 L0180: 0 byte(7)125,0 intern L0180 L0181: 0 byte(7)126,0 intern L0181 L0182: 0 byte(7)127,0 intern L0182 L0183: 2 byte(7)78,73,76,0 intern L0183 L0184: 7 byte(7)73,78,73,84,72,69,65,80,0 intern L0184 L0185: 8 byte(7)70,73,82,83,84,67,65,76,76,0 intern L0185 L0186: 4 byte(7)77,65,73,78,46,0 intern L0186 L0187: 3 byte(7)73,78,73,84,0 intern L0187 L0188: 2 byte(7)73,78,42,0 intern L0188 L0189: 3 byte(7)79,85,84,42,0 intern L0189 L0190: 18 byte(7)73,78,68,69,80,69,78,68,69,78,84,82,69,65,68,67,72,65,82,0 intern L0190 L0191: 3 byte(7)71,69,84,67,0 intern L0191 L0192: 3 byte(7)84,73,77,67,0 intern L0192 L0193: 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 L0193 L0194: 3 byte(7)80,85,84,67,0 intern L0194 L0195: 3 byte(7)81,85,73,84,0 intern L0195 L0196: 7 byte(7)69,88,73,84,76,73,83,80,0 intern L0196 L0197: 5 byte(7)80,82,73,78,50,84,0 intern L0197 L0198: 4 byte(7)82,69,83,69,84,0 intern L0198 L0199: 3 byte(7)68,65,84,69,0 intern L0199 L0200: 10 byte(7)86,69,82,83,73,79,78,78,65,77,69,0 intern L0200 L0201: 5 byte(7)80,85,84,73,78,84,0 intern L0201 L0202: 11 byte(7)37,83,84,79,82,69,45,74,67,65,76,76,0 intern L0202 L0203: 18 byte(7)37,67,79,80,89,45,70,85,78,67,84,73,79,78,45,67,69,76,76,0 intern L0203 L0204: 16 byte(7)85,78,68,69,70,73,78,69,68,70,85,78,67,84,73,79,78,0 intern L0204 L0205: 10 byte(7)85,78,68,69,70,78,67,79,68,69,42,0 intern L0205 L0206: 10 byte(7)85,78,68,69,70,78,78,65,82,71,42,0 intern L0206 L0207: 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 L0207 L0208: 8 byte(7)76,79,78,71,84,73,77,69,83,0 intern L0208 L0209: 8 byte(7)87,81,85,79,84,73,69,78,84,0 intern L0209 L0210: 6 byte(7)76,79,78,71,68,73,86,0 intern L0210 L0211: 9 byte(7)87,82,69,77,65,73,78,68,69,82,0 intern L0211 L0212: 12 byte(7)76,79,78,71,82,69,77,65,73,78,68,69,82,0 intern L0212 L0213: 4 byte(7)73,70,65,67,84,0 intern L0213 L0214: 5 byte(7)84,69,82,80,82,73,0 intern L0214 L0215: 7 byte(7)84,69,83,84,70,65,67,84,0 intern L0215 L0216: 6 byte(7)84,69,83,84,84,65,75,0 intern L0216 L0217: 13 byte(7)65,82,73,84,72,77,69,84,73,67,84,69,83,84,0 intern L0217 L0218: 3 byte(7)70,65,67,84,0 intern L0218 L0219: 10 byte(7)84,79,80,76,69,86,69,76,84,65,75,0 intern L0219 L0220: 2 byte(7)84,65,75,0 intern L0220 L0221: 7 byte(7)73,78,73,84,67,79,68,69,0 intern L0221 extern SYMFNC extern L0003 end MAIN.