-- Copyright (C) 1982, 1984  by Xerox Corporation. All rights reserved. 
-- MicrocodeVersion.mesa, HGM, 26-Sep-84 19:38:57
-- From Cedar version of 18-May-82 17:56:45 by Taft

DIRECTORY
  ESCAlpha USING [aVERSION],
  Mopcodes USING [zESC];

MicrocodeVersion: DEFINITIONS =
  BEGIN

  MachineType: TYPE = MACHINE DEPENDENT {
    altoI (1), altoII (2), altoIIXM (3), dolphin (4), dorado (5), dandelion (6),
    dicentra (7), daybreak(8), daisy(9), (17B)};

  VersionResult: TYPE = MACHINE DEPENDENT RECORD [
    machineType (0: 0..3): MachineType,
    majorVersion (0: 4..7): [0..17B],  -- incremented by incompatible changes
    unused (0: 8..13): [0..77B],
    floatingPoint (0: 14..14): BOOLEAN,
    cedar (0: 15..15): BOOLEAN,
    releaseDate (1): CARDINAL];  -- days since January 1, 1901

  VERSION: PROCEDURE RETURNS [VersionResult] = MACHINE CODE {
    Mopcodes.zESC, ESCAlpha.aVERSION};

  END.