File psl-1983/3-1/kernel/20/sysio.mac from the latest check-in


	search monsym,macsym
	radix 10
	extern SYMNAM
	extern SYMVAL
	extern SYMFNC
	extern SYMPRP
	extern L0001
	extern L0002
	extern L0003
	extern L2260
	extern L2253
	extern L2254
	extern L2255
L3497:	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)
L3498:	intern L3498
 MOVE 1,L2260(1)
L3499: BIN
 ERJMP L3500
 JUMPE 2,L3499
 CAIN 2,13
 JRST L3499
 MOVE 1,2
 CAMN 0,SYMVAL+793
 POPJ 15,0
 PUSH 15,1
 PUSHJ 15,SYMFNC+467
 POP 15,1
 POPJ 15,0
L3500: GTSTS
 TLNN 2,512
 JRST L3501
 HRRZI 1,26
 POPJ 15,0
L3501: MOVE 1,L3496
 JRST SYMFNC+507
L3496:	<4_30>+<1_18>+L3497
	2
; (!*ENTRY DEC20WRITECHAR EXPR 2)
L3502:	intern L3502
 MOVE 1,L2260(1)
 CAIN 2,10
 JRST L3503
 BOUT
 POPJ 15,0
L3503: HRRZI 2,13
 BOUT
 HRRZI 2,10
 BOUT
 POPJ 15,0
	extern L3504
	extern L3505
; (!*ENTRY CLEARIO1 EXPR 0)
L3506:	intern L3506
 HRRZI 1,64
 RFMOD
 TRO 2,63552
 SFMOD
 POPJ 15,0
	0
; (!*ENTRY CLEARIO EXPR 0)
L3507:	intern L3507
 PUSHJ 15,L3506
 SETOM L3505
 SETZM L3504
 MOVE 6,SYMVAL+616
 MOVEM 6,SYMVAL+600
 MOVE 1,SYMVAL+618
 MOVEM 1,SYMVAL+311
 POPJ 15,0
L3509:	23
	byte(7)67,97,110,39,116,32,114,101,97,100,32,102,114,111,109,32,116,101,114,109,105,110,97,108,0
; (!*ENTRY RDTTY EXPR 3)
RDTTY:	intern RDTTY
 DMOVE 6,1
 HRRZI 1,65
 RFMOD
 TLZE 2,131072
 SFMOD
 DMOVE 1,6
 MOVE 4,2
 AOS 1
 TLZ 1,258048
 TLO 1,200704
 AOS 3
 TLZ 3,258048
 TLO 3,200704
 MOVE 5,1
 MOVE 1,3
 PSOUT
 MOVE 1,5
 HRLI 2,24576
 JSYS 339
 JRST L3510
 MOVE 1,4
 HRRZS 2
 SUB 1,2
 POPJ 15,0
L3510: MOVE 1,L3508
 JRST SYMFNC+507
L3508:	<4_30>+<1_18>+L3509
L3516:	0
	byte(7)62,0
	1
; (!*ENTRY TERMINALINPUTHANDLER EXPR 1)
L3517:	intern L3517
 PUSH 15,0
 PUSH 15,1
L3518: MOVE 6,L3505
 LDB 1,L3511
 TDNE 1,L3512
 TDO 1,L3513
 CAMLE 1,L3504
 JRST L3519
 SETZM L3504
 LDB 11,L3514
 CAIE 11,4
 JRST L3520
 MOVE 1,SYMVAL+442
 JRST L3521
L3520: MOVE 1,L3515
L3521: MOVE 3,1
 HRRZI 2,200
 XMOVEI 1,L3505
 PUSHJ 15,RDTTY
 MOVEM 1,L3505
 JRST L3518
L3519: MOVE 2,L3504
 XMOVEI 1,1+L3505
 TLO 1,204800
 ADJBP 2,1
 LDB 1,2
 MOVEM 1,-1(15)
 AOS L3504
 ADJSP 15,-2
 POPJ 15,0
L3511:	point 30,6,35
L3512:	536870912
L3513:	-536870912
L3514:	point 6,<SYMVAL+442>,5
L3515:	<4_30>+<1_18>+L3516
L3524:	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
; (!*ENTRY FINDFREECHANNEL EXPR 0)
L3525:	intern L3525
 PUSH 15,L3522
L3526: MOVE 7,0(15)
 SKIPN L2260(7)
 JRST L3527
 MOVE 6,0(15)
 CAIGE 6,31
 JRST L3528
 MOVE 1,L3523
 PUSHJ 15,SYMFNC+507
L3528: AOS 0(15)
 JRST L3526
L3527: MOVE 1,0(15)
 ADJSP 15,-1
 POPJ 15,0
L3522:	0
L3523:	<4_30>+<1_18>+L3524
	1
; (!*ENTRY SYSTEMMARKASCLOSEDCHANNEL EXPR 1)
L3529:	intern L3529
 SETZM L2260(1)
 SETZM 1
 POPJ 15,0
L3531:	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 DEC20CLOSECHANNEL EXPR 1)
L3532:	intern L3532
 MOVE 2,1
 MOVE 1,L2260(1)
 CLOSF
 JRST L3533
 POPJ 15,0
L3533: MOVE 1,L3530
 JRST SYMFNC+503
L3530:	<4_30>+<1_18>+L3531
	1
; (!*ENTRY SYSTEMOPENFILESPECIAL EXPR 1)
L3534:	intern L3534
 PUSHJ 15,L3525
 MOVE 3,1
 SETOM L2260(3)
 MOVE 1,3
 POPJ 15,0
	1
; (!*ENTRY SYSTEMOPENFILEFORINPUT EXPR 1)
L3538:	intern L3538
 ADJSP 15,3
 MOVEM 1,0(15)
 PUSHJ 15,L3525
 MOVEM 1,-1(15)
 MOVE 3,[7516258304]
 MOVE 2,[8590196736]
 MOVE 1,0(15)
 PUSHJ 15,L3539
 MOVEM 1,-2(15)
 JUMPN 1,L3540
 MOVE 2,L3535
 MOVE 1,0(15)
 ADJSP 15,-3
 JRST L3541
L3540: MOVE 7,-1(15)
 MOVEM 1,L2260(7)
 MOVE 7,-1(15)
 MOVE 6,L3536
 MOVEM 6,L2253(7)
 MOVE 7,-1(15)
 MOVE 6,L3537
 MOVEM 6,L2255(7)
 MOVE 1,-1(15)
 ADJSP 15,-3
 POPJ 15,0
L3537:	<30_30>+795
L3536:	<30_30>+792
L3535:	<30_30>+612
	1
; (!*ENTRY SYSTEMOPENFILEFOROUTPUT EXPR 1)
L3545:	intern L3545
 ADJSP 15,3
 MOVEM 1,0(15)
 PUSHJ 15,L3525
 MOVEM 1,-1(15)
 MOVE 3,[7516225536]
 MOVE 2,[-17179607040]
 MOVE 1,0(15)
 PUSHJ 15,L3539
 MOVEM 1,-2(15)
 JUMPN 1,L3546
 MOVE 2,L3542
 MOVE 1,0(15)
 ADJSP 15,-3
 JRST L3541
L3546: MOVE 7,-1(15)
 MOVEM 1,L2260(7)
 MOVE 7,-1(15)
 MOVE 6,L3543
 MOVEM 6,L2254(7)
 MOVE 7,-1(15)
 MOVE 6,L3544
 MOVEM 6,L2255(7)
 MOVE 1,-1(15)
 ADJSP 15,-3
 POPJ 15,0
L3544:	<30_30>+795
L3543:	<30_30>+593
L3542:	<30_30>+611
; (!*ENTRY DEC20OPEN EXPR 3)
L3539:	intern L3539
 AOS 1
 TLZ 1,258048
 TLO 1,200704
 MOVE 4,1
 MOVE 1,2
 MOVE 2,4
 GTJFN
 JRST L3547
 MOVE 2,3
 OPENF
L3547: SETZM 1
 POPJ 15,0
L3550:	25
	byte(7)96,37,115,39,32,99,97,110,110,111,116,32,98,101,32,111,112,101,110,32,102,111,114,32,37,119,0
; (!*ENTRY CONTOPENERROR EXPR 2)
L3541:	intern L3541
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVE 3,2
 MOVE 2,1
 MOVE 1,L3548
 PUSHJ 15,SYMFNC+155
 MOVEM 1,-2(15)
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+234
 MOVE 3,1
 MOVE 2,0(15)
 TLZ 2,258048
 TLO 2,16384
 MOVE 1,L3549
 PUSHJ 15,SYMFNC+235
 MOVE 3,1
 MOVE 2,-2(15)
 HRRZI 1,99
 ADJSP 15,-3
 JRST SYMFNC+236
L3549:	<30_30>+603
L3548:	<4_30>+<1_18>+L3550
	end


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