-- What.mesa
-- last edited by Taft: May 16, 1983 3:39 PM

DIRECTORY
displayCommon,
dsD: FROM "DisplayDefs",
IODefs,
SegmentDefs;

What: PROGRAM
IMPORTS disC: displayCommon, dsD, IODefs, SegmentDefs =
BEGIN OPEN IODefs, SegmentDefs;

Main: PROCEDURE =
BEGIN
WriteBool: PROCEDURE [b: BOOLEAN] =
{WriteString[IF b THEN "TRUE"L ELSE "FALSE"L]};
altoTypes: ARRAY MachineType OF STRING = [
unknown0: "unknown0"L,
AltoI: "AltoI"L,
AltoII: "AltoII"L,
AltoIIXM: "AltoIIXM"L,
D0: "D0"L,
Dorado: "Dorado"L,
unknown6: "unknown6"L,
unknown7: "unknown7"L];
controlStoreTypes: ARRAY ControlStoreType OF STRING = [
Ram0: "Ram0"L,
RamandRom: "RamandRom"L,
Ram3k: "Ram3k"L,
unknown: "unknown"L];
machineFlavors: ARRAY dsD.MachineFlavor OF STRING = [
alto: "alto"L,
xmesa5: "xmesa5"L,
dmachine: "dmachine"L];
WriteString["memConfig = [AltoType: "L];
WriteString[altoTypes[memConfig.AltoType]];
WriteString[", xmMicroCode: "L];
WriteBool[memConfig.xmMicroCode];
WriteString[", useXM: "L];
WriteBool[memConfig.useXM];
WriteString[", controlStore: "L];
WriteString[controlStoreTypes[memConfig.controlStore]];
WriteString[", banks: "L];
WriteOctal[memConfig.banks];
WriteString[", mesaMicrocodeVersion: "];
WriteDecimal[memConfig.mesaMicrocodeVersion];
WriteLine["];"L];
WriteString["disC.bitmapInMDS = "L];
WriteBool[disC.bitmapInMDS];
WriteString["; dsD.machineFlavor = "L];
WriteString[machineFlavors[dsD.machineFlavor]];
WriteLine[";"L];
END;

Main[];

END.