DIRECTORY PLAOps; IFUPLAStackControl: CEDAR DEFINITIONS = BEGIN StackDecodeIn: TYPE = RECORD [ -- default must be zero bos: Index _ 0, tos: Index _ 0, x1ASrcStack: BOOL _ FALSE, x1ADstStack: BOOL _ FALSE, xBusStackEldest: BOOL _ FALSE, xBusStackL: BOOL _ FALSE, push3: BOOL _ FALSE, pop3: BOOL _ FALSE ]; StackAControlIn: TYPE = RECORD [ x1ASrcStack: BOOL _ FALSE, x1ADstStack: BOOL _ FALSE, xBusStackEldest: BOOL _ FALSE, xBusStackL: BOOL _ FALSE, push3: BOOL _ FALSE, pop3: BOOL _ FALSE ]; StackBControlIn: TYPE = RECORD [ stackDiff: Index _ 0, microExcptJmpTrap: BOOL _ FALSE, pushIn3: BOOL _ FALSE, popIn3: BOOL _ FALSE ]; StackAControlOut: TYPE = RECORD [ -- default must be zero stackAdjTos: BOOL _ FALSE, stackAddendIsOnes: BOOL _ FALSE, stackCarryIsOne: BOOL _ FALSE ]; StackBControlOut: TYPE = RECORD [ -- default must be zero push3: BOOL _ FALSE, pop3: BOOL _ FALSE, iStkNearlyFull: BOOL _ FALSE ]; StackDecodeOut: TYPE = RECORD [ -- default must be zero stkLdP: SixteenBits _ 0, stkLdL: SixteenBits _ 0, stkRd: SixteenBits _ 0 ]; StackDecodeWtPOut: TYPE = RECORD [ -- default must be zero stkLdP: SixteenBits _ 0 ]; StackDecodeWtLOut: TYPE = RECORD [ -- default must be zero stkLdL: SixteenBits _ 0 ]; StackDecodeRdOut: TYPE = RECORD [ -- default must be zero stkRd: SixteenBits _ 0 ]; SixteenBits: TYPE = INT[0..SixTnLim]; SixTnLim: INT = 65535; Index: TYPE = INT[0..DiffMod); DiffMod: INT = 32; TosMod: Index = DiffMod/2; BosMod: Index = DiffMod/2; DiffSig: Index = DiffMod-1; TosSig: Index = TosMod-1; BosSig: Index = BosMod-1; END. ·IFUPLAStackControl.mesa Copyright c 1984 by Xerox Corporation. All rights reserved. Last edited by Curry, October 22, 1986 2:50:15 pm PDT Last edited by McCreight, November 20, 1985 11:23:32 am PST Don Curry March 14, 1987 12:31:11 pm PST Э╩ШЪЬЩJЪЬ<Щ