TamarinBlocks.mesa
December 31, 1986 3:40:14 pm PST
Last Edited by: Ross April 6, 1987 12:17:29 pm PDT
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.