/
/ feof.
/

	.globl	feof

/
/ feof(ioptr);
/ FILE *ioptr;
/

feof:
	jsr	r0,__csav
	mov	12(r5),r4

	clr	r0
	bit	$VF_EOR,(r4)
	beq	0f
	inc	r0

0:
	jmp	__cret
