-- MicrocodeVersion.mesa    definitions for Alto/Mesa and Rubicon Pilot
-- modified 18-May-82 17:56:45 by Taft

DIRECTORY
  Mopcodes USING [zMISC];

MicrocodeVersion: DEFINITIONS =
  BEGIN

  MachineType: TYPE = MACHINE DEPENDENT {
    altoI (1), altoII (2), altoIIXM (3), dolphin (4), dorado (5), dandelion (6),
    dicentra (7), (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.zMISC, 104B};

  END.