DIRECTORY TamarinOps USING [Inst, Word], MonkeyHeart USING [Processor]; MonkeyTweaker: CEDAR DEFINITIONS = BEGIN OpcodeHandler: TYPE = PROC [ data: REF, -- callback data processor: MonkeyHeart.Processor, -- the processor executing the instruction inst: TamarinOps.Inst, -- the instruction rest: TamarinOps.Word] -- the operand (right-justified) RETURNS [normal: BOOL _ FALSE]; -- normal => do normal opcode processing Register: PROC [inst: TamarinOps.Inst, handler: OpcodeHandler, data: REF _ NIL]; OpcodeRegistry: TYPE = REF OpcodeRegistryRep; OpcodeRegistryRep: TYPE = ARRAY TamarinOps.Inst OF OpcodeRegistryEntry; OpcodeRegistryEntry: TYPE = RECORD [handler: OpcodeHandler, data: REF]; END. ΘMonkeyTweaker.mesa Copyright c 1985, 1986 by Xerox Corporation. All rights reserved. Russ Atkinson (RRA) September 11, 1986 0:12:55 am PDT Last Edited by: Ross January 29, 1987 1:12:56 pm PST Κ)˜codešœ™Kšœ Οmœ7™BK™5K™4K™—˜šΟk ˜ Kšœ žœ˜Kšœ žœ ˜K˜——KšΟn œžœž œž˜(K˜šŸ œžœžœ˜KšœžœΟc˜Kšœ" *˜LKšœ ˜*Kšœ  ˜8Kš žœ žœžœ œ ˜H—K˜KšŸœžœ7žœžœ˜PK˜Kšœžœžœ˜-Kšœžœžœžœ˜GKšœžœžœ žœ˜GK˜Kšžœ˜K˜—…—Β³