;	FORTRAN CALLABLE ROUTINE TO DELETE
;	AN OPENED FILE
;	CALL LUNDLT(LUN,ISTAT,IFCS)
;	WHERE LUN = LOGICAL UNIT NUMBER OF FILE
;	      ISTAT = 0 IF DELETION HAS BEEN SUCCESSFUL
;		    = 1 IF ERROR HAS OCCURRED
;	       IFCS = ERROR NUMBER IF ISTAT = 1
	.TITLE LUNDLT
	.GLOBL LUNDLT
	.CSECT
LUNDLT:	MOV	@2(R5),R2	;LUN IN R2
	MOV	@#$OTSV,R3	;ADDRESS OF $OTSVA IN R3
	JSR	PC,$FCHNL	;FOR CALL TO FIND CHANNEL
	MOV	R0,R1		;COPY ADDRESS OF CHANNEL
	ADD	#14,R0		;SKIP FOR'S SIX CONTROL WORDS
	JSR	PC,.DELET	;AND GO DELETE
	BCC	OK
	MOV	#1,@4(R5)	;ERROR IN DELETION
	MOVB	F.ERR(R1),R2
	MOV	R2,@6(R5)
	RTS	PC
OK:	CLR	@4(R5)		;INDICATE SUCCESS
	MOV	#66,R0		;WORD COUNT OF WHOLE CHANNEL
1$:	CLR	(R1)+		;CLEAR OUT THE WHOLE
	SOB	R0,1$		;CHANNEL BLOCK
	RTS	 PC
	.END