-- Copyright (C) 1983  by Xerox Corporation. All rights reserved. 
-- PhoneyResidentMemory.mesa, HGM,  8-Oct-83 23:23:22

DIRECTORY
  Environment USING [PageCount],
  Inline USING [LowHalf],
  ResidentMemory USING [AllocateInternal, Location],
  CommUtil USING [AllocateBuffers];

PhoneyResidentMemory: PROGRAM
  IMPORTS CommUtil, Inline
  EXPORTS ResidentMemory
  SHARES ResidentMemory =
  BEGIN

  residentMemoryLock: PUBLIC MONITORLOCK;
  allocateInternal: PUBLIC ResidentMemory.AllocateInternal ¬ [Alloc];
  
  Alloc: PROCEDURE [location: ResidentMemory.Location, count: Environment.PageCount]
      RETURNS [lp: LONG POINTER TO UNSPECIFIED] =
      BEGIN RETURN[CommUtil.AllocateBuffers[Inline.LowHalf[count]]]; END;

  END.