.TITLE	DELCK
	.IDENT	/01/
;
;	THIS WILL SELECTIVELY DELETE SPOOLED FILES
;
; INPUTS:
;
;	R0 = ADDRESS OF FDB OF FILE TO BE SPOOLED
;
; OUTPUTS:
;
;	C - BIT SET IF FILE TO BE DELETED
;	C - BIT CLEAR OTHERWISE
;
;
CHKTAB:
	.RAD50	/LST/
	.RAD50	/MAP/
	.RAD50	/PMD/
	.RAD50	/LIS/
	.RAD50	/DMP/
CHKEND:
;
$DELCK::
	MOV	R1,-(SP)	;SAVE VOLATILE REGISTERS
	MOV	R2,-(SP)
	MOV	#CHKTAB,R1	;GET START ADDRESS OF TABLE
	MOV	F.FNB+N.FTYP(R0),R2	;GET FILE EXTENSION
;
DELA10:
	CMP	(R1),R2		;EXTENSIONS THE SAME?
	BEQ	DELA20		;IF EQ YES - DELETE IT
	ADD	#2,R1		;NO - SET TO NEXT TABLE ENTRY
	CMP	R1,#CHKEND	;END OF TABLE
	BLE	DELA10		;IF LE NO - CHECK NEXT ONE
	CLC			;YES - CLEAR CARRY
	BR	DELA30		;RESTORE REGISTERS
;
DELA20:
	SEC			;SET CARRY FOR DELETION
;
DELA30:
	MOV	(SP)+,R2	;RESTORE VOLATILE REGISTERS
	MOV	(SP)+,R1	;
	RETURN			;RETURN
	.END