construct_128 279 src/dps8/dps8.h # define YPAIRTO72(ypair) construct_128 ((ypair[0] >> 28) & MASK8, \ construct_128 9214 src/dps8/dps8_eis.c word72 sgnmask = lshift_128 (construct_128 (0, 1), (uint) (N * 9 - 1)); construct_128 9237 src/dps8/dps8_eis.c uint128 extBits = lshift_128 (construct_128 (MASK64, MASK64), (uint) bits); construct_128 9246 src/dps8/dps8_eis.c uint128 zeroBits = complement_128 (lshift_128 (construct_128 (MASK64, MASK64), (uint) bits)); construct_128 9263 src/dps8/dps8_eis.c word72 x = construct_128 (0, 0); construct_128 9295 src/dps8/dps8_eis.c x = or_128 (x, construct_128 (0, GETBYTE (data, pos))); construct_128 10008 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 10028 src/dps8/dps8_eis.c word72 x = construct_128 (0, 0); construct_128 10031 src/dps8/dps8_eis.c x = multiply_128 (x, construct_128 (0, 10)); construct_128 10033 src/dps8/dps8_eis.c x = add_128 (x, construct_128 (0, (uint) e->inBuffer[i])); construct_128 132 src/dps8/dps8_hw_consts.h # define SIGN72 (construct_128 (0200U, 0U)) construct_128 134 src/dps8/dps8_hw_consts.h # define BIT68 (construct_128 (010U, 0U)) construct_128 135 src/dps8/dps8_hw_consts.h # define BIT69 (construct_128 (020U, 0U)) construct_128 136 src/dps8/dps8_hw_consts.h # define BIT70 (construct_128 (040U, 0U)) construct_128 137 src/dps8/dps8_hw_consts.h # define BIT71 (construct_128 (0100U, 0U)) // next to the sign bit construct_128 138 src/dps8/dps8_hw_consts.h # define BIT73 (construct_128 (0400U, 0U)) // carry out bit from 72 bit arithmetic construct_128 139 src/dps8/dps8_hw_consts.h # define BIT74 (construct_128 (01000U, 0U)) // carry out bit from 73 bit arithmetic construct_128 142 src/dps8/dps8_hw_consts.h # define MASK68 (construct_128 (017U, MASK64)) // Hex mode mantissa normalization mask construct_128 143 src/dps8/dps8_hw_consts.h # define MASK70 (construct_128 (0077U, MASK64)) construct_128 144 src/dps8/dps8_hw_consts.h # define MASK71 (construct_128 (0177U, MASK64)) construct_128 145 src/dps8/dps8_hw_consts.h # define MASK72 (construct_128 (0377U, MASK64)) construct_128 328 src/dps8/dps8_hw_consts.h uint128 v = or_128 (w, construct_128 (0xFFFFFFFFFFFFFF80, 0)); construct_128 388 src/dps8/dps8_hw_consts.h return construct_128 (0377U, (w & MASK36) | 0xFFFFFFF000000000); construct_128 391 src/dps8/dps8_hw_consts.h return construct_128 (0, w & MASK36); construct_128 6792 src/dps8/dps8_ins.c big = subtract_128 (big, construct_128 (0, MulticsuSecs)); construct_128 101 src/dps8/dps8_math.c if (isnonzero_128 (and_128 (Mant, lshift_128 (construct_128 (0, 1), (unsigned int) n)))) construct_128 153 src/dps8/dps8_math.c if (isnonzero_128 (and_128 (Mant, lshift_128 (construct_128 (0, 1), (unsigned int) n)))) construct_128 440 src/dps8/dps8_math.c # define HEX_SIGN construct_128 (0xF0, 0) construct_128 441 src/dps8/dps8_math.c # define HEX_MSB construct_128 (0x70, 0) construct_128 442 src/dps8/dps8_math.c # define HEX_NORM construct_128 (0x78, 0) construct_128 483 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 546 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 579 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 1134 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 1276 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 1292 src/dps8/dps8_math.c (isnonzero_128 (and_128 (m2, construct_128 (0, 0377777777777777LL))))) { construct_128 1293 src/dps8/dps8_math.c m2 = add_128 (m2, construct_128 (0, 0400000000000000LL)); construct_128 1297 src/dps8/dps8_math.c m2 = and_128 (m2, lshift_128 (construct_128 (0, 0777777777400), 36)); construct_128 1299 src/dps8/dps8_math.c m1 = lshift_128 (construct_128 (0, getbits36_28 (cpu.CY, 8)), 44); ///< 28-bit mantissa (incl sign) construct_128 1571 src/dps8/dps8_math.c m = Add72b (m, construct_128 (0, 0177777777777777LL), carry, I_OFLOW, & flags1, & ovf); construct_128 1578 src/dps8/dps8_math.c m = and_128 (m, lshift_128 (construct_128 (0, 0777777777400), 36)); construct_128 1643 src/dps8/dps8_math.c m = Add72b (m, construct_128 (0, 0177777777777777LL), carry, I_OFLOW, & flags1, & ovf); construct_128 1650 src/dps8/dps8_math.c m = and_128 (m, lshift_128 (construct_128 (0, 0777777777400), 36)); construct_128 1687 src/dps8/dps8_math.c word72 m1= lshift_128 (construct_128 (0, cpu.rA & 0777777777400), 36); construct_128 1695 src/dps8/dps8_math.c word72 m2 = lshift_128 (construct_128 (0, getbits36_28 (cpu.CY, 8)), 44); construct_128 1740 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 1773 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 1826 src/dps8/dps8_math.c word72 m1 = lshift_128 (construct_128 (0, cpu.rA & 0777777777400), 36); construct_128 1835 src/dps8/dps8_math.c word72 m2 = lshift_128 (construct_128 (0, getbits36_28 (cpu.CY, 8)), 44); construct_128 1875 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 1907 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 1997 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 1998 src/dps8/dps8_math.c m2 = or_128 (m2, lshift_128 (construct_128 (0, cpu.Ypair[1]), 8u)); construct_128 2080 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 2113 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 2312 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 2313 src/dps8/dps8_math.c m2 = or_128 (m2, lshift_128 (construct_128 (0, cpu.Ypair[1]), 8u)); construct_128 2370 src/dps8/dps8_math.c int128 m1l = and_s128 (cast_s128 (m1), construct_128 (0, MASK64)); construct_128 2482 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 2483 src/dps8/dps8_math.c m2 = or_128 (m2, lshift_128 (construct_128 (0, cpu.Ypair[1]), 8u)); construct_128 2505 src/dps8/dps8_math.c m2 = add_128 (m2, construct_128 (0, 0400)); construct_128 2514 src/dps8/dps8_math.c putbits72 (& m2, 64, 8, construct_128 (0, 0)); construct_128 2521 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 2522 src/dps8/dps8_math.c m1 = or_128 (m1, lshift_128 (construct_128 (0, cpu.Ypair[1]), 8u)); construct_128 2930 src/dps8/dps8_math.c uint128 zFrac = lshift_128 (construct_128 (0, cpu.rA & MASK35), 35); construct_128 2931 src/dps8/dps8_math.c zFrac = or_128 (zFrac, construct_128 (0, (cpu.rQ >> 1) & MASK35)); construct_128 2989 src/dps8/dps8_math.c dFrac = and_128 (dFrac, construct_128 (0, MASK35)); construct_128 3046 src/dps8/dps8_math.c if (isnonzero_128 (and_128 (quot, construct_128 (MASK36, ~MASK35)))) construct_128 3175 src/dps8/dps8_math.c m = Add72b (m, construct_128 (0, 0177), carry, I_OFLOW, & flags1, & ovf); construct_128 3182 src/dps8/dps8_math.c putbits72 (& m, 64, 8, construct_128 (0, 0)); // 64-71 => 0 per DH02 construct_128 3263 src/dps8/dps8_math.c m = Add72b (m, construct_128 (0, 0177), carry, I_OFLOW, & flags1, & ovf); construct_128 3270 src/dps8/dps8_math.c putbits72 (& m, 64, 8, construct_128 (0, 0)); // 64-71 => 0 per DH02 construct_128 3322 src/dps8/dps8_math.c word72 m2 = lshift_128 (construct_128 (0, getbits36_28 (cpu.Ypair[0], 8)), (36 + 8)); construct_128 3323 src/dps8/dps8_math.c m2 = or_128 (m2, lshift_128 (construct_128 (0, cpu.Ypair[1]), 8u)); construct_128 3350 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 3353 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 3367 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 3370 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 3457 src/dps8/dps8_math.c word72 m2 = lshift_128 (construct_128 (0, getbits36_28 (cpu.Ypair[0], 8)), (36 + 8)); construct_128 3458 src/dps8/dps8_math.c m2 = or_128 (m2, lshift_128 (construct_128 (0, cpu.Ypair[1]), 8u)); construct_128 3485 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 3488 src/dps8/dps8_math.c m1 = construct_128 (0, 0); construct_128 3520 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 3523 src/dps8/dps8_math.c m2 = construct_128 (0, 0); construct_128 142 src/dps8/dps8_math128.c return construct_128 (h64, l64); construct_128 150 src/dps8/dps8_math128.c uint128 res = construct_128 (a.h - b.h, a.l - b.l); construct_128 159 src/dps8/dps8_math128.c return add_128 (complement_128 (a), construct_128 (0, 1)); construct_128 164 src/dps8/dps8_math128.c uint128 t = add_128 (complement_128 (cast_128 (a)), construct_128 (0, 1)); construct_128 191 src/dps8/dps8_math128.c return construct_128 (h, l); construct_128 194 src/dps8/dps8_math128.c return construct_128 (h, 0); construct_128 226 src/dps8/dps8_math128.c construct_128 231 src/dps8/dps8_math128.c construct_128 232 src/dps8/dps8_math128.c construct_128 266 src/dps8/dps8_math128.c return construct_128 (h, l); construct_128 490 src/dps8/dps8_math128.c return construct_128 ( construct_128 549 src/dps8/dps8_math128.c * remp = construct_128 ( construct_128 559 src/dps8/dps8_math128.c return construct_128 ( construct_128 590 src/dps8/dps8_math128.c return construct_128 ( construct_128 630 src/dps8/dps8_math128.c return construct_128 ( construct_128 645 src/dps8/dps8_math128.c bool r = iszero_128 (construct_128 (h, l)); construct_128 658 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 659 src/dps8/dps8_math128.c uint128 b = construct_128 (bh, bl); construct_128 674 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 675 src/dps8/dps8_math128.c uint128 b = construct_128 (bh, bl); construct_128 690 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 705 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 706 src/dps8/dps8_math128.c uint128 b = construct_128 (bh, bl); construct_128 721 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 722 src/dps8/dps8_math128.c uint128 b = construct_128 (bh, bl); construct_128 737 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 752 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 753 src/dps8/dps8_math128.c uint128 b = construct_128 (bh, bl); construct_128 768 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 783 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 798 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 799 src/dps8/dps8_math128.c uint128 b = construct_128 (bh, bl); construct_128 831 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 848 src/dps8/dps8_math128.c uint128 a = construct_128 (ah, al); construct_128 26 src/dps8/dps8_math128.h # define cast_128(x) construct_128 ((uint64_t) (x).h, (x).l) construct_128 1182 src/dps8/dps8_scu.c uint128 big = construct_128 (0, cpu.instrCnt); construct_128 1187 src/dps8/dps8_scu.c big = multiply_128 (big, construct_128 (0, 10000u)); construct_128 1190 src/dps8/dps8_scu.c uint128 days = construct_128 (0, scu[0].elapsed_days); construct_128 1191 src/dps8/dps8_scu.c days = multiply_128 (days, construct_128 (0, 1000000)); construct_128 1192 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 639 src/dps8/dps8_utils.c word74 ci = construct_128 (0, carryin ? 0 : 1); construct_128 944 src/dps8/dps8_utils.c return or_128 (lshift_128 (construct_128 (0, even), 36), construct_128 (0, odd)); construct_128 818 src/dps8/dps8_utils.h word72 mask = construct_128 (highmask, lowmask);