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