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