DIRECTORY Dragon; IFUPLAPass: CEDAR DEFINITIONS = BEGIN LtDrPadIO: TYPE = RECORD [ -- default must be zero iPReject: BOOL _ FALSE, -- B => BA iPFaulting: BOOL _ FALSE, -- B => BA newFetch: BOOL _ FALSE, -- BAA <= BA reset: BOOL _ FALSE, -- AB => BA reschedule: BOOL _ FALSE ]; -- AB => BA RtDrPadIO: TYPE = RECORD [ -- default must be zero dPReject: BOOL _ FALSE, -- BA <= B dual dPFault: Dragon.PBusFaults _ none, -- BA <= B dPFaultCode: PBusFaultCode _ memAccess, -- BA => BAA dPFaultCodeD: PBusFaultCode _ memAccess, -- AB <= BAA dPCmnd3: Dragon.PBusCommands _ NoOp, -- BA => BAA userMode2: BOOL _ FALSE, -- BA => BAA eUAluOp2: Dragon.ALUOps _ Or, -- AB => ABB eUCondSel2: Dragon.CondSelects _ False, -- AB => ABB eUCondition2: BOOL _ FALSE, -- BA <= B eUWriteToPBus3: BOOL _ FALSE, -- AB => ABB eURdFromPBus3: BOOL _ FALSE, -- AB => ABB K0PadsIn4: BOOL _ FALSE, -- Ac <= BA K1PadsIn4: BOOL _ FALSE, -- Ac <= BA K0PadsOut3: BOOL _ FALSE, -- BA <= BA K1PadsOut3: BOOL _ FALSE, -- BA <= BA X2ASrcLit1: BOOL _ FALSE, -- BA => BAA X2ASrcLit2: BOOL _ FALSE, -- Ac <= BAA dual debugABGD: BOOL _ FALSE, -- debugPC: BOOL _ FALSE, -- debugLSC: BOOL _ FALSE, -- debugABStLim: BOOL _ FALSE ]; -- PBusFaultCode: TYPE = MACHINE DEPENDENT { memAccess (Dragon.PBusFaults[ memAccess ].ORD MOD 8), ioAccess (Dragon.PBusFaults[ ioAccess ].ORD MOD 8), page (Dragon.PBusFaults[ page ].ORD MOD 8), write (Dragon.PBusFaults[ write ].ORD MOD 8), arithmetic (Dragon.PBusFaults[ arithmetic ].ORD MOD 8) }; END. ╩IFUPLAPass.mesa Copyright c 1984 by Xerox Corporation. All rights reserved. McCreight, May 20, 1986 6:20:55 pm PDT Curry, June 2, 1986 11:20:14 am PDT Don Curry January 27, 1987 9:55:48 am PST Э╩ИШЪЬЩJЪЬ<Щ