/
/ PDP-11 C.
/ Standard Library.
/
/ Rewind.
/

	.globl	rewind

/
/ rewind(ioptr);
/ FILE *ioptr;
/

rewind:
	jsr	r0,_save
	mov	12(r5),r4

	bit	$VF_OUT,V_FLAG(r4)
	beq	0f
	mov	$-1,r0
	br	1f

0:
	bic	$VF_EOR,V_FLAG(r4)
	bis	$VF_BAD,V_FLAG(r4)
	mov	$-1,V_UGET(r4)
	clr	V_R0(r4)
	clr	V_RBLK(r4)
	mov	$1,V_RBLK+2(r4)
	clr	V_RBYT(r4)
	clr	r0

1:
	jmp	_ret
