<> <> <> <<>> DIRECTORY TamarinOps USING [FourBitIndex, FiveBitIndex, SixBitIndex, Word]; TamarinBlocks: CEDAR DEFINITIONS = BEGIN OPEN TamarinOps; Shifter: PROC [top, bot: Word, shiftAmount: SixBitIndex] RETURNS [shifterResult: Word]; Adder: PROC [euOp: FourBitIndex, d1, d2: Word] RETURNS [result: Word, overFlow, carry, gt: BOOL]; PriorityEncoder: PUBLIC PROC [inword: Word] RETURNS [result: Word]; LogicalUnit: PROC [euOp: FourBitIndex, d1, d2: Word] RETURNS [result: Word]; Multiplier: PROC [d1, d2: Word, sgnd: BOOL _ TRUE] RETURNS [resultH, resultL: Word]; END.