DIRECTORY Basics USING [LongNumber], IeeeInternal, PrincOpsUtils USING [BITOR], Real, RealOps; IeeeIOA: CEDAR PROGRAM IMPORTS IeeeInternal, PrincOpsUtils EXPORTS Real = BEGIN PowTen: TYPE = RECORD [f: LONG CARDINAL, e: INTEGER]; TenTable: TYPE = RECORD [tens: ARRAY [0..13] OF PowTen, t26, t39: PowTen]; posTable: TenTable = [tens: [[20000000000B, 0], [24000000000B, 3], [31000000000B, 6], [37200000000B, 9], [23420000000B, 13], [30324000000B, 16], [36411000000B, 19], [23045500000B, 23], [27657020000B, 26], [35632624000B, 29], [22500574400B, 33], [27220733500B, 36], [35065122420B, 39], [22141163452B, 43]], t26: [24533722672B, 86], t39: [27405037645B, 129]]; negTable: TenTable = [tens: [[20000000000B, 0], [31463146315B, -4], [24365605075B, -7], [20304467230B, -10], [32155613531B, -14], [24761326107B, -17], [20615736406B, -20], [32657712326B, -24], [25363073422B, -27], [21134057501B, -30], [33371577317B, -34], [25772777414B, -37], [21457146011B, -40], [34113411502B, -44]], t26: [30604403045B, -87], t39: [25616276613B, -130]]; iTenTable: ARRAY [0..9] OF LONG INTEGER = [1, 10, 100, 1000, 10000, 100000, 1000000, 10000000, 100000000, 1000000000]; MulExtended: PROC [x, y: IeeeInternal.Ext] RETURNS [z: IeeeInternal.Ext] = TRUSTED { hi, lo: Basics.LongNumber; z.exp _ x.exp + y.exp + 1; z.det.sign _ x.det.sign # y.det.sign; z.det.type _ normal; z.det.sticky _ x.det.sticky OR y.det.sticky; [hi, lo] _ IeeeInternal.Mul32[x.frac, y.frac]; -- normalize 64 WHILE NOT IeeeInternal.BitOn[hi.highbits, IeeeInternal.HiBit] DO hi.lc _ hi.lc + hi.lc; IF IeeeInternal.BitOn[lo.highbits, IeeeInternal.HiBit] THEN hi.lowbits _ PrincOpsUtils.BITOR[hi.lowbits, 1]; lo.lc _ lo.lc + lo.lc; z.exp _ z.exp - 1; ENDLOOP; z.frac _ hi; -- Round to 32 bits. IF lo.lc > IeeeInternal.HalfLC OR (lo.lc = IeeeInternal.HalfLC AND IeeeInternal.BitOn[z.frac.lowbits, 1]) THEN { z.frac.lc _ z.frac.lc + 1; IF z.frac.lc < hi.lc THEN { z.frac.lc _ IeeeInternal.RShift1in1[z.frac.lc]; z.exp _ z.exp + 1; }; }; IF lo.lc # 0 THEN z.det.sticky _ TRUE; }; RealToPair: PUBLIC PROC [ r: REAL, precision: CARDINAL _ Real.DefaultSinglePrecision] RETURNS [type: Real.NumberType, fr: LONG INTEGER, exp10: INTEGER] = TRUSTED { x, zz: IeeeInternal.Ext; t1, t2, sign, normalized: BOOLEAN; IeeeInternal.thisTimeExceptions _ Real.NoExceptions; precision _ MAX[1, MIN[precision, 9]]; x _ IeeeInternal.Unpack[r]; sign _ x.det.sign; SELECT x.det.type FROM nan => RETURN[nan, 0, 0]; infinity => { fr _ IF sign THEN LAST[LONG INTEGER] ELSE FIRST[LONG INTEGER]; exp10 _ 99; RETURN[infinity, fr, exp10]; }; zero => RETURN[zero, 0, 0]; ENDCASE => NULL; x.det.sign _ FALSE; normalized _ IeeeInternal.Normalized[x.frac.highbits]; exp10 _ IF normalized THEN (x.exp*3)/10 ELSE -38; exp10 _ exp10 + 1 - precision; DO zz _ Scale[x, -exp10]; [v: fr, invalid: t1, overflow: t2] _ IeeeInternal.FixExtended[zz, rn]; IF t1 OR t2 THEN ERROR; SELECT TRUE FROM fr > iTenTable[precision] => exp10 _ exp10 + 1; fr = iTenTable[precision] => {exp10 _ exp10 + 1; fr _ fr/10; EXIT; }; fr < iTenTable[precision - 1] => IF normalized THEN exp10 _ exp10 - 1 ELSE EXIT; ENDCASE => EXIT; ENDLOOP; IF sign THEN fr _ -fr; RETURN[normal, fr, exp10]; }; Scale: PROC [x: IeeeInternal.Ext, exp10: INTEGER] RETURNS [y: IeeeInternal.Ext] = TRUSTED { table: TenTable; mul: PowTen; big: BOOLEAN; IF exp10 = 0 THEN RETURN[x]; big _ exp10 < 0; table _ IF big THEN negTable ELSE posTable; exp10 _ ABS[exp10]; SELECT exp10 FROM IN [1..13] => mul _ table.tens[exp10]; IN (13..26) => { x _ MulExtended[x, CVExt[table.tens[13]]]; mul _ table.tens[exp10 - 13]; }; = 26 => mul _ table.t26; IN (26..39] => { x _ MulExtended[x, CVExt[table.t26]]; mul _ table.tens[exp10 - 26]; }; = 39 => mul _ table.t39; IN (39..52] => { x _ MulExtended[x, CVExt[table.t39]]; mul _ table.tens[exp10 - 39]; }; ENDCASE => { WHILE exp10 > 52 DO x _ MulExtended[x, CVExt[table.t39]]; exp10 _ exp10 - 39; ENDLOOP; RETURN[Scale[x, IF big THEN -exp10 ELSE exp10]]; }; y _ CVExt[mul]; y _ MulExtended[x, y]; }; CVExt: PROC [t: PowTen] RETURNS [y: IeeeInternal.Ext] = { y.det.sticky _ y.det.sign _ FALSE; y.det.type _ normal; y.frac.lc _ t.f; y.exp _ t.e; }; PairToReal: PUBLIC PROC [fr: LONG INTEGER, exp10: INTEGER] RETURNS [REAL] = TRUSTED { y: IeeeInternal.Ext; or: RealOps.RoundingMode _ IeeeInternal.fpmode.round; IeeeInternal.fpmode.round _ rn; IeeeInternal.thisTimeExceptions _ Real.NoExceptions; IF fr = 0 THEN RETURN[Real.PlusZero]; y.exp _ 31; y.det.sign _ fr < 0; y.det.sticky _ FALSE; y.det.type _ normal; y.frac.li _ IF y.det.sign THEN -fr ELSE fr; IeeeInternal.PostNormalize[@y]; y _ Scale[y, exp10]; IeeeInternal.StepTwo[@y]; IeeeInternal.fpmode.round _ or; RETURN[IeeeInternal.Pack[@y]]; }; END. August25, 1980 4:28 PM, LStewart; formatting and qualification August 27, 1982 1:04 pm, L. Stewart, CEDAR January 14, 1984 4:53 pm, L. Stewart, changeTo IeeeInternal ìIeeeIOA.mesa Last Modified: August 27, 1982 1:02 pm Last Modified By Paul Rovner On May 4, 1983 9:59 am Last Modified By L. Stewart, January 14, 1984 4:18 pm Utilities for IO Last Edited by: Levin, August 8, 1983 4:38 pm Overflow ÊC˜Jšœ ™ Jšœ&™&Jšœ3™3Jšœ5™5Jšœ™Jšœ-™-J˜šÏk ˜ Jšœœ˜J˜ Jšœœœ˜J˜J˜J˜—Jšœ œ˜Jšœ˜#šœ˜Jš˜J˜Jš œœœœœœ˜5J˜Jš œ œœœ œ˜JJ˜˜˜˜LJ˜;J˜;J˜;J˜HJ˜———˜˜˜;J˜>J˜>J˜>J˜DJ˜J˜———š œ œœœœ˜)J˜LJ˜—šÏn œœœœ˜TJ˜J˜J˜%J˜Jšœœ˜,Jšœ/Ïc˜>šœœ5˜@J˜šœ5˜;Jšœœ˜0—J˜J˜Jšœ˜—Jšœ Ÿ˜!šœ˜!Jšœœ(œ˜NJšœ™J˜šœœ˜J˜E—J˜—Jšœ œœ˜&J˜J˜—šž œœœ˜Jšœœ œ˜;Jš œœœ œœ˜MJ˜Jšœœ˜"J˜4Jšœ œœ˜&J˜J˜šœ ˜Jšœœ ˜˜ Jšœœœœœœœœœœ˜>J˜ Jšœ˜J˜—Jšœœ ˜Jšœœ˜—Jšœ œ˜J˜6Jšœœ œœ˜1J˜š˜J˜J˜FJšœœœœ˜šœœ˜J˜/Jšœ=œ˜E˜ Jšœ œœœ˜/—Jšœœ˜—Jšœ˜—Jšœœ ˜Jšœ˜J˜J˜—š žœœœœœ˜[J˜J˜ Jšœœ˜ Jšœ œœ˜J˜Jšœœœ œ ˜+Jšœœ˜šœ˜Jšœ$˜&šœ˜J˜*J˜J˜—J˜šœ˜J˜F—J˜šœ˜J˜F—šœ˜ šœ ˜Jšœ:œ˜B—Jšœ œœœ ˜0J˜——J˜J˜J˜J˜—šžœœ œ˜9Jšœœ˜"J˜J˜J˜ J˜J˜—šž œœœœœ œœœœ˜UJ˜J˜5J˜J˜4Jšœœœ˜%J˜ J˜Jšœœ˜J˜Jšœ œ œœ˜+J˜J˜J˜J˜Jšœ˜J˜J˜—Jšœ˜—Jšœœ(˜?Jšœœ ˜*Jšœœ ˜;J˜—…— ;