DIRECTORY DM, DragOpsCross, PBusModel; PBusModelImpl: CEDAR PROGRAM EXPORTS PBusModel = BEGIN OPEN PBusModel; Create: PUBLIC PROC [] RETURNS [pbus: DM.Component] = { pbus _ NEW [DM.ComponentRec _ [ action: [Reset, PhA, EvPhA, PhB, EvPhB], history: NIL, componentType: $PBus, specific: NEW [PBusWires]]] }; PhA: DM.ActionProc = { }; EvPhA: DM.ActionProc = { wires: PBusWires _ NARROW[component.specific]; component.history _ CONS[wires, component.history] }; PhB: DM.ActionProc = { }; EvPhB: DM.ActionProc = { wires: PBusWires _ NARROW[component.specific]; component.history _ CONS[wires, component.history] }; Reset: DM.ActionProc = { component.history _ NIL }; END. †PBusModelImpl.mesa Written By: Jean Vuillemin and Pradeep Sindhu Last Edited By: Pradeep Sindhu August 21, 1985 6:55:11 pm PDT Κ`˜™J™-J™=—J˜codešΟk ˜ Kšœ˜—J˜J˜šΟb œœ˜Kšœ  œ ˜)K–36 sp tabStops˜•StartOfExpansionS -- [cache: CacheModels.Cache, addr: DragOpsCross.Word, fromJump: BOOL _ FALSE] -- šΟnœœœœ˜7šœœœ˜Kšœ(˜(Kšœ œ˜ K˜Kšœ œ˜—K˜—K˜šžœ˜K˜—K˜šžœ˜Kšœœ˜.Kšœœ˜2K˜—K˜–; -- [cache: CacheModels.Cache, addr: DragOpsCross.Word] -- šžœ˜K˜K˜—–; -- [cache: CacheModels.Cache, addr: DragOpsCross.Word] -- šžœ˜Kšœœ˜.Kšœœ˜2K˜K˜—–" -- [cache: CacheModels.Cache] -- šžœ˜Kšœ˜K˜K˜—Kšœ˜K˜K˜—J˜—…—ͺ