-- RealMemoryImplDorado.mesa
-- Last edited by Taft, April 6, 1981  4:45 PM

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

RealMemoryImplDorado: PROGRAM
  EXPORTS RealMemory =
BEGIN OPEN Environment;

maxDoradoRealPages: CARDINAL = 4096;

allocMap: PUBLIC DESCRIPTOR FOR ARRAY OF WORD ← DESCRIPTOR[allocMapArray];
allocMapArray:
  ARRAY [0..(maxDoradoRealPages + 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
Time: April 6, 1981  4:46 PM	By: Taft
	Convert for Dorado