.TITLE	DBKCF
	.IDENT	/VS01.0/
;
FDBOF	=	14
;
	.GLOBL	.TRNCL
	.GLOBL	S.FDB
;
DBKCFN:	.RAD50	/DBKCF /
;
;
DBKCF::
	CALL	$SAVAL
	MOV	#DBKCFN,R0
	MOV	(R0)+,R4
	MOV	(R0)+,-(SP)
	JSR	R4,NAM$			; TRACE-BACK CHAIN
;
	MOV	@2(R5),R2
	MOV	@#$OTSV,R3
	CALL	$FCHNL			; GET FFDB ADDR
	ADD	#FDBOF,R0		; POINT TO FDB
;
;	TRUNCATE AND CLOSE
;
	CALL	.TRNCL
;
;	ZERO FDB
;
	SUB	#FDBOF,R0		; START OF FDB
	MOV	#<FDBOF+S.FDB>/2,R1	; # WORDS TO CLEAR
;
30$:
	CLR	(R0)+
	SOB	R1,30$
;
	RETURN
	.END