TamarinDivide.mesa
December 8, 1986 3:05:11 pm PST
Last Edited by: Ross May 18, 1987 2:37:33 pm PDT
TamarinDivide:
CEDAR
DEFINITIONS =
BEGIN
Priority: PROC [inNum: INT] RETURNS [priority: NAT ← 0, isZero: BOOL];
Divide: PROC [inD1, inD2: INT] RETURNS [quotient, remainder: INT, overFlow: BOOL ← FALSE];
OldPriority:
PROC [inNum:
INT]
RETURNS [priority:
INT ← 0];