File psl-1983/20-tests/sub7.mac artifact c9bf2f8e14 part of check-in 3af273af29


	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


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]