RMSOPE.PAS/-AU=
{$E+ External procedure}
{$C
	.TITLE	RMSOPE
	.IDENT	"791107"
}
TYPE
@RMSTYPE.PAS
@FAB.PAS
rmsfilename	=	array [1..18] of char ;
PROCEDURE rmsope(VAR fab : fabrec);
{
	Open an indexed file for I/O.  The following FAB fields should be
	initialized previous to opening:

		deq, dna, dns, fac, fna, fns, fop
		lch, nam, rtv, shr, xab

	The following fields are returned by the open operation:

		alq, bks, deq, bls, dev, fop, fsz, ifi, mrn
		mrs, org, rat, rfm, sts, stv
}
VAR
  I	: integer ;
BEGIN { rms open }
  fab.bid := chr(3B);		{ Set buffer identification field }
  fab.bln := chr(120B);		{ Set rab length field }
  fab.bpa := 0;			{ Set buffer pool for GSA routine }
  {$C
    .mcall $open
    mov fab(sp), r0		; Fetch fab address
    $open r0			; Open the file
  }
END; { rms open }
/
