Artifact 618f6a894562e530aaa1fcb6107ca1e5a4d059323662f99602db05b4258d34ee:
- File
psl-1983/20-tests/main6.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: 87722) [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 L1074 extern L1075 extern L1076 extern L1077 ; (!*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) L1078: intern L1078 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) 349) ; (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,L1079 MOVE 0,SYMVAL+128 HRRZI 12,349 SETZM 13 JRST SYMFNC+349 L1079: 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+352 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) 353) ; (HRRZI (REG NARGREG) 1) ; (JRST (ENTRY INDEPENDENTREADCHAR)) 0 ; (!*ENTRY GETC EXPR 0) GETC: intern GETC SKIPE SYMVAL+352 JRST L1080 SETZM 1 PUSHJ 15,GETC20 POPJ 15,0 L1080: MOVE 1,SYMVAL+352 HRRZI 12,353 HRRZI 13,1 JRST SYMFNC+353 ; (!*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 L1081 PUSHJ 15,PUTC20 POPJ 15,0 L1081: 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) L1083: 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,L1082 POPJ 15,0 L1082: <4_31>+L1083 ; (!*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) L1085: 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) L1086: intern L1086 MOVE 1,L1084 POPJ 15,0 L1084: <4_31>+L1085 ; (!*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) L1087: intern L1087 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) L1088: intern L1088 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) L1089: intern L1089 MOVEM 12,SYMVAL+359 MOVEM 13,SYMVAL+360 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) L1090: intern L1090 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) L1091: intern L1091 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) 362) ; (HRRZI (REG NARGREG) 2) ; (IDIV (REG 1) (REG 2)) ; (MOVE (REG 1) (REG 2)) ; (POPJ (REG ST) 0) 2 ; (!*ENTRY LONGREMAINDER EXPR 2) L1092: intern L1092 HRRZI 12,362 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) 363) ; (SETZM (REG NARGREG)) ; (JRST (ENTRY HEAPINFO)) L1094: 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) L1095: intern L1095 MOVE 1,L1093 HRRZI 12,138 HRRZI 13,1 PUSHJ 15,SYMFNC+138 HRRZI 12,363 SETZM 13 JRST SYMFNC+363 L1093: <4_31>+L1094 ; (!*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) 363) ; (SETZM (REG NARGREG)) ; (JRST (ENTRY HEAPINFO)) L1097: 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) L1098: intern L1098 MOVE 1,L1096 HRRZI 12,138 HRRZI 13,1 PUSHJ 15,SYMFNC+138 HRRZI 12,363 SETZM 13 JRST SYMFNC+363 L1096: <4_31>+L1097 ; (!*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) L1101: 11 byte(7)32,73,116,101,109,115,32,108,101,102,116,46,0 L1102: 12 byte(7)32,73,116,101,109,115,32,117,115,101,100,44,32,0 0 ; (!*ENTRY HEAPINFO EXPR 0) L1103: intern L1103 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,L1099 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,L1100 HRRZI 12,141 HRRZI 13,1 PUSHJ 15,SYMFNC+141 SETZM 1 POPJ 15,0 L1100: <4_31>+L1101 L1099: <4_31>+L1102 ; (!*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)) L1105: 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,L1104 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 L1104: <4_31>+L1105 ; (!*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)) L1107: 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,L1106 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 L1106: <4_31>+L1107 ; (!*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)) L1109: 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,L1108 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 L1108: <4_31>+L1109 ; (!*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)) L1115: 15 byte(7)32,32,32,91,66,65,68,93,32,42,42,42,42,42,42,42,0 L1116: 6 byte(7)32,32,91,79,75,32,93,0 L1117: 10 byte(7)32,115,104,111,117,108,100,32,98,101,32,0 L1118: 0 byte(7)32,0 L1119: 14 byte(7)32,32,32,46,46,46,46,46,46,46,32,70,111,114,32,0 3 ; (!*ENTRY SHOULDBE EXPR 3) L1120: intern L1120 ADJSP 15,3 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) MOVE 1,L1110 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,L1111 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,L1112 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 L1121 MOVE 1,L1113 JRST L1122 L1121: MOVE 1,L1114 L1122: ADJSP 15,-3 HRRZI 12,141 HRRZI 13,1 JRST SYMFNC+141 L1114: <4_31>+L1115 L1113: <4_31>+L1116 L1112: <4_31>+L1117 L1111: <4_31>+L1118 L1110: <4_31>+L1119 ; (!*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) L1126: 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 L1127: 12 byte(7)32,99,97,108,108,101,100,32,119,105,116,104,32,0 L1128: 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) L1129: intern L1129 ADJSP 15,2 MOVE 6,SYMVAL+360 MOVEM 6,-1(15) MOVE 1,SYMVAL+359 TLZ 1,253952 TLO 1,245760 MOVEM 1,0(15) MOVE 1,L1123 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,L1124 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,L1125 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 L1125: <4_31>+L1126 L1124: <4_31>+L1127 L1123: <4_31>+L1128 ; (!*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,L1130 POPJ 15,0 L1130: 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,L1131 POPJ 15,0 L1131: 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)) L1133: 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,L1132 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 L1132: <4_31>+L1133 ; (!*ENTRY TIME EXPR 0) ; (!*ALLOC 0) ; (!*LINKE 0 TIMC EXPR 0) ; (HRRZI (REG LINKREG) 354) ; (SETZM (REG NARGREG)) ; (JRST (ENTRY TIMC)) 0 ; (!*ENTRY TIME EXPR 0) TIME: intern TIME HRRZI 12,354 SETZM 13 JRST SYMFNC+354 ; (!*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) L1134: intern L1134 MOVE 3,2 MOVE 2,1 MOVE 1,3 HRRZI 13,1 MOVE 12,2 JRST SYMFNC(2) ; (!*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) 351) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY INIT)) ; (!*LINK INITHEAP EXPR 0) ; (HRRZI (REG LINKREG) 348) ; (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: A Read-Eval-Print Loop, terminate with Q") (REG 1)) ; (MOVE (REG 1) (QUOTE "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 has been set T") (REG 1)) ; (MOVE (REG 1) (QUOTE " !*RAISE has been set T")) ; (!*LINK PRIN2T EXPR 1) ; (HRRZI (REG LINKREG) 141) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PRIN2T)) ; (!*MOVE (QUOTE " Run (TESTSERIES) to check BINDING etc") (REG 1)) ; (MOVE (REG 1) (QUOTE " Run (TESTSERIES) to check BINDING etc")) ; (!*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 (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 " .... Now Call INITCODE") (REG 1)) ; (MOVE (REG 1) (QUOTE " .... Now Call 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) 374) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY INITCODE)) ; (!*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)) ; (!*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) L1142: 24 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,32,0 L1143: 6 byte(7)32,108,105,115,112,62,32,0 L1144: 22 byte(7)32,46,46,46,46,32,78,111,119,32,67,97,108,108,32,73,78,73,84,67,79,68,69,0 L1145: 42 byte(7)32,32,32,32,32,32,82,117,110,32,40,84,69,83,84,83,69,82,73,69,83,41,32,116,111,32,99,104,101,99,107,32,66,73,78,68,73,78,71,32,101,116,99,0 L1146: 27 byte(7)32,32,32,32,32,32,33,42,82,65,73,83,69,32,104,97,115,32,98,101,101,110,32,115,101,116,32,84,0 L1147: 49 byte(7)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) L1148: intern L1148 ADJSP 15,3 MOVEM 0,0(15) MOVEM 0,-1(15) HRRZI 12,351 SETZM 13 PUSHJ 15,SYMFNC+351 HRRZI 12,348 SETZM 13 PUSHJ 15,SYMFNC+348 HRRZI 12,309 SETZM 13 PUSHJ 15,SYMFNC+309 MOVE 1,L1135 HRRZI 12,141 HRRZI 13,1 PUSHJ 15,SYMFNC+141 MOVE 1,L1136 HRRZI 12,141 HRRZI 13,1 PUSHJ 15,SYMFNC+141 MOVE 1,L1137 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 HRRZI 1,26 TLZ 1,253952 TLO 1,245760 MOVEM 1,SYMVAL+375 SETZM -2(15) MOVE 1,L1138 HRRZI 12,141 HRRZI 13,1 PUSHJ 15,SYMFNC+141 HRRZI 12,374 SETZM 13 PUSHJ 15,SYMFNC+374 L1149: CAME 0,-1(15) JRST L1150 AOS -2(15) MOVE 1,-2(15) HRRZI 12,138 HRRZI 13,1 PUSHJ 15,SYMFNC+138 MOVE 1,L1139 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,L1140 JRST L1151 MOVE 6,SYMVAL+84 MOVEM 6,-1(15) JRST L1149 L1151: CAME 1,SYMVAL+375 JRST L1152 HRRZI 12,139 SETZM 13 PUSHJ 15,SYMFNC+139 MOVE 1,L1141 HRRZI 12,141 HRRZI 13,1 PUSHJ 15,SYMFNC+141 JRST L1149 L1152: 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) HRRZI 12,140 HRRZI 13,1 PUSHJ 15,SYMFNC+140 JRST L1149 L1150: HRRZI 12,148 SETZM 13 PUSHJ 15,SYMFNC+148 MOVE 1,0 ADJSP 15,-3 POPJ 15,0 L1141: <4_31>+L1142 L1140: <30_31>+81 L1139: <4_31>+L1143 L1138: <4_31>+L1144 L1137: <4_31>+L1145 L1136: <4_31>+L1146 L1135: <4_31>+L1147 ; (!*ENTRY TESTSERIES EXPR 0) ; (!*ALLOC 0) ; (!*LINK BINDINGTEST EXPR 0) ; (HRRZI (REG LINKREG) 376) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY BINDINGTEST)) ; (!*LINK INTERPTEST EXPR 0) ; (HRRZI (REG LINKREG) 377) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY INTERPTEST)) ; (!*LINK COMPBINDTEST EXPR 0) ; (HRRZI (REG LINKREG) 378) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY COMPBINDTEST)) ; (!*MOVE (QUOTE NIL) (REG 1)) ; (MOVE (REG 1) (REG NIL)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) 0 ; (!*ENTRY TESTSERIES EXPR 0) L1153: intern L1153 HRRZI 12,376 SETZM 13 PUSHJ 15,SYMFNC+376 HRRZI 12,377 SETZM 13 PUSHJ 15,SYMFNC+377 HRRZI 12,378 SETZM 13 PUSHJ 15,SYMFNC+378 MOVE 1,0 POPJ 15,0 ; (!*ENTRY BINDINGTEST EXPR 0) ; (!*ALLOC 0) ; (!*MOVE (QUOTE "Test BINDING Primitives") (REG 1)) ; (MOVE (REG 1) (QUOTE "Test BINDING Primitives")) ; (!*LINK DASHED EXPR 1) ; (HRRZI (REG LINKREG) 366) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY DASHED)) ; (!*MOVE (WCONST 1) (!$FLUID AA)) ; (HRRZI (REG T1) 1) ; (MOVEM (REG T1) (!$FLUID AA)) ; (!*MOVE (QUOTE AA) (REG 1)) ; (MOVE (REG 1) (QUOTE AA)) ; (!*LINK PBIND1 EXPR 1) ; (HRRZI (REG LINKREG) 346) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PBIND1)) ; (!*MOVE (WCONST 3) (REG 2)) ; (HRRZI (REG 2) 3) ; (!*MOVE (QUOTE AA) (REG 1)) ; (MOVE (REG 1) (QUOTE AA)) ; (!*LINK LBIND1 EXPR 2) ; (HRRZI (REG LINKREG) 257) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY LBIND1)) ; (!*MOVE (WCONST 3) (REG 3)) ; (HRRZI (REG 3) 3) ; (!*MOVE (!$FLUID AA) (REG 2)) ; (MOVE (REG 2) (!$FLUID AA)) ; (!*MOVE (QUOTE "3rd bound AA") (REG 1)) ; (MOVE (REG 1) (QUOTE "3rd bound AA")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (WCONST 1) (REG 1)) ; (HRRZI (REG 1) 1) ; (!*LINK UNBINDN EXPR 1) ; (HRRZI (REG LINKREG) 168) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY UNBINDN)) ; (!*MOVE (QUOTE NIL) (REG 3)) ; (MOVE (REG 3) (REG NIL)) ; (!*MOVE (!$FLUID AA) (REG 2)) ; (MOVE (REG 2) (!$FLUID AA)) ; (!*MOVE (QUOTE "2rd bound AA") (REG 1)) ; (MOVE (REG 1) (QUOTE "2rd bound AA")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (WCONST 1) (REG 1)) ; (HRRZI (REG 1) 1) ; (!*LINK UNBINDN EXPR 1) ; (HRRZI (REG LINKREG) 168) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY UNBINDN)) ; (!*MOVE (WCONST 1) (REG 3)) ; (HRRZI (REG 3) 1) ; (!*MOVE (!$FLUID AA) (REG 2)) ; (MOVE (REG 2) (!$FLUID AA)) ; (!*MOVE (QUOTE "Original AA") (REG 1)) ; (MOVE (REG 1) (QUOTE "Original AA")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (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) L1159: 10 byte(7)79,114,105,103,105,110,97,108,32,65,65,0 L1160: 11 byte(7)50,114,100,32,98,111,117,110,100,32,65,65,0 L1161: 11 byte(7)51,114,100,32,98,111,117,110,100,32,65,65,0 L1162: 22 byte(7)84,101,115,116,32,66,73,78,68,73,78,71,32,80,114,105,109,105,116,105,118,101,115,0 0 ; (!*ENTRY BINDINGTEST EXPR 0) L1163: intern L1163 MOVE 1,L1154 HRRZI 12,366 HRRZI 13,1 PUSHJ 15,SYMFNC+366 HRRZI 6,1 MOVEM 6,SYMVAL+380 MOVE 1,L1155 HRRZI 12,346 HRRZI 13,1 PUSHJ 15,SYMFNC+346 HRRZI 2,3 MOVE 1,L1155 HRRZI 12,257 HRRZI 13,2 PUSHJ 15,SYMFNC+257 HRRZI 3,3 MOVE 2,SYMVAL+380 MOVE 1,L1156 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 HRRZI 1,1 HRRZI 12,168 HRRZI 13,1 PUSHJ 15,SYMFNC+168 MOVE 3,0 MOVE 2,SYMVAL+380 MOVE 1,L1157 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 HRRZI 1,1 HRRZI 12,168 HRRZI 13,1 PUSHJ 15,SYMFNC+168 HRRZI 3,1 MOVE 2,SYMVAL+380 MOVE 1,L1158 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 MOVE 1,0 POPJ 15,0 L1158: <4_31>+L1159 L1157: <4_31>+L1160 L1156: <4_31>+L1161 L1155: <30_31>+380 L1154: <4_31>+L1162 ; (!*ENTRY INTERPTEST EXPR 0) ; (!*ALLOC 0) ; (!*MOVE (QUOTE "TEST of Interpreter Primitives for LAMBDA's ") (REG 1)) ; (MOVE (REG 1) (QUOTE "TEST of Interpreter Primitives for LAMBDA's ")) ; (!*LINK DASHED EXPR 1) ; (HRRZI (REG LINKREG) 366) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY DASHED)) ; (!*MOVE (QUOTE (LAMBDA (X1 X2) (PRINT (LIST (QUOTE LAMBDA1) X1 X2)) (QUOTE L1))) (!$GLOBAL LAMBDA1)) ; (MOVE (REG T1) (QUOTE (LAMBDA (X1 X2) (PRINT (LIST (QUOTE LAMBDA1) X1 X2)) (QUOTE L1)))) ; (MOVEM (REG T1) (!$GLOBAL LAMBDA1)) ; (!*MOVE (QUOTE (LAMBDA (Y1 Y2) (PRINT (LIST (QUOTE LAMBDA2) Y1 Y2)) (QUOTE L2))) (!$GLOBAL LAMBDA2)) ; (MOVE (REG T1) (QUOTE (LAMBDA (Y1 Y2) (PRINT (LIST (QUOTE LAMBDA2) Y1 Y2)) (QUOTE L2)))) ; (MOVEM (REG T1) (!$GLOBAL LAMBDA2)) ; (!*MOVE (QUOTE "LAMBDA1: ") (REG 1)) ; (MOVE (REG 1) (QUOTE "LAMBDA1: ")) ; (!*LINK SPACED EXPR 1) ; (HRRZI (REG LINKREG) 365) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY SPACED)) ; (!*MOVE (!$GLOBAL LAMBDA1) (REG 1)) ; (MOVE (REG 1) (!$GLOBAL LAMBDA1)) ; (!*LINK PRINT EXPR 1) ; (HRRZI (REG LINKREG) 140) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PRINT)) ; (!*MOVE (QUOTE "FastLambdaApply on Lambda1") (REG 1)) ; (MOVE (REG 1) (QUOTE "FastLambdaApply on Lambda1")) ; (!*LINK DASHED EXPR 1) ; (HRRZI (REG LINKREG) 366) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY DASHED)) ; (!*MOVE (!$GLOBAL LAMBDA1) (!$GLOBAL CODEFORM!*)) ; (MOVE (REG T1) (!$GLOBAL LAMBDA1)) ; (MOVEM (REG T1) (!$GLOBAL CODEFORM!*)) ; (!*MOVE (WCONST 20) (REG 2)) ; (HRRZI (REG 2) 20) ; (!*MOVE (WCONST 10) (REG 1)) ; (HRRZI (REG 1) 10) ; (!*LINK FASTLAMBDAAPPLY EXPR 2) ; (HRRZI (REG LINKREG) 247) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY FASTLAMBDAAPPLY)) ; (!*MOVE (QUOTE L1) (REG 3)) ; (MOVE (REG 3) (QUOTE L1)) ; (!*MOVE (REG 1) (REG 2)) ; (MOVE (REG 2) (REG 1)) ; (!*MOVE (QUOTE "FastLambdaApply") (REG 1)) ; (MOVE (REG 1) (QUOTE "FastLambdaApply")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (QUOTE "Now Test FASTAPPLY") (REG 1)) ; (MOVE (REG 1) (QUOTE "Now Test FASTAPPLY")) ; (!*LINK DASHED EXPR 1) ; (HRRZI (REG LINKREG) 366) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY DASHED)) ; (!*MOVE (QUOTE C1) (REG 3)) ; (MOVE (REG 3) (QUOTE C1)) ; (!*MOVE (QUOTE COMPILED1) (REG 2)) ; (MOVE (REG 2) (QUOTE COMPILED1)) ; (!*MOVE (QUOTE " Compiled ID 1 ") (REG 1)) ; (MOVE (REG 1) (QUOTE " Compiled ID 1 ")) ; (!*LINK TESTAPPLY EXPR 3) ; (HRRZI (REG LINKREG) 381) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY TESTAPPLY)) ; (!*MOVE (QUOTE COMPILED2) (REG 1)) ; (MOVE (REG 1) (QUOTE COMPILED2)) ; (!*LINK GETFCODEPOINTER EXPR 1) ; (HRRZI (REG LINKREG) 239) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY GETFCODEPOINTER)) ; (!*MOVE (QUOTE C2) (REG 3)) ; (MOVE (REG 3) (QUOTE C2)) ; (!*MOVE (REG 1) (REG 2)) ; (MOVE (REG 2) (REG 1)) ; (!*MOVE (QUOTE " CodePointer 2 ") (REG 1)) ; (MOVE (REG 1) (QUOTE " CodePointer 2 ")) ; (!*LINK TESTAPPLY EXPR 3) ; (HRRZI (REG LINKREG) 381) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY TESTAPPLY)) ; (!*MOVE (QUOTE L1) (REG 3)) ; (MOVE (REG 3) (QUOTE L1)) ; (!*MOVE (!$GLOBAL LAMBDA1) (REG 2)) ; (MOVE (REG 2) (!$GLOBAL LAMBDA1)) ; (!*MOVE (QUOTE " Lambda Expression 1 ") (REG 1)) ; (MOVE (REG 1) (QUOTE " Lambda Expression 1 ")) ; (!*LINK TESTAPPLY EXPR 3) ; (HRRZI (REG LINKREG) 381) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY TESTAPPLY)) ; (!*MOVE (QUOTE "Test a compiled call on Interpreted code ") (REG 1)) ; (MOVE (REG 1) (QUOTE "Test a compiled call on Interpreted code ")) ; (!*LINK DASHED EXPR 1) ; (HRRZI (REG LINKREG) 366) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY DASHED)) ; (!*MOVE (QUOTE (LAMBDA (AG1 AG2 AG3) (PRINT (LIST (QUOTE INTERPRETED3) AG1 AG2 AG3)) (QUOTE L3))) (REG 3)) ; (MOVE (REG 3) (QUOTE (LAMBDA (AG1 AG2 AG3) (PRINT (LIST (QUOTE INTERPRETED3) AG1 AG2 AG3)) (QUOTE L3)))) ; (!*MOVE (QUOTE EXPR) (REG 2)) ; (MOVE (REG 2) (QUOTE EXPR)) ; (!*MOVE (QUOTE INTERPRETED3) (REG 1)) ; (MOVE (REG 1) (QUOTE INTERPRETED3)) ; (!*LINK PUTD EXPR 3) ; (HRRZI (REG LINKREG) 291) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY PUTD)) ; (!*MOVE (QUOTE INTERPRETED3) (REG 1)) ; (MOVE (REG 1) (QUOTE INTERPRETED3)) ; (!*LINK FLAMBDALINKP EXPR 1) ; (HRRZI (REG LINKREG) 234) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY FLAMBDALINKP)) ; (!*MOVE (QUOTE T) (REG 3)) ; (MOVE (REG 3) (FLUID T)) ; (!*MOVE (REG 1) (REG 2)) ; (MOVE (REG 2) (REG 1)) ; (!*MOVE (QUOTE " FlambdaLinkP") (REG 1)) ; (MOVE (REG 1) (QUOTE " FlambdaLinkP")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (WCONST 320) (REG 3)) ; (HRRZI (REG 3) 320) ; (!*MOVE (WCONST 310) (REG 2)) ; (HRRZI (REG 2) 310) ; (!*MOVE (WCONST 300) (REG 1)) ; (HRRZI (REG 1) 300) ; (!*LINK INTERPRETED3 EXPR 3) ; (HRRZI (REG LINKREG) 382) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY INTERPRETED3)) ; (!*MOVE (QUOTE L3) (REG 3)) ; (MOVE (REG 3) (QUOTE L3)) ; (!*MOVE (REG 1) (REG 2)) ; (MOVE (REG 2) (REG 1)) ; (!*MOVE (QUOTE " Interp3") (REG 1)) ; (MOVE (REG 1) (QUOTE " Interp3")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (!$GLOBAL LAMBDA2) (REG 3)) ; (MOVE (REG 3) (!$GLOBAL LAMBDA2)) ; (!*MOVE (QUOTE EXPR) (REG 2)) ; (MOVE (REG 2) (QUOTE EXPR)) ; (!*MOVE (QUOTE INTERPRETED2) (REG 1)) ; (MOVE (REG 1) (QUOTE INTERPRETED2)) ; (!*LINK PUTD EXPR 3) ; (HRRZI (REG LINKREG) 291) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY PUTD)) ; (!*MOVE (QUOTE L2) (REG 3)) ; (MOVE (REG 3) (QUOTE L2)) ; (!*MOVE (QUOTE INTERPRETED2) (REG 2)) ; (MOVE (REG 2) (QUOTE INTERPRETED2)) ; (!*MOVE (QUOTE " Interpreted ID 2 ") (REG 1)) ; (MOVE (REG 1) (QUOTE " Interpreted ID 2 ")) ; (!*LINK TESTAPPLY EXPR 3) ; (HRRZI (REG LINKREG) 381) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY TESTAPPLY)) ; (!*MOVE (QUOTE NIL) (REG 1)) ; (MOVE (REG 1) (REG NIL)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) L1189: 17 byte(7)32,73,110,116,101,114,112,114,101,116,101,100,32,73,68,32,50,32,0 L1190: 7 byte(7)32,73,110,116,101,114,112,51,0 L1191: 12 byte(7)32,70,108,97,109,98,100,97,76,105,110,107,80,0 L1192: <30_31>+248 <9_31>+L1204 L1193: 40 byte(7)84,101,115,116,32,97,32,99,111,109,112,105,108,101,100,32,99,97,108,108,32,111,110,32,73,110,116,101,114,112,114,101,116,101,100,32,99,111,100,101,32,0 L1194: 20 byte(7)32,76,97,109,98,100,97,32,69,120,112,114,101,115,115,105,111,110,32,49,32,0 L1195: 14 byte(7)32,67,111,100,101,80,111,105,110,116,101,114,32,50,32,0 L1196: 14 byte(7)32,67,111,109,112,105,108,101,100,32,73,68,32,49,32,0 L1197: 17 byte(7)78,111,119,32,84,101,115,116,32,70,65,83,84,65,80,80,76,89,0 L1198: 14 byte(7)70,97,115,116,76,97,109,98,100,97,65,112,112,108,121,0 L1199: 25 byte(7)70,97,115,116,76,97,109,98,100,97,65,112,112,108,121,32,111,110,32,76,97,109,98,100,97,49,0 L1200: 8 byte(7)76,65,77,66,68,65,49,58,32,0 L1201: <30_31>+248 <9_31>+L1205 L1202: <30_31>+248 <9_31>+L1206 L1203: 43 byte(7)84,69,83,84,32,111,102,32,73,110,116,101,114,112,114,101,116,101,114,32,80,114,105,109,105,116,105,118,101,115,32,102,111,114,32,76,65,77,66,68,65,39,115,32,0 L1204: <9_31>+L1207 <9_31>+L1208 L1205: <9_31>+L1209 <9_31>+L1210 L1206: <9_31>+L1211 <9_31>+L1212 L1207: <30_31>+383 <9_31>+L1213 L1208: <9_31>+L1214 <9_31>+L1215 L1209: <30_31>+384 <9_31>+L1216 L1210: <9_31>+L1217 <9_31>+L1218 L1211: <30_31>+385 <9_31>+L1219 L1212: <9_31>+L1220 <9_31>+L1221 L1213: <30_31>+386 <9_31>+L1222 L1214: <30_31>+140 <9_31>+L1223 L1215: <9_31>+L1224 <30_31>+128 L1216: <30_31>+387 <30_31>+128 L1217: <30_31>+140 <9_31>+L1225 L1218: <9_31>+L1226 <30_31>+128 L1219: <30_31>+388 <30_31>+128 L1220: <30_31>+140 <9_31>+L1227 L1221: <9_31>+L1228 <30_31>+128 L1222: <30_31>+389 <30_31>+128 L1223: <9_31>+L1229 <30_31>+128 L1224: <30_31>+223 <9_31>+L1230 L1225: <9_31>+L1231 <30_31>+128 L1226: <30_31>+223 <9_31>+L1232 L1227: <9_31>+L1233 <30_31>+128 L1228: <30_31>+223 <9_31>+L1234 L1229: <30_31>+300 <9_31>+L1235 L1230: <30_31>+390 <30_31>+128 L1231: <30_31>+300 <9_31>+L1236 L1232: <30_31>+391 <30_31>+128 L1233: <30_31>+300 <9_31>+L1237 L1234: <30_31>+392 <30_31>+128 L1235: <9_31>+L1238 <9_31>+L1207 L1236: <9_31>+L1239 <9_31>+L1209 L1237: <9_31>+L1240 <9_31>+L1211 L1238: <30_31>+223 <9_31>+L1241 L1239: <30_31>+223 <9_31>+L1242 L1240: <30_31>+223 <9_31>+L1243 L1241: <30_31>+382 <30_31>+128 L1242: <30_31>+393 <30_31>+128 L1243: <30_31>+394 <30_31>+128 0 ; (!*ENTRY INTERPTEST EXPR 0) L1244: intern L1244 MOVE 1,L1164 HRRZI 12,366 HRRZI 13,1 PUSHJ 15,SYMFNC+366 MOVE 6,L1165 MOVEM 6,SYMVAL+394 MOVE 6,L1166 MOVEM 6,SYMVAL+393 MOVE 1,L1167 HRRZI 12,365 HRRZI 13,1 PUSHJ 15,SYMFNC+365 MOVE 1,SYMVAL+394 HRRZI 12,140 HRRZI 13,1 PUSHJ 15,SYMFNC+140 MOVE 1,L1168 HRRZI 12,366 HRRZI 13,1 PUSHJ 15,SYMFNC+366 MOVE 6,SYMVAL+394 MOVEM 6,SYMVAL+243 HRRZI 2,20 HRRZI 1,10 HRRZI 12,247 HRRZI 13,2 PUSHJ 15,SYMFNC+247 MOVE 3,L1169 MOVE 2,1 MOVE 1,L1170 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 MOVE 1,L1171 HRRZI 12,366 HRRZI 13,1 PUSHJ 15,SYMFNC+366 MOVE 3,L1172 MOVE 2,L1173 MOVE 1,L1174 HRRZI 12,381 HRRZI 13,3 PUSHJ 15,SYMFNC+381 MOVE 1,L1175 HRRZI 12,239 HRRZI 13,1 PUSHJ 15,SYMFNC+239 MOVE 3,L1176 MOVE 2,1 MOVE 1,L1177 HRRZI 12,381 HRRZI 13,3 PUSHJ 15,SYMFNC+381 MOVE 3,L1169 MOVE 2,SYMVAL+394 MOVE 1,L1178 HRRZI 12,381 HRRZI 13,3 PUSHJ 15,SYMFNC+381 MOVE 1,L1179 HRRZI 12,366 HRRZI 13,1 PUSHJ 15,SYMFNC+366 MOVE 3,L1180 MOVE 2,L1181 MOVE 1,L1182 HRRZI 12,291 HRRZI 13,3 PUSHJ 15,SYMFNC+291 MOVE 1,L1182 HRRZI 12,234 HRRZI 13,1 PUSHJ 15,SYMFNC+234 MOVE 3,SYMVAL+84 MOVE 2,1 MOVE 1,L1183 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 HRRZI 3,320 HRRZI 2,310 HRRZI 1,300 HRRZI 12,382 HRRZI 13,3 PUSHJ 15,SYMFNC+382 MOVE 3,L1184 MOVE 2,1 MOVE 1,L1185 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 MOVE 3,SYMVAL+393 MOVE 2,L1181 MOVE 1,L1186 HRRZI 12,291 HRRZI 13,3 PUSHJ 15,SYMFNC+291 MOVE 3,L1187 MOVE 2,L1186 MOVE 1,L1188 HRRZI 12,381 HRRZI 13,3 PUSHJ 15,SYMFNC+381 MOVE 1,0 POPJ 15,0 L1188: <4_31>+L1189 L1187: <30_31>+391 L1186: <30_31>+395 L1185: <4_31>+L1190 L1184: <30_31>+390 L1183: <4_31>+L1191 L1182: <30_31>+382 L1181: <30_31>+293 L1180: <9_31>+L1192 L1179: <4_31>+L1193 L1178: <4_31>+L1194 L1177: <4_31>+L1195 L1176: <30_31>+396 L1175: <30_31>+397 L1174: <4_31>+L1196 L1173: <30_31>+398 L1172: <30_31>+399 L1171: <4_31>+L1197 L1170: <4_31>+L1198 L1169: <30_31>+392 L1168: <4_31>+L1199 L1167: <4_31>+L1200 L1166: <9_31>+L1201 L1165: <9_31>+L1202 L1164: <4_31>+L1203 ; (!*ENTRY TESTFASTAPPLY EXPR 0) ; (!*MOVE (FLUID TESTCODE!*) (REG T1)) ; (MOVE (REG T1) (FLUID TESTCODE!*)) ; (!*JCALL FASTAPPLY) ; (JRST (ENTRY FASTAPPLY)) 0 ; (!*ENTRY TESTFASTAPPLY EXPR 0) L1245: intern L1245 MOVE 6,SYMVAL+401 JRST SYMFNC+246 ; (!*ENTRY TESTAPPLY EXPR 3) ; (!*ALLOC 4) ; (ADJSP (REG ST) 4) ; (!*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 " Testapply case ") (REG 1)) ; (MOVE (REG 1) (QUOTE " Testapply case ")) ; (!*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 " given ") (REG 1)) ; (MOVE (REG 1) (QUOTE " given ")) ; (!*LINK PRIN2 EXPR 1) ; (HRRZI (REG LINKREG) 138) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PRIN2)) ; (!*MOVE (FRAME 2) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (!*LINK PRINT EXPR 1) ; (HRRZI (REG LINKREG) 140) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PRINT)) ; (!*MOVE (FRAME 2) (!$FLUID TESTCODE!*)) ; (MOVE (REG T1) (INDEXED (REG ST) -1)) ; (MOVEM (REG T1) (!$FLUID TESTCODE!*)) ; (!*MOVE (QUOTE B) (REG 2)) ; (MOVE (REG 2) (QUOTE B)) ; (!*MOVE (QUOTE A) (REG 1)) ; (MOVE (REG 1) (QUOTE A)) ; (!*LINK TESTFASTAPPLY EXPR 2) ; (HRRZI (REG LINKREG) 400) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY TESTFASTAPPLY)) ; (!*MOVE (REG 1) (FRAME 4)) ; (MOVEM (REG 1) (INDEXED (REG ST) -3)) ; (!*MOVE (FRAME 3) (REG 3)) ; (MOVE (REG 3) (INDEXED (REG ST) -2)) ; (!*MOVE (REG 1) (REG 2)) ; (MOVE (REG 2) (REG 1)) ; (!*MOVE (QUOTE " answer") (REG 1)) ; (MOVE (REG 1) (QUOTE " answer")) ; (!*LINKE 4 SHOULDBE EXPR 3) ; (ADJSP (REG ST) (MINUS 4)) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (JRST (ENTRY SHOULDBE)) L1251: 7 byte(7)32,32,97,110,115,119,101,114,0 L1252: 6 byte(7)32,103,105,118,101,110,32,0 L1253: 17 byte(7)32,32,32,84,101,115,116,97,112,112,108,121,32,99,97,115,101,32,0 3 ; (!*ENTRY TESTAPPLY EXPR 3) L1254: intern L1254 ADJSP 15,4 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) MOVE 1,L1246 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,L1247 HRRZI 12,138 HRRZI 13,1 PUSHJ 15,SYMFNC+138 MOVE 1,-1(15) HRRZI 12,140 HRRZI 13,1 PUSHJ 15,SYMFNC+140 MOVE 6,-1(15) MOVEM 6,SYMVAL+401 MOVE 2,L1248 MOVE 1,L1249 HRRZI 12,400 HRRZI 13,2 PUSHJ 15,SYMFNC+400 MOVEM 1,-3(15) MOVE 3,-2(15) MOVE 2,1 MOVE 1,L1250 ADJSP 15,-4 HRRZI 12,368 HRRZI 13,3 JRST SYMFNC+368 L1250: <4_31>+L1251 L1249: <30_31>+65 L1248: <30_31>+66 L1247: <4_31>+L1252 L1246: <4_31>+L1253 ; (!*ENTRY COMPILED1 EXPR 2) ; (!*PUSH (REG 2)) ; (PUSH (REG ST) (REG 2)) ; (!*PUSH (REG 1)) ; (PUSH (REG ST) (REG 1)) ; (!*MOVE (QUOTE " Compiled1(") (REG 1)) ; (MOVE (REG 1) (QUOTE " Compiled1(")) ; (!*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 " ") (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 ")") (REG 1)) ; (MOVE (REG 1) (QUOTE ")")) ; (!*LINK PRIN2T EXPR 1) ; (HRRZI (REG LINKREG) 141) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PRIN2T)) ; (!*MOVE (QUOTE C1) (REG 1)) ; (MOVE (REG 1) (QUOTE C1)) ; (!*EXIT 2) ; (ADJSP (REG ST) (MINUS 2)) ; (POPJ (REG ST) 0) L1259: 0 byte(7)41,0 L1260: 0 byte(7)32,0 L1261: 14 byte(7)32,32,32,32,32,67,111,109,112,105,108,101,100,49,40,0 2 ; (!*ENTRY COMPILED1 EXPR 2) L1262: intern L1262 PUSH 15,2 PUSH 15,1 MOVE 1,L1255 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,L1256 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,L1257 HRRZI 12,141 HRRZI 13,1 PUSHJ 15,SYMFNC+141 MOVE 1,L1258 ADJSP 15,-2 POPJ 15,0 L1258: <30_31>+399 L1257: <4_31>+L1259 L1256: <4_31>+L1260 L1255: <4_31>+L1261 ; (!*ENTRY COMPILED2 EXPR 2) ; (!*PUSH (REG 2)) ; (PUSH (REG ST) (REG 2)) ; (!*PUSH (REG 1)) ; (PUSH (REG ST) (REG 1)) ; (!*MOVE (QUOTE " Compiled2(") (REG 1)) ; (MOVE (REG 1) (QUOTE " Compiled2(")) ; (!*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 " ") (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 ")") (REG 1)) ; (MOVE (REG 1) (QUOTE ")")) ; (!*LINK PRIN2T EXPR 1) ; (HRRZI (REG LINKREG) 141) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PRIN2T)) ; (!*MOVE (QUOTE C2) (REG 1)) ; (MOVE (REG 1) (QUOTE C2)) ; (!*EXIT 2) ; (ADJSP (REG ST) (MINUS 2)) ; (POPJ (REG ST) 0) L1267: 0 byte(7)41,0 L1268: 0 byte(7)32,0 L1269: 14 byte(7)32,32,32,32,32,67,111,109,112,105,108,101,100,50,40,0 2 ; (!*ENTRY COMPILED2 EXPR 2) L1270: intern L1270 PUSH 15,2 PUSH 15,1 MOVE 1,L1263 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,L1264 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,L1265 HRRZI 12,141 HRRZI 13,1 PUSHJ 15,SYMFNC+141 MOVE 1,L1266 ADJSP 15,-2 POPJ 15,0 L1266: <30_31>+396 L1265: <4_31>+L1267 L1264: <4_31>+L1268 L1263: <4_31>+L1269 ; (!*ENTRY COMPBINDTEST EXPR 0) ; (!*ALLOC 0) ; (!*MOVE (QUOTE "Test LAMBIND and PROGBIND in compiled code") (REG 1)) ; (MOVE (REG 1) (QUOTE "Test LAMBIND and PROGBIND in compiled code")) ; (!*LINK DASHED EXPR 1) ; (HRRZI (REG LINKREG) 366) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY DASHED)) ; (!*MOVE (QUOTE TOP1) (!$FLUID CFL1)) ; (MOVE (REG T1) (QUOTE TOP1)) ; (MOVEM (REG T1) (!$FLUID CFL1)) ; (!*MOVE (QUOTE TOP2) (!$FLUID CFL2)) ; (MOVE (REG T1) (QUOTE TOP2)) ; (MOVEM (REG T1) (!$FLUID CFL2)) ; (!*MOVE (QUOTE MID2) (REG 3)) ; (MOVE (REG 3) (QUOTE MID2)) ; (!*MOVE (QUOTE MID1) (REG 2)) ; (MOVE (REG 2) (QUOTE MID1)) ; (!*MOVE (QUOTE MID0) (REG 1)) ; (MOVE (REG 1) (QUOTE MID0)) ; (!*LINK CBIND1 EXPR 3) ; (HRRZI (REG LINKREG) 402) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY CBIND1)) ; (!*MOVE (QUOTE TOP1) (REG 3)) ; (MOVE (REG 3) (QUOTE TOP1)) ; (!*MOVE (!$FLUID CFL1) (REG 2)) ; (MOVE (REG 2) (!$FLUID CFL1)) ; (!*MOVE (QUOTE "CFL1") (REG 1)) ; (MOVE (REG 1) (QUOTE "CFL1")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (QUOTE TOP2) (REG 3)) ; (MOVE (REG 3) (QUOTE TOP2)) ; (!*MOVE (!$FLUID CFL2) (REG 2)) ; (MOVE (REG 2) (!$FLUID CFL2)) ; (!*MOVE (QUOTE "CFL2") (REG 1)) ; (MOVE (REG 1) (QUOTE "CFL2")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (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) L1279: 3 byte(7)67,70,76,50,0 L1280: 3 byte(7)67,70,76,49,0 L1281: 41 byte(7)84,101,115,116,32,76,65,77,66,73,78,68,32,97,110,100,32,80,82,79,71,66,73,78,68,32,105,110,32,99,111,109,112,105,108,101,100,32,99,111,100,101,0 0 ; (!*ENTRY COMPBINDTEST EXPR 0) L1282: intern L1282 MOVE 1,L1271 HRRZI 12,366 HRRZI 13,1 PUSHJ 15,SYMFNC+366 MOVE 6,L1272 MOVEM 6,SYMVAL+403 MOVE 6,L1273 MOVEM 6,SYMVAL+404 MOVE 3,L1274 MOVE 2,L1275 MOVE 1,L1276 HRRZI 12,402 HRRZI 13,3 PUSHJ 15,SYMFNC+402 MOVE 3,L1272 MOVE 2,SYMVAL+403 MOVE 1,L1277 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 MOVE 3,L1273 MOVE 2,SYMVAL+404 MOVE 1,L1278 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 MOVE 1,0 POPJ 15,0 L1278: <4_31>+L1279 L1277: <4_31>+L1280 L1276: <30_31>+405 L1275: <30_31>+406 L1274: <30_31>+407 L1273: <30_31>+408 L1272: <30_31>+409 L1271: <4_31>+L1281 ; (!*ENTRY CBIND1 EXPR 3) ; (!*PUSH (REG 1)) ; (PUSH (REG ST) (REG 1)) ; (!*LAMBIND (REGISTERS (REG 3) (REG 2)) (NONLOCALVARS (!$FLUID CFL2) (!$FLUID CFL1))) ; (MOVEM (REG 3) (INDIRECT (FLUID LAMBINDARGS!*))) ; (MOVE (REG 3) (FLUID LAMBINDARGS!*)) ; (MOVEM (REG 2) (INDEXED (REG 3) 1)) ; (MOVE (REG 1) (QUOTE [CFL2 CFL1])) ; (PUSHJ (REG ST) (ENTRY LAMBIND)) ; (!*MOVE (QUOTE MID0) (REG 3)) ; (MOVE (REG 3) (QUOTE MID0)) ; (!*MOVE (FRAME 1) (REG 2)) ; (MOVE (REG 2) (INDEXED (REG ST) 0)) ; (!*MOVE (QUOTE "x ") (REG 1)) ; (MOVE (REG 1) (QUOTE "x ")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (QUOTE MID1) (REG 3)) ; (MOVE (REG 3) (QUOTE MID1)) ; (!*MOVE (!$FLUID CFL1) (REG 2)) ; (MOVE (REG 2) (!$FLUID CFL1)) ; (!*MOVE (QUOTE "CFL1") (REG 1)) ; (MOVE (REG 1) (QUOTE "CFL1")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (QUOTE MID2) (REG 3)) ; (MOVE (REG 3) (QUOTE MID2)) ; (!*MOVE (!$FLUID CFL2) (REG 2)) ; (MOVE (REG 2) (!$FLUID CFL2)) ; (!*MOVE (QUOTE "CFL2") (REG 1)) ; (MOVE (REG 1) (QUOTE "CFL2")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*LINK CBIND2 EXPR 0) ; (HRRZI (REG LINKREG) 410) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY CBIND2)) ; (!*MOVE (QUOTE BOT1) (REG 3)) ; (MOVE (REG 3) (QUOTE BOT1)) ; (!*MOVE (!$FLUID CFL1) (REG 2)) ; (MOVE (REG 2) (!$FLUID CFL1)) ; (!*MOVE (QUOTE "CFL1") (REG 1)) ; (MOVE (REG 1) (QUOTE "CFL1")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (QUOTE MID2) (REG 3)) ; (MOVE (REG 3) (QUOTE MID2)) ; (!*MOVE (!$FLUID CFL2) (REG 2)) ; (MOVE (REG 2) (!$FLUID CFL2)) ; (!*MOVE (QUOTE "CFL2") (REG 1)) ; (MOVE (REG 1) (QUOTE "CFL2")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (QUOTE NIL) (REG 1)) ; (MOVE (REG 1) (REG NIL)) ; (!*FREERSTR (NONLOCALVARS (!$FLUID CFL2) (!$FLUID CFL1))) ; (HRRZI (REG 1) 2) ; (PUSHJ (REG ST) (ENTRY UNBINDN)) ; (!*EXIT 1) ; (ADJSP (REG ST) (MINUS 1)) ; (POPJ (REG ST) 0) L1291: 3 byte(7)67,70,76,50,0 L1292: 3 byte(7)67,70,76,49,0 L1293: 3 byte(7)120,32,32,32,0 L1294: 1 <30_31>+404 <30_31>+403 3 ; (!*ENTRY CBIND1 EXPR 3) CBIND1: intern CBIND1 PUSH 15,1 MOVEM 3,@SYMVAL+166 MOVE 3,SYMVAL+166 MOVEM 2,1(3) MOVE 1,L1283 PUSHJ 15,SYMFNC+167 MOVE 3,L1284 MOVE 2,0(15) MOVE 1,L1285 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 MOVE 3,L1286 MOVE 2,SYMVAL+403 MOVE 1,L1287 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 MOVE 3,L1288 MOVE 2,SYMVAL+404 MOVE 1,L1289 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 HRRZI 12,410 SETZM 13 PUSHJ 15,SYMFNC+410 MOVE 3,L1290 MOVE 2,SYMVAL+403 MOVE 1,L1287 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 MOVE 3,L1288 MOVE 2,SYMVAL+404 MOVE 1,L1289 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 MOVE 1,0 HRRZI 1,2 PUSHJ 15,SYMFNC+168 ADJSP 15,-1 POPJ 15,0 L1290: <30_31>+411 L1289: <4_31>+L1291 L1288: <30_31>+407 L1287: <4_31>+L1292 L1286: <30_31>+406 L1285: <4_31>+L1293 L1284: <30_31>+405 L1283: <8_31>+L1294 ; (!*ENTRY CBIND2 EXPR 0) ; (!*ALLOC 0) ; (!*MOVE (QUOTE MID1) (REG 3)) ; (MOVE (REG 3) (QUOTE MID1)) ; (!*MOVE (!$FLUID CFL1) (REG 2)) ; (MOVE (REG 2) (!$FLUID CFL1)) ; (!*MOVE (QUOTE "CFL1") (REG 1)) ; (MOVE (REG 1) (QUOTE "CFL1")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (QUOTE MID2) (REG 3)) ; (MOVE (REG 3) (QUOTE MID2)) ; (!*MOVE (!$FLUID CFL2) (REG 2)) ; (MOVE (REG 2) (!$FLUID CFL2)) ; (!*MOVE (QUOTE "CFL2") (REG 1)) ; (MOVE (REG 1) (QUOTE "CFL2")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*PROGBIND (NONLOCALVARS (!$FLUID CFL2))) ; (MOVE (REG 1) (QUOTE CFL2)) ; (PUSHJ (REG ST) (ENTRY PBIND1)) ; (!*MOVE (QUOTE BOT1) (!$FLUID CFL1)) ; (MOVE (REG T1) (QUOTE BOT1)) ; (MOVEM (REG T1) (!$FLUID CFL1)) ; (!*MOVE (QUOTE BOT2) (!$FLUID CFL2)) ; (MOVE (REG T1) (QUOTE BOT2)) ; (MOVEM (REG T1) (!$FLUID CFL2)) ; (!*MOVE (QUOTE BOT1) (REG 3)) ; (MOVE (REG 3) (QUOTE BOT1)) ; (!*MOVE (!$FLUID CFL1) (REG 2)) ; (MOVE (REG 2) (!$FLUID CFL1)) ; (!*MOVE (QUOTE "CFL1") (REG 1)) ; (MOVE (REG 1) (QUOTE "CFL1")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (QUOTE BOT2) (REG 3)) ; (MOVE (REG 3) (QUOTE BOT2)) ; (!*MOVE (!$FLUID CFL2) (REG 2)) ; (MOVE (REG 2) (!$FLUID CFL2)) ; (!*MOVE (QUOTE "CFL2") (REG 1)) ; (MOVE (REG 1) (QUOTE "CFL2")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*FREERSTR (NONLOCALVARS (!$FLUID CFL2))) ; (HRRZI (REG 1) 1) ; (PUSHJ (REG ST) (ENTRY UNBINDN)) ; (!*MOVE (QUOTE BOT1) (REG 3)) ; (MOVE (REG 3) (QUOTE BOT1)) ; (!*MOVE (!$FLUID CFL1) (REG 2)) ; (MOVE (REG 2) (!$FLUID CFL1)) ; (!*MOVE (QUOTE "CFL1") (REG 1)) ; (MOVE (REG 1) (QUOTE "CFL1")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SHOULDBE)) ; (!*MOVE (QUOTE MID2) (REG 3)) ; (MOVE (REG 3) (QUOTE MID2)) ; (!*MOVE (!$FLUID CFL2) (REG 2)) ; (MOVE (REG 2) (!$FLUID CFL2)) ; (!*MOVE (QUOTE "CFL2") (REG 1)) ; (MOVE (REG 1) (QUOTE "CFL2")) ; (!*LINK SHOULDBE EXPR 3) ; (HRRZI (REG LINKREG) 368) ; (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) L1302: 3 byte(7)67,70,76,50,0 L1303: 3 byte(7)67,70,76,49,0 0 ; (!*ENTRY CBIND2 EXPR 0) CBIND2: intern CBIND2 MOVE 3,L1295 MOVE 2,SYMVAL+403 MOVE 1,L1296 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 MOVE 3,L1297 MOVE 2,SYMVAL+404 MOVE 1,L1298 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 MOVE 1,L1299 PUSHJ 15,SYMFNC+346 MOVE 6,L1300 MOVEM 6,SYMVAL+403 MOVE 6,L1301 MOVEM 6,SYMVAL+404 MOVE 3,L1300 MOVE 2,SYMVAL+403 MOVE 1,L1296 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 MOVE 3,L1301 MOVE 2,SYMVAL+404 MOVE 1,L1298 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 HRRZI 1,1 PUSHJ 15,SYMFNC+168 MOVE 3,L1300 MOVE 2,SYMVAL+403 MOVE 1,L1296 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 MOVE 3,L1297 MOVE 2,SYMVAL+404 MOVE 1,L1298 HRRZI 12,368 HRRZI 13,3 PUSHJ 15,SYMFNC+368 MOVE 1,0 POPJ 15,0 L1301: <30_31>+412 L1300: <30_31>+411 L1299: <30_31>+404 L1298: <4_31>+L1302 L1297: <30_31>+407 L1296: <4_31>+L1303 L1295: <30_31>+406 0 ; (!*ENTRY INITCODE EXPR 0) L1304: intern L1304 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 L1305: 0 byte(7)0,0 intern L1305 L1306: 0 byte(7)1,0 intern L1306 L1307: 0 byte(7)2,0 intern L1307 L1308: 0 byte(7)3,0 intern L1308 L1309: 0 byte(7)4,0 intern L1309 L1310: 0 byte(7)5,0 intern L1310 L1311: 0 byte(7)6,0 intern L1311 L1312: 0 byte(7)7,0 intern L1312 L1313: 0 byte(7)8,0 intern L1313 L1314: 0 byte(7)9,0 intern L1314 L1315: 0 byte(7)10,0 intern L1315 L1316: 0 byte(7)11,0 intern L1316 L1317: 0 byte(7)12,0 intern L1317 L1318: 0 byte(7)13,0 intern L1318 L1319: 0 byte(7)14,0 intern L1319 L1320: 0 byte(7)15,0 intern L1320 L1321: 0 byte(7)16,0 intern L1321 L1322: 0 byte(7)17,0 intern L1322 L1323: 0 byte(7)18,0 intern L1323 L1324: 0 byte(7)19,0 intern L1324 L1325: 0 byte(7)20,0 intern L1325 L1326: 0 byte(7)21,0 intern L1326 L1327: 0 byte(7)22,0 intern L1327 L1328: 0 byte(7)23,0 intern L1328 L1329: 0 byte(7)24,0 intern L1329 L1330: 0 byte(7)25,0 intern L1330 L1331: 0 byte(7)26,0 intern L1331 L1332: 0 byte(7)27,0 intern L1332 L1333: 0 byte(7)28,0 intern L1333 L1334: 0 byte(7)29,0 intern L1334 L1335: 0 byte(7)30,0 intern L1335 L1336: 0 byte(7)31,0 intern L1336 L1337: 0 byte(7)32,0 intern L1337 L1338: 0 byte(7)33,0 intern L1338 L1339: 0 byte(7)34,0 intern L1339 L1340: 0 byte(7)35,0 intern L1340 L1341: 0 byte(7)36,0 intern L1341 L1342: 0 byte(7)37,0 intern L1342 L1343: 0 byte(7)38,0 intern L1343 L1344: 0 byte(7)39,0 intern L1344 L1345: 0 byte(7)40,0 intern L1345 L1346: 0 byte(7)41,0 intern L1346 L1347: 0 byte(7)42,0 intern L1347 L1348: 0 byte(7)43,0 intern L1348 L1349: 0 byte(7)44,0 intern L1349 L1350: 0 byte(7)45,0 intern L1350 L1351: 0 byte(7)46,0 intern L1351 L1352: 0 byte(7)47,0 intern L1352 L1353: 0 byte(7)48,0 intern L1353 L1354: 0 byte(7)49,0 intern L1354 L1355: 0 byte(7)50,0 intern L1355 L1356: 0 byte(7)51,0 intern L1356 L1357: 0 byte(7)52,0 intern L1357 L1358: 0 byte(7)53,0 intern L1358 L1359: 0 byte(7)54,0 intern L1359 L1360: 0 byte(7)55,0 intern L1360 L1361: 0 byte(7)56,0 intern L1361 L1362: 0 byte(7)57,0 intern L1362 L1363: 0 byte(7)58,0 intern L1363 L1364: 0 byte(7)59,0 intern L1364 L1365: 0 byte(7)60,0 intern L1365 L1366: 0 byte(7)61,0 intern L1366 L1367: 0 byte(7)62,0 intern L1367 L1368: 0 byte(7)63,0 intern L1368 L1369: 0 byte(7)64,0 intern L1369 L1370: 0 byte(7)65,0 intern L1370 L1371: 0 byte(7)66,0 intern L1371 L1372: 0 byte(7)67,0 intern L1372 L1373: 0 byte(7)68,0 intern L1373 L1374: 0 byte(7)69,0 intern L1374 L1375: 0 byte(7)70,0 intern L1375 L1376: 0 byte(7)71,0 intern L1376 L1377: 0 byte(7)72,0 intern L1377 L1378: 0 byte(7)73,0 intern L1378 L1379: 0 byte(7)74,0 intern L1379 L1380: 0 byte(7)75,0 intern L1380 L1381: 0 byte(7)76,0 intern L1381 L1382: 0 byte(7)77,0 intern L1382 L1383: 0 byte(7)78,0 intern L1383 L1384: 0 byte(7)79,0 intern L1384 L1385: 0 byte(7)80,0 intern L1385 L1386: 0 byte(7)81,0 intern L1386 L1387: 0 byte(7)82,0 intern L1387 L1388: 0 byte(7)83,0 intern L1388 L1389: 0 byte(7)84,0 intern L1389 L1390: 0 byte(7)85,0 intern L1390 L1391: 0 byte(7)86,0 intern L1391 L1392: 0 byte(7)87,0 intern L1392 L1393: 0 byte(7)88,0 intern L1393 L1394: 0 byte(7)89,0 intern L1394 L1395: 0 byte(7)90,0 intern L1395 L1396: 0 byte(7)91,0 intern L1396 L1397: 0 byte(7)92,0 intern L1397 L1398: 0 byte(7)93,0 intern L1398 L1399: 0 byte(7)94,0 intern L1399 L1400: 0 byte(7)95,0 intern L1400 L1401: 0 byte(7)96,0 intern L1401 L1402: 0 byte(7)97,0 intern L1402 L1403: 0 byte(7)98,0 intern L1403 L1404: 0 byte(7)99,0 intern L1404 L1405: 0 byte(7)100,0 intern L1405 L1406: 0 byte(7)101,0 intern L1406 L1407: 0 byte(7)102,0 intern L1407 L1408: 0 byte(7)103,0 intern L1408 L1409: 0 byte(7)104,0 intern L1409 L1410: 0 byte(7)105,0 intern L1410 L1411: 0 byte(7)106,0 intern L1411 L1412: 0 byte(7)107,0 intern L1412 L1413: 0 byte(7)108,0 intern L1413 L1414: 0 byte(7)109,0 intern L1414 L1415: 0 byte(7)110,0 intern L1415 L1416: 0 byte(7)111,0 intern L1416 L1417: 0 byte(7)112,0 intern L1417 L1418: 0 byte(7)113,0 intern L1418 L1419: 0 byte(7)114,0 intern L1419 L1420: 0 byte(7)115,0 intern L1420 L1421: 0 byte(7)116,0 intern L1421 L1422: 0 byte(7)117,0 intern L1422 L1423: 0 byte(7)118,0 intern L1423 L1424: 0 byte(7)119,0 intern L1424 L1425: 0 byte(7)120,0 intern L1425 L1426: 0 byte(7)121,0 intern L1426 L1427: 0 byte(7)122,0 intern L1427 L1428: 0 byte(7)123,0 intern L1428 L1429: 0 byte(7)124,0 intern L1429 L1430: 0 byte(7)125,0 intern L1430 L1431: 0 byte(7)126,0 intern L1431 L1432: 0 byte(7)127,0 intern L1432 L1433: 2 byte(7)78,73,76,0 intern L1433 L1434: 6 byte(7)80,82,73,78,49,73,68,0 intern L1434 L1435: 7 byte(7)80,82,73,78,49,73,78,84,0 intern L1435 L1436: 10 byte(7)80,82,73,78,49,83,84,82,73,78,71,0 intern L1436 L1437: 8 byte(7)80,82,73,78,49,80,65,73,82,0 intern L1437 L1438: 5 byte(7)80,82,84,73,84,77,0 intern L1438 L1439: 4 byte(7)80,82,73,78,49,0 intern L1439 L1440: 6 byte(7)80,82,73,78,50,73,68,0 intern L1440 L1441: 10 byte(7)80,82,73,78,50,83,84,82,73,78,71,0 intern L1441 L1442: 8 byte(7)80,82,73,78,50,80,65,73,82,0 intern L1442 L1443: 4 byte(7)80,82,73,78,50,0 intern L1443 L1444: 5 byte(7)84,69,82,80,82,73,0 intern L1444 L1445: 4 byte(7)80,82,73,78,84,0 intern L1445 L1446: 5 byte(7)80,82,73,78,50,84,0 intern L1446 L1447: 3 byte(7)80,85,84,67,0 intern L1447 L1448: 5 byte(7)80,66,76,65,78,75,0 intern L1448 L1449: 8 byte(7)80,82,73,78,49,73,78,84,88,0 intern L1449 L1450: 6 byte(7)76,79,78,71,68,73,86,0 intern L1450 L1451: 12 byte(7)76,79,78,71,82,69,77,65,73,78,68,69,82,0 intern L1451 L1452: 3 byte(7)66,89,84,69,0 intern L1452 L1453: 3 byte(7)81,85,73,84,0 intern L1453 L1454: 4 byte(7)69,82,82,79,82,0 intern L1454 L1455: 11 byte(7)67,72,65,78,78,69,76,80,82,73,78,50,0 intern L1455 L1456: 15 byte(7)67,72,65,78,78,69,76,87,82,73,84,69,67,72,65,82,0 intern L1456 L1457: 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 L1457 L1458: 8 byte(7)87,82,73,84,69,67,72,65,82,0 intern L1458 L1459: 3 byte(7)79,85,84,42,0 intern L1459 L1460: 10 byte(7)69,82,82,79,82,72,69,65,68,69,82,0 intern L1460 L1461: 11 byte(7)69,82,82,79,82,84,82,65,73,76,69,82,0 intern L1461 L1462: 9 byte(7)70,65,84,65,76,69,82,82,79,82,0 intern L1462 L1463: 7 byte(7)83,84,68,69,82,82,79,82,0 intern L1463 L1464: 9 byte(7)78,79,78,73,68,69,82,82,79,82,0 intern L1464 L1465: 5 byte(7)80,82,73,78,49,84,0 intern L1465 L1466: 8 byte(7)84,89,80,69,69,82,82,79,82,0 intern L1466 L1467: 13 byte(7)85,83,65,71,69,84,89,80,69,69,82,82,79,82,0 intern L1467 L1468: 1 byte(7)70,78,0 intern L1468 L1469: 7 byte(7)79,70,70,69,78,68,69,82,0 intern L1469 L1470: 13 byte(7)78,79,78,78,85,77,66,69,82,69,82,82,79,82,0 intern L1470 L1471: 11 byte(7)76,65,77,66,73,78,68,65,82,71,83,42,0 intern L1471 L1472: 6 byte(7)76,65,77,66,73,78,68,0 intern L1472 L1473: 6 byte(7)85,78,66,73,78,68,78,0 intern L1473 L1474: 14 byte(7)78,79,78,73,78,84,69,71,69,82,69,82,82,79,82,0 intern L1474 L1475: 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 L1475 L1476: 8 byte(7)87,81,85,79,84,73,69,78,84,0 intern L1476 L1477: 7 byte(7)37,82,69,67,76,65,73,77,0 intern L1477 L1478: 5 byte(7)71,84,72,69,65,80,0 intern L1478 L1479: 4 byte(7)71,84,83,84,82,0 intern L1479 L1480: 5 byte(7)71,84,86,69,67,84,0 intern L1480 L1481: 7 byte(7)71,84,87,65,82,82,65,89,0 intern L1481 L1482: 3 byte(7)71,84,73,68,0 intern L1482 L1483: 7 byte(7)72,65,82,68,67,79,78,83,0 intern L1483 L1484: 3 byte(7)67,79,78,83,0 intern L1484 L1485: 4 byte(7)88,67,79,78,83,0 intern L1485 L1486: 4 byte(7)78,67,79,78,83,0 intern L1486 L1487: 5 byte(7)77,75,86,69,67,84,0 intern L1487 L1488: 4 byte(7)76,73,83,84,50,0 intern L1488 L1489: 4 byte(7)76,73,83,84,51,0 intern L1489 L1490: 4 byte(7)76,73,83,84,52,0 intern L1490 L1491: 4 byte(7)76,73,83,84,53,0 intern L1491 L1492: 6 byte(7)80,85,84,66,89,84,69,0 intern L1492 L1493: 7 byte(7)77,75,83,84,82,73,78,71,0 intern L1493 L1494: 4 byte(7)69,81,83,84,82,0 intern L1494 L1495: 7 byte(7)73,78,73,84,82,69,65,68,0 intern L1495 L1496: 5 byte(7)42,82,65,73,83,69,0 intern L1496 L1497: 2 byte(7)67,72,42,0 intern L1497 L1498: 3 byte(7)84,79,75,42,0 intern L1498 L1499: 7 byte(7)84,79,75,84,89,80,69,42,0 intern L1499 L1500: 4 byte(7)68,69,66,85,71,0 intern L1500 L1501: 7 byte(7)83,69,84,82,65,73,83,69,0 intern L1501 L1502: 9 byte(7)67,76,69,65,82,87,72,73,84,69,0 intern L1502 L1503: 11 byte(7)67,76,69,65,82,67,79,77,77,69,78,84,0 intern L1503 L1504: 6 byte(7)82,69,65,68,83,84,82,0 intern L1504 L1505: 5 byte(7)68,73,71,73,84,80,0 intern L1505 L1506: 6 byte(7)82,69,65,68,73,78,84,0 intern L1506 L1507: 8 byte(7)65,76,80,72,65,69,83,67,80,0 intern L1507 L1508: 5 byte(7)82,69,65,68,73,68,0 intern L1508 L1509: 4 byte(7)82,65,84,79,77,0 intern L1509 L1510: 5 byte(7)87,72,73,84,69,80,0 intern L1510 L1511: 3 byte(7)71,69,84,67,0 intern L1511 L1512: 8 byte(7)76,79,78,71,84,73,77,69,83,0 intern L1512 L1513: 13 byte(7)66,85,70,70,69,82,84,79,83,84,82,73,78,71,0 intern L1513 L1514: 8 byte(7)82,65,73,83,69,67,72,65,82,0 intern L1514 L1515: 11 byte(7)65,76,80,72,65,78,85,77,69,83,67,80,0 intern L1515 L1516: 5 byte(7)73,78,84,69,82,78,0 intern L1516 L1517: 6 byte(7)69,83,67,65,80,69,80,0 intern L1517 L1518: 5 byte(7)65,76,80,72,65,80,0 intern L1518 L1519: 9 byte(7)76,79,87,69,82,67,65,83,69,80,0 intern L1519 L1520: 7 byte(7)76,79,79,75,85,80,73,68,0 intern L1520 L1521: 8 byte(7)73,78,73,84,78,69,87,73,68,0 intern L1521 L1522: 11 byte(7)77,65,75,69,70,85,78,66,79,85,78,68,0 intern L1522 L1523: 9 byte(7)85,80,80,69,82,67,65,83,69,80,0 intern L1523 L1524: 8 byte(7)65,76,80,72,65,78,85,77,80,0 intern L1524 L1525: 4 byte(7)82,69,65,68,49,0 intern L1525 L1526: 3 byte(7)82,69,65,68,0 intern L1526 L1527: 7 byte(7)82,69,65,68,76,73,83,84,0 intern L1527 L1528: 4 byte(7)81,85,79,84,69,0 intern L1528 L1529: 6 byte(7)83,65,70,69,67,68,82,0 intern L1529 L1530: 9 byte(7)83,89,77,70,78,67,66,65,83,69,0 intern L1530 L1531: 5 byte(7)87,80,76,85,83,50,0 intern L1531 L1532: 5 byte(7)83,89,77,70,78,67,0 intern L1532 L1533: 6 byte(7)87,84,73,77,69,83,50,0 intern L1533 L1534: 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 L1534 L1535: 16 byte(7)83,72,79,85,76,68,66,69,85,78,68,69,70,73,78,69,68,0 intern L1535 L1536: 8 byte(7)70,85,78,66,79,85,78,68,80,0 intern L1536 L1537: 18 byte(7)37,67,79,80,89,45,70,85,78,67,84,73,79,78,45,67,69,76,76,0 intern L1537 L1538: 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 L1538 L1539: 11 byte(7)70,76,65,77,66,68,65,76,73,78,75,80,0 intern L1539 L1540: 11 byte(7)37,83,84,79,82,69,45,74,67,65,76,76,0 intern L1540 L1541: 14 byte(7)77,65,75,69,70,76,65,77,66,68,65,76,73,78,75,0 intern L1541 L1542: 5 byte(7)70,67,79,68,69,80,0 intern L1542 L1543: 8 byte(7)77,65,75,69,70,67,79,68,69,0 intern L1543 L1544: 14 byte(7)71,69,84,70,67,79,68,69,80,79,73,78,84,69,82,0 intern L1544 L1545: 12 byte(7)67,79,68,69,80,82,73,77,73,84,73,86,69,0 intern L1545 L1546: 7 byte(7)67,79,68,69,80,84,82,42,0 intern L1546 L1547: 12 byte(7)83,65,86,69,82,69,71,73,83,84,69,82,83,0 intern L1547 L1548: 8 byte(7)67,79,68,69,70,79,82,77,42,0 intern L1548 L1549: 8 byte(7)67,79,68,69,78,65,82,71,42,0 intern L1549 L1550: 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 L1550 L1551: 8 byte(7)70,65,83,84,65,80,80,76,89,0 intern L1551 L1552: 14 byte(7)70,65,83,84,76,65,77,66,68,65,65,80,80,76,89,0 intern L1552 L1553: 5 byte(7)76,65,77,66,68,65,0 intern L1553 L1554: 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 L1554 L1555: 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 L1555 L1556: 8 byte(7)67,79,68,69,65,80,80,76,89,0 intern L1556 L1557: 12 byte(7)67,79,68,69,69,86,65,76,65,80,80,76,89,0 intern L1557 L1558: 15 byte(7)67,79,68,69,69,86,65,76,65,80,80,76,89,65,85,88,0 intern L1558 L1559: 3 byte(7)69,86,65,76,0 intern L1559 L1560: 10 byte(7)66,73,78,68,69,86,65,76,65,85,88,0 intern L1560 L1561: 7 byte(7)66,73,78,68,69,86,65,76,0 intern L1561 L1562: 5 byte(7)76,66,73,78,68,49,0 intern L1562 L1563: 2 byte(7)71,69,84,0 intern L1563 L1564: 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 L1564 L1565: 10 byte(7)42,76,65,77,66,68,65,76,73,78,75,0 intern L1565 L1566: 5 byte(7)66,76,68,77,83,71,0 intern L1566 L1567: 6 byte(7)69,86,80,82,79,71,78,0 intern L1567 L1568: 6 byte(7)83,89,83,50,73,78,84,0 intern L1568 L1569: 4 byte(7)80,76,85,83,50,0 intern L1569 L1570: 4 byte(7)77,73,78,85,83,0 intern L1570 L1571: 4 byte(7)87,65,68,68,49,0 intern L1571 L1572: 3 byte(7)69,76,83,69,0 intern L1572 L1573: 3 byte(7)65,68,68,49,0 intern L1573 L1574: 4 byte(7)87,83,85,66,49,0 intern L1574 L1575: 3 byte(7)83,85,66,49,0 intern L1575 L1576: 7 byte(7)71,82,69,65,84,69,82,80,0 intern L1576 L1577: 4 byte(7)76,69,83,83,80,0 intern L1577 L1578: 9 byte(7)68,73,70,70,69,82,69,78,67,69,0 intern L1578 L1579: 5 byte(7)84,73,77,69,83,50,0 intern L1579 L1580: 2 byte(7)67,65,82,0 intern L1580 L1581: 2 byte(7)67,68,82,0 intern L1581 L1582: 3 byte(7)67,65,65,82,0 intern L1582 L1583: 3 byte(7)67,65,68,82,0 intern L1583 L1584: 3 byte(7)67,68,65,82,0 intern L1584 L1585: 3 byte(7)67,68,68,82,0 intern L1585 L1586: 3 byte(7)65,84,79,77,0 intern L1586 L1587: 5 byte(7)65,80,80,69,78,68,0 intern L1587 L1588: 3 byte(7)77,69,77,81,0 intern L1588 L1589: 6 byte(7)82,69,86,69,82,83,69,0 intern L1589 L1590: 4 byte(7)69,86,76,73,83,0 intern L1590 L1591: 4 byte(7)80,82,79,71,78,0 intern L1591 L1592: 5 byte(7)69,86,67,79,78,68,0 intern L1592 L1593: 3 byte(7)67,79,78,68,0 intern L1593 L1594: 2 byte(7)83,69,84,0 intern L1594 L1595: 3 byte(7)83,69,84,81,0 intern L1595 L1596: 3 byte(7)80,85,84,68,0 intern L1596 L1597: 1 byte(7)68,69,0 intern L1597 L1598: 3 byte(7)69,88,80,82,0 intern L1598 L1599: 1 byte(7)68,70,0 intern L1599 L1600: 4 byte(7)70,69,88,80,82,0 intern L1600 L1601: 1 byte(7)68,78,0 intern L1601 L1602: 4 byte(7)78,69,88,80,82,0 intern L1602 L1603: 1 byte(7)68,77,0 intern L1603 L1604: 4 byte(7)77,65,67,82,79,0 intern L1604 L1605: 3 byte(7)76,73,83,84,0 intern L1605 L1606: 4 byte(7)65,84,83,79,67,0 intern L1606 L1607: 2 byte(7)71,69,81,0 intern L1607 L1608: 2 byte(7)76,69,81,0 intern L1608 L1609: 4 byte(7)69,81,67,65,82,0 intern L1609 L1610: 3 byte(7)71,69,84,68,0 intern L1610 L1611: 4 byte(7)67,79,80,89,68,0 intern L1611 L1612: 5 byte(7)68,69,76,65,84,81,0 intern L1612 L1613: 2 byte(7)80,85,84,0 intern L1613 L1614: 7 byte(7)73,78,73,84,69,86,65,76,0 intern L1614 L1615: 4 byte(7)87,72,73,76,69,0 intern L1615 L1616: 4 byte(7)70,84,89,80,69,0 intern L1616 L1617: 6 byte(7)76,65,77,66,68,65,80,0 intern L1617 L1618: 8 byte(7)71,69,84,76,65,77,66,68,65,0 intern L1618 L1619: 14 byte(7)76,65,77,66,68,65,69,86,65,76,65,80,80,76,89,0 intern L1619 L1620: 8 byte(7)71,69,84,70,78,84,89,80,69,0 intern L1620 L1621: 10 byte(7)76,65,77,66,68,65,65,80,80,76,89,0 intern L1621 L1622: 4 byte(7)65,80,80,76,89,0 intern L1622 L1623: 7 byte(7)68,79,76,65,77,66,68,65,0 intern L1623 L1624: 5 byte(7)76,69,78,71,84,72,0 intern L1624 L1625: 4 byte(7)67,79,68,69,80,0 intern L1625 L1626: 4 byte(7)80,65,73,82,80,0 intern L1626 L1627: 2 byte(7)73,68,80,0 intern L1627 L1628: 1 byte(7)69,81,0 intern L1628 L1629: 3 byte(7)78,85,76,76,0 intern L1629 L1630: 2 byte(7)78,79,84,0 intern L1630 L1631: 6 byte(7)76,69,78,71,84,72,49,0 intern L1631 L1632: 5 byte(7)77,65,80,79,66,76,0 intern L1632 L1633: 10 byte(7)80,82,73,78,84,70,69,88,80,82,83,0 intern L1633 L1634: 10 byte(7)80,82,73,78,84,49,70,69,88,80,82,0 intern L1634 L1635: 5 byte(7)70,69,88,80,82,80,0 intern L1635 L1636: 13 byte(7)80,82,73,78,84,70,85,78,67,84,73,79,78,83,0 intern L1636 L1637: 13 byte(7)80,82,73,78,84,49,70,85,78,67,84,73,79,78,0 intern L1637 L1638: 3 byte(7)80,82,79,80,0 intern L1638 L1639: 6 byte(7)82,69,77,80,82,79,80,0 intern L1639 L1640: 7 byte(7)83,89,83,50,70,73,88,78,0 intern L1640 L1641: 13 byte(7)73,78,70,83,84,65,82,84,73,78,71,66,73,84,0 intern L1641 L1642: 11 byte(7)73,78,70,66,73,84,76,69,78,71,84,72,0 intern L1642 L1643: 4 byte(7)82,69,83,69,84,0 intern L1643 L1644: 13 byte(7)66,83,84,65,67,75,79,86,69,82,70,76,79,87,0 intern L1644 L1645: 6 byte(7)69,82,82,79,85,84,42,0 intern L1645 L1646: 14 byte(7)66,83,84,65,67,75,85,78,68,69,82,70,76,79,87,0 intern L1646 L1647: 17 byte(7)67,65,80,84,85,82,69,69,78,86,73,82,79,78,77,69,78,84,0 intern L1647 L1648: 17 byte(7)82,69,83,84,79,82,69,69,78,86,73,82,79,78,77,69,78,84,0 intern L1648 L1649: 17 byte(7)37,67,76,69,65,82,45,67,65,84,67,72,45,83,84,65,67,75,0 intern L1649 L1650: 12 byte(7)67,76,69,65,82,66,73,78,68,73,78,71,83,0 intern L1650 L1651: 5 byte(7)80,66,73,78,68,49,0 intern L1651 L1652: 7 byte(7)80,82,79,71,66,73,78,68,0 intern L1652 L1653: 7 byte(7)73,78,73,84,72,69,65,80,0 intern L1653 L1654: 8 byte(7)70,73,82,83,84,67,65,76,76,0 intern L1654 L1655: 4 byte(7)77,65,73,78,46,0 intern L1655 L1656: 3 byte(7)73,78,73,84,0 intern L1656 L1657: 2 byte(7)73,78,42,0 intern L1657 L1658: 18 byte(7)73,78,68,69,80,69,78,68,69,78,84,82,69,65,68,67,72,65,82,0 intern L1658 L1659: 3 byte(7)84,73,77,67,0 intern L1659 L1660: 3 byte(7)68,65,84,69,0 intern L1660 L1661: 10 byte(7)86,69,82,83,73,79,78,78,65,77,69,0 intern L1661 L1662: 5 byte(7)80,85,84,73,78,84,0 intern L1662 L1663: 16 byte(7)85,78,68,69,70,73,78,69,68,70,85,78,67,84,73,79,78,0 intern L1663 L1664: 10 byte(7)85,78,68,69,70,78,67,79,68,69,42,0 intern L1664 L1665: 10 byte(7)85,78,68,69,70,78,78,65,82,71,42,0 intern L1665 L1666: 3 byte(7)70,76,65,71,0 intern L1666 L1667: 9 byte(7)87,82,69,77,65,73,78,68,69,82,0 intern L1667 L1668: 7 byte(7)72,69,65,80,73,78,70,79,0 intern L1668 L1669: 6 byte(7)82,69,67,76,65,73,77,0 intern L1669 L1670: 5 byte(7)83,80,65,67,69,68,0 intern L1670 L1671: 5 byte(7)68,65,83,72,69,68,0 intern L1671 L1672: 5 byte(7)68,79,84,84,69,68,0 intern L1672 L1673: 7 byte(7)83,72,79,85,76,68,66,69,0 intern L1673 L1674: 2 byte(7)73,78,70,0 intern L1674 L1675: 2 byte(7)84,65,71,0 intern L1675 L1676: 5 byte(7)77,75,73,84,69,77,0 intern L1676 L1677: 3 byte(7)84,73,77,69,0 intern L1677 L1678: 6 byte(7)70,85,78,67,65,76,76,0 intern L1678 L1679: 7 byte(7)73,78,73,84,67,79,68,69,0 intern L1679 L1680: 4 byte(7)36,69,79,70,36,0 intern L1680 L1681: 10 byte(7)66,73,78,68,73,78,71,84,69,83,84,0 intern L1681 L1682: 9 byte(7)73,78,84,69,82,80,84,69,83,84,0 intern L1682 L1683: 11 byte(7)67,79,77,80,66,73,78,68,84,69,83,84,0 intern L1683 L1684: 9 byte(7)84,69,83,84,83,69,82,73,69,83,0 intern L1684 L1685: 1 byte(7)65,65,0 intern L1685 L1686: 8 byte(7)84,69,83,84,65,80,80,76,89,0 intern L1686 L1687: 11 byte(7)73,78,84,69,82,80,82,69,84,69,68,51,0 intern L1687 L1688: 2 byte(7)65,71,49,0 intern L1688 L1689: 1 byte(7)89,49,0 intern L1689 L1690: 1 byte(7)88,49,0 intern L1690 L1691: 2 byte(7)65,71,50,0 intern L1691 L1692: 1 byte(7)89,50,0 intern L1692 L1693: 1 byte(7)88,50,0 intern L1693 L1694: 2 byte(7)65,71,51,0 intern L1694 L1695: 1 byte(7)76,51,0 intern L1695 L1696: 1 byte(7)76,50,0 intern L1696 L1697: 1 byte(7)76,49,0 intern L1697 L1698: 6 byte(7)76,65,77,66,68,65,50,0 intern L1698 L1699: 6 byte(7)76,65,77,66,68,65,49,0 intern L1699 L1700: 11 byte(7)73,78,84,69,82,80,82,69,84,69,68,50,0 intern L1700 L1701: 1 byte(7)67,50,0 intern L1701 L1702: 8 byte(7)67,79,77,80,73,76,69,68,50,0 intern L1702 L1703: 8 byte(7)67,79,77,80,73,76,69,68,49,0 intern L1703 L1704: 1 byte(7)67,49,0 intern L1704 L1705: 12 byte(7)84,69,83,84,70,65,83,84,65,80,80,76,89,0 intern L1705 L1706: 8 byte(7)84,69,83,84,67,79,68,69,42,0 intern L1706 L1707: 5 byte(7)67,66,73,78,68,49,0 intern L1707 L1708: 3 byte(7)67,70,76,49,0 intern L1708 L1709: 3 byte(7)67,70,76,50,0 intern L1709 L1710: 3 byte(7)77,73,68,48,0 intern L1710 L1711: 3 byte(7)77,73,68,49,0 intern L1711 L1712: 3 byte(7)77,73,68,50,0 intern L1712 L1713: 3 byte(7)84,79,80,50,0 intern L1713 L1714: 3 byte(7)84,79,80,49,0 intern L1714 L1715: 5 byte(7)67,66,73,78,68,50,0 intern L1715 L1716: 3 byte(7)66,79,84,49,0 intern L1716 L1717: 3 byte(7)66,79,84,50,0 intern L1717 extern SYMFNC extern L0003 end MAIN.