/ / 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