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. nTamarinBlocks.mesa December 31, 1986 3:40:14 pm PST Last Edited by: Ross April 6, 1987 12:17:29 pm PDT Κά˜™J™ Icode™2J™—JšΟk œ œ1˜KJ˜š Οn œœ œœœ ˜:šžœœ,˜9Kšœ˜—šžœœ$˜/Kšœ%œ˜2—Kšžœœœœ˜DKšž œœ$œ˜Mš ž œœœœœ˜;Kšœ˜—K˜Kšœ˜——…—4~