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