-- File: MachineIDDefs.Mesa, Last Edit: HGM February 17, 1979 8:52 PM MachineIDDefs: DEFINITIONS = BEGIN -- COPIED FROM SystemInternal to avoid recompilation problems GetMyMachineID: PROCEDURE RETURNS [MachineID]; MachineID, ProcessorID: TYPE = PRIVATE MACHINE DEPENDENT RECORD [ element: ElementType, series: CARDINAL]; SeriesType: TYPE = {altoFP, ethernet, ois}; ElementType: TYPE = RECORD [ SELECT COMPUTED SeriesType FROM ethernet => [net: [0..256), host: [0..256)], -- series = ethernetSeries ois => [CARDINAL], -- series IN OISProcessorSeries ENDCASE]; OISProcessorSeries: TYPE = [0..177775B]; ethernetSeries: CARDINAL = 177776B; altoFPSeries: CARDINAL = 177777B; END.