Artifact c9bf2f8e1490e5468cbc9489badbf6a16976935858d3401fcd83321c92c64231:
- File
psl-1983/20-tests/sub7.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: 55512) [annotate] [blame] [check-ins using] [more...]
search monsym radix 10 extern L0001 extern L0002 extern SYMNAM extern SYMVAL extern SYMFNC extern SYMPRP extern L0003 extern L0004 extern ARG1 extern ARG2 extern ARG3 extern ARG4 extern ARG5 extern ARG6 extern ARG7 extern ARG8 extern ARG9 extern ARG10 extern ARG11 extern ARG12 extern ARG13 extern ARG14 extern ARG15 ; (!*ENTRY SYSCLEARIO EXPR 0) ; (!*MOVE (WCONST 64) (REG 1)) ; (HRRZI (REG 1) 64) ; (RFMOD) ; (TRO 2 63552) ; (SFMOD) ; (!*EXIT 0) ; (POPJ (REG ST) 0) 0 ; (!*ENTRY SYSCLEARIO EXPR 0) L1074: intern L1074 HRRZI 1,64 RFMOD TRO 2,63552 SFMOD POPJ 15,0 ; (!*ENTRY SYSOPENREAD EXPR 2) ; (!*ALLOC 0) ; (!*MOVE (REG 2) (REG 4)) ; (MOVE (REG 4) (REG 2)) ; (!*MOVE (WCONST 7516258304) (REG 3)) ; (MOVE (REG 3) 7516258304) ; (!*MOVE (WCONST 8590196736) (REG 2)) ; (MOVE (REG 2) 8590196736) ; (!*MOVE (REG 4) (REG 1)) ; (MOVE (REG 1) (REG 4)) ; (!*LINKE 0 DEC20OPEN EXPR 3) ; (HRRZI (REG LINKREG) 349) ; (HRRZI (REG NARGREG) 3) ; (JRST (ENTRY DEC20OPEN)) 2 ; (!*ENTRY SYSOPENREAD EXPR 2) L1075: intern L1075 MOVE 4,2 MOVE 3,[7516258304] MOVE 2,[8590196736] MOVE 1,4 HRRZI 12,349 HRRZI 13,3 JRST SYMFNC+349 ; (!*ENTRY SYSOPENWRITE EXPR 2) ; (!*ALLOC 0) ; (!*MOVE (REG 2) (REG 4)) ; (MOVE (REG 4) (REG 2)) ; (!*MOVE (WCONST 7516225536) (REG 3)) ; (MOVE (REG 3) 7516225536) ; (!*MOVE (WCONST -17179607040) (REG 2)) ; (MOVE (REG 2) -17179607040) ; (!*MOVE (REG 4) (REG 1)) ; (MOVE (REG 1) (REG 4)) ; (!*LINKE 0 DEC20OPEN EXPR 3) ; (HRRZI (REG LINKREG) 349) ; (HRRZI (REG NARGREG) 3) ; (JRST (ENTRY DEC20OPEN)) 2 ; (!*ENTRY SYSOPENWRITE EXPR 2) L1076: intern L1076 MOVE 4,2 MOVE 3,[7516225536] MOVE 2,[-17179607040] MOVE 1,4 HRRZI 12,349 HRRZI 13,3 JRST SYMFNC+349 ; (!*ENTRY DEC20OPEN EXPR 3) ; (!*WPLUS2 (REG 1) (WCONST 1)) ; (AOS (REG 1)) ; (HRLI (REG 1) 147904) ; (!*MOVE (REG 1) (REG 4)) ; (MOVE (REG 4) (REG 1)) ; (!*MOVE (REG 2) (REG 1)) ; (MOVE (REG 1) (REG 2)) ; (!*MOVE (REG 4) (REG 2)) ; (MOVE (REG 2) (REG 4)) ; (GTJFN) ; (!*JUMP (LABEL CANTOPEN)) ; (JRST (LABEL CANTOPEN)) ; (!*MOVE (REG 3) (REG 2)) ; (MOVE (REG 2) (REG 3)) ; (OPENF) ; (!*MOVE (WCONST 0) (REG 1)) ; (SETZM (REG 1)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) 3 ; (!*ENTRY DEC20OPEN EXPR 3) L1077: intern L1077 AOS 1 HRLI 1,147904 MOVE 4,1 MOVE 1,2 MOVE 2,4 GTJFN JRST L1078 MOVE 2,3 OPENF L1078: SETZM 1 POPJ 15,0 ; (!*ENTRY SYSREADREC EXPR 2) ; (!*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 (WCONST 0) (FRAME 3)) ; (SETZM (INDEXED (REG ST) -2)) ; (!*LBL (LABEL G0004)) ; (!*MOVE (FRAME 1) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) 0)) ; (!*LINK DEC20READCHAR EXPR 1) ; (HRRZI (REG LINKREG) 352) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY DEC20READCHAR)) ; (!*MOVE (REG 1) (FRAME 4)) ; (MOVEM (REG 1) (INDEXED (REG ST) -3)) ; (!*MOVE (REG 1) (REG 3)) ; (MOVE (REG 3) (REG 1)) ; (!*MOVE (FRAME 3) (REG 2)) ; (MOVE (REG 2) (INDEXED (REG ST) -2)) ; (!*MOVE (FRAME 2) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (!*WPLUS2 (REG 1) (WCONST 1)) ; (AOS (REG 1)) ; (!*LINK PUTBYTE EXPR 3) ; (HRRZI (REG LINKREG) 187) ; (HRRZI (REG NARGREG) 3) ; (ADJBP (REG 2) (LIT (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7)))) ; (DPB (REG 3) (REG 2)) ; (!*JUMPEQ (LABEL G0008) (REG 3) (WCONST 10)) ; (CAIN (REG 3) 10) ; (JRST (LABEL G0008)) ; (!*JUMPNOTEQ (LABEL G0006) (REG 3) (WCONST 26)) ; (CAIE (REG 3) 26) ; (JRST (LABEL G0006)) ; (!*LBL (LABEL G0008)) ; (!*MOVE (FRAME 3) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -2)) ; (!*JUMP (LABEL G0001)) ; (JRST (LABEL G0001)) ; (!*LBL (LABEL G0006)) ; (!*WPLUS2 (FRAME 3) (WCONST 1)) ; (AOS (INDEXED (REG ST) -2)) ; (!*JUMP (LABEL G0004)) ; (JRST (LABEL G0004)) ; (!*LBL (LABEL G0001)) ; (!*EXIT 4) ; (ADJSP (REG ST) (MINUS 4)) ; (POPJ (REG ST) 0) ; (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7)) 2 ; (!*ENTRY SYSREADREC EXPR 2) L1080: intern L1080 ADJSP 15,4 MOVEM 1,0(15) MOVEM 2,-1(15) SETZM -2(15) L1081: MOVE 1,0(15) HRRZI 12,352 HRRZI 13,1 PUSHJ 15,SYMFNC+352 MOVEM 1,-3(15) MOVE 3,1 MOVE 2,-2(15) MOVE 1,-1(15) AOS 1 HRRZI 12,187 HRRZI 13,3 ADJBP 2,L1079 DPB 3,2 CAIN 3,10 JRST L1082 CAIE 3,26 JRST L1083 L1082: MOVE 1,-2(15) JRST L1084 L1083: AOS -2(15) JRST L1081 L1084: ADJSP 15,-4 POPJ 15,0 L1079: point 7,0(1),6 ; (!*ENTRY DEC20READCHAR EXPR 1) ; (BIN) ; (ERJMP CHECKEOF) ; (!*JUMPEQ (LABEL LOOP) (REG 2) (WCONST 0)) ; (JUMPE (REG 2) (LABEL LOOP)) ; (!*JUMPEQ (LABEL LOOP) (REG 2) (WCONST 13)) ; (CAIN (REG 2) 13) ; (JRST (LABEL LOOP)) ; (!*MOVE (REG 2) (REG 1)) ; (MOVE (REG 1) (REG 2)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) ; (GTSTS) ; (TLNN (REG 2) 512) ; (!*JUMP (LABEL READERROR)) ; (JRST (LABEL READERROR)) ; (!*MOVE (WCONST 26) (REG 1)) ; (HRRZI (REG 1) 26) ; (!*EXIT 0) ; (POPJ (REG ST) 0) ; (!*MOVE (QUOTE "Attempt to read from file failed") (REG 1)) ; (MOVE (REG 1) (QUOTE "Attempt to read from file failed")) ; (!*JCALL IOERROR) ; (JRST (ENTRY IOERROR)) L1086: 31 byte(7)65,116,116,101,109,112,116,32,116,111,32,114,101,97,100,32,102,114,111,109,32,102,105,108,101,32,102,97,105,108,101,100,0 1 ; (!*ENTRY DEC20READCHAR EXPR 1) L1087: intern L1087 L1088: BIN ERJMP L1089 JUMPE 2,L1088 CAIN 2,13 JRST L1088 MOVE 1,2 POPJ 15,0 L1089: GTSTS TLNN 2,512 JRST L1090 HRRZI 1,26 POPJ 15,0 L1090: MOVE 1,L1085 JRST SYMFNC+354 L1085: <4_31>+L1086 ; (!*ENTRY SYSWRITEREC 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 (WCONST 0) (FRAME 4)) ; (SETZM (INDEXED (REG ST) -3)) ; (!*LBL (LABEL G0004)) ; (!*JUMPWLEQ (LABEL G0005) (FRAME 4) (FRAME 3)) ; (MOVE (REG T1) (INDEXED (REG ST) -3)) ; (CAMG (REG T1) (INDEXED (REG ST) -2)) ; (JRST (LABEL G0005)) ; (!*MOVE (WCONST 0) (REG 1)) ; (SETZM (REG 1)) ; (!*JUMP (LABEL G0001)) ; (JRST (LABEL G0001)) ; (!*LBL (LABEL G0005)) ; (!*MOVE (FRAME 4) (REG 2)) ; (MOVE (REG 2) (INDEXED (REG ST) -3)) ; (!*MOVE (FRAME 2) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (!*WPLUS2 (REG 1) (WCONST 1)) ; (AOS (REG 1)) ; (!*LINK BYTE EXPR 2) ; (HRRZI (REG LINKREG) 147) ; (HRRZI (REG NARGREG) 2) ; (ADJBP (REG 2) (LIT (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7)))) ; (LDB (REG 1) (REG 2)) ; (!*MOVE (REG 1) (REG 2)) ; (MOVE (REG 2) (REG 1)) ; (!*MOVE (FRAME 1) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) 0)) ; (!*LINK DEC20WRITECHAR EXPR 2) ; (HRRZI (REG LINKREG) 355) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY DEC20WRITECHAR)) ; (!*WPLUS2 (FRAME 4) (WCONST 1)) ; (AOS (INDEXED (REG ST) -3)) ; (!*JUMP (LABEL G0004)) ; (JRST (LABEL G0004)) ; (!*LBL (LABEL G0001)) ; (!*EXIT 4) ; (ADJSP (REG ST) (MINUS 4)) ; (POPJ (REG ST) 0) ; (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7)) 3 ; (!*ENTRY SYSWRITEREC EXPR 3) L1092: intern L1092 ADJSP 15,4 MOVEM 1,0(15) MOVEM 2,-1(15) MOVEM 3,-2(15) SETZM -3(15) L1093: MOVE 6,-3(15) CAMG 6,-2(15) JRST L1094 SETZM 1 JRST L1095 L1094: MOVE 2,-3(15) MOVE 1,-1(15) AOS 1 HRRZI 12,147 HRRZI 13,2 ADJBP 2,L1091 LDB 1,2 MOVE 2,1 MOVE 1,0(15) HRRZI 12,355 HRRZI 13,2 PUSHJ 15,SYMFNC+355 AOS -3(15) JRST L1093 L1095: ADJSP 15,-4 POPJ 15,0 L1091: point 7,0(1),6 ; (!*ENTRY DEC20WRITECHAR EXPR 2) ; (!*JUMPEQ (LABEL CRLF) (REG 2) (WCONST 10)) ; (CAIN (REG 2) 10) ; (JRST (LABEL CRLF)) ; (BOUT) ; (!*EXIT 0) ; (POPJ (REG ST) 0) ; (!*MOVE (WCONST 13) (REG 2)) ; (HRRZI (REG 2) 13) ; (BOUT) ; (!*MOVE (WCONST 10) (REG 2)) ; (HRRZI (REG 2) 10) ; (BOUT) ; (!*EXIT 0) ; (POPJ (REG ST) 0) 2 ; (!*ENTRY DEC20WRITECHAR EXPR 2) L1096: intern L1096 CAIN 2,10 JRST L1097 BOUT POPJ 15,0 L1097: HRRZI 2,13 BOUT HRRZI 2,10 BOUT POPJ 15,0 ; (!*ENTRY SYSCLOSE EXPR 1) ; (CLOSF) ; (!*JUMP (LABEL CLOSEERROR)) ; (JRST (LABEL CLOSEERROR)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) ; (!*MOVE (QUOTE "Channel could not be closed") (REG 1)) ; (MOVE (REG 1) (QUOTE "Channel could not be closed")) ; (!*JCALL CHANNELERROR) ; (JRST (ENTRY CHANNELERROR)) L1099: 26 byte(7)67,104,97,110,110,101,108,32,99,111,117,108,100,32,110,111,116,32,98,101,32,99,108,111,115,101,100,0 1 ; (!*ENTRY SYSCLOSE EXPR 1) L1100: intern L1100 CLOSF JRST L1101 POPJ 15,0 L1101: MOVE 1,L1098 JRST SYMFNC+358 L1098: <4_31>+L1099 ; (!*ENTRY SYSMAXBUFFER EXPR 1) ; (!*ALLOC 0) ; (!*MOVE (WCONST 200) (REG 1)) ; (HRRZI (REG 1) 200) ; (!*EXIT 0) ; (POPJ (REG ST) 0) 1 ; (!*ENTRY SYSMAXBUFFER EXPR 1) L1102: intern L1102 HRRZI 1,200 POPJ 15,0 extern L1103 extern L1104 extern L1105 extern L1106 extern L1107 extern L1108 extern L1109 extern L1110 extern L1111 extern L1112 extern L1113 extern L1114 ; (!*ENTRY IOERROR 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)) ; (!*LINK ERRORHEADER EXPR 0) ; (HRRZI (REG LINKREG) 155) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY ERRORHEADER)) ; (!*MOVE (FRAME 1) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) 0)) ; (!*LINK PRIN2T EXPR 1) ; (HRRZI (REG LINKREG) 141) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PRIN2T)) ; (!*MOVE (QUOTE 0) (REG 1)) ; (SETZM (REG 1)) ; (!*LINK RDS EXPR 1) ; (HRRZI (REG LINKREG) 370) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY RDS)) ; (!*MOVE (QUOTE 1) (REG 1)) ; (HRRZI (REG 1) 1) ; (!*LINK WRS EXPR 1) ; (HRRZI (REG LINKREG) 371) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY WRS)) ; (!*MOVE (QUOTE NIL) (REG 1)) ; (MOVE (REG 1) (REG NIL)) ; (!*EXIT 1) ; (ADJSP (REG ST) (MINUS 1)) ; (POPJ (REG ST) 0) 1 ; (!*ENTRY IOERROR EXPR 1) L1115: intern L1115 PUSH 15,1 HRRZI 12,139 SETZM 13 PUSHJ 15,SYMFNC+139 HRRZI 12,155 SETZM 13 PUSHJ 15,SYMFNC+155 MOVE 1,0(15) HRRZI 12,141 HRRZI 13,1 PUSHJ 15,SYMFNC+141 SETZM 1 HRRZI 12,370 HRRZI 13,1 PUSHJ 15,SYMFNC+370 HRRZI 1,1 HRRZI 12,371 HRRZI 13,1 PUSHJ 15,SYMFNC+371 MOVE 1,0 ADJSP 15,-1 POPJ 15,0 ; (!*ENTRY TYPEFILE EXPR 1) ; (!*ALLOC 4) ; (ADJSP (REG ST) 4) ; (!*MOVE (REG 1) (FRAME 1)) ; (MOVEM (REG 1) (INDEXED (REG ST) 0)) ; (!*MOVE (QUOTE INPUT) (REG 2)) ; (MOVE (REG 2) (QUOTE INPUT)) ; (!*LINK OPEN EXPR 2) ; (HRRZI (REG LINKREG) 372) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY OPEN)) ; (!*MOVE (REG 1) (FRAME 2)) ; (MOVEM (REG 1) (INDEXED (REG ST) -1)) ; (!*LINK RDS EXPR 1) ; (HRRZI (REG LINKREG) 370) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY RDS)) ; (!*MOVE (REG 1) (FRAME 3)) ; (MOVEM (REG 1) (INDEXED (REG ST) -2)) ; (!*LBL (LABEL G0007)) ; (!*LINK GETC EXPR 0) ; (HRRZI (REG LINKREG) 206) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY GETC)) ; (!*MOVE (REG 1) (FRAME 4)) ; (MOVEM (REG 1) (INDEXED (REG ST) -3)) ; (!*JUMPEQ (LABEL G0006) (REG 1) (QUOTE 26)) ; (CAIN (REG 1) 26) ; (JRST (LABEL G0006)) ; (!*LINK PUTC EXPR 1) ; (HRRZI (REG LINKREG) 142) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PUTC)) ; (!*JUMP (LABEL G0007)) ; (JRST (LABEL G0007)) ; (!*LBL (LABEL G0006)) ; (!*MOVE (FRAME 3) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -2)) ; (!*LINK RDS EXPR 1) ; (HRRZI (REG LINKREG) 370) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY RDS)) ; (!*MOVE (FRAME 2) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (!*LINK CLOSE EXPR 1) ; (HRRZI (REG LINKREG) 373) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY CLOSE)) ; (!*MOVE (QUOTE NIL) (REG 1)) ; (MOVE (REG 1) (REG NIL)) ; (!*EXIT 4) ; (ADJSP (REG ST) (MINUS 4)) ; (POPJ (REG ST) 0) 1 ; (!*ENTRY TYPEFILE EXPR 1) L1117: intern L1117 ADJSP 15,4 MOVEM 1,0(15) MOVE 2,L1116 HRRZI 12,372 HRRZI 13,2 PUSHJ 15,SYMFNC+372 MOVEM 1,-1(15) HRRZI 12,370 HRRZI 13,1 PUSHJ 15,SYMFNC+370 MOVEM 1,-2(15) L1118: HRRZI 12,206 SETZM 13 PUSHJ 15,SYMFNC+206 MOVEM 1,-3(15) CAIN 1,26 JRST L1119 HRRZI 12,142 HRRZI 13,1 PUSHJ 15,SYMFNC+142 JRST L1118 L1119: MOVE 1,-2(15) HRRZI 12,370 HRRZI 13,1 PUSHJ 15,SYMFNC+370 MOVE 1,-1(15) HRRZI 12,373 HRRZI 13,1 PUSHJ 15,SYMFNC+373 MOVE 1,0 ADJSP 15,-4 POPJ 15,0 L1116: <30_31>+375 ; (!*ENTRY DSKIN EXPR 1) ; (!*ALLOC 4) ; (ADJSP (REG ST) 4) ; (!*MOVE (REG 1) (FRAME 1)) ; (MOVEM (REG 1) (INDEXED (REG ST) 0)) ; (!*MOVE (QUOTE INPUT) (REG 2)) ; (MOVE (REG 2) (QUOTE INPUT)) ; (!*LINK OPEN EXPR 2) ; (HRRZI (REG LINKREG) 372) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY OPEN)) ; (!*MOVE (REG 1) (FRAME 2)) ; (MOVEM (REG 1) (INDEXED (REG ST) -1)) ; (!*LINK RDS EXPR 1) ; (HRRZI (REG LINKREG) 370) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY RDS)) ; (!*MOVE (REG 1) (FRAME 3)) ; (MOVEM (REG 1) (INDEXED (REG ST) -2)) ; (!*LBL (LABEL G0007)) ; (!*LINK READ EXPR 0) ; (HRRZI (REG LINKREG) 221) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY READ)) ; (!*MOVE (REG 1) (FRAME 4)) ; (MOVEM (REG 1) (INDEXED (REG ST) -3)) ; (!*JUMPEQ (LABEL G0006) (REG 1) (!$GLOBAL !$EOF!$)) ; (CAMN (REG 1) (!$GLOBAL !$EOF!$)) ; (JRST (LABEL G0006)) ; (!*LINK EVAL EXPR 1) ; (HRRZI (REG LINKREG) 254) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY EVAL)) ; (!*MOVE (REG 1) (FRAME 4)) ; (MOVEM (REG 1) (INDEXED (REG ST) -3)) ; (!*JUMPEQ (LABEL G0007) (QUOTE NIL) (!$FLUID !*PVAL)) ; (CAMN (REG NIL) (!$FLUID !*PVAL)) ; (JRST (LABEL G0007)) ; (!*LINK PRINT EXPR 1) ; (HRRZI (REG LINKREG) 140) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY PRINT)) ; (!*JUMP (LABEL G0007)) ; (JRST (LABEL G0007)) ; (!*LBL (LABEL G0006)) ; (!*MOVE (FRAME 3) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -2)) ; (!*LINK RDS EXPR 1) ; (HRRZI (REG LINKREG) 370) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY RDS)) ; (!*MOVE (FRAME 2) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (!*LINK CLOSE EXPR 1) ; (HRRZI (REG LINKREG) 373) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY CLOSE)) ; (!*MOVE (QUOTE NIL) (REG 1)) ; (MOVE (REG 1) (REG NIL)) ; (!*EXIT 4) ; (ADJSP (REG ST) (MINUS 4)) ; (POPJ (REG ST) 0) 1 ; (!*ENTRY DSKIN EXPR 1) DSKIN: intern DSKIN ADJSP 15,4 MOVEM 1,0(15) MOVE 2,L1120 HRRZI 12,372 HRRZI 13,2 PUSHJ 15,SYMFNC+372 MOVEM 1,-1(15) HRRZI 12,370 HRRZI 13,1 PUSHJ 15,SYMFNC+370 MOVEM 1,-2(15) L1121: HRRZI 12,221 SETZM 13 PUSHJ 15,SYMFNC+221 MOVEM 1,-3(15) CAMN 1,SYMVAL+377 JRST L1122 HRRZI 12,254 HRRZI 13,1 PUSHJ 15,SYMFNC+254 MOVEM 1,-3(15) CAMN 0,SYMVAL+378 JRST L1121 HRRZI 12,140 HRRZI 13,1 PUSHJ 15,SYMFNC+140 JRST L1121 L1122: MOVE 1,-2(15) HRRZI 12,370 HRRZI 13,1 PUSHJ 15,SYMFNC+370 MOVE 1,-1(15) HRRZI 12,373 HRRZI 13,1 PUSHJ 15,SYMFNC+373 MOVE 1,0 ADJSP 15,-4 POPJ 15,0 L1120: <30_31>+375 ; (!*ENTRY LAPIN EXPR 1) ; (!*PUSH (REG 1)) ; (PUSH (REG ST) (REG 1)) ; (!*PROGBIND (NONLOCALVARS (!$FLUID !*PVAL) (!$FLUID !*ECHO))) ; (MOVE (REG 1) (QUOTE [!*PVAL !*ECHO])) ; (PUSHJ (REG ST) (ENTRY PROGBIND)) ; (!*MOVE (FRAME 1) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) 0)) ; (!*LINK DSKIN EXPR 1) ; (HRRZI (REG LINKREG) 376) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY DSKIN)) ; (!*FREERSTR (NONLOCALVARS (!$FLUID !*PVAL) (!$FLUID !*ECHO))) ; (HRRZI (REG 1) 2) ; (PUSHJ (REG ST) (ENTRY UNBINDN)) ; (!*EXIT 1) ; (ADJSP (REG ST) (MINUS 1)) ; (POPJ (REG ST) 0) L1124: 1 <30_31>+378 <30_31>+379 1 ; (!*ENTRY LAPIN EXPR 1) LAPIN: intern LAPIN PUSH 15,1 MOVE 1,L1123 PUSHJ 15,SYMFNC+347 MOVE 1,0(15) HRRZI 12,376 HRRZI 13,1 PUSHJ 15,SYMFNC+376 HRRZI 1,2 PUSHJ 15,SYMFNC+168 ADJSP 15,-1 POPJ 15,0 L1123: <8_31>+L1124 ; (!*ENTRY OPEN EXPR 2) ; (!*ALLOC 0) ; (!*JUMPNOTEQ (LABEL G0004) (REG 2) (QUOTE INPUT)) ; (CAME (REG 2) (QUOTE INPUT)) ; (JRST (LABEL G0004)) ; (!*LINKE 0 SYSTEMOPENFILEFORINPUT EXPR 1) ; (HRRZI (REG LINKREG) 381) ; (HRRZI (REG NARGREG) 1) ; (JRST (ENTRY SYSTEMOPENFILEFORINPUT)) ; (!*LBL (LABEL G0004)) ; (!*JUMPNOTEQ (LABEL G0005) (REG 2) (QUOTE OUTPUT)) ; (CAME (REG 2) (QUOTE OUTPUT)) ; (JRST (LABEL G0005)) ; (!*LINKE 0 SYSTEMOPENFILEFOROUTPUT EXPR 1) ; (HRRZI (REG LINKREG) 382) ; (HRRZI (REG NARGREG) 1) ; (JRST (ENTRY SYSTEMOPENFILEFOROUTPUT)) ; (!*LBL (LABEL G0005)) ; (!*MOVE (QUOTE "Cant Open") (REG 1)) ; (MOVE (REG 1) (QUOTE "Cant Open")) ; (!*LINKE 0 IOERROR EXPR 1) ; (HRRZI (REG LINKREG) 354) ; (HRRZI (REG NARGREG) 1) ; (JRST (ENTRY IOERROR)) L1128: 8 byte(7)67,97,110,116,32,79,112,101,110,0 2 ; (!*ENTRY OPEN EXPR 2) OPEN: intern OPEN CAME 2,L1125 JRST L1129 HRRZI 12,381 HRRZI 13,1 JRST SYMFNC+381 L1129: CAME 2,L1126 JRST L1130 HRRZI 12,382 HRRZI 13,1 JRST SYMFNC+382 L1130: MOVE 1,L1127 HRRZI 12,354 HRRZI 13,1 JRST SYMFNC+354 L1127: <4_31>+L1128 L1126: <30_31>+383 L1125: <30_31>+375 ; (!*ENTRY CLOSE EXPR 1) ; (!*ALLOC 0) ; (!*LINKE 0 INDEPENDENTCLOSECHANNEL EXPR 1) ; (HRRZI (REG LINKREG) 384) ; (HRRZI (REG NARGREG) 1) ; (JRST (ENTRY INDEPENDENTCLOSECHANNEL)) 1 ; (!*ENTRY CLOSE EXPR 1) CLOSE: intern CLOSE HRRZI 12,384 HRRZI 13,1 JRST SYMFNC+384 ; (!*ENTRY RDS EXPR 1) ; (!*ALLOC 0) ; (!*LBL (LABEL G0002)) ; (!*MOVE (REG 1) (REG 3)) ; (MOVE (REG 3) (REG 1)) ; (!*JUMPNOTEQ (LABEL G0004) (REG 1) (QUOTE NIL)) ; (CAME (REG 1) (REG NIL)) ; (JRST (LABEL G0004)) ; (!*MOVE (QUOTE 0) (REG 1)) ; (SETZM (REG 1)) ; (!*JUMP (LABEL G0002)) ; (JRST (LABEL G0002)) ; (!*LBL (LABEL G0004)) ; (!*MOVE (QUOTE NIL) (REG 2)) ; (MOVE (REG 2) (REG NIL)) ; (!*MOVE (!$GLOBAL IN!*) (REG 2)) ; (MOVE (REG 2) (!$GLOBAL IN!*)) ; (!*MOVE (REG 1) (!$GLOBAL IN!*)) ; (MOVEM (REG 1) (!$GLOBAL IN!*)) ; (!*MOVE (REG 2) (REG 1)) ; (MOVE (REG 1) (REG 2)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) 1 ; (!*ENTRY RDS EXPR 1) RDS: intern RDS L1131: MOVE 3,1 CAME 1,0 JRST L1132 SETZM 1 JRST L1131 L1132: MOVE 2,0 MOVE 2,SYMVAL+385 MOVEM 1,SYMVAL+385 MOVE 1,2 POPJ 15,0 ; (!*ENTRY WRS EXPR 1) ; (!*ALLOC 0) ; (!*LBL (LABEL G0002)) ; (!*MOVE (REG 1) (REG 3)) ; (MOVE (REG 3) (REG 1)) ; (!*JUMPNOTEQ (LABEL G0004) (REG 1) (QUOTE NIL)) ; (CAME (REG 1) (REG NIL)) ; (JRST (LABEL G0004)) ; (!*MOVE (QUOTE 1) (REG 1)) ; (HRRZI (REG 1) 1) ; (!*JUMP (LABEL G0002)) ; (JRST (LABEL G0002)) ; (!*LBL (LABEL G0004)) ; (!*MOVE (QUOTE NIL) (REG 2)) ; (MOVE (REG 2) (REG NIL)) ; (!*MOVE (!$GLOBAL OUT!*) (REG 2)) ; (MOVE (REG 2) (!$GLOBAL OUT!*)) ; (!*MOVE (REG 1) (!$GLOBAL OUT!*)) ; (MOVEM (REG 1) (!$GLOBAL OUT!*)) ; (!*MOVE (REG 2) (REG 1)) ; (MOVE (REG 1) (REG 2)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) 1 ; (!*ENTRY WRS EXPR 1) WRS: intern WRS L1133: MOVE 3,1 CAME 1,0 JRST L1134 HRRZI 1,1 JRST L1133 L1134: MOVE 2,0 MOVE 2,SYMVAL+154 MOVEM 1,SYMVAL+154 MOVE 1,2 POPJ 15,0 ; (!*ENTRY FINDFREECHANNEL EXPR 0) ; (!*PUSH (WCONST 0)) ; (PUSH (REG ST) (LIT (FULLWORD 0))) ; (!*LBL (LABEL G0005)) ; (!*JUMPEQ (LABEL G0004) (WCONST 0) (MEMORY (FRAME 1) (WCONST CHANNELSTATUS))) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (SKIPN (INDEXED (REG T2) (IMMEDIATE CHANNELSTATUS))) ; (JRST (LABEL G0004)) ; (!*JUMPWLESSP (LABEL G0009) (FRAME 1) (WCONST 31)) ; (MOVE (REG T1) (INDEXED (REG ST) 0)) ; (CAIGE (REG T1) 31) ; (JRST (LABEL G0009)) ; (!*MOVE (QUOTE "No free channels left") (REG 1)) ; (MOVE (REG 1) (QUOTE "No free channels left")) ; (!*LINK IOERROR EXPR 1) ; (HRRZI (REG LINKREG) 354) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY IOERROR)) ; (!*LBL (LABEL G0009)) ; (!*WPLUS2 (FRAME 1) (WCONST 1)) ; (AOS (INDEXED (REG ST) 0)) ; (!*JUMP (LABEL G0005)) ; (JRST (LABEL G0005)) ; (!*LBL (LABEL G0004)) ; (!*MOVE (FRAME 1) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) 0)) ; (!*EXIT 1) ; (ADJSP (REG ST) (MINUS 1)) ; (POPJ (REG ST) 0) ; (FULLWORD 0) L1137: 20 byte(7)78,111,32,102,114,101,101,32,99,104,97,110,110,101,108,115,32,108,101,102,116,0 0 ; (!*ENTRY FINDFREECHANNEL EXPR 0) L1138: intern L1138 PUSH 15,L1135 L1139: MOVE 7,0(15) SKIPN L1110(7) JRST L1140 MOVE 6,0(15) CAIGE 6,31 JRST L1141 MOVE 1,L1136 HRRZI 12,354 HRRZI 13,1 PUSHJ 15,SYMFNC+354 L1141: AOS 0(15) JRST L1139 L1140: MOVE 1,0(15) ADJSP 15,-1 POPJ 15,0 L1135: 0 L1136: <4_31>+L1137 ; (!*ENTRY SYSTEMOPENFILEFORINPUT EXPR 1) ; (!*ALLOC 2) ; (ADJSP (REG ST) 2) ; (!*MOVE (REG 1) (FRAME 1)) ; (MOVEM (REG 1) (INDEXED (REG ST) 0)) ; (!*LINK FINDFREECHANNEL EXPR 0) ; (HRRZI (REG LINKREG) 389) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY FINDFREECHANNEL)) ; (!*MOVE (REG 1) (FRAME 2)) ; (MOVEM (REG 1) (INDEXED (REG ST) -1)) ; (!*MOVE (FRAME 1) (REG 2)) ; (MOVE (REG 2) (INDEXED (REG ST) 0)) ; (!*LINK SYSOPENREAD EXPR 2) ; (HRRZI (REG LINKREG) 350) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY SYSOPENREAD)) ; (!*MOVE (REG 1) (MEMORY (FRAME 2) (WCONST CHANNELTABLE))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE CHANNELTABLE))) ; (!*MOVE (WCONST 1) (MEMORY (FRAME 2) (WCONST CHANNELSTATUS))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (HRRZI (REG T1) 1) ; (MOVEM (REG T1) (INDEXED (REG T2) (IMMEDIATE CHANNELSTATUS))) ; (!*MOVE (MEMORY (FRAME 2) (WCONST CHANNELTABLE)) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (MOVE (REG 1) (INDEXED (REG 1) (IMMEDIATE CHANNELTABLE))) ; (!*LINK SYSMAXBUFFER EXPR 1) ; (HRRZI (REG LINKREG) 359) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY SYSMAXBUFFER)) ; (!*MOVE (REG 1) (MEMORY (FRAME 2) (WCONST MAXBUFFER))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE MAXBUFFER))) ; (!*MOVE (QUOTE INDEPENDENTREADCHAR) (REG 1)) ; (MOVE (REG 1) (QUOTE INDEPENDENTREADCHAR)) ; (!*MOVE (REG 1) (MEMORY (FRAME 2) (WCONST READFUNCTION))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE READFUNCTION))) ; (!*MOVE (QUOTE READONLYCHANNEL) (REG 1)) ; (MOVE (REG 1) (QUOTE READONLYCHANNEL)) ; (!*MOVE (REG 1) (MEMORY (FRAME 2) (WCONST WRITEFUNCTION))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE WRITEFUNCTION))) ; (!*MOVE (QUOTE INDEPENDENTCLOSECHANNEL) (REG 1)) ; (MOVE (REG 1) (QUOTE INDEPENDENTCLOSECHANNEL)) ; (!*MOVE (REG 1) (MEMORY (FRAME 2) (WCONST CLOSEFUNCTION))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE CLOSEFUNCTION))) ; (!*MOVE (WCONST 32) (REG 2)) ; (HRRZI (REG 2) 32) ; (!*MOVE (MEMORY (FRAME 2) (WCONST MAXBUFFER)) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (MOVE (REG 1) (INDEXED (REG 1) (IMMEDIATE MAXBUFFER))) ; (!*LINK MKSTRING EXPR 2) ; (HRRZI (REG LINKREG) 188) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY MKSTRING)) ; (!*MOVE (FRAME 2) (REG 3)) ; (MOVE (REG 3) (INDEXED (REG ST) -1)) ; (!*WPLUS2 (REG 3) (!$FLUID IOBUFFER)) ; (ADD (REG 3) (!$FLUID IOBUFFER)) ; (!*MOVE (REG 1) (MEMORY (REG 3) (WCONST 1))) ; (MOVEM (REG 1) (INDEXED (REG 3) 1)) ; (!*MOVE (WCONST 0) (MEMORY (FRAME 2) (WCONST NEXTPOSITION))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (SETZM (INDEXED (REG T2) (IMMEDIATE NEXTPOSITION))) ; (!*MOVE (WCONST -1) (MEMORY (FRAME 2) (WCONST BUFFERLENGTH))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (SETOM (INDEXED (REG T2) (IMMEDIATE BUFFERLENGTH))) ; (!*MOVE (FRAME 2) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (!*EXIT 2) ; (ADJSP (REG ST) (MINUS 2)) ; (POPJ (REG ST) 0) 1 ; (!*ENTRY SYSTEMOPENFILEFORINPUT EXPR 1) L1145: intern L1145 ADJSP 15,2 MOVEM 1,0(15) HRRZI 12,389 SETZM 13 PUSHJ 15,SYMFNC+389 MOVEM 1,-1(15) MOVE 2,0(15) HRRZI 12,350 HRRZI 13,2 PUSHJ 15,SYMFNC+350 MOVE 7,-1(15) MOVEM 1,L1112(7) MOVE 7,-1(15) HRRZI 6,1 MOVEM 6,L1110(7) MOVE 1,-1(15) MOVE 1,L1112(1) HRRZI 12,359 HRRZI 13,1 PUSHJ 15,SYMFNC+359 MOVE 7,-1(15) MOVEM 1,L1111(7) MOVE 1,L1142 MOVE 7,-1(15) MOVEM 1,L1104(7) MOVE 1,L1143 MOVE 7,-1(15) MOVEM 1,L1105(7) MOVE 1,L1144 MOVE 7,-1(15) MOVEM 1,L1106(7) HRRZI 2,32 MOVE 1,-1(15) MOVE 1,L1111(1) HRRZI 12,188 HRRZI 13,2 PUSHJ 15,SYMFNC+188 MOVE 3,-1(15) ADD 3,SYMVAL+390 MOVEM 1,1(3) MOVE 7,-1(15) SETZM L1113(7) MOVE 7,-1(15) SETOM L1114(7) MOVE 1,-1(15) ADJSP 15,-2 POPJ 15,0 L1144: <30_31>+384 L1143: <30_31>+364 L1142: <30_31>+391 ; (!*ENTRY SYSTEMOPENFILEFOROUTPUT EXPR 1) ; (!*ALLOC 2) ; (ADJSP (REG ST) 2) ; (!*MOVE (REG 1) (FRAME 1)) ; (MOVEM (REG 1) (INDEXED (REG ST) 0)) ; (!*LINK FINDFREECHANNEL EXPR 0) ; (HRRZI (REG LINKREG) 389) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY FINDFREECHANNEL)) ; (!*MOVE (REG 1) (FRAME 2)) ; (MOVEM (REG 1) (INDEXED (REG ST) -1)) ; (!*MOVE (FRAME 1) (REG 2)) ; (MOVE (REG 2) (INDEXED (REG ST) 0)) ; (!*LINK SYSOPENWRITE EXPR 2) ; (HRRZI (REG LINKREG) 351) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY SYSOPENWRITE)) ; (!*MOVE (REG 1) (MEMORY (FRAME 2) (WCONST CHANNELTABLE))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE CHANNELTABLE))) ; (!*MOVE (WCONST 2) (MEMORY (FRAME 2) (WCONST CHANNELSTATUS))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (HRRZI (REG T1) 2) ; (MOVEM (REG T1) (INDEXED (REG T2) (IMMEDIATE CHANNELSTATUS))) ; (!*MOVE (MEMORY (FRAME 2) (WCONST CHANNELTABLE)) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (MOVE (REG 1) (INDEXED (REG 1) (IMMEDIATE CHANNELTABLE))) ; (!*LINK SYSMAXBUFFER EXPR 1) ; (HRRZI (REG LINKREG) 359) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY SYSMAXBUFFER)) ; (!*MOVE (REG 1) (MEMORY (FRAME 2) (WCONST MAXBUFFER))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE MAXBUFFER))) ; (!*MOVE (QUOTE WRITEONLYCHANNEL) (REG 1)) ; (MOVE (REG 1) (QUOTE WRITEONLYCHANNEL)) ; (!*MOVE (REG 1) (MEMORY (FRAME 2) (WCONST READFUNCTION))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE READFUNCTION))) ; (!*MOVE (QUOTE INDEPENDENTWRITECHAR) (REG 1)) ; (MOVE (REG 1) (QUOTE INDEPENDENTWRITECHAR)) ; (!*MOVE (REG 1) (MEMORY (FRAME 2) (WCONST WRITEFUNCTION))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE WRITEFUNCTION))) ; (!*MOVE (QUOTE INDEPENDENTCLOSECHANNEL) (REG 1)) ; (MOVE (REG 1) (QUOTE INDEPENDENTCLOSECHANNEL)) ; (!*MOVE (REG 1) (MEMORY (FRAME 2) (WCONST CLOSEFUNCTION))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE CLOSEFUNCTION))) ; (!*MOVE (WCONST 32) (REG 2)) ; (HRRZI (REG 2) 32) ; (!*MOVE (MEMORY (FRAME 2) (WCONST MAXBUFFER)) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (MOVE (REG 1) (INDEXED (REG 1) (IMMEDIATE MAXBUFFER))) ; (!*LINK MKSTRING EXPR 2) ; (HRRZI (REG LINKREG) 188) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY MKSTRING)) ; (!*MOVE (FRAME 2) (REG 3)) ; (MOVE (REG 3) (INDEXED (REG ST) -1)) ; (!*WPLUS2 (REG 3) (!$FLUID IOBUFFER)) ; (ADD (REG 3) (!$FLUID IOBUFFER)) ; (!*MOVE (REG 1) (MEMORY (REG 3) (WCONST 1))) ; (MOVEM (REG 1) (INDEXED (REG 3) 1)) ; (!*MOVE (WCONST -1) (MEMORY (FRAME 2) (WCONST NEXTPOSITION))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (SETOM (INDEXED (REG T2) (IMMEDIATE NEXTPOSITION))) ; (!*MOVE (WCONST -1) (MEMORY (FRAME 2) (WCONST BUFFERLENGTH))) ; (MOVE (REG T2) (INDEXED (REG ST) -1)) ; (SETOM (INDEXED (REG T2) (IMMEDIATE BUFFERLENGTH))) ; (!*MOVE (FRAME 2) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (!*EXIT 2) ; (ADJSP (REG ST) (MINUS 2)) ; (POPJ (REG ST) 0) 1 ; (!*ENTRY SYSTEMOPENFILEFOROUTPUT EXPR 1) L1149: intern L1149 ADJSP 15,2 MOVEM 1,0(15) HRRZI 12,389 SETZM 13 PUSHJ 15,SYMFNC+389 MOVEM 1,-1(15) MOVE 2,0(15) HRRZI 12,351 HRRZI 13,2 PUSHJ 15,SYMFNC+351 MOVE 7,-1(15) MOVEM 1,L1112(7) MOVE 7,-1(15) HRRZI 6,2 MOVEM 6,L1110(7) MOVE 1,-1(15) MOVE 1,L1112(1) HRRZI 12,359 HRRZI 13,1 PUSHJ 15,SYMFNC+359 MOVE 7,-1(15) MOVEM 1,L1111(7) MOVE 1,L1146 MOVE 7,-1(15) MOVEM 1,L1104(7) MOVE 1,L1147 MOVE 7,-1(15) MOVEM 1,L1105(7) MOVE 1,L1148 MOVE 7,-1(15) MOVEM 1,L1106(7) HRRZI 2,32 MOVE 1,-1(15) MOVE 1,L1111(1) HRRZI 12,188 HRRZI 13,2 PUSHJ 15,SYMFNC+188 MOVE 3,-1(15) ADD 3,SYMVAL+390 MOVEM 1,1(3) MOVE 7,-1(15) SETOM L1113(7) MOVE 7,-1(15) SETOM L1114(7) MOVE 1,-1(15) ADJSP 15,-2 POPJ 15,0 L1148: <30_31>+384 L1147: <30_31>+152 L1146: <30_31>+361 ; (!*ENTRY SYSTEMOPENFILESPECIAL EXPR 1) ; (!*ALLOC 0) ; (!*MOVE (REG 1) (REG 3)) ; (MOVE (REG 3) (REG 1)) ; (!*MOVE (QUOTE NIL) (REG 2)) ; (MOVE (REG 2) (REG NIL)) ; (!*MOVE (WCONST 3) (MEMORY (REG 2) (WCONST CHANNELSTATUS))) ; (HRRZI (REG T1) 3) ; (MOVEM (REG T1) (INDEXED (REG 2) (IMMEDIATE CHANNELSTATUS))) ; (!*MOVE (REG 2) (REG 1)) ; (MOVE (REG 1) (REG 2)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) 1 ; (!*ENTRY SYSTEMOPENFILESPECIAL EXPR 1) L1150: intern L1150 MOVE 3,1 MOVE 2,0 HRRZI 6,3 MOVEM 6,L1110(2) MOVE 1,2 POPJ 15,0 ; (!*ENTRY TESTLEGALCHANNEL EXPR 1) ; (!*ALLOC 0) ; (!*JUMPNOTTYPE (LABEL G0005) (REG 1) POSINT) ; (TLNE (REG 1) 253952) ; (JRST (LABEL G0005)) ; (!*JUMPWLEQ (LABEL G0004) (REG 1) (WCONST 31)) ; (CAIG (REG 1) 31) ; (JRST (LABEL G0004)) ; (!*LBL (LABEL G0005)) ; (!*MOVE (QUOTE " is not a legal channel ") (REG 2)) ; (MOVE (REG 2) (QUOTE " is not a legal channel ")) ; (!*LINK LIST2 EXPR 2) ; (HRRZI (REG LINKREG) 183) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY LIST2)) ; (!*LINKE 0 IOERROR EXPR 1) ; (HRRZI (REG LINKREG) 354) ; (HRRZI (REG NARGREG) 1) ; (JRST (ENTRY IOERROR)) ; (!*LBL (LABEL G0004)) ; (!*MOVE (QUOTE NIL) (REG 1)) ; (MOVE (REG 1) (REG NIL)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) L1152: 23 byte(7)32,105,115,32,110,111,116,32,97,32,108,101,103,97,108,32,99,104,97,110,110,101,108,32,0 1 ; (!*ENTRY TESTLEGALCHANNEL EXPR 1) L1153: intern L1153 TLNE 1,253952 JRST L1154 CAIG 1,31 JRST L1155 L1154: MOVE 2,L1151 HRRZI 12,183 HRRZI 13,2 PUSHJ 15,SYMFNC+183 HRRZI 12,354 HRRZI 13,1 JRST SYMFNC+354 L1155: MOVE 1,0 POPJ 15,0 L1151: <4_31>+L1152 ; (!*ENTRY INDEPENDENTREADCHAR EXPR 1) ; (!*ALLOC 3) ; (ADJSP (REG ST) 3) ; (!*MOVE (REG 1) (FRAME 1)) ; (MOVEM (REG 1) (INDEXED (REG ST) 0)) ; (!*LINK TESTLEGALCHANNEL EXPR 1) ; (HRRZI (REG LINKREG) 393) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY TESTLEGALCHANNEL)) ; (!*JUMPWGEQ (LABEL G0004) (MEMORY (FRAME 1) (WCONST BUFFERLENGTH)) (MEMORY (FRAME 1) (WCONST NEXTPOSITION))) ; (MOVE (REG T1) (INDEXED (REG ST) 0)) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (MOVE (REG T1) (INDEXED (REG T1) (IMMEDIATE BUFFERLENGTH))) ; (CAML (REG T1) (INDEXED (REG T2) (IMMEDIATE NEXTPOSITION))) ; (JRST (LABEL G0004)) ; (!*MOVE (FRAME 1) (REG 2)) ; (MOVE (REG 2) (INDEXED (REG ST) 0)) ; (!*WPLUS2 (REG 2) (!$FLUID IOBUFFER)) ; (ADD (REG 2) (!$FLUID IOBUFFER)) ; (!*MOVE (MEMORY (REG 2) (WCONST 1)) (REG 2)) ; (MOVE (REG 2) (INDEXED (REG 2) 1)) ; (!*MOVE (MEMORY (FRAME 1) (WCONST CHANNELTABLE)) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) 0)) ; (MOVE (REG 1) (INDEXED (REG 1) (IMMEDIATE CHANNELTABLE))) ; (!*LINK SYSREADREC EXPR 2) ; (HRRZI (REG LINKREG) 353) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY SYSREADREC)) ; (!*MOVE (REG 1) (FRAME 3)) ; (MOVEM (REG 1) (INDEXED (REG ST) -2)) ; (!*MOVE (REG 1) (MEMORY (FRAME 1) (WCONST BUFFERLENGTH))) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE BUFFERLENGTH))) ; (!*MOVE (WCONST 0) (MEMORY (FRAME 1) (WCONST NEXTPOSITION))) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (SETZM (INDEXED (REG T2) (IMMEDIATE NEXTPOSITION))) ; (!*LBL (LABEL G0004)) ; (!*MOVE (MEMORY (FRAME 1) (WCONST NEXTPOSITION)) (REG 2)) ; (MOVE (REG 2) (INDEXED (REG ST) 0)) ; (MOVE (REG 2) (INDEXED (REG 2) (IMMEDIATE NEXTPOSITION))) ; (!*MOVE (FRAME 1) (REG 3)) ; (MOVE (REG 3) (INDEXED (REG ST) 0)) ; (!*WPLUS2 (REG 3) (!$FLUID IOBUFFER)) ; (ADD (REG 3) (!$FLUID IOBUFFER)) ; (!*MOVE (MEMORY (REG 3) (WCONST 1)) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG 3) 1)) ; (!*WPLUS2 (REG 1) (WCONST 1)) ; (AOS (REG 1)) ; (!*LINK BYTE EXPR 2) ; (HRRZI (REG LINKREG) 147) ; (HRRZI (REG NARGREG) 2) ; (ADJBP (REG 2) (LIT (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7)))) ; (LDB (REG 1) (REG 2)) ; (!*MOVE (REG 1) (FRAME 2)) ; (MOVEM (REG 1) (INDEXED (REG ST) -1)) ; (!*MOVE (MEMORY (FRAME 1) (WCONST NEXTPOSITION)) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) 0)) ; (MOVE (REG 1) (INDEXED (REG 1) (IMMEDIATE NEXTPOSITION))) ; (!*WPLUS2 (REG 1) (WCONST 1)) ; (AOS (REG 1)) ; (!*MOVE (REG 1) (MEMORY (FRAME 1) (WCONST NEXTPOSITION))) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE NEXTPOSITION))) ; (!*JUMPEQ (LABEL G0009) (QUOTE NIL) (!$FLUID !*ECHO)) ; (CAMN (REG NIL) (!$FLUID !*ECHO)) ; (JRST (LABEL G0009)) ; (!*MOVE (FRAME 2) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (!*LINK WRITECHAR EXPR 1) ; (HRRZI (REG LINKREG) 153) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY WRITECHAR)) ; (!*LBL (LABEL G0009)) ; (!*MOVE (FRAME 2) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (!*EXIT 3) ; (ADJSP (REG ST) (MINUS 3)) ; (POPJ (REG ST) 0) ; (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7)) 1 ; (!*ENTRY INDEPENDENTREADCHAR EXPR 1) L1157: intern L1157 ADJSP 15,3 MOVEM 1,0(15) HRRZI 12,393 HRRZI 13,1 PUSHJ 15,SYMFNC+393 MOVE 6,0(15) MOVE 7,0(15) MOVE 6,L1114(6) CAML 6,L1113(7) JRST L1158 MOVE 2,0(15) ADD 2,SYMVAL+390 MOVE 2,1(2) MOVE 1,0(15) MOVE 1,L1112(1) HRRZI 12,353 HRRZI 13,2 PUSHJ 15,SYMFNC+353 MOVEM 1,-2(15) MOVE 7,0(15) MOVEM 1,L1114(7) MOVE 7,0(15) SETZM L1113(7) L1158: MOVE 2,0(15) MOVE 2,L1113(2) MOVE 3,0(15) ADD 3,SYMVAL+390 MOVE 1,1(3) AOS 1 HRRZI 12,147 HRRZI 13,2 ADJBP 2,L1156 LDB 1,2 MOVEM 1,-1(15) MOVE 1,0(15) MOVE 1,L1113(1) AOS 1 MOVE 7,0(15) MOVEM 1,L1113(7) CAMN 0,SYMVAL+379 JRST L1159 MOVE 1,-1(15) HRRZI 12,153 HRRZI 13,1 PUSHJ 15,SYMFNC+153 L1159: MOVE 1,-1(15) ADJSP 15,-3 POPJ 15,0 L1156: point 7,0(1),6 ; (!*ENTRY INDEPENDENTWRITECHAR EXPR 2) ; (!*PUSH (REG 2)) ; (PUSH (REG ST) (REG 2)) ; (!*PUSH (REG 1)) ; (PUSH (REG ST) (REG 1)) ; (!*LINK TESTLEGALCHANNEL EXPR 1) ; (HRRZI (REG LINKREG) 393) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY TESTLEGALCHANNEL)) ; (!*MOVE (MEMORY (FRAME 1) (WCONST NEXTPOSITION)) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) 0)) ; (MOVE (REG 1) (INDEXED (REG 1) (IMMEDIATE NEXTPOSITION))) ; (!*WPLUS2 (REG 1) (WCONST 1)) ; (AOS (REG 1)) ; (!*MOVE (REG 1) (MEMORY (FRAME 1) (WCONST NEXTPOSITION))) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE NEXTPOSITION))) ; (!*MOVE (FRAME 2) (REG 3)) ; (MOVE (REG 3) (INDEXED (REG ST) -1)) ; (!*MOVE (MEMORY (FRAME 1) (WCONST NEXTPOSITION)) (REG 2)) ; (MOVE (REG 2) (INDEXED (REG ST) 0)) ; (MOVE (REG 2) (INDEXED (REG 2) (IMMEDIATE NEXTPOSITION))) ; (!*MOVE (FRAME 1) (REG 4)) ; (MOVE (REG 4) (INDEXED (REG ST) 0)) ; (!*WPLUS2 (REG 4) (!$FLUID IOBUFFER)) ; (ADD (REG 4) (!$FLUID IOBUFFER)) ; (!*MOVE (MEMORY (REG 4) (WCONST 1)) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG 4) 1)) ; (!*WPLUS2 (REG 1) (WCONST 1)) ; (AOS (REG 1)) ; (!*LINK PUTBYTE EXPR 3) ; (HRRZI (REG LINKREG) 187) ; (HRRZI (REG NARGREG) 3) ; (ADJBP (REG 2) (LIT (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7)))) ; (DPB (REG 3) (REG 2)) ; (!*JUMPEQ (LABEL G0006) (REG 3) (WCONST 10)) ; (CAIN (REG 3) 10) ; (JRST (LABEL G0006)) ; (!*JUMPWGREATERP (LABEL G0004) (MEMORY (FRAME 1) (WCONST BUFFERLENGTH)) (MEMORY (FRAME 1) (WCONST NEXTPOSITION))) ; (MOVE (REG T1) (INDEXED (REG ST) 0)) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (MOVE (REG T1) (INDEXED (REG T1) (IMMEDIATE BUFFERLENGTH))) ; (CAMLE (REG T1) (INDEXED (REG T2) (IMMEDIATE NEXTPOSITION))) ; (JRST (LABEL G0004)) ; (!*LBL (LABEL G0006)) ; (!*MOVE (MEMORY (FRAME 1) (WCONST NEXTPOSITION)) (REG 3)) ; (MOVE (REG 3) (INDEXED (REG ST) 0)) ; (MOVE (REG 3) (INDEXED (REG 3) (IMMEDIATE NEXTPOSITION))) ; (!*MOVE (FRAME 1) (REG 2)) ; (MOVE (REG 2) (INDEXED (REG ST) 0)) ; (!*WPLUS2 (REG 2) (!$FLUID IOBUFFER)) ; (ADD (REG 2) (!$FLUID IOBUFFER)) ; (!*MOVE (MEMORY (REG 2) (WCONST 1)) (REG 2)) ; (MOVE (REG 2) (INDEXED (REG 2) 1)) ; (!*MOVE (MEMORY (FRAME 1) (WCONST CHANNELTABLE)) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) 0)) ; (MOVE (REG 1) (INDEXED (REG 1) (IMMEDIATE CHANNELTABLE))) ; (!*LINK SYSWRITEREC EXPR 3) ; (HRRZI (REG LINKREG) 356) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY SYSWRITEREC)) ; (!*MOVE (WCONST -1) (MEMORY (FRAME 1) (WCONST NEXTPOSITION))) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (SETOM (INDEXED (REG T2) (IMMEDIATE NEXTPOSITION))) ; (!*LBL (LABEL G0004)) ; (!*MOVE (QUOTE NIL) (REG 1)) ; (MOVE (REG 1) (REG NIL)) ; (!*EXIT 2) ; (ADJSP (REG ST) (MINUS 2)) ; (POPJ (REG ST) 0) ; (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7)) 2 ; (!*ENTRY INDEPENDENTWRITECHAR EXPR 2) L1161: intern L1161 PUSH 15,2 PUSH 15,1 HRRZI 12,393 HRRZI 13,1 PUSHJ 15,SYMFNC+393 MOVE 1,0(15) MOVE 1,L1113(1) AOS 1 MOVE 7,0(15) MOVEM 1,L1113(7) MOVE 3,-1(15) MOVE 2,0(15) MOVE 2,L1113(2) MOVE 4,0(15) ADD 4,SYMVAL+390 MOVE 1,1(4) AOS 1 HRRZI 12,187 HRRZI 13,3 ADJBP 2,L1160 DPB 3,2 CAIN 3,10 JRST L1162 MOVE 6,0(15) MOVE 7,0(15) MOVE 6,L1114(6) CAMLE 6,L1113(7) JRST L1163 L1162: MOVE 3,0(15) MOVE 3,L1113(3) MOVE 2,0(15) ADD 2,SYMVAL+390 MOVE 2,1(2) MOVE 1,0(15) MOVE 1,L1112(1) HRRZI 12,356 HRRZI 13,3 PUSHJ 15,SYMFNC+356 MOVE 7,0(15) SETOM L1113(7) L1163: MOVE 1,0 ADJSP 15,-2 POPJ 15,0 L1160: point 7,0(1),6 ; (!*ENTRY SYSTEMMARKASCLOSEDCHANNEL EXPR 1) ; (!*PUSH (REG 1)) ; (PUSH (REG ST) (REG 1)) ; (!*LINK TESTLEGALCHANNEL EXPR 1) ; (HRRZI (REG LINKREG) 393) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY TESTLEGALCHANNEL)) ; (!*MOVE (WCONST 0) (MEMORY (FRAME 1) (WCONST CHANNELSTATUS))) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (SETZM (INDEXED (REG T2) (IMMEDIATE CHANNELSTATUS))) ; (!*MOVE (QUOTE CHANNELNOTOPEN) (REG 1)) ; (MOVE (REG 1) (QUOTE CHANNELNOTOPEN)) ; (!*MOVE (REG 1) (MEMORY (FRAME 1) (WCONST CLOSEFUNCTION))) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE CLOSEFUNCTION))) ; (!*MOVE (REG 1) (MEMORY (FRAME 1) (WCONST WRITEFUNCTION))) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE WRITEFUNCTION))) ; (!*MOVE (REG 1) (MEMORY (FRAME 1) (WCONST READFUNCTION))) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE READFUNCTION))) ; (!*EXIT 1) ; (ADJSP (REG ST) (MINUS 1)) ; (POPJ (REG ST) 0) 1 ; (!*ENTRY SYSTEMMARKASCLOSEDCHANNEL EXPR 1) L1165: intern L1165 PUSH 15,1 HRRZI 12,393 HRRZI 13,1 PUSHJ 15,SYMFNC+393 MOVE 7,0(15) SETZM L1110(7) MOVE 1,L1164 MOVE 7,0(15) MOVEM 1,L1106(7) MOVE 7,0(15) MOVEM 1,L1105(7) MOVE 7,0(15) MOVEM 1,L1104(7) ADJSP 15,-1 POPJ 15,0 L1164: <30_31>+363 ; (!*ENTRY INDEPENDENTCLOSECHANNEL EXPR 1) ; (!*PUSH (REG 1)) ; (PUSH (REG ST) (REG 1)) ; (!*LINK TESTLEGALCHANNEL EXPR 1) ; (HRRZI (REG LINKREG) 393) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY TESTLEGALCHANNEL)) ; (!*MOVE (MEMORY (FRAME 1) (WCONST CHANNELTABLE)) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) 0)) ; (MOVE (REG 1) (INDEXED (REG 1) (IMMEDIATE CHANNELTABLE))) ; (!*LINKE 1 SYSCLOSE EXPR 1) ; (ADJSP (REG ST) (MINUS 1)) ; (HRRZI (REG LINKREG) 357) ; (HRRZI (REG NARGREG) 1) ; (JRST (ENTRY SYSCLOSE)) 1 ; (!*ENTRY INDEPENDENTCLOSECHANNEL EXPR 1) L1166: intern L1166 PUSH 15,1 HRRZI 12,393 HRRZI 13,1 PUSHJ 15,SYMFNC+393 MOVE 1,0(15) MOVE 1,L1112(1) ADJSP 15,-1 HRRZI 12,357 HRRZI 13,1 JRST SYMFNC+357 ; (!*ENTRY CLEARONECHANNEL EXPR 3) ; (!*PUSH (REG 2)) ; (PUSH (REG ST) (REG 2)) ; (!*PUSH (REG 1)) ; (PUSH (REG ST) (REG 1)) ; (!*MOVE (REG 2) (MEMORY (REG 1) (WCONST MAXBUFFER))) ; (MOVEM (REG 2) (INDEXED (REG 1) (IMMEDIATE MAXBUFFER))) ; (!*MOVE (WCONST 0) (MEMORY (REG 1) (WCONST NEXTPOSITION))) ; (SETZM (INDEXED (REG 1) (IMMEDIATE NEXTPOSITION))) ; (!*JUMPNOTEQ (LABEL G0004) (REG 3) (QUOTE INPUT)) ; (CAME (REG 3) (QUOTE INPUT)) ; (JRST (LABEL G0004)) ; (!*MOVE (WCONST -1) (MEMORY (REG 1) (WCONST BUFFERLENGTH))) ; (SETOM (INDEXED (REG 1) (IMMEDIATE BUFFERLENGTH))) ; (!*JUMP (LABEL G0003)) ; (JRST (LABEL G0003)) ; (!*LBL (LABEL G0004)) ; (!*MOVE (WCONST 0) (MEMORY (REG 1) (WCONST BUFFERLENGTH))) ; (SETZM (INDEXED (REG 1) (IMMEDIATE BUFFERLENGTH))) ; (!*LBL (LABEL G0003)) ; (!*MOVE (WCONST 32) (REG 2)) ; (HRRZI (REG 2) 32) ; (!*MOVE (FRAME 2) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (!*LINK MKSTRING EXPR 2) ; (HRRZI (REG LINKREG) 188) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY MKSTRING)) ; (!*MOVE (FRAME 1) (REG 2)) ; (MOVE (REG 2) (INDEXED (REG ST) 0)) ; (!*WPLUS2 (REG 2) (!$FLUID IOBUFFER)) ; (ADD (REG 2) (!$FLUID IOBUFFER)) ; (!*MOVE (REG 1) (MEMORY (REG 2) (WCONST 1))) ; (MOVEM (REG 1) (INDEXED (REG 2) 1)) ; (!*EXIT 2) ; (ADJSP (REG ST) (MINUS 2)) ; (POPJ (REG ST) 0) 3 ; (!*ENTRY CLEARONECHANNEL EXPR 3) L1168: intern L1168 PUSH 15,2 PUSH 15,1 MOVEM 2,L1111(1) SETZM L1113(1) CAME 3,L1167 JRST L1169 SETOM L1114(1) JRST L1170 L1169: SETZM L1114(1) L1170: HRRZI 2,32 MOVE 1,-1(15) HRRZI 12,188 HRRZI 13,2 PUSHJ 15,SYMFNC+188 MOVE 2,0(15) ADD 2,SYMVAL+390 MOVEM 1,1(2) ADJSP 15,-2 POPJ 15,0 L1167: <30_31>+375 ; (!*ENTRY CLEARIO EXPR 0) ; (!*ALLOC 0) ; (!*LINK SYSCLEARIO EXPR 0) ; (HRRZI (REG LINKREG) 348) ; (SETZM (REG NARGREG)) ; (PUSHJ (REG ST) (ENTRY SYSCLEARIO)) ; (!*JUMPTYPE (LABEL G0003) (!$FLUID IOBUFFER) VECT) ; (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (!$FLUID IOBUFFER) 0 5)))) ; (CAIN (REG T6) 8) ; (JRST (LABEL G0003)) ; (!*MOVE (WCONST 31) (REG 1)) ; (HRRZI (REG 1) 31) ; (!*LINK MKVECT EXPR 1) ; (HRRZI (REG LINKREG) 182) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY MKVECT)) ; (!*MOVE (REG 1) (!$FLUID IOBUFFER)) ; (MOVEM (REG 1) (!$FLUID IOBUFFER)) ; (!*MOVE (QUOTE INPUT) (REG 3)) ; (MOVE (REG 3) (QUOTE INPUT)) ; (!*MOVE (WCONST 200) (REG 2)) ; (HRRZI (REG 2) 200) ; (!*MOVE (!$FLUID STDIN!*) (REG 1)) ; (MOVE (REG 1) (!$FLUID STDIN!*)) ; (!*LINK CLEARONECHANNEL EXPR 3) ; (HRRZI (REG LINKREG) 395) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY CLEARONECHANNEL)) ; (!*MOVE (QUOTE OUTPUT) (REG 3)) ; (MOVE (REG 3) (QUOTE OUTPUT)) ; (!*MOVE (WCONST 200) (REG 2)) ; (HRRZI (REG 2) 200) ; (!*MOVE (!$FLUID STDOUT!*) (REG 1)) ; (MOVE (REG 1) (!$FLUID STDOUT!*)) ; (!*LINK CLEARONECHANNEL EXPR 3) ; (HRRZI (REG LINKREG) 395) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY CLEARONECHANNEL)) ; (!*MOVE (QUOTE OUTPUT) (REG 3)) ; (MOVE (REG 3) (QUOTE OUTPUT)) ; (!*MOVE (WCONST 200) (REG 2)) ; (HRRZI (REG 2) 200) ; (!*MOVE (!$FLUID ERROUT!*) (REG 1)) ; (MOVE (REG 1) (!$FLUID ERROUT!*)) ; (!*LINK CLEARONECHANNEL EXPR 3) ; (HRRZI (REG LINKREG) 395) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY CLEARONECHANNEL)) ; (!*MOVE (QUOTE OUTPUT) (REG 3)) ; (MOVE (REG 3) (QUOTE OUTPUT)) ; (!*MOVE (WCONST 200) (REG 2)) ; (HRRZI (REG 2) 200) ; (!*MOVE (!$FLUID PROMPTOUT!*) (REG 1)) ; (MOVE (REG 1) (!$FLUID PROMPTOUT!*)) ; (!*LINK CLEARONECHANNEL EXPR 3) ; (HRRZI (REG LINKREG) 395) ; (HRRZI (REG NARGREG) 3) ; (PUSHJ (REG ST) (ENTRY CLEARONECHANNEL)) ; (!*LBL (LABEL G0003)) ; (!*MOVE (!$FLUID STDIN!*) (REG 1)) ; (MOVE (REG 1) (!$FLUID STDIN!*)) ; (!*MOVE (REG 1) (!$FLUID IN!*)) ; (MOVEM (REG 1) (!$FLUID IN!*)) ; (!*MOVE (!$FLUID STDOUT!*) (REG 1)) ; (MOVE (REG 1) (!$FLUID STDOUT!*)) ; (!*MOVE (REG 1) (!$FLUID OUT!*)) ; (MOVEM (REG 1) (!$FLUID OUT!*)) ; (!*EXIT 0) ; (POPJ (REG ST) 0) ; (FULLWORD (FIELDPOINTER (!$FLUID IOBUFFER) 0 5)) 0 ; (!*ENTRY CLEARIO EXPR 0) L1174: intern L1174 HRRZI 12,348 SETZM 13 PUSHJ 15,SYMFNC+348 LDB 11,L1171 CAIN 11,8 JRST L1175 HRRZI 1,31 HRRZI 12,182 HRRZI 13,1 PUSHJ 15,SYMFNC+182 MOVEM 1,SYMVAL+390 MOVE 3,L1172 HRRZI 2,200 MOVE 1,SYMVAL+386 HRRZI 12,395 HRRZI 13,3 PUSHJ 15,SYMFNC+395 MOVE 3,L1173 HRRZI 2,200 MOVE 1,SYMVAL+387 HRRZI 12,395 HRRZI 13,3 PUSHJ 15,SYMFNC+395 MOVE 3,L1173 HRRZI 2,200 MOVE 1,SYMVAL+340 HRRZI 12,395 HRRZI 13,3 PUSHJ 15,SYMFNC+395 MOVE 3,L1173 HRRZI 2,200 MOVE 1,SYMVAL+388 HRRZI 12,395 HRRZI 13,3 PUSHJ 15,SYMFNC+395 L1175: MOVE 1,SYMVAL+386 MOVEM 1,SYMVAL+385 MOVE 1,SYMVAL+387 MOVEM 1,SYMVAL+154 POPJ 15,0 L1171: point 5,<SYMVAL+390>,4 L1173: <30_31>+383 L1172: <30_31>+375 ; (!*ENTRY TERMINALINPUTHANDLER EXPR 1) ; (!*ALLOC 3) ; (ADJSP (REG ST) 3) ; (!*MOVE (REG 1) (FRAME 1)) ; (MOVEM (REG 1) (INDEXED (REG ST) 0)) ; (!*LINK TESTLEGALCHANNEL EXPR 1) ; (HRRZI (REG LINKREG) 393) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY TESTLEGALCHANNEL)) ; (!*JUMPWGEQ (LABEL G0004) (MEMORY (FRAME 1) (WCONST BUFFERLENGTH)) (MEMORY (FRAME 1) (WCONST NEXTPOSITION))) ; (MOVE (REG T1) (INDEXED (REG ST) 0)) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (MOVE (REG T1) (INDEXED (REG T1) (IMMEDIATE BUFFERLENGTH))) ; (CAML (REG T1) (INDEXED (REG T2) (IMMEDIATE NEXTPOSITION))) ; (JRST (LABEL G0004)) ; (!*JUMPNOTTYPE (LABEL G0007) (!$FLUID PROMPTSTRING!*) STR) ; (LDB (REG T6) (LIT (FULLWORD (FIELDPOINTER (!$FLUID PROMPTSTRING!*) 0 5)))) ; (CAIE (REG T6) 4) ; (JRST (LABEL G0007)) ; (!*MOVE (!$FLUID PROMPTSTRING!*) (REG 1)) ; (MOVE (REG 1) (!$FLUID PROMPTSTRING!*)) ; (!*JUMP (LABEL G0006)) ; (JRST (LABEL G0006)) ; (!*LBL (LABEL G0007)) ; (!*MOVE (QUOTE ">") (REG 1)) ; (MOVE (REG 1) (QUOTE ">")) ; (!*LBL (LABEL G0006)) ; (!*MOVE (REG 1) (REG 2)) ; (MOVE (REG 2) (REG 1)) ; (!*MOVE (!$FLUID PROMPTOUT!*) (REG 1)) ; (MOVE (REG 1) (!$FLUID PROMPTOUT!*)) ; (!*LINK CHANNELWRITESTRING EXPR 2) ; (HRRZI (REG LINKREG) 397) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY CHANNELWRITESTRING)) ; (!*MOVE (FRAME 1) (REG 2)) ; (MOVE (REG 2) (INDEXED (REG ST) 0)) ; (!*WPLUS2 (REG 2) (!$FLUID IOBUFFER)) ; (ADD (REG 2) (!$FLUID IOBUFFER)) ; (!*MOVE (MEMORY (REG 2) (WCONST 1)) (REG 2)) ; (MOVE (REG 2) (INDEXED (REG 2) 1)) ; (!*MOVE (MEMORY (FRAME 1) (WCONST CHANNELTABLE)) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) 0)) ; (MOVE (REG 1) (INDEXED (REG 1) (IMMEDIATE CHANNELTABLE))) ; (!*LINK SYSREADREC EXPR 2) ; (HRRZI (REG LINKREG) 353) ; (HRRZI (REG NARGREG) 2) ; (PUSHJ (REG ST) (ENTRY SYSREADREC)) ; (!*MOVE (REG 1) (FRAME 3)) ; (MOVEM (REG 1) (INDEXED (REG ST) -2)) ; (!*MOVE (REG 1) (MEMORY (FRAME 1) (WCONST BUFFERLENGTH))) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE BUFFERLENGTH))) ; (!*MOVE (WCONST 0) (MEMORY (FRAME 1) (WCONST NEXTPOSITION))) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (SETZM (INDEXED (REG T2) (IMMEDIATE NEXTPOSITION))) ; (!*LBL (LABEL G0004)) ; (!*MOVE (MEMORY (FRAME 1) (WCONST NEXTPOSITION)) (REG 2)) ; (MOVE (REG 2) (INDEXED (REG ST) 0)) ; (MOVE (REG 2) (INDEXED (REG 2) (IMMEDIATE NEXTPOSITION))) ; (!*MOVE (FRAME 1) (REG 3)) ; (MOVE (REG 3) (INDEXED (REG ST) 0)) ; (!*WPLUS2 (REG 3) (!$FLUID IOBUFFER)) ; (ADD (REG 3) (!$FLUID IOBUFFER)) ; (!*MOVE (MEMORY (REG 3) (WCONST 1)) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG 3) 1)) ; (!*WPLUS2 (REG 1) (WCONST 1)) ; (AOS (REG 1)) ; (!*LINK BYTE EXPR 2) ; (HRRZI (REG LINKREG) 147) ; (HRRZI (REG NARGREG) 2) ; (ADJBP (REG 2) (LIT (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7)))) ; (LDB (REG 1) (REG 2)) ; (!*MOVE (REG 1) (FRAME 2)) ; (MOVEM (REG 1) (INDEXED (REG ST) -1)) ; (!*MOVE (MEMORY (FRAME 1) (WCONST NEXTPOSITION)) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) 0)) ; (MOVE (REG 1) (INDEXED (REG 1) (IMMEDIATE NEXTPOSITION))) ; (!*WPLUS2 (REG 1) (WCONST 1)) ; (AOS (REG 1)) ; (!*MOVE (REG 1) (MEMORY (FRAME 1) (WCONST NEXTPOSITION))) ; (MOVE (REG T2) (INDEXED (REG ST) 0)) ; (MOVEM (REG 1) (INDEXED (REG T2) (IMMEDIATE NEXTPOSITION))) ; (!*JUMPEQ (LABEL G0014) (QUOTE NIL) (!$FLUID !*ECHO)) ; (CAMN (REG NIL) (!$FLUID !*ECHO)) ; (JRST (LABEL G0014)) ; (!*MOVE (FRAME 2) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (!*LINK WRITECHAR EXPR 1) ; (HRRZI (REG LINKREG) 153) ; (HRRZI (REG NARGREG) 1) ; (PUSHJ (REG ST) (ENTRY WRITECHAR)) ; (!*LBL (LABEL G0014)) ; (!*MOVE (FRAME 2) (REG 1)) ; (MOVE (REG 1) (INDEXED (REG ST) -1)) ; (!*EXIT 3) ; (ADJSP (REG ST) (MINUS 3)) ; (POPJ (REG ST) 0) ; (FULLWORD (FIELDPOINTER (!$FLUID PROMPTSTRING!*) 0 5)) ; (FULLWORD (FIELDPOINTER (INDEXED (REG 1) 0) 0 7)) L1179: 0 byte(7)62,0 1 ; (!*ENTRY TERMINALINPUTHANDLER EXPR 1) L1180: intern L1180 ADJSP 15,3 MOVEM 1,0(15) HRRZI 12,393 HRRZI 13,1 PUSHJ 15,SYMFNC+393 MOVE 6,0(15) MOVE 7,0(15) MOVE 6,L1114(6) CAML 6,L1113(7) JRST L1181 LDB 11,L1176 CAIE 11,4 JRST L1182 MOVE 1,SYMVAL+398 JRST L1183 L1182: MOVE 1,L1177 L1183: MOVE 2,1 MOVE 1,SYMVAL+388 HRRZI 12,397 HRRZI 13,2 PUSHJ 15,SYMFNC+397 MOVE 2,0(15) ADD 2,SYMVAL+390 MOVE 2,1(2) MOVE 1,0(15) MOVE 1,L1112(1) HRRZI 12,353 HRRZI 13,2 PUSHJ 15,SYMFNC+353 MOVEM 1,-2(15) MOVE 7,0(15) MOVEM 1,L1114(7) MOVE 7,0(15) SETZM L1113(7) L1181: MOVE 2,0(15) MOVE 2,L1113(2) MOVE 3,0(15) ADD 3,SYMVAL+390 MOVE 1,1(3) AOS 1 HRRZI 12,147 HRRZI 13,2 ADJBP 2,L1178 LDB 1,2 MOVEM 1,-1(15) MOVE 1,0(15) MOVE 1,L1113(1) AOS 1 MOVE 7,0(15) MOVEM 1,L1113(7) CAMN 0,SYMVAL+379 JRST L1184 MOVE 1,-1(15) HRRZI 12,153 HRRZI 13,1 PUSHJ 15,SYMFNC+153 L1184: MOVE 1,-1(15) ADJSP 15,-3 POPJ 15,0 L1176: point 5,<SYMVAL+398>,4 L1178: point 7,0(1),6 L1177: <4_31>+L1179 end