Artifact 6283ec5129d213ce653a18afadc2298bd6f2ef1ce06fd31f76c16dd6942e56ee:
- File
psl-1983/20-tests/main5.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: 56626) [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 L1005 extern L1006 extern L1007 extern L1008 ; (!*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) L1009: intern L1009 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) 339) ; (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,L1010 MOVE 0,SYMVAL+128 HRRZI 12,339 SETZM 13 JRST SYMFNC+339 L1010: 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+342 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) 343) ; (HRRZI (REG NARGREG) 1) ; (JRST (ENTRY INDEPENDENTREADCHAR)) 0 ; (!*ENTRY GETC EXPR 0) GETC: intern GETC SKIPE SYMVAL+342 JRST L1011 SETZM 1 PUSHJ 15,GETC20 POPJ 15,0 L1011: MOVE 1,SYMVAL+342 HRRZI 12,343 HRRZI 13,1 JRST SYMFNC+343 ; (!*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 L1012 PUSHJ 15,PUTC20 POPJ 15,0 L1012: 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) L1014: 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,L1013 POPJ 15,0 L1013: <4_31>+L1014 ; (!*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) L1016: 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) L1017: intern L1017 MOVE 1,L1015 POPJ 15,0 L1015: <4_31>+L1016 ; (!*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) L1018: intern L1018 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) L1019: intern L1019 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) L1020: intern L1020 MOVEM 12,SYMVAL+349 MOVEM 13,SYMVAL+350 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) L1021: intern L1021 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) L1022: intern L1022 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) 352) ; (HRRZI (REG NARGREG) 2) ; (IDIV (REG 1) (REG 2)) ; (MOVE (REG 1) (REG 2)) ; (POPJ (REG ST) 0) 2 ; (!*ENTRY LONGREMAINDER EXPR 2) L1023: intern L1023 HRRZI 12,352 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) 353) ; (SETZM (REG NARGREG)) ; (JRST (ENTRY HEAPINFO)) L1025: 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) L1026: intern L1026 MOVE 1,L1024 HRRZI 12,138 HRRZI 13,1 PUSHJ 15,SYMFNC+138 HRRZI 12,353 SETZM 13 JRST SYMFNC+353 L1024: <4_31>+L1025 ; (!*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) 353) ; (SETZM (REG NARGREG)) ; (JRST (ENTRY HEAPINFO)) L1028: 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) L1029: intern L1029 MOVE 1,L1027 HRRZI 12,138 HRRZI 13,1 PUSHJ 15,SYMFNC+138 HRRZI 12,353 SETZM 13 JRST SYMFNC+353 L1027: <4_31>+L1028 ; (!*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) L1032: 11 byte(7)32,73,116,101,109,115,32,108,101,102,116,46,0 L1033: 12 byte(7)32,73,116,101,109,115,32,117,115,101,100,44,32,0 0 ; (!*ENTRY HEAPINFO EXPR 0) L1034: intern L1034 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,L1030 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,L1031 HRRZI 12,141 HRRZI 13,1 PUSHJ 15,SYMFNC+141 SETZM 1 POPJ 15,0 L1031: <4_31>+L1032 L1030: <4_31>+L1033 ; (!*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)) L1036: 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,L1035 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 L1035: <4_31>+L1036 ; (!*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)) L1038: 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,L1037 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 L1037: <4_31>+L1038 ; (!*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)) L1040: 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,L1039 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 L1039: <4_31>+L1040 ; (!*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)) L1046: 15 byte(7)32,32,32,91,66,65,68,93,32,42,42,42,42,42,42,42,0 L1047: 6 byte(7)32,32,91,79,75,32,93,0 L1048: 10 byte(7)32,115,104,111,117,108,100,32,98,101,32,0 L1049: 0 byte(7)32,0 L1050: 14 byte(7)32,32,32,46,46,46,46,46,46,46,32,70,111,114,32,0 3 ; (!*ENTRY SHOULDBE EXPR 3) L1051: intern L1051 ADJSP 15,3 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) MOVE 1,L1041 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,L1042 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,L1043 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 L1052 MOVE 1,L1044 JRST L1053 L1052: MOVE 1,L1045 L1053: ADJSP 15,-3 HRRZI 12,141 HRRZI 13,1 JRST SYMFNC+141 L1045: <4_31>+L1046 L1044: <4_31>+L1047 L1043: <4_31>+L1048 L1042: <4_31>+L1049 L1041: <4_31>+L1050 ; (!*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) L1057: 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 L1058: 12 byte(7)32,99,97,108,108,101,100,32,119,105,116,104,32,0 L1059: 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) L1060: intern L1060 ADJSP 15,2 MOVE 6,SYMVAL+350 MOVEM 6,-1(15) MOVE 1,SYMVAL+349 TLZ 1,253952 TLO 1,245760 MOVEM 1,0(15) MOVE 1,L1054 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,L1055 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,L1056 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 L1056: <4_31>+L1057 L1055: <4_31>+L1058 L1054: <4_31>+L1059 ; (!*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,L1061 POPJ 15,0 L1061: 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,L1062 POPJ 15,0 L1062: point 5,1,4 ; (!*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) 341) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY INIT)) ; (!*LINK INITHEAP EXPR 0) ; (HRRZI (REG LINKREG) 338) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY INITHEAP)) ; (!*LINK TESTGET EXPR 0) ; (HRRZI (REG LINKREG) 362) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY TESTGET)) ; (!*LINK INITEVAL EXPR 0) ; (HRRZI (REG LINKREG) 309) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY INITEVAL)) ; (!*MOVE (QUOTE "(very) MINI-PSL: A Read-Eval-Print Loop, terminate with Q") (REG 1)) ; (MOVE (REG 1) (QUOTE "(very) MINI-PSL: A Read-Eval-Print Loop, terminate with Q")) ; (!*LINK PRIN2T EXPR 1) ; (HRRZI (REG LINKREG) 141) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PRIN2T)) ; (!*MOVE (QUOTE " !*RAISE and !*PVAL have been set T") (REG 1)) ; (MOVE (REG 1) (QUOTE " !*RAISE and !*PVAL have been set T")) ; (!*LINK PRIN2T EXPR 1) ; (HRRZI (REG LINKREG) 141) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PRIN2T)) ; (!*MOVE (QUOTE " Should be able to execute any COMPILED expressions") (REG 1)) ; (MOVE (REG 1) (QUOTE " Should be able to execute any COMPILED expressions")) ; (!*LINK PRIN2T EXPR 1) ; (HRRZI (REG LINKREG) 141) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PRIN2T)) ; (!*MOVE (QUOTE " typed in. Run (TESTSERIES) when ready") (REG 1)) ; (MOVE (REG 1) (QUOTE " typed in. Run (TESTSERIES) when ready")) ; (!*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 (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 (WCONST 0) (FRAME 3)) ; (SETZM (INDEXED (REG ST) -2)) ; (!*MOVE (QUOTE T) (REG 1)) ; (MOVE (REG 1) (FLUID T)) ; (!*MOVE (REG 1) (!$FLUID !*RAISE)) ; (MOVEM (REG 1) (!$FLUID !*RAISE)) ; (!*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) (QUOTE Q)) ; (CAME (REG 1) (QUOTE Q)) ; (JRST (LABEL G0011)) ; (!*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 G0011)) ; (!*JUMPNOTEQ (LABEL G0012) (REG 1) (!$GLOBAL !$EOF!$)) ; (CAME (REG 1) (!$GLOBAL !$EOF!$)) ; (JRST (LABEL G0012)) ; (!*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 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) L1070: 23 byte(7)32,42,42,42,42,32,84,111,112,32,76,101,118,101,108,32,69,79,70,32,42,42,42,42,0 L1071: 6 byte(7)32,108,105,115,112,62,32,0 L1072: 43 byte(7)32,32,32,32,32,32,32,116,121,112,101,100,32,105,110,46,32,82,117,110,32,40,84,69,83,84,83,69,82,73,69,83,41,32,119,104,101,110,32,114,101,97,100,121,0 L1073: 56 byte(7)32,32,32,32,32,32,32,83,104,111,117,108,100,32,98,101,32,97,98,108,101,32,116,111,32,101,120,101,99,117,116,101,32,97,110,121,32,67,79,77,80,73,76,69,68,32,101,120,112,114,101,115,115,105,111,110,115,0 L1074: 40 byte(7)32,32,32,32,32,32,32,33,42,82,65,73,83,69,32,97,110,100,32,33,42,80,86,65,76,32,104,97,118,101,32,98,101,101,110,32,115,101,116,32,84,0 L1075: 56 byte(7)40,118,101,114,121,41,32,77,73,78,73,45,80,83,76,58,32,65,32,82,101,97,100,45,69,118,97,108,45,80,114,105,110,116,32,76,111,111,112,44,32,116,101,114,109,105,110,97,116,101,32,119,105,116,104,32,81,0 0 ; (!*ENTRY FIRSTCALL EXPR 0) L1076: intern L1076 ADJSP 15,3 MOVEM 0,0(15) MOVEM 0,-1(15) HRRZI 12,341 SETZM 13 PUSHJ 15,SYMFNC+341 HRRZI 12,338 SETZM 13 PUSHJ 15,SYMFNC+338 HRRZI 12,362 SETZM 13 PUSHJ 15,SYMFNC+362 HRRZI 12,309 SETZM 13 PUSHJ 15,SYMFNC+309 MOVE 1,L1063 HRRZI 12,141 HRRZI 13,1 PUSHJ 15,SYMFNC+141 MOVE 1,L1064 HRRZI 12,141 HRRZI 13,1 PUSHJ 15,SYMFNC+141 MOVE 1,L1065 HRRZI 12,141 HRRZI 13,1 PUSHJ 15,SYMFNC+141 MOVE 1,L1066 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 HRRZI 1,26 TLZ 1,253952 TLO 1,245760 MOVEM 1,SYMVAL+363 SETZM -2(15) MOVE 1,SYMVAL+84 MOVEM 1,SYMVAL+191 L1077: CAME 0,-1(15) JRST L1078 AOS -2(15) MOVE 1,-2(15) HRRZI 12,138 HRRZI 13,1 PUSHJ 15,SYMFNC+138 MOVE 1,L1067 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,L1068 JRST L1079 MOVE 6,SYMVAL+84 MOVEM 6,-1(15) JRST L1077 L1079: CAME 1,SYMVAL+363 JRST L1080 HRRZI 12,139 SETZM 13 PUSHJ 15,SYMFNC+139 MOVE 1,L1069 HRRZI 12,141 HRRZI 13,1 PUSHJ 15,SYMFNC+141 JRST L1077 L1080: 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+364 JRST L1077 HRRZI 12,140 HRRZI 13,1 PUSHJ 15,SYMFNC+140 JRST L1077 L1078: HRRZI 12,148 SETZM 13 PUSHJ 15,SYMFNC+148 MOVE 1,0 ADJSP 15,-3 POPJ 15,0 L1069: <4_31>+L1070 L1068: <30_31>+81 L1067: <4_31>+L1071 L1066: <4_31>+L1072 L1065: <4_31>+L1073 L1064: <4_31>+L1074 L1063: <4_31>+L1075 ; (!*ENTRY TESTSERIES EXPR 0) ; (!*ALLOC 0) ; (!*MOVE (QUOTE "TESTs called by TESTSERIES") (REG 1)) ; (MOVE (REG 1) (QUOTE "TESTs called by TESTSERIES")) ; (!*LINK DASHED EXPR 1) ; (HRRZI (REG LINKREG) 356) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY DASHED)) ; (!*LINKE 0 TESTUNDEFINED EXPR 0) ; (HRRZI (REG LINKREG) 365) ; (SETZM (REG NARGREG)) ; (JRST (ENTRY TESTUNDEFINED)) L1082: 25 byte(7)84,69,83,84,115,32,99,97,108,108,101,100,32,98,121,32,84,69,83,84,83,69,82,73,69,83,0 0 ; (!*ENTRY TESTSERIES EXPR 0) L1083: intern L1083 MOVE 1,L1081 HRRZI 12,356 HRRZI 13,1 PUSHJ 15,SYMFNC+356 HRRZI 12,365 SETZM 13 JRST SYMFNC+365 L1081: <4_31>+L1082 ; (!*ENTRY TESTGET EXPR 0) ; (!*ALLOC 0) ; (!*MOVE (QUOTE "Tests of GET and PUT") (REG 1)) ; (MOVE (REG 1) (QUOTE "Tests of GET and PUT")) ; (!*LINK DASHED EXPR 1) ; (HRRZI (REG LINKREG) 356) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY DASHED)) ; (!*MOVE (QUOTE FEE) (REG 2)) ; (MOVE (REG 2) (QUOTE FEE)) ; (!*MOVE (QUOTE FOO) (REG 1)) ; (MOVE (REG 1) (QUOTE FOO)) ; (!*LINK GET EXPR 2) ; (HRRZI (REG LINKREG) 258) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY GET)) ; (!*MOVE (QUOTE NIL) (REG 3)) ; (MOVE (REG 3) (REG NIL)) ; (!*MOVE (REG 1) (REG 2)) ; (MOVE (REG 2) (REG 1)) ; (!*MOVE (QUOTE "GET('FOO,'FEE)") (REG 1)) ; (MOVE (REG 1) (QUOTE "GET('FOO,'FEE)")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 358) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (QUOTE FUM) (REG 3)) ; (MOVE (REG 3) (QUOTE FUM)) ; (!*MOVE (QUOTE FEE) (REG 2)) ; (MOVE (REG 2) (QUOTE FEE)) ; (!*MOVE (QUOTE FOO) (REG 1)) ; (MOVE (REG 1) (QUOTE FOO)) ; (!*LINK PUT EXPR 3) ; (HRRZI (REG LINKREG) 308) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY PUT)) ; (!*MOVE (QUOTE FUM) (REG 3)) ; (MOVE (REG 3) (QUOTE FUM)) ; (!*MOVE (REG 1) (REG 2)) ; (MOVE (REG 2) (REG 1)) ; (!*MOVE (QUOTE "PUT('FOO,'FEE,'FUM)") (REG 1)) ; (MOVE (REG 1) (QUOTE "PUT('FOO,'FEE,'FUM)")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 358) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (QUOTE FEE) (REG 2)) ; (MOVE (REG 2) (QUOTE FEE)) ; (!*MOVE (QUOTE FOO) (REG 1)) ; (MOVE (REG 1) (QUOTE FOO)) ; (!*LINK GET EXPR 2) ; (HRRZI (REG LINKREG) 258) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY GET)) ; (!*MOVE (QUOTE FUM) (REG 3)) ; (MOVE (REG 3) (QUOTE FUM)) ; (!*MOVE (REG 1) (REG 2)) ; (MOVE (REG 2) (REG 1)) ; (!*MOVE (QUOTE "GET('FOO,'FEE)") (REG 1)) ; (MOVE (REG 1) (QUOTE "GET('FOO,'FEE)")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 358) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (QUOTE FEE) (REG 2)) ; (MOVE (REG 2) (QUOTE FEE)) ; (!*MOVE (QUOTE FOO) (REG 1)) ; (MOVE (REG 1) (QUOTE FOO)) ; (!*LINK REMPROP EXPR 2) ; (HRRZI (REG LINKREG) 334) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY REMPROP)) ; (!*MOVE (QUOTE FUM) (REG 3)) ; (MOVE (REG 3) (QUOTE FUM)) ; (!*MOVE (REG 1) (REG 2)) ; (MOVE (REG 2) (REG 1)) ; (!*MOVE (QUOTE "REMPROP('FOO,'FEE)") (REG 1)) ; (MOVE (REG 1) (QUOTE "REMPROP('FOO,'FEE)")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 358) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (QUOTE FEE) (REG 2)) ; (MOVE (REG 2) (QUOTE FEE)) ; (!*MOVE (QUOTE FOO) (REG 1)) ; (MOVE (REG 1) (QUOTE FOO)) ; (!*LINK GET EXPR 2) ; (HRRZI (REG LINKREG) 258) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY GET)) ; (!*MOVE (QUOTE NIL) (REG 3)) ; (MOVE (REG 3) (REG NIL)) ; (!*MOVE (REG 1) (REG 2)) ; (MOVE (REG 2) (REG 1)) ; (!*MOVE (QUOTE "GET('FOO,'FEE)") (REG 1)) ; (MOVE (REG 1) (QUOTE "GET('FOO,'FEE)")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 358) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (QUOTE NIL) (REG 1)) ; (MOVE (REG 1) (REG NIL)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) L1091: 17 byte(7)82,69,77,80,82,79,80,40,39,70,79,79,44,39,70,69,69,41,0 L1092: 18 byte(7)80,85,84,40,39,70,79,79,44,39,70,69,69,44,39,70,85,77,41,0 L1093: 13 byte(7)71,69,84,40,39,70,79,79,44,39,70,69,69,41,0 L1094: 19 byte(7)84,101,115,116,115,32,111,102,32,71,69,84,32,97,110,100,32,80,85,84,0 0 ; (!*ENTRY TESTGET EXPR 0) L1095: intern L1095 MOVE 1,L1084 HRRZI 12,356 HRRZI 13,1 PUSHJ 15,SYMFNC+356 MOVE 2,L1085 MOVE 1,L1086 HRRZI 12,258 HRRZI 13,2 PUSHJ 15,SYMFNC+258 MOVE 3,0 MOVE 2,1 MOVE 1,L1087 HRRZI 12,358 HRRZI 13,3 PUSHJ 15,SYMFNC+358 MOVE 3,L1088 MOVE 2,L1085 MOVE 1,L1086 HRRZI 12,308 HRRZI 13,3 PUSHJ 15,SYMFNC+308 MOVE 3,L1088 MOVE 2,1 MOVE 1,L1089 HRRZI 12,358 HRRZI 13,3 PUSHJ 15,SYMFNC+358 MOVE 2,L1085 MOVE 1,L1086 HRRZI 12,258 HRRZI 13,2 PUSHJ 15,SYMFNC+258 MOVE 3,L1088 MOVE 2,1 MOVE 1,L1087 HRRZI 12,358 HRRZI 13,3 PUSHJ 15,SYMFNC+358 MOVE 2,L1085 MOVE 1,L1086 HRRZI 12,334 HRRZI 13,2 PUSHJ 15,SYMFNC+334 MOVE 3,L1088 MOVE 2,1 MOVE 1,L1090 HRRZI 12,358 HRRZI 13,3 PUSHJ 15,SYMFNC+358 MOVE 2,L1085 MOVE 1,L1086 HRRZI 12,258 HRRZI 13,2 PUSHJ 15,SYMFNC+258 MOVE 3,0 MOVE 2,1 MOVE 1,L1087 HRRZI 12,358 HRRZI 13,3 PUSHJ 15,SYMFNC+358 MOVE 1,0 POPJ 15,0 L1090: <4_31>+L1091 L1089: <4_31>+L1092 L1088: <30_31>+367 L1087: <4_31>+L1093 L1086: <30_31>+368 L1085: <30_31>+369 L1084: <4_31>+L1094 ; (!*ENTRY TESTUNDEFINED EXPR 0) ; (!*ALLOC 0) ; (!*MOVE (QUOTE "Calling SHOULDBEUNDEFINED") (REG 1)) ; (MOVE (REG 1) (QUOTE "Calling SHOULDBEUNDEFINED")) ; (!*LINK PRINT EXPR 1) ; (HRRZI (REG LINKREG) 140) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PRINT)) ; (!*MOVE (WCONST 1) (REG 1)) ; (HRRZI (REG 1) 1) ; (!*LINKE 0 SHOULDBEUNDEFINED EXPR 1) ; (HRRZI (REG LINKREG) 230) ; (HRRZI (REG NARGREG) 1) ; (JRST (ENTRY SHOULDBEUNDEFINED)) L1097: 24 byte(7)67,97,108,108,105,110,103,32,83,72,79,85,76,68,66,69,85,78,68,69,70,73,78,69,68,0 0 ; (!*ENTRY TESTUNDEFINED EXPR 0) L1098: intern L1098 MOVE 1,L1096 HRRZI 12,140 HRRZI 13,1 PUSHJ 15,SYMFNC+140 HRRZI 1,1 HRRZI 12,230 HRRZI 13,1 JRST SYMFNC+230 L1096: <4_31>+L1097 ; (!*ENTRY UNBINDN EXPR 1) ; (!*ALLOC 0) ; (!*MOVE (QUOTE "UNBIND only added at MAIN6") (REG 1)) ; (MOVE (REG 1) (QUOTE "UNBIND only added at MAIN6")) ; (!*LINKE 0 STDERROR EXPR 1) ; (HRRZI (REG LINKREG) 158) ; (HRRZI (REG NARGREG) 1) ; (JRST (ENTRY STDERROR)) L1100: 25 byte(7)85,78,66,73,78,68,32,111,110,108,121,32,97,100,100,101,100,32,97,116,32,77,65,73,78,54,0 1 ; (!*ENTRY UNBINDN EXPR 1) L1101: intern L1101 MOVE 1,L1099 HRRZI 12,158 HRRZI 13,1 JRST SYMFNC+158 L1099: <4_31>+L1100 ; (!*ENTRY LBIND1 EXPR 2) ; (!*ALLOC 0) ; (!*MOVE (QUOTE "LBIND1 only added at MAIN6") (REG 1)) ; (MOVE (REG 1) (QUOTE "LBIND1 only added at MAIN6")) ; (!*LINKE 0 STDERROR EXPR 1) ; (HRRZI (REG LINKREG) 158) ; (HRRZI (REG NARGREG) 1) ; (JRST (ENTRY STDERROR)) L1103: 25 byte(7)76,66,73,78,68,49,32,111,110,108,121,32,97,100,100,101,100,32,97,116,32,77,65,73,78,54,0 2 ; (!*ENTRY LBIND1 EXPR 2) LBIND1: intern LBIND1 MOVE 1,L1102 HRRZI 12,158 HRRZI 13,1 JRST SYMFNC+158 L1102: <4_31>+L1103 0 ; (!*ENTRY INITCODE EXPR 0) L1104: intern L1104 MOVE 1,0 POPJ 15,0 extern SYMVAL extern SYMPRP extern SYMNAM L1105: 0 byte(7)0,0 intern L1105 L1106: 0 byte(7)1,0 intern L1106 L1107: 0 byte(7)2,0 intern L1107 L1108: 0 byte(7)3,0 intern L1108 L1109: 0 byte(7)4,0 intern L1109 L1110: 0 byte(7)5,0 intern L1110 L1111: 0 byte(7)6,0 intern L1111 L1112: 0 byte(7)7,0 intern L1112 L1113: 0 byte(7)8,0 intern L1113 L1114: 0 byte(7)9,0 intern L1114 L1115: 0 byte(7)10,0 intern L1115 L1116: 0 byte(7)11,0 intern L1116 L1117: 0 byte(7)12,0 intern L1117 L1118: 0 byte(7)13,0 intern L1118 L1119: 0 byte(7)14,0 intern L1119 L1120: 0 byte(7)15,0 intern L1120 L1121: 0 byte(7)16,0 intern L1121 L1122: 0 byte(7)17,0 intern L1122 L1123: 0 byte(7)18,0 intern L1123 L1124: 0 byte(7)19,0 intern L1124 L1125: 0 byte(7)20,0 intern L1125 L1126: 0 byte(7)21,0 intern L1126 L1127: 0 byte(7)22,0 intern L1127 L1128: 0 byte(7)23,0 intern L1128 L1129: 0 byte(7)24,0 intern L1129 L1130: 0 byte(7)25,0 intern L1130 L1131: 0 byte(7)26,0 intern L1131 L1132: 0 byte(7)27,0 intern L1132 L1133: 0 byte(7)28,0 intern L1133 L1134: 0 byte(7)29,0 intern L1134 L1135: 0 byte(7)30,0 intern L1135 L1136: 0 byte(7)31,0 intern L1136 L1137: 0 byte(7)32,0 intern L1137 L1138: 0 byte(7)33,0 intern L1138 L1139: 0 byte(7)34,0 intern L1139 L1140: 0 byte(7)35,0 intern L1140 L1141: 0 byte(7)36,0 intern L1141 L1142: 0 byte(7)37,0 intern L1142 L1143: 0 byte(7)38,0 intern L1143 L1144: 0 byte(7)39,0 intern L1144 L1145: 0 byte(7)40,0 intern L1145 L1146: 0 byte(7)41,0 intern L1146 L1147: 0 byte(7)42,0 intern L1147 L1148: 0 byte(7)43,0 intern L1148 L1149: 0 byte(7)44,0 intern L1149 L1150: 0 byte(7)45,0 intern L1150 L1151: 0 byte(7)46,0 intern L1151 L1152: 0 byte(7)47,0 intern L1152 L1153: 0 byte(7)48,0 intern L1153 L1154: 0 byte(7)49,0 intern L1154 L1155: 0 byte(7)50,0 intern L1155 L1156: 0 byte(7)51,0 intern L1156 L1157: 0 byte(7)52,0 intern L1157 L1158: 0 byte(7)53,0 intern L1158 L1159: 0 byte(7)54,0 intern L1159 L1160: 0 byte(7)55,0 intern L1160 L1161: 0 byte(7)56,0 intern L1161 L1162: 0 byte(7)57,0 intern L1162 L1163: 0 byte(7)58,0 intern L1163 L1164: 0 byte(7)59,0 intern L1164 L1165: 0 byte(7)60,0 intern L1165 L1166: 0 byte(7)61,0 intern L1166 L1167: 0 byte(7)62,0 intern L1167 L1168: 0 byte(7)63,0 intern L1168 L1169: 0 byte(7)64,0 intern L1169 L1170: 0 byte(7)65,0 intern L1170 L1171: 0 byte(7)66,0 intern L1171 L1172: 0 byte(7)67,0 intern L1172 L1173: 0 byte(7)68,0 intern L1173 L1174: 0 byte(7)69,0 intern L1174 L1175: 0 byte(7)70,0 intern L1175 L1176: 0 byte(7)71,0 intern L1176 L1177: 0 byte(7)72,0 intern L1177 L1178: 0 byte(7)73,0 intern L1178 L1179: 0 byte(7)74,0 intern L1179 L1180: 0 byte(7)75,0 intern L1180 L1181: 0 byte(7)76,0 intern L1181 L1182: 0 byte(7)77,0 intern L1182 L1183: 0 byte(7)78,0 intern L1183 L1184: 0 byte(7)79,0 intern L1184 L1185: 0 byte(7)80,0 intern L1185 L1186: 0 byte(7)81,0 intern L1186 L1187: 0 byte(7)82,0 intern L1187 L1188: 0 byte(7)83,0 intern L1188 L1189: 0 byte(7)84,0 intern L1189 L1190: 0 byte(7)85,0 intern L1190 L1191: 0 byte(7)86,0 intern L1191 L1192: 0 byte(7)87,0 intern L1192 L1193: 0 byte(7)88,0 intern L1193 L1194: 0 byte(7)89,0 intern L1194 L1195: 0 byte(7)90,0 intern L1195 L1196: 0 byte(7)91,0 intern L1196 L1197: 0 byte(7)92,0 intern L1197 L1198: 0 byte(7)93,0 intern L1198 L1199: 0 byte(7)94,0 intern L1199 L1200: 0 byte(7)95,0 intern L1200 L1201: 0 byte(7)96,0 intern L1201 L1202: 0 byte(7)97,0 intern L1202 L1203: 0 byte(7)98,0 intern L1203 L1204: 0 byte(7)99,0 intern L1204 L1205: 0 byte(7)100,0 intern L1205 L1206: 0 byte(7)101,0 intern L1206 L1207: 0 byte(7)102,0 intern L1207 L1208: 0 byte(7)103,0 intern L1208 L1209: 0 byte(7)104,0 intern L1209 L1210: 0 byte(7)105,0 intern L1210 L1211: 0 byte(7)106,0 intern L1211 L1212: 0 byte(7)107,0 intern L1212 L1213: 0 byte(7)108,0 intern L1213 L1214: 0 byte(7)109,0 intern L1214 L1215: 0 byte(7)110,0 intern L1215 L1216: 0 byte(7)111,0 intern L1216 L1217: 0 byte(7)112,0 intern L1217 L1218: 0 byte(7)113,0 intern L1218 L1219: 0 byte(7)114,0 intern L1219 L1220: 0 byte(7)115,0 intern L1220 L1221: 0 byte(7)116,0 intern L1221 L1222: 0 byte(7)117,0 intern L1222 L1223: 0 byte(7)118,0 intern L1223 L1224: 0 byte(7)119,0 intern L1224 L1225: 0 byte(7)120,0 intern L1225 L1226: 0 byte(7)121,0 intern L1226 L1227: 0 byte(7)122,0 intern L1227 L1228: 0 byte(7)123,0 intern L1228 L1229: 0 byte(7)124,0 intern L1229 L1230: 0 byte(7)125,0 intern L1230 L1231: 0 byte(7)126,0 intern L1231 L1232: 0 byte(7)127,0 intern L1232 L1233: 2 byte(7)78,73,76,0 intern L1233 L1234: 6 byte(7)80,82,73,78,49,73,68,0 intern L1234 L1235: 7 byte(7)80,82,73,78,49,73,78,84,0 intern L1235 L1236: 10 byte(7)80,82,73,78,49,83,84,82,73,78,71,0 intern L1236 L1237: 8 byte(7)80,82,73,78,49,80,65,73,82,0 intern L1237 L1238: 5 byte(7)80,82,84,73,84,77,0 intern L1238 L1239: 4 byte(7)80,82,73,78,49,0 intern L1239 L1240: 6 byte(7)80,82,73,78,50,73,68,0 intern L1240 L1241: 10 byte(7)80,82,73,78,50,83,84,82,73,78,71,0 intern L1241 L1242: 8 byte(7)80,82,73,78,50,80,65,73,82,0 intern L1242 L1243: 4 byte(7)80,82,73,78,50,0 intern L1243 L1244: 5 byte(7)84,69,82,80,82,73,0 intern L1244 L1245: 4 byte(7)80,82,73,78,84,0 intern L1245 L1246: 5 byte(7)80,82,73,78,50,84,0 intern L1246 L1247: 3 byte(7)80,85,84,67,0 intern L1247 L1248: 5 byte(7)80,66,76,65,78,75,0 intern L1248 L1249: 8 byte(7)80,82,73,78,49,73,78,84,88,0 intern L1249 L1250: 6 byte(7)76,79,78,71,68,73,86,0 intern L1250 L1251: 12 byte(7)76,79,78,71,82,69,77,65,73,78,68,69,82,0 intern L1251 L1252: 3 byte(7)66,89,84,69,0 intern L1252 L1253: 3 byte(7)81,85,73,84,0 intern L1253 L1254: 4 byte(7)69,82,82,79,82,0 intern L1254 L1255: 11 byte(7)67,72,65,78,78,69,76,80,82,73,78,50,0 intern L1255 L1256: 15 byte(7)67,72,65,78,78,69,76,87,82,73,84,69,67,72,65,82,0 intern L1256 L1257: 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 L1257 L1258: 8 byte(7)87,82,73,84,69,67,72,65,82,0 intern L1258 L1259: 3 byte(7)79,85,84,42,0 intern L1259 L1260: 10 byte(7)69,82,82,79,82,72,69,65,68,69,82,0 intern L1260 L1261: 11 byte(7)69,82,82,79,82,84,82,65,73,76,69,82,0 intern L1261 L1262: 9 byte(7)70,65,84,65,76,69,82,82,79,82,0 intern L1262 L1263: 7 byte(7)83,84,68,69,82,82,79,82,0 intern L1263 L1264: 9 byte(7)78,79,78,73,68,69,82,82,79,82,0 intern L1264 L1265: 5 byte(7)80,82,73,78,49,84,0 intern L1265 L1266: 8 byte(7)84,89,80,69,69,82,82,79,82,0 intern L1266 L1267: 13 byte(7)85,83,65,71,69,84,89,80,69,69,82,82,79,82,0 intern L1267 L1268: 1 byte(7)70,78,0 intern L1268 L1269: 7 byte(7)79,70,70,69,78,68,69,82,0 intern L1269 L1270: 13 byte(7)78,79,78,78,85,77,66,69,82,69,82,82,79,82,0 intern L1270 L1271: 11 byte(7)76,65,77,66,73,78,68,65,82,71,83,42,0 intern L1271 L1272: 6 byte(7)76,65,77,66,73,78,68,0 intern L1272 L1273: 6 byte(7)85,78,66,73,78,68,78,0 intern L1273 L1274: 14 byte(7)78,79,78,73,78,84,69,71,69,82,69,82,82,79,82,0 intern L1274 L1275: 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 L1275 L1276: 8 byte(7)87,81,85,79,84,73,69,78,84,0 intern L1276 L1277: 7 byte(7)37,82,69,67,76,65,73,77,0 intern L1277 L1278: 5 byte(7)71,84,72,69,65,80,0 intern L1278 L1279: 4 byte(7)71,84,83,84,82,0 intern L1279 L1280: 5 byte(7)71,84,86,69,67,84,0 intern L1280 L1281: 7 byte(7)71,84,87,65,82,82,65,89,0 intern L1281 L1282: 3 byte(7)71,84,73,68,0 intern L1282 L1283: 7 byte(7)72,65,82,68,67,79,78,83,0 intern L1283 L1284: 3 byte(7)67,79,78,83,0 intern L1284 L1285: 4 byte(7)88,67,79,78,83,0 intern L1285 L1286: 4 byte(7)78,67,79,78,83,0 intern L1286 L1287: 5 byte(7)77,75,86,69,67,84,0 intern L1287 L1288: 4 byte(7)76,73,83,84,50,0 intern L1288 L1289: 4 byte(7)76,73,83,84,51,0 intern L1289 L1290: 4 byte(7)76,73,83,84,52,0 intern L1290 L1291: 4 byte(7)76,73,83,84,53,0 intern L1291 L1292: 6 byte(7)80,85,84,66,89,84,69,0 intern L1292 L1293: 7 byte(7)77,75,83,84,82,73,78,71,0 intern L1293 L1294: 4 byte(7)69,81,83,84,82,0 intern L1294 L1295: 7 byte(7)73,78,73,84,82,69,65,68,0 intern L1295 L1296: 5 byte(7)42,82,65,73,83,69,0 intern L1296 L1297: 2 byte(7)67,72,42,0 intern L1297 L1298: 3 byte(7)84,79,75,42,0 intern L1298 L1299: 7 byte(7)84,79,75,84,89,80,69,42,0 intern L1299 L1300: 4 byte(7)68,69,66,85,71,0 intern L1300 L1301: 7 byte(7)83,69,84,82,65,73,83,69,0 intern L1301 L1302: 9 byte(7)67,76,69,65,82,87,72,73,84,69,0 intern L1302 L1303: 11 byte(7)67,76,69,65,82,67,79,77,77,69,78,84,0 intern L1303 L1304: 6 byte(7)82,69,65,68,83,84,82,0 intern L1304 L1305: 5 byte(7)68,73,71,73,84,80,0 intern L1305 L1306: 6 byte(7)82,69,65,68,73,78,84,0 intern L1306 L1307: 8 byte(7)65,76,80,72,65,69,83,67,80,0 intern L1307 L1308: 5 byte(7)82,69,65,68,73,68,0 intern L1308 L1309: 4 byte(7)82,65,84,79,77,0 intern L1309 L1310: 5 byte(7)87,72,73,84,69,80,0 intern L1310 L1311: 3 byte(7)71,69,84,67,0 intern L1311 L1312: 8 byte(7)76,79,78,71,84,73,77,69,83,0 intern L1312 L1313: 13 byte(7)66,85,70,70,69,82,84,79,83,84,82,73,78,71,0 intern L1313 L1314: 8 byte(7)82,65,73,83,69,67,72,65,82,0 intern L1314 L1315: 11 byte(7)65,76,80,72,65,78,85,77,69,83,67,80,0 intern L1315 L1316: 5 byte(7)73,78,84,69,82,78,0 intern L1316 L1317: 6 byte(7)69,83,67,65,80,69,80,0 intern L1317 L1318: 5 byte(7)65,76,80,72,65,80,0 intern L1318 L1319: 9 byte(7)76,79,87,69,82,67,65,83,69,80,0 intern L1319 L1320: 7 byte(7)76,79,79,75,85,80,73,68,0 intern L1320 L1321: 8 byte(7)73,78,73,84,78,69,87,73,68,0 intern L1321 L1322: 11 byte(7)77,65,75,69,70,85,78,66,79,85,78,68,0 intern L1322 L1323: 9 byte(7)85,80,80,69,82,67,65,83,69,80,0 intern L1323 L1324: 8 byte(7)65,76,80,72,65,78,85,77,80,0 intern L1324 L1325: 4 byte(7)82,69,65,68,49,0 intern L1325 L1326: 3 byte(7)82,69,65,68,0 intern L1326 L1327: 7 byte(7)82,69,65,68,76,73,83,84,0 intern L1327 L1328: 4 byte(7)81,85,79,84,69,0 intern L1328 L1329: 6 byte(7)83,65,70,69,67,68,82,0 intern L1329 L1330: 9 byte(7)83,89,77,70,78,67,66,65,83,69,0 intern L1330 L1331: 5 byte(7)87,80,76,85,83,50,0 intern L1331 L1332: 5 byte(7)83,89,77,70,78,67,0 intern L1332 L1333: 6 byte(7)87,84,73,77,69,83,50,0 intern L1333 L1334: 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 L1334 L1335: 16 byte(7)83,72,79,85,76,68,66,69,85,78,68,69,70,73,78,69,68,0 intern L1335 L1336: 8 byte(7)70,85,78,66,79,85,78,68,80,0 intern L1336 L1337: 18 byte(7)37,67,79,80,89,45,70,85,78,67,84,73,79,78,45,67,69,76,76,0 intern L1337 L1338: 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 L1338 L1339: 11 byte(7)70,76,65,77,66,68,65,76,73,78,75,80,0 intern L1339 L1340: 11 byte(7)37,83,84,79,82,69,45,74,67,65,76,76,0 intern L1340 L1341: 14 byte(7)77,65,75,69,70,76,65,77,66,68,65,76,73,78,75,0 intern L1341 L1342: 5 byte(7)70,67,79,68,69,80,0 intern L1342 L1343: 8 byte(7)77,65,75,69,70,67,79,68,69,0 intern L1343 L1344: 14 byte(7)71,69,84,70,67,79,68,69,80,79,73,78,84,69,82,0 intern L1344 L1345: 12 byte(7)67,79,68,69,80,82,73,77,73,84,73,86,69,0 intern L1345 L1346: 7 byte(7)67,79,68,69,80,84,82,42,0 intern L1346 L1347: 12 byte(7)83,65,86,69,82,69,71,73,83,84,69,82,83,0 intern L1347 L1348: 8 byte(7)67,79,68,69,70,79,82,77,42,0 intern L1348 L1349: 8 byte(7)67,79,68,69,78,65,82,71,42,0 intern L1349 L1350: 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 L1350 L1351: 8 byte(7)70,65,83,84,65,80,80,76,89,0 intern L1351 L1352: 14 byte(7)70,65,83,84,76,65,77,66,68,65,65,80,80,76,89,0 intern L1352 L1353: 5 byte(7)76,65,77,66,68,65,0 intern L1353 L1354: 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 L1354 L1355: 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 L1355 L1356: 8 byte(7)67,79,68,69,65,80,80,76,89,0 intern L1356 L1357: 12 byte(7)67,79,68,69,69,86,65,76,65,80,80,76,89,0 intern L1357 L1358: 15 byte(7)67,79,68,69,69,86,65,76,65,80,80,76,89,65,85,88,0 intern L1358 L1359: 3 byte(7)69,86,65,76,0 intern L1359 L1360: 10 byte(7)66,73,78,68,69,86,65,76,65,85,88,0 intern L1360 L1361: 7 byte(7)66,73,78,68,69,86,65,76,0 intern L1361 L1362: 5 byte(7)76,66,73,78,68,49,0 intern L1362 L1363: 2 byte(7)71,69,84,0 intern L1363 L1364: 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 L1364 L1365: 10 byte(7)42,76,65,77,66,68,65,76,73,78,75,0 intern L1365 L1366: 5 byte(7)66,76,68,77,83,71,0 intern L1366 L1367: 6 byte(7)69,86,80,82,79,71,78,0 intern L1367 L1368: 6 byte(7)83,89,83,50,73,78,84,0 intern L1368 L1369: 4 byte(7)80,76,85,83,50,0 intern L1369 L1370: 4 byte(7)77,73,78,85,83,0 intern L1370 L1371: 4 byte(7)87,65,68,68,49,0 intern L1371 L1372: 3 byte(7)69,76,83,69,0 intern L1372 L1373: 3 byte(7)65,68,68,49,0 intern L1373 L1374: 4 byte(7)87,83,85,66,49,0 intern L1374 L1375: 3 byte(7)83,85,66,49,0 intern L1375 L1376: 7 byte(7)71,82,69,65,84,69,82,80,0 intern L1376 L1377: 4 byte(7)76,69,83,83,80,0 intern L1377 L1378: 9 byte(7)68,73,70,70,69,82,69,78,67,69,0 intern L1378 L1379: 5 byte(7)84,73,77,69,83,50,0 intern L1379 L1380: 2 byte(7)67,65,82,0 intern L1380 L1381: 2 byte(7)67,68,82,0 intern L1381 L1382: 3 byte(7)67,65,65,82,0 intern L1382 L1383: 3 byte(7)67,65,68,82,0 intern L1383 L1384: 3 byte(7)67,68,65,82,0 intern L1384 L1385: 3 byte(7)67,68,68,82,0 intern L1385 L1386: 3 byte(7)65,84,79,77,0 intern L1386 L1387: 5 byte(7)65,80,80,69,78,68,0 intern L1387 L1388: 3 byte(7)77,69,77,81,0 intern L1388 L1389: 6 byte(7)82,69,86,69,82,83,69,0 intern L1389 L1390: 4 byte(7)69,86,76,73,83,0 intern L1390 L1391: 4 byte(7)80,82,79,71,78,0 intern L1391 L1392: 5 byte(7)69,86,67,79,78,68,0 intern L1392 L1393: 3 byte(7)67,79,78,68,0 intern L1393 L1394: 2 byte(7)83,69,84,0 intern L1394 L1395: 3 byte(7)83,69,84,81,0 intern L1395 L1396: 3 byte(7)80,85,84,68,0 intern L1396 L1397: 1 byte(7)68,69,0 intern L1397 L1398: 3 byte(7)69,88,80,82,0 intern L1398 L1399: 1 byte(7)68,70,0 intern L1399 L1400: 4 byte(7)70,69,88,80,82,0 intern L1400 L1401: 1 byte(7)68,78,0 intern L1401 L1402: 4 byte(7)78,69,88,80,82,0 intern L1402 L1403: 1 byte(7)68,77,0 intern L1403 L1404: 4 byte(7)77,65,67,82,79,0 intern L1404 L1405: 3 byte(7)76,73,83,84,0 intern L1405 L1406: 4 byte(7)65,84,83,79,67,0 intern L1406 L1407: 2 byte(7)71,69,81,0 intern L1407 L1408: 2 byte(7)76,69,81,0 intern L1408 L1409: 4 byte(7)69,81,67,65,82,0 intern L1409 L1410: 3 byte(7)71,69,84,68,0 intern L1410 L1411: 4 byte(7)67,79,80,89,68,0 intern L1411 L1412: 5 byte(7)68,69,76,65,84,81,0 intern L1412 L1413: 2 byte(7)80,85,84,0 intern L1413 L1414: 7 byte(7)73,78,73,84,69,86,65,76,0 intern L1414 L1415: 4 byte(7)87,72,73,76,69,0 intern L1415 L1416: 4 byte(7)70,84,89,80,69,0 intern L1416 L1417: 6 byte(7)76,65,77,66,68,65,80,0 intern L1417 L1418: 8 byte(7)71,69,84,76,65,77,66,68,65,0 intern L1418 L1419: 14 byte(7)76,65,77,66,68,65,69,86,65,76,65,80,80,76,89,0 intern L1419 L1420: 8 byte(7)71,69,84,70,78,84,89,80,69,0 intern L1420 L1421: 10 byte(7)76,65,77,66,68,65,65,80,80,76,89,0 intern L1421 L1422: 4 byte(7)65,80,80,76,89,0 intern L1422 L1423: 7 byte(7)68,79,76,65,77,66,68,65,0 intern L1423 L1424: 5 byte(7)76,69,78,71,84,72,0 intern L1424 L1425: 4 byte(7)67,79,68,69,80,0 intern L1425 L1426: 4 byte(7)80,65,73,82,80,0 intern L1426 L1427: 2 byte(7)73,68,80,0 intern L1427 L1428: 1 byte(7)69,81,0 intern L1428 L1429: 3 byte(7)78,85,76,76,0 intern L1429 L1430: 2 byte(7)78,79,84,0 intern L1430 L1431: 6 byte(7)76,69,78,71,84,72,49,0 intern L1431 L1432: 5 byte(7)77,65,80,79,66,76,0 intern L1432 L1433: 10 byte(7)80,82,73,78,84,70,69,88,80,82,83,0 intern L1433 L1434: 10 byte(7)80,82,73,78,84,49,70,69,88,80,82,0 intern L1434 L1435: 5 byte(7)70,69,88,80,82,80,0 intern L1435 L1436: 13 byte(7)80,82,73,78,84,70,85,78,67,84,73,79,78,83,0 intern L1436 L1437: 13 byte(7)80,82,73,78,84,49,70,85,78,67,84,73,79,78,0 intern L1437 L1438: 3 byte(7)80,82,79,80,0 intern L1438 L1439: 6 byte(7)82,69,77,80,82,79,80,0 intern L1439 L1440: 7 byte(7)83,89,83,50,70,73,88,78,0 intern L1440 L1441: 13 byte(7)73,78,70,83,84,65,82,84,73,78,71,66,73,84,0 intern L1441 L1442: 11 byte(7)73,78,70,66,73,84,76,69,78,71,84,72,0 intern L1442 L1443: 7 byte(7)73,78,73,84,72,69,65,80,0 intern L1443 L1444: 8 byte(7)70,73,82,83,84,67,65,76,76,0 intern L1444 L1445: 4 byte(7)77,65,73,78,46,0 intern L1445 L1446: 3 byte(7)73,78,73,84,0 intern L1446 L1447: 2 byte(7)73,78,42,0 intern L1447 L1448: 18 byte(7)73,78,68,69,80,69,78,68,69,78,84,82,69,65,68,67,72,65,82,0 intern L1448 L1449: 3 byte(7)84,73,77,67,0 intern L1449 L1450: 3 byte(7)68,65,84,69,0 intern L1450 L1451: 10 byte(7)86,69,82,83,73,79,78,78,65,77,69,0 intern L1451 L1452: 5 byte(7)80,85,84,73,78,84,0 intern L1452 L1453: 16 byte(7)85,78,68,69,70,73,78,69,68,70,85,78,67,84,73,79,78,0 intern L1453 L1454: 10 byte(7)85,78,68,69,70,78,67,79,68,69,42,0 intern L1454 L1455: 10 byte(7)85,78,68,69,70,78,78,65,82,71,42,0 intern L1455 L1456: 3 byte(7)70,76,65,71,0 intern L1456 L1457: 9 byte(7)87,82,69,77,65,73,78,68,69,82,0 intern L1457 L1458: 7 byte(7)72,69,65,80,73,78,70,79,0 intern L1458 L1459: 6 byte(7)82,69,67,76,65,73,77,0 intern L1459 L1460: 5 byte(7)83,80,65,67,69,68,0 intern L1460 L1461: 5 byte(7)68,65,83,72,69,68,0 intern L1461 L1462: 5 byte(7)68,79,84,84,69,68,0 intern L1462 L1463: 7 byte(7)83,72,79,85,76,68,66,69,0 intern L1463 L1464: 2 byte(7)73,78,70,0 intern L1464 L1465: 2 byte(7)84,65,71,0 intern L1465 L1466: 5 byte(7)77,75,73,84,69,77,0 intern L1466 L1467: 6 byte(7)84,69,83,84,71,69,84,0 intern L1467 L1468: 4 byte(7)36,69,79,70,36,0 intern L1468 L1469: 4 byte(7)42,80,86,65,76,0 intern L1469 L1470: 12 byte(7)84,69,83,84,85,78,68,69,70,73,78,69,68,0 intern L1470 L1471: 9 byte(7)84,69,83,84,83,69,82,73,69,83,0 intern L1471 L1472: 2 byte(7)70,85,77,0 intern L1472 L1473: 2 byte(7)70,79,79,0 intern L1473 L1474: 2 byte(7)70,69,69,0 intern L1474 L1475: 7 byte(7)73,78,73,84,67,79,68,69,0 intern L1475 extern SYMFNC extern L0003 end MAIN.