RMSREA.PAS/-AU=
{$E+ External procedure}
{$C
	.TITLE	RMSREA
	.IDENT	"791108"
}
TYPE
@RMSTYPE.PAS
@RAB.PAS
PROCEDURE rmsrea(VAR rab : rabrec);
{
Calling program must load the following before use
  * rab.bkt.low = vbn of block boundry - low
  * rab.bkt.high = vbn of block boundry - high
  * rab.ubf = address of the user buffer to be loaded
  * rab.usz = size of the user buffer ( number of bytes to read from file )
}
BEGIN { rms read }
  {$C
    .mcall $read
    mov rab(sp), r0		; Fetch fab address
    $read r0			; Close the file
  }
END; { rms close }
/
