.TITLE	FCSCLS	(FDBADR)
	.MCALL	RETURN,.BLK.,.BLKW.,CLOSE$

	.PSECT	FCSERR,RW,D,GBL,REL,OVR
FCSERR:	.BLKW	2		; error block
	.PSECT

	.BLK.			; argument block (FTN standard)
	.BLKW.	1,ARGNUM	;
	.BLKW.	1,FDB		; address of FDB

FCSCLS::
	MOV	@FDB(R5),R0	; (R0) = [FDB]
	MOV	#FCSERR,R4	; (R4) = [FCSERR 1st word]
	CLR	(R4)+		;
	CLR	(R4)+		;
				; (R4) = [FCSERR last word] + 1word
	CLOSE$			;
	BCC	QUIT		;
	MOVB	F.ERR+1(R0),R1	; (R1) = directive status code
	MOV	R1,-(R4)	;
	MOVB	F.ERR(R0),R1	; (R1) = error code
	MOV	R1,-(R4)	;
QUIT:	RETURN			;

	.END