.TITLE	FEOF
;  IRET = FEOF(LUN)    POSITION FILE TO EOF
;
;
FEOF::
	MOV	@2(R5),R2		;GET LUN
	MOV	@#$OTSV,R3		;ADDRESS WORK AREA
	CALL	$FCHNL			;FFDB ADDRESS IN R0
;	BCS	ERRORA
	ADD	#14,R0			;ADDRESS FCS FDB
	MOV	F.EFBK(R0),R1		;HIGH ORDER BLOCK NUMBER
	MOV	F.EFBK+2(R0),R2		;LOW
	MOV	F.FFBY(R0),R3		;NEXT BYTE
	CALL	.POINT			;POINT TO EOF
	RTS	PC
;
	.END