RNFIO.MAC/AU/-BF=RNFIO.OLD
\
-32
; SIG MODIFICATION
;	SIG01		CHANGE DEVICE FOR WAIT TO TI
;	SIG02		INCORPORATE RSTS CHANGES
-37,54

	.MCALL 	GET$S,PUT$S

;+
-102,140

OUTPUT::MOV	HFOUT,LSTBLK+F.NRBD ;CALCULATE LENGTH OF LINE TO OUTPUT
	SUB	HFOUT+4,LSTBLK+F.NRBD ;
	BEQ	OUT3		;IF EQ EMPTY BUFFER
	CMP	PAGENO,LOWPAG	;ONLY PRINT IN THE SELECTED PAGE
	BLO	OUT1		;RANGE
	CMP	PAGENO,HGHPAG
	BHI	OUT2		;QUIT IF BEYOND RANGE
	PUT$S	#LSTBLK,#OUBUF	;OUTPUT LINE
	BCS	WRERR3		;IF CS ERROR
-152,153

WRERR3: CALL	$ERMSG
-159,160

;
-182,183
TTC4N:: GET$S	#TTBLK		;GET A RECORD
	CLR	TTBLK+F.NRBD	;MAKE LINE EMPTY
	RETURN			;
/