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