-- RealMemoryImplD0.mesa
-- Last edited by McJones, February 3, 1981  4:18 PM

DIRECTORY
  Environment USING [bitsPerWord],
  RealMemory USING [];

RealMemoryImplD0: PROGRAM
  EXPORTS RealMemory =
BEGIN OPEN Environment;

maxD0RealPages: CARDINAL = 4096;

allocMap: PUBLIC DESCRIPTOR FOR ARRAY OF WORD ← DESCRIPTOR[allocMapArray];
allocMapArray:
  ARRAY [0..(maxD0RealPages + bitsPerWord - 1)/bitsPerWord) OF WORD;
  -- initial state not important

-- Initialization - does nothing but initialize array
Initialize: PUBLIC PROCEDURE = {};

MoveToDisplayMemory: PUBLIC PROCEDURE
  [proc: PROCEDURE] = {};
-- This procedure is a no-op on all processors other than the Dandelion.


END...

LOG

Time: January 15, 1981  3:13 PM	By: Gobbel
	Created file