/ / PDP-11 C. / Stdio. / / Frec. / .globl frec / / frec(ioptr); / FILE *ioptr; / Return 1 if record device. / frec: jsr r0,_save clr r0 mov 12(sp),r4 call _ckiov bit $VF_REC,(r4) beq 0f inc r0 0: jmp _ret