/ / Frec. / .globl frec / / frec(ioptr); / FILE *ioptr; / Return 1 if record device. / frec: clr r0 mov 2(sp),r1 bit $VF_REC,(r1) beq 0f inc r0 0: return