-- PackHeap.mesa  Last edited by Lewis on 30-Dec-80 12:05:02

DIRECTORY
  Segments USING [Address],
  Strings USING [String];
  
PackHeap: DEFINITIONS =
  BEGIN
  
  GetSpace: PROC [nWords: CARDINAL] RETURNS [p: Segments.Address];
  FreeSpace: PROC [p: Segments.Address];

  GetString: PROC [nChars: CARDINAL] RETURNS [s: Strings.String];
  FreeString: PROC [s: Strings.String];

  Initialize, Finalize: PROC;
  
  END.