RMSCON.PAS/-AU=
{$E+ External procedure}
{$C
	.TITLE	RMSCON
	.IDENT	"791108"
}
TYPE
@RMSTYPE.PAS
@RAB.PAS
PROCEDURE rmscon(VAR rab : rabrec);
{
}
BEGIN { rms connect }
  rab.bid := chr(1B);		{ Set buffer identification field }
  rab.bln := chr(120B);		{ Set rab length field }
  rab.rfa.low := 0;		{ set rfa to 0 }
  rab.rfa.middle := 0;
  rab.rfa.high := 0;
  {$C
    .mcall $connect
    mov rab(sp), r0		; Fetch rab address
    $connect r0			; Connect to the file
  }
END; { rms connect }
/
