DoubleDefs.mesa_Mar78.pdf part of xerox DoubleDefs.mesa Mar78 DoubleDefs.mesa_Mar78.pdf, xerox mesa 3.0_1977 listing DoubleDefs.mesa

Text preview for : DoubleDefs.mesa_Mar78.pdf part of xerox DoubleDefs.mesa Mar78 xerox mesa 3.0_1977 listing DoubleDefs.mesa_Mar78.pdf

Back to : DoubleDefs.mesa_Mar78.pdf | Home

DOUBLEDEFS.MESA 30-MAR-78 14:47:33 Page 1

-- DoubleDefs.Mesa Edited by Johnsson on March 24, 1977 8:57 AM
DIRECTORY
InlineDefs: FROM "inlinedefs";
DoubleDefs: DEFINITIONS =
BEGIN
LongCARDINAL: TYPE = InlineDefs.LongCARDINAL;
Comparison: TYPE = {less, equal, greater};
DDivide: PROCEDURE [num, den: LongCARDINAL]
RETURNS [quotient, remainder: LongCARDINAL];
DMultiply: PROCEDURE [a,b: LongCARDINAL]
RETURNS [product: LongCARDINAL];
DApd: PROCEDURE [a.b: LongCARDINAL] RETURNS [LongCARDINAL];
DSub: PROCEDURE [a.b: LongCARDINAL] RETURNS [LongCARDINAL];
DNeg: PROCEDURE [a: LongCARDINAL] RETURNS [LongCARDINAL];
DInc: PROCEDURE [a: LongCARDINAL] RETURNS [LongCARDINAL];
DCompare: PROCEDURE [a.b: LongCARDINAL] RETURNS [Comparison];
AppendDouble: PROCEDURE [s:STRING. a: LongCARDINAL];
END.