-- Map.mesa   Edited by Sandman on June 30, 1980  10:34 AM
-- Copyright  Xerox Corporation 1979, 1980

DIRECTORY
  MiscAlpha USING [aASSOC, aSETF],
  Mopcodes USING [zMISC];

Map: DEFINITIONS =
  BEGIN

  Flags: TYPE = MACHINE DEPENDENT RECORD [LogSE, W, D, R: BOOLEAN];

  VacantFlags: Flags = [FALSE, TRUE, TRUE, FALSE];
  WriteProtectedFlags: Flags = [FALSE, TRUE, FALSE, FALSE];
  CleanFlags: Flags = [FALSE, FALSE, FALSE, FALSE];

  Entry: TYPE = MACHINE DEPENDENT RECORD [flags: Flags, realPage: [0..7777B]];

  Vacant: Entry = [VacantFlags, 0];
  WriteProtected: Entry = [WriteProtectedFlags, 0];
  Clean: Entry = [CleanFlags, 0];

  ASSOC: PROCEDURE [CARDINAL, Entry] = MACHINE CODE
    BEGIN Mopcodes.zMISC, MiscAlpha.aASSOC END;

  SETF: PROCEDURE [CARDINAL, Entry] RETURNS [Entry] = MACHINE CODE
    BEGIN Mopcodes.zMISC, MiscAlpha.aSETF END;


  END...