.SBTTL FILE I/O
.MACRO $FB D,L
$BR L,D
MOV	$B,R3
ADD	#$D,R3
.ENDM


.MACRO FINIT PFB,BS,MS
.GLOBL P$FINT
$ZR 0
MOV	R5,R3
ADD	#PFB,R3
MOV	#MS,R0
MOV	#BS,R1
JSR	PC,P$FINT
.ENDM


.MACRO RESET PFB,LA,FNB,LB
.GLOBL P$FRST
$ZR 0
$FB PFB,LA
$BR LB,FNB
MOV	$B,R0
ADD	#$D,R0
JSR	PC,P$FRST
.ENDM


.MACRO REWRIT PFB,LA,FNB,LB
.GLOBL P$FREW
$ZR 0
$FB PFB,LA
$BR LB,FNB
MOV	$B,R0
ADD	#$D,R0
JSR	PC,P$FREW
.ENDM


.MACRO CLOSE PFB
.GLOBL P$FCLO
$ZR 0
MOV	R5,R3
ADD	#PFB,R3
JSR	PC,P$FCLO
.ENDM
.PAGE
.MACRO GET D,L,S
.GLOBL P$FGET
.IIF NB,S,LOADI S
$XR 1
$FB D,L
JSR	PC,P$FGET
$FR 0
.ENDM


.MACRO PUT D,L,S
.GLOBL P$FPUT
.IIF NB,S,LOADI S
$XR 1
$FB D,L
JSR	PC,P$FPUT
$FR 0
.ENDM


.MACRO READC F,L
.GLOBL P$FRDC
$ZR 0
$FB F,L
JSR	PC,P$FRDC
$GR
.ENDM


.MACRO WRITEC F,L
.GLOBL P$FWRC
$XR 1
$FB F,L
JSR	PC,P$FWRC
$FR 0
.ENDM


.MACRO WRITES F,L
.GLOBL P$FWRS
$XR 2
$FB F,L
JSR	PC,P$FWRS
$FR 0
$FR 0
.ENDM


.MACRO WRITEI F,L
.GLOBL P$FWRI
$XR 2
$FB F,L
JSR	PC,P$FWRI
$FR 0
$FR 0
.ENDM


.MACRO WRITEJ F,L
.GLOBL P$FWRJ
$XR 1
$FB F,L
JSR	PC,P$FWRJ
$FR 0
.ENDM


.MACRO WRITEO F,L
.GLOBL P$FWRO
$XR 1
$FB F,L
JSR	PC,P$FWRO
$FR 0
.ENDM
.END