/ / ftty. / .globl ftty / / ftty(ioptr); / FILE *ioptr; / ftty: jsr r0,__csav mov 12(r5),r4 clr r0 bit $VF_TTY,V_FLAG(r4) beq 0f inc r0 0: jmp __cret