construct_128 322 src/dps8/dps8.h # define YPAIRTO72(ypair) construct_128 ((ypair[0] >> 28) & MASK8, \ construct_128 9277 src/dps8/dps8_eis.c word72 sgnmask = lshift_128 (construct_128 (0, 1), (uint) (N * 9 - 1)); construct_128 9300 src/dps8/dps8_eis.c uint128 extBits = lshift_128 (construct_128 (MASK64, MASK64), (uint) bits); construct_128 9309 src/dps8/dps8_eis.c uint128 zeroBits = complement_128 (lshift_128 (construct_128 (MASK64, MASK64), (uint) bits)); construct_128 9326 src/dps8/dps8_eis.c word72 x = construct_128 (0, 0); construct_128 9358 src/dps8/dps8_eis.c x = or_128 (x, construct_128 (0, GETBYTE (data, pos))); construct_128 10081 src/dps8/dps8_eis.c word72 msk = subtract_128 (lshift_128 (construct_128 (0, 1), (9*e->N2-1)),construct_128 (0, 1)); construct_128 10102 src/dps8/dps8_eis.c word72 x = construct_128 (0, 0); construct_128 10105 src/dps8/dps8_eis.c x = multiply_128 (x, construct_128 (0, 10)); construct_128 10107 src/dps8/dps8_eis.c x = add_128 (x, construct_128 (0, (uint) e->inBuffer[i])); construct_128 129 src/dps8/dps8_hw_consts.h # define SIGN72 (construct_128 (0200U, 0U)) construct_128 131 src/dps8/dps8_hw_consts.h # define BIT68 (construct_128 (010U, 0U)) construct_128 132 src/dps8/dps8_hw_consts.h # define BIT69 (construct_128 (020U, 0U)) construct_128 133 src/dps8/dps8_hw_consts.h # define BIT70 (construct_128 (040U, 0U)) construct_128 134 src/dps8/dps8_hw_consts.h # define BIT71 (construct_128 (0100U, 0U)) // next to the sign bit construct_128 135 src/dps8/dps8_hw_consts.h # define BIT73 (construct_128 (0400U, 0U)) // carry out bit from 72 bit arithmetic construct_128 136 src/dps8/dps8_hw_consts.h # define BIT74 (construct_128 (01000U, 0U)) // carry out bit from 73 bit arithmetic construct_128 139 src/dps8/dps8_hw_consts.h # define MASK68 (construct_128 (017U, MASK64)) // Hex mode mantissa normalization mask construct_128 140 src/dps8/dps8_hw_consts.h # define MASK70 (construct_128 (0077U, MASK64)) construct_128 141 src/dps8/dps8_hw_consts.h # define MASK71 (construct_128 (0177U, MASK64)) construct_128 142 src/dps8/dps8_hw_consts.h # define MASK72 (construct_128 (0377U, MASK64)) construct_128 325 src/dps8/dps8_hw_consts.h uint128 v = or_128 (w, construct_128 (0xFFFFFFFFFFFFFF80, 0)); construct_128 385 src/dps8/dps8_hw_consts.h return construct_128 (0377U, (w & MASK36) | 0xFFFFFFF000000000); construct_128 388 src/dps8/dps8_hw_consts.h return construct_128 (0, w & MASK36); construct_128 7123 src/dps8/dps8_ins.c big = subtract_128 (big, construct_128 (0, MulticsuSecs)); construct_128 102 src/dps8/dps8_math.c if (isnonzero_128 (and_128 (Mant, lshift_128 (construct_128 (0, 1), (unsigned int) n)))) construct_128 154 src/dps8/dps8_math.c if (isnonzero_128 (and_128 (Mant, lshift_128 (construct_128 (0, 1), (unsigned int) n)))) construct_128 445 src/dps8/dps8_math.c # define HEX_SIGN construct_128 (0xF0, 0) construct_128 446 src/dps8/dps8_math.c # define HEX_MSB construct_128 (0x70, 0) construct_128 447 src/dps8/dps8_math.c # define HEX_NORM construct_128 (0x78, 0) construct_128 488 src/dps8/dps8_math.c word72 m2 = lshift_128 (construct_128 (0, (uint64_t) getbits36_28 (cpu.CY, 8)), 44u); // 28-bit mantissa (incl sign) construct_128 551 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 584 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 1138 src/dps8/dps8_math.c word72 m2 = lshift_128 (construct_128 (0, (uint64_t) getbits36_28 (cpu.CY, 8)), 44u); // 28-bit mantissa (incl sign) construct_128 1280 src/dps8/dps8_math.c m2 = lshift_128 (construct_128 (0, (uint64_t) getbits36_28 (cpu.CY, 8)), 44u); // 28-bit mantissa (incl sign) construct_128 1296 src/dps8/dps8_math.c (isnonzero_128 (and_128 (m2, construct_128 (0, 0377777777777777LL))))) { construct_128 1297 src/dps8/dps8_math.c m2 = add_128 (m2, construct_128 (0, 0400000000000000LL)); construct_128 1301 src/dps8/dps8_math.c m2 = and_128 (m2, lshift_128 (construct_128 (0, 0777777777400), 36)); construct_128 1303 src/dps8/dps8_math.c m1 = lshift_128 (construct_128 (0, getbits36_28 (cpu.CY, 8)), 44); ///< 28-bit mantissa (incl sign) construct_128 1575 src/dps8/dps8_math.c m = Add72b (cpup, m, construct_128 (0, 0177777777777777LL), carry, I_OFLOW, & flags1, & ovf); construct_128 1582 src/dps8/dps8_math.c m = and_128 (m, lshift_128 (construct_128 (0, 0777777777400), 36)); construct_128 1647 src/dps8/dps8_math.c m = Add72b (cpup, m, construct_128 (0, 0177777777777777LL), carry, I_OFLOW, & flags1, & ovf); construct_128 1654 src/dps8/dps8_math.c m = and_128 (m, lshift_128 (construct_128 (0, 0777777777400), 36)); construct_128 1691 src/dps8/dps8_math.c word72 m1= lshift_128 (construct_128 (0, cpu.rA & 0777777777400), 36); construct_128 1699 src/dps8/dps8_math.c word72 m2 = lshift_128 (construct_128 (0, getbits36_28 (cpu.CY, 8)), 44); construct_128 1744 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 1777 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 1830 src/dps8/dps8_math.c word72 m1 = lshift_128 (construct_128 (0, cpu.rA & 0777777777400), 36); construct_128 1839 src/dps8/dps8_math.c word72 m2 = lshift_128 (construct_128 (0, getbits36_28 (cpu.CY, 8)), 44); construct_128 1879 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 1911 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 2001 src/dps8/dps8_math.c word72 m2 = lshift_128 (construct_128 (0, (uint64_t) getbits36_28 (cpu.Ypair[0], 8)), 44u); // 28-bit mantissa (incl sign) construct_128 2002 src/dps8/dps8_math.c m2 = or_128 (m2, lshift_128 (construct_128 (0, cpu.Ypair[1]), 8u)); construct_128 2083 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 2116 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 2315 src/dps8/dps8_math.c word72 m2 = lshift_128 (construct_128 (0, (uint64_t) getbits36_28 (cpu.Ypair[0], 8)), 44u); // 28-bit mantissa (incl sign) construct_128 2316 src/dps8/dps8_math.c m2 = or_128 (m2, lshift_128 (construct_128 (0, cpu.Ypair[1]), 8u)); construct_128 2374 src/dps8/dps8_math.c int128 m1l = and_s128 (cast_s128 (m1), construct_128 (0, MASK64)); construct_128 2486 src/dps8/dps8_math.c m2 = lshift_128 (construct_128 (0, (uint64_t) getbits36_28 (cpu.Ypair[0], 8)), 44u); // 28-bit mantissa (incl sign) construct_128 2487 src/dps8/dps8_math.c m2 = or_128 (m2, lshift_128 (construct_128 (0, cpu.Ypair[1]), 8u)); construct_128 2509 src/dps8/dps8_math.c m2 = add_128 (m2, construct_128 (0, 0400)); construct_128 2519 src/dps8/dps8_math.c putbits72 (& m2, 64, 8, construct_128 (0, 0)); construct_128 2526 src/dps8/dps8_math.c m1 = lshift_128 (construct_128 (0, (uint64_t) getbits36_28 (cpu.Ypair[0], 8)), 44u); // 28-bit mantissa (incl sign) construct_128 2527 src/dps8/dps8_math.c m1 = or_128 (m1, lshift_128 (construct_128 (0, cpu.Ypair[1]), 8u)); construct_128 2939 src/dps8/dps8_math.c uint128 zFrac = lshift_128 (construct_128 (0, cpu.rA & MASK35), 35); construct_128 2940 src/dps8/dps8_math.c zFrac = or_128 (zFrac, construct_128 (0, (cpu.rQ >> 1) & MASK35)); construct_128 2998 src/dps8/dps8_math.c dFrac = and_128 (dFrac, construct_128 (0, MASK35)); construct_128 3055 src/dps8/dps8_math.c if (isnonzero_128 (and_128 (quot, construct_128 (MASK36, ~MASK35)))) construct_128 3186 src/dps8/dps8_math.c m = Add72b (cpup, m, construct_128 (0, 0177), carry, I_OFLOW, & flags1, & ovf); construct_128 3193 src/dps8/dps8_math.c putbits72 (& m, 64, 8, construct_128 (0, 0)); // 64-71 => 0 per DH02 construct_128 3274 src/dps8/dps8_math.c m = Add72b (cpup, m, construct_128 (0, 0177), carry, I_OFLOW, & flags1, & ovf); construct_128 3281 src/dps8/dps8_math.c putbits72 (& m, 64, 8, construct_128 (0, 0)); // 64-71 => 0 per DH02 construct_128 3333 src/dps8/dps8_math.c word72 m2 = lshift_128 (construct_128 (0, getbits36_28 (cpu.Ypair[0], 8)), (36 + 8)); construct_128 3334 src/dps8/dps8_math.c m2 = or_128 (m2, lshift_128 (construct_128 (0, cpu.Ypair[1]), 8u)); construct_128 3361 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 3364 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 3378 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 3381 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 3468 src/dps8/dps8_math.c word72 m2 = lshift_128 (construct_128 (0, getbits36_28 (cpu.Ypair[0], 8)), (36 + 8)); construct_128 3469 src/dps8/dps8_math.c m2 = or_128 (m2, lshift_128 (construct_128 (0, cpu.Ypair[1]), 8u)); construct_128 3496 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 3499 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 3531 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 3534 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 139 src/dps8/dps8_math128.c return construct_128 (h64, l64); construct_128 147 src/dps8/dps8_math128.c uint128 res = construct_128 (a.h - b.h, a.l - b.l); construct_128 156 src/dps8/dps8_math128.c return add_128 (complement_128 (a), construct_128 (0, 1)); construct_128 161 src/dps8/dps8_math128.c uint128 t = add_128 (complement_128 (cast_128 (a)), construct_128 (0, 1)); construct_128 188 src/dps8/dps8_math128.c return construct_128 (h, l); construct_128 191 src/dps8/dps8_math128.c return construct_128 (h, 0); construct_128 223 src/dps8/dps8_math128.c construct_128 228 src/dps8/dps8_math128.c construct_128 229 src/dps8/dps8_math128.c construct_128 263 src/dps8/dps8_math128.c return construct_128 (h, l); construct_128 488 src/dps8/dps8_math128.c return construct_128 ( construct_128 547 src/dps8/dps8_math128.c * remp = construct_128 ( construct_128 557 src/dps8/dps8_math128.c return construct_128 ( construct_128 588 src/dps8/dps8_math128.c return construct_128 ( construct_128 628 src/dps8/dps8_math128.c return construct_128 ( construct_128 643 src/dps8/dps8_math128.c bool r = iszero_128 (construct_128 (h, l)); construct_128 656 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 657 src/dps8/dps8_math128.c uint128 b = construct_128 (bh, bl); construct_128 672 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 673 src/dps8/dps8_math128.c uint128 b = construct_128 (bh, bl); construct_128 688 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 703 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 704 src/dps8/dps8_math128.c uint128 b = construct_128 (bh, bl); construct_128 719 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 720 src/dps8/dps8_math128.c uint128 b = construct_128 (bh, bl); construct_128 735 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 750 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 751 src/dps8/dps8_math128.c uint128 b = construct_128 (bh, bl); construct_128 766 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 781 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 796 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 797 src/dps8/dps8_math128.c uint128 b = construct_128 (bh, bl); construct_128 829 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 846 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 23 src/dps8/dps8_math128.h # define cast_128(x) construct_128 ((uint64_t) (x).h, (x).l) construct_128 1191 src/dps8/dps8_scu.c uint128 big = construct_128 (0, cpu.instrCnt); construct_128 1196 src/dps8/dps8_scu.c big = multiply_128 (big, construct_128 (0, 10000u)); construct_128 1199 src/dps8/dps8_scu.c uint128 days = construct_128 (0, scu[0].elapsed_days); construct_128 1200 src/dps8/dps8_scu.c days = multiply_128 (days, construct_128 (0, 1000000)); construct_128 1201 src/dps8/dps8_scu.c days = multiply_128 (days, construct_128 (0, 60 * 60 * 24)); construct_128 507 src/dps8/dps8_utils.c word74 ci = construct_128 (0, carryin ? 1 : 0); construct_128 649 src/dps8/dps8_utils.c word74 ci = construct_128 (0, carryin ? 0 : 1); construct_128 968 src/dps8/dps8_utils.c return or_128 (lshift_128 (construct_128 (0, even), 36), construct_128 (0, odd)); construct_128 815 src/dps8/dps8_utils.h word72 mask = construct_128 (highmask, lowmask);