RMSWRI.PAS/-AU=
{$E+ External procedure}
{$C
	.TITLE	RMSWRI
	.IDENT	"791108"
}
TYPE
@RMSTYPE.PAS
@RAB.PAS
PROCEDURE rmswri(VAR rab : rabrec);
{
Calling program must load the following before use:

  * rab.bkt.low = beginning file vbn for write -high
  * rab.bkt.high= beginning file vbn for write - high
  * rab.rbf = address of the 1st byte of one or more blocks to be written
  * rab.rsz = size of data to be written as a muliple of two bytes
}
BEGIN { rms write }
  {$C
    .mcall $write
    mov rab(sp), r0		; Fetch rab address
    $write r0			; Write contents of the buffer 
  }
END; { rms write }
/
