RMSREW.PAS/-AU=
{$E+ External procedure}
{$C
	.TITLE	RMSREW
	.IDENT	"791108"
}
TYPE
@RMSTYPE.PAS
@RAB.PAS
PROCEDURE rmsrewind(VAR rab : rabrec);
{
}
BEGIN { rms rewind }
  {$C
    .mcall $rewind
    mov rab(sp), r0		; Fetch rab address
    $rewind r0			; Rewind the access stream
  }
END; { rms rewind }
/
