PRT.MAC;2/AU=PRT.MAC;1
-2,,/;DBC001/
	.IDENT	/08.04X/
-52
;	D.CURTIS	16-DEC-78
;		DBC001	--REMOVED INITAL MULTIPLE FORM FEEDS
;
-101
;
; TEMP STORAGE FOR CARRAGE CONTROLL FOR FIRST LINE
;
SAVCC:	.BLKW	1

-171,171
	MOV	$QIOCC,SAVCC	;SAVE CURRENT CARRAGE CONTROL
	CLR	$QIOCC		;FORCE NO CARRAGE CONTROLL
	CALL	PRTINF		;READ FIRST LINE AND PRINT IT
	MOV	SAVCC,$QIOCC	;RESTORE CARRAGE CONTROLL
-252
	.ENABL	LSB
;
; FIRST TIME CODE TO REMOVE MULTIPLE FORM FEEDS
;
PRTINF:	GET$S	R0,(R3)+	;GET NEXT INPUT RECORD
	BCS	101$		;NOT OK TAKE NORMAL EXIT
	CMPB	#14,@F.NRBD+2(R0) ;CHECK IF FIRST RECORD IS A FORM FEED
	BNE	100$		;NO SO CONTINUE AS NORMAL
	CLRB	@F.NRBD+2(R0)	;CLEAR OUT THE FORM FEED
	BR	1$		;CONTINUE ON AS NORMAL

100$:	MOV	SAVCC,$QIOCC	;FF NOT FIRST CHAR SO RESTORE CC
	BR	1$


-260,260
101$:	CMPB	F.ERR(R0),#IE.RBG ;ERROR - RECORD TOO BIG?
-299
	.DSABL	LSB
/