RNFIO.MAC/AU/-BF=RNFIO.OLD
\
-32
; SIG MODIFICATION								;**NEW**
;	SIG01		CHANGE DEVICE FOR WAIT TO TI				;**NEW**
;	SIG02		INCORPORATE RSTS CHANGES				;**NEW**
-37,54
										;SIG02
	.MCALL	GET$S,PUT$S
										;SIG02
;										;SIG02
;+										;**-17
-102,140
										;SIG02
OUTPUT::MOV	HFOUT,LSTBLK+F.NRBD ;CALCULATE LENGTH OF LINE TO OUTPUT		;SIG02
	SUB	HFOUT+4,LSTBLK+F.NRBD ;						;SIG02
	BEQ	OUT3		;IF EQ EMPTY BUFFER				;SIG02
	CMP	PAGENO,LOWPAG	;ONLY PRINT IN THE SELECTED PAGE		;**-20
	BLO	OUT1		;RANGE
	CMP	PAGENO,HGHPAG
	BHI	OUT2		;QUIT IF BEYOND RANGE
	PUT$S	#LSTBLK,#OUBUF	;OUTPUT LINE					;SIG02
	BCS	WRERR3		;IF CS ERROR					;**-14
-152,153
										;SIG02
WRERR3:	CALL	$ERMSG								;**-1
-159,160
										;SIG02
;										;**-1
-182,183
TTC4N::	GET$S	#TTBLK		;GET A RECORD					SIG01
	CLR	TTBLK+F.NRBD	;MAKE LINE EMPTY				SIG01
	RETURN			;						;**-1
/