<> <> DIRECTORY PrincOps 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): BOOL, cedar (0: 15..15): BOOL, releaseDate (1): CARDINAL]; -- days since January 1, 1901 VERSION: PROC RETURNS [VersionResult] = MACHINE CODE {PrincOps.zMISC, 104B}; END.