.TITLE	SKIPFL
.SBTTL	RSX11M ROLLIN
.PSECT	IMPURE,D,LCL,OVR
;								;
;	         SYSTEM MACRO DEFINITIONS			;
;								;
	.MCALL	QIOW$S
;								;
;			DATA					;	
;								;	
.NLIST	BEX
ERM1:	.ASCII	/ERROR WHILE SKIPPING FILES/
ERM1S	=<.-ERM1>
	.EVEN
ERM2:	.ASCII	/END-OF-TAPE ERROR WHEN SKIPPING FILES/
ERM2S	=<.-ERM2>
	.EVEN
.LIST	BEX
.PSECT
;								;
;			PROGRAM PROPER				;	
;								;
;			  R0=POINTS TO FDB			;	
;								;
SKIPFL::CALL	$SAVAL			;SAVE REGISTERS
	MOV	#OUTFDB,R0
        MOVB	F.LUN(R0),R4		;LUN TO R4
	MOV	F.BKST(R0),R5		;I/O STATUS TO R5			
	ADD	#F.FNB,R0		;POINT TO FILENAME BLOCK
	CMP	N.DVNM(R0),#"MT		;IS DEVICE MAG TAPE
	BNE	EXIT			;NO, EXIT
	QIOW$S	#IO.SPF,R4,R4,,R5,,<SKIP>;QIO SKIP FILES
	CMPB	#IS.SUC,(R5)		;WAS IT A SUCCESS
	BEQ	EXIT			;YES, EXIT
	CMPB	#IE.EOT,(R5)		;END-OF-TAPE ERROR	
	BEQ	ERROR			;YES 
	QIOW$S	#IO.WVB,#TTYLUN,,,,,<#ERM1,#ERM1S,#60>
	JMP	RSTART			;END PROGRAM
ERROR:	QIOW$S	#IO.WVB,#TTYLUN,,,,,<#ERM2,#ERM2S,#60>	
	JMP	RSTART			;END PROGRAM
EXIT:	RETURN				;RETURN TO MAIN PROGRAM
	.END