PrmFRE.PAS/-AU=
{$E+ External procedure}
{$C
	.TITLE	PRMFRE
	.IDENT	"810710"
}
{
Change Status:

  DATE     BY      DESCRIPTION

}
CONST
@RMSCONST.PAS
TYPE
@RMSTYPE.PAS
@FAB.PAS
@RAB.PAS
@PRMTYPE.PAS

{ free a bucket locked by a previous PrmRet operation }
PROCEDURE PrmFre ( VAR FileBuf : RmsFileDesc ;
                   VAR Status : RmsStatus ) ;
BEGIN { rms free }
  WITH FileBuf DO
    BEGIN
    {$C
      .mcall $free
      mov FileBuf(sp), r0		; Fetch rab address
      Add #Rab, r0		; r0 <-- address of the rab in filebuf
      $free r0			; free the bucket
    }
      Status[1] := Rab.Sts ;
      Status[2] := Rab.Stv ;
    END ;	{ WITH }
END; { rms free }
/

