<> <> <> DIRECTORY BootStartList USING [Base, Initialize], DebuggerSwap USING [ CallDebugger, Catcher, Initialize, StartSwatWatcher, WorryCallDebugger], GermSwap USING [GetPStartListHeader, Switch, switches], KeyboardFace USING [DownUp, keyboard], Keys USING [KeyBits, KeyName], MesaRuntimeInit USING [ FrameImpl, InstructionsImpl, ProcessImpl, SignalsImpl, Start, TrapsImpl], MPCodes USING [ incorrectMachineType, incorrectMicrocode, initializationStarted, mesaRuntimeInitialized], PrincOps USING [NullFrame, VersionResult], PrincOpsUtils USING [SetReturnFrame, VERSION, WordsForPages, WriteWDC, WriteXTS], Process USING [priorityNormal, SetPriority], ProcessorFace USING [Go, InitializeCleanup, millisecondsPerTick, reservedNakedNotifyMask, SetMP], RuntimeError USING [RegisterUncaughtSignalHandler], SystemVersion USING [Date, MachineType, ReleaseNumber]; Wart: PROGRAM IMPORTS BootStartList, DebuggerSwap, GermSwap, KeyboardFace, MesaRuntimeInit, PrincOpsUtils, Process, ProcessorFace, RuntimeError EXPORTS SystemVersion = BEGIN <<>> <<>> <> <<>> machineType: PUBLIC SystemVersion.MachineType; uCodeDate: PUBLIC SystemVersion.Date; uCodeVersion: PUBLIC CARDINAL; uCodeFloatingPoint: PUBLIC BOOL; uCodeCedar: PUBLIC BOOL; release: PUBLIC SystemVersion.ReleaseNumber; bootFileDate: PUBLIC SystemVersion.Date; InitializeBootFile: PROC = { h: BootStartList.Base; <> ProcessorFace.SetMP[MPCodes.initializationStarted]; <> DebuggerSwap.Initialize[]; h _ GermSwap.GetPStartListHeader[]; -- get it while it's still valid (i.e., before first world swap)! <> IF GermSwap.switches[zero] THEN DebuggerSwap.WorryCallDebugger["Key Stop 0"L]; <> MesaRuntimeInit.Start[LOOPHOLE[MesaRuntimeInit.TrapsImpl]]; <> START MesaRuntimeInit.InstructionsImpl[]; -- goes away in Trinity <> <> ProcessorFace.Go[]; ProcessorFace.InitializeCleanup[]; <> CheckVersions[h]; <> START MesaRuntimeInit.ProcessImpl[ pdaWords: PrincOpsUtils.WordsForPages[h.pdaPages], svCounts: @h.stateVectorCounts, wordsPerSV: h.stateVectorSize, reservedNakedNotifyMask: ProcessorFace.reservedNakedNotifyMask, millisecondsPerTick: ProcessorFace.millisecondsPerTick ]; DebuggerSwap.StartSwatWatcher[enabled: GermSwap.switches[i]]; <> START MesaRuntimeInit.FrameImpl[]; START MesaRuntimeInit.SignalsImpl[]; [] _ RuntimeError.RegisterUncaughtSignalHandler[DebuggerSwap.Catcher]; <> Process.SetPriority[Process.priorityNormal]; ProcessorFace.SetMP[MPCodes.mesaRuntimeInitialized]; IF GermSwap.switches[one] THEN DebuggerSwap.CallDebugger["Key Stop 1"L]; BootStartList.Initialize[h]; LookForKeyboardKeys[]; <> MesaRuntimeInit.Start[h.controlList]; }; LookForKeyboardKeys: PROC = BEGIN pKeys: LONG POINTER TO Keys.KeyBits = LOOPHOLE[KeyboardFace.keyboard]; keyNames: ARRAY GermSwap.Switch[a..z] OF Keys.KeyName = [ -- "Space" => ignore a: A, b: B, c: C, d: D, e: E, f: F, g: G, h: H, i: Space, j: J, k: K, l: L, m: M, n: N, o: O, p: P, q: Q, r: R, s: S, t: T, u: U, v: V, w: W, x: X, y: Y, z: Z ]; FOR sw: GermSwap.Switch IN GermSwap.Switch[a..z] DO IF keyNames[sw] # Space AND pKeys[keyNames[sw]] = down THEN GermSwap.switches[sw] _ TRUE; ENDLOOP; END; CheckVersions: PROC [h: BootStartList.Base] = INLINE { DaysToSeconds: PROC [d: CARDINAL] RETURNS [SystemVersion.Date] = INLINE { RETURN [d.LONG*60*60*24] }; info: PrincOps.VersionResult = PrincOpsUtils.VERSION[]; IF ~(info.machineType IN SystemVersion.MachineType) THEN {ProcessorFace.SetMP[MPCodes.incorrectMachineType]; DO ENDLOOP}; machineType _ info.machineType; IF (uCodeDate _ DaysToSeconds[info.releaseDate]) < h.requiredUCode[machineType] THEN {ProcessorFace.SetMP[MPCodes.incorrectMicrocode]; DO ENDLOOP}; uCodeVersion _ info.majorVersion; uCodeFloatingPoint _ info.floatingPoint; uCodeCedar _ info.cedar; release _ h.release; bootFileDate _ h.buildDate; }; <<>> <

> PrincOpsUtils.WriteWDC[1]; PrincOpsUtils.WriteXTS[off]; PrincOpsUtils.SetReturnFrame[PrincOps.NullFrame]; -- for Detach in MesaRuntime initialization InitializeBootFile[]; END.