.MCALL	FDOF$L
	.MCALL	SUPER
SUPER
FDOF$L
LUN=2
BUF=4
ERR=6
PROCEDURE NOTEOF
	MOV	@2(R5),R2 ;GET LUN PARAMETER     
	MOV	@#$OTSV,R3          ;GET WORK AREA ADDRESS                  
	JSR	PC,$FCHNL ;FIND FDB ADDRESS                                 
	ADD	#14,R0    ;GET TO RSX FDB                                   
	BIS	#8.,F.RACC(R0)
ENDPROCEDURE NOTEOF
.END