RMSCLO.PAS/-AU=
{$E+ External procedure}
{$C
	.TITLE	RMSCLO
	.IDENT	"791108"
}
TYPE
@[300,47]RMSTYPE.PAS
@[300,47]FAB.PAS
PROCEDURE rmsclo(VAR fab : fabrec);
{
}
BEGIN { rms close }
  {$C
    .mcall $close
    mov fab(sp), r0		; Fetch fab address
    $close r0			; Close the file
  }
END; { rms close }
/
