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. JMicrocodeVersion.mesa last edited by Levin on April 8, 1983 4:48 pm Êë˜Jšœ™J™-J˜šÏk ˜ Jšœ œ ˜J˜—Jšœ œ˜J˜Jš˜J˜šœ œœ œ˜'J˜LJ˜J˜—š œœœ œœ˜0J˜#Jšœ#Ïc&˜IJ˜Jšœœ˜ Jšœœ˜Jšœœž˜:J˜—š Ïnœœœœœ˜LJ˜—šœ˜J˜——…—`•