/
/ PDP-11 C.
/ Standard Library.
/
/ ferr.
/

	.globl	ferr

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

ferr:
	jsr	r0,_save
	mov	12(r5),r4
	call	_ckiov

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

0:
	jmp	_ret
