<> <> <> <> <> <<>> <> DeviceCleanup: DEFINITIONS = BEGIN <> <<>> <] = {>> <> <> <<>> <<>> <> <> <> <> < ;>> < ;>> < ;>> < ;>> < NULL >> <> <<};>> <<>> 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) }; Item: TYPE [2]; Linkage: PRIVATE TYPE = RECORD [ Await: PROC [POINTER TO Item] RETURNS [Reason], Perform: PROC [Reason] ]; linkage: PRIVATE Linkage; Await: PROC [pItem: POINTER TO Item] RETURNS [Reason] = INLINE { RETURN[linkage.Await[pItem]] }; <> <<>> Perform: PROC [reason: Reason] = INLINE { linkage.Perform[reason] }; <> <> InitializeDeviceCleanup: PRIVATE PROC; -- called early on from DebugNub END.