<<-- Cedar Nucleus: device on/off across germ swaps>> <<-- DeviceCleanup.mesa>> <<-- Andrew Birrell May 25, 1983 6:18 pm>> <<>> DeviceCleanup: DEFINITIONS = BEGIN Reason: TYPE = MACHINE DEPENDENT { turnOff(0) , -- stop fetches to memory other than to controller status block turnOn, -- inverse of turnOff disconnect, -- release resources e.g. special real memory in preparation for booting new system kill, -- prepare for demise of controller microcode (255) }; Await: PROCEDURE [pItem: POINTER TO Item] RETURNS [Reason] = INLINE { RETURN[linkage.Await[pItem]] }; <> <<>> <] =>> <> <> <> <<>> <<>> <> <> <> <> < ;>> < ;>> < ;>> < ;>> < NULL >> <> <> Item: TYPE [2]; Perform: PROCEDURE [reason: Reason] = INLINE { linkage.Perform[reason] }; <> <> Linkage: PRIVATE TYPE = RECORD [ Await: PROCEDURE [POINTER TO Item] RETURNS [Reason], Perform: PROCEDURE [Reason] ]; linkage: PRIVATE Linkage; InitializeDeviceCleanup: PRIVATE PROC; -- called early on from DebugNub END.