/
/ ferr.
/

	.globl	ferr

/
/ ferr(ioptr);
/ FILE *ioptr;
/

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

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

0:
	jmp	__cret
