m1 485 src/dps8/dps8_math.c word72 m1 = convert_to_word72 (cpu.rA, cpu.rQ); m1 541 src/dps8/dps8_math.c bool sign = isnonzero_128 (and_128 (m1, SIGN72)); // mantissa negative? m1 544 src/dps8/dps8_math.c allones &= m1.l & 1; m1 545 src/dps8/dps8_math.c notallzeros |= m1.l & 1; m1 546 src/dps8/dps8_math.c m1 = rshift_128 (m1, 1); m1 548 src/dps8/dps8_math.c m1 = or_128 (m1, SIGN72); m1 550 src/dps8/dps8_math.c if (iseq_128 (m1, MASK72) && notallzeros == 1 && shift_count * (int) shift_amt > 71) m1 551 src/dps8/dps8_math.c m1 = construct_128 (0, 0); m1 552 src/dps8/dps8_math.c m1 = and_128 (m1, MASK72); m1 555 src/dps8/dps8_math.c bool sign = m1 & SIGN72; // mantissa negative? m1 558 src/dps8/dps8_math.c allones &= m1 & 1; m1 559 src/dps8/dps8_math.c notallzeros |= m1 & 1; m1 560 src/dps8/dps8_math.c m1 >>= 1; m1 562 src/dps8/dps8_math.c m1 |= SIGN72; m1 565 src/dps8/dps8_math.c if (m1 == MASK72 && notallzeros == 1 && shift_count * (int) shift_amt > 71) m1 566 src/dps8/dps8_math.c m1 = 0; m1 567 src/dps8/dps8_math.c m1 &= MASK72; m1 606 src/dps8/dps8_math.c m3 = Add72b (cpup, m1, m2, 0, I_CARRY, & cpu.cu.IR, & ovf); m1 1135 src/dps8/dps8_math.c word72 m1 = convert_to_word72 (cpu.rA, cpu.rQ); m1 1144 src/dps8/dps8_math.c if (ISZERO_128 (m1) || ISZERO_128 (m2)) { m1 1182 src/dps8/dps8_math.c int128 m3 = multiply_s128 (SIGNEXT72_128(m1), cast_s128 (ut)); m1 1185 src/dps8/dps8_math.c int128 m3 = (SIGNEXT72_128(m1) * (SIGNEXT72_128(m2) >> 44)); m1 1199 src/dps8/dps8_math.c if (ISEQ_128 (m1, SIGN72) && ISEQ_128 (m2, SIGN72)) { m1 1267 src/dps8/dps8_math.c word72 m1; m1 1276 src/dps8/dps8_math.c m1 = convert_to_word72 (cpu.rA, cpu.rQ); m1 1303 src/dps8/dps8_math.c m1 = lshift_128 (construct_128 (0, getbits36_28 (cpu.CY, 8)), 44); ///< 28-bit mantissa (incl sign) m1 1313 src/dps8/dps8_math.c m1 = ((word72) getbits36_28 (cpu.CY, 8)) << 44; ///< 28-bit mantissa (incl sign) m1 1318 src/dps8/dps8_math.c if (ISZERO_128 (m1)) { m1 1335 src/dps8/dps8_math.c if (isnonzero_128 (and_128 (m1, SIGN72))) m1 1337 src/dps8/dps8_math.c if (m1 & SIGN72) m1 1342 src/dps8/dps8_math.c if (iseq_128 (m1, SIGN72)) { m1 1343 src/dps8/dps8_math.c m1 = rshift_128 (m1, shift_amt); m1 1346 src/dps8/dps8_math.c m1 = and_128 (negate_128 (m1), MASK72); m1 1349 src/dps8/dps8_math.c if (m1 == SIGN72) { m1 1350 src/dps8/dps8_math.c m1 >>= shift_amt; m1 1353 src/dps8/dps8_math.c m1 = (~m1 + 1) & MASK72; m1 1395 src/dps8/dps8_math.c convert_to_word36 (m1, & cpu.rA, & cpu.rQ); m1 1405 src/dps8/dps8_math.c while (isge_128 (m1, m2)) { m1 1409 src/dps8/dps8_math.c m1 = rshift_128 (m1, shift_amt); m1 1413 src/dps8/dps8_math.c while (m1 >= m2) { m1 1417 src/dps8/dps8_math.c m1 >>= shift_amt; m1 1442 src/dps8/dps8_math.c m3 = divide_128_32 (rshift_128 (m1, (44u-35u)), divisor, NULL); m1 1444 src/dps8/dps8_math.c m3 = divide_128_16 (rshift_128 (m1, (44u-35u)), (uint16_t) divisor, NULL); m1 1446 src/dps8/dps8_math.c word72 m3 = (m1 >> (44-35)) / (m2 >> 44); m1 1691 src/dps8/dps8_math.c word72 m1= lshift_128 (construct_128 (0, cpu.rA & 0777777777400), 36); m1 1693 src/dps8/dps8_math.c word72 m1 = ((word72)cpu.rA & 0777777777400LL) << 36; m1 1723 src/dps8/dps8_math.c bool s = isnonzero_128 (and_128 (m1, SIGN72)); m1 1725 src/dps8/dps8_math.c bool s = (m1 & SIGN72) != (word72)0; m1 1729 src/dps8/dps8_math.c notallzeros |= m1.l & 1; m1 1730 src/dps8/dps8_math.c m1 = rshift_128 (m1, 1); m1 1732 src/dps8/dps8_math.c notallzeros |= m1 & 1; m1 1733 src/dps8/dps8_math.c m1 >>= 1; m1 1737 src/dps8/dps8_math.c m1 = or_128 (m1, SIGN72); m1 1739 src/dps8/dps8_math.c m1 |= SIGN72; m1 1743 src/dps8/dps8_math.c if (iseq_128 (m1, MASK72) && notallzeros == 1 && shift_count * (int) shift_amt > 71) m1 1744 src/dps8/dps8_math.c m1 = construct_128 (0, 0); m1 1745 src/dps8/dps8_math.c m1 = and_128 (m1, MASK72); m1 1747 src/dps8/dps8_math.c if (m1 == MASK72 && notallzeros == 1 && shift_count * (int) shift_amt > 71) m1 1748 src/dps8/dps8_math.c m1 = 0; m1 1749 src/dps8/dps8_math.c m1 &= MASK72; m1 1790 src/dps8/dps8_math.c SC_I_ZERO (iseq_128 (m1, m2)); m1 1791 src/dps8/dps8_math.c SC_I_NEG (islt_s128 (SIGNEXT72_128(m1), SIGNEXT72_128(m2))); m1 1793 src/dps8/dps8_math.c SC_I_ZERO (m1 == m2); m1 1794 src/dps8/dps8_math.c SC_I_NEG ((int128)SIGNEXT72_128(m1) < (int128)SIGNEXT72_128(m2)); m1 1830 src/dps8/dps8_math.c word72 m1 = lshift_128 (construct_128 (0, cpu.rA & 0777777777400), 36); m1 1832 src/dps8/dps8_math.c word72 m1 = ((word72)cpu.rA & 0777777777400LL) << 36; m1 1857 src/dps8/dps8_math.c bool s = isnonzero_128 (and_128 (m1, SIGN72)); m1 1859 src/dps8/dps8_math.c bool s = (m1 & SIGN72) != (word72)0; ///< save sign bit m1 1863 src/dps8/dps8_math.c notallzeros |= m1.l & 1; m1 1864 src/dps8/dps8_math.c m1 = rshift_128 (m1, 1); m1 1866 src/dps8/dps8_math.c notallzeros |= m1 & 1; m1 1867 src/dps8/dps8_math.c m1 >>= 1; m1 1871 src/dps8/dps8_math.c m1 = or_128 (m1, SIGN72); m1 1873 src/dps8/dps8_math.c m1 |= SIGN72; m1 1878 src/dps8/dps8_math.c if (iseq_128 (m1, MASK72) && notallzeros == 1 && shift_count * (int) shift_amt > 71) m1 1879 src/dps8/dps8_math.c m1 = construct_128 (0, 0); m1 1880 src/dps8/dps8_math.c m1 = and_128 (m1, MASK72); m1 1882 src/dps8/dps8_math.c if (m1 == MASK72 && notallzeros == 1 && shift_count * (int) shift_amt > 71) m1 1883 src/dps8/dps8_math.c m1 = 0; m1 1884 src/dps8/dps8_math.c m1 &= MASK72; m1 1920 src/dps8/dps8_math.c SC_I_ZERO (ISEQ_128 (m1, m2)); m1 1922 src/dps8/dps8_math.c int128 sm1 = SIGNEXT72_128 (m1); m1 1930 src/dps8/dps8_math.c int128 sm1 = SIGNEXT72_128 (m1); m1 1996 src/dps8/dps8_math.c word72 m1 = convert_to_word72 (cpu.rA, cpu.rQ); m1 2062 src/dps8/dps8_math.c bool s = isnonzero_128 (and_128 (m1, SIGN72)); m1 2064 src/dps8/dps8_math.c bool s = (m1 & SIGN72) != (word72)0; m1 2068 src/dps8/dps8_math.c notallzeros |= m1.l & 1; m1 2069 src/dps8/dps8_math.c m1 = rshift_128 (m1, 1); m1 2071 src/dps8/dps8_math.c notallzeros |= m1 & 1; m1 2072 src/dps8/dps8_math.c m1 >>= 1; m1 2076 src/dps8/dps8_math.c m1 = or_128 (m1, SIGN72); m1 2078 src/dps8/dps8_math.c m1 |= SIGN72; m1 2082 src/dps8/dps8_math.c if (iseq_128 (m1, MASK72) && notallzeros == 1 && shift_count * (int) shift_amt > 71) m1 2083 src/dps8/dps8_math.c m1 = construct_128 (0, 0); m1 2084 src/dps8/dps8_math.c m1 = and_128 (m1, MASK72); m1 2086 src/dps8/dps8_math.c if (m1 == MASK72 && notallzeros == 1 && shift_count * (int) shift_amt > 71) m1 2087 src/dps8/dps8_math.c m1 = 0; m1 2088 src/dps8/dps8_math.c m1 &= MASK72; m1 2127 src/dps8/dps8_math.c word72 m3 = Add72b (cpup, m1, m2, 0, I_CARRY, & cpu.cu.IR, & ovf); m1 2306 src/dps8/dps8_math.c word72 m1 = convert_to_word72 (cpu.rA, cpu.rQ); m1 2311 src/dps8/dps8_math.c e1, e1, (word36) (m1 >> 36) & MASK36, (word36) m1 & MASK36); m1 2330 src/dps8/dps8_math.c if (ISZERO_128 (m1) || ISZERO_128 (m2)) { m1 2374 src/dps8/dps8_math.c int128 m1l = and_s128 (cast_s128 (m1), construct_128 (0, MASK64)); m1 2375 src/dps8/dps8_math.c int128 m1h = rshift_s128 (SIGNEXT72_128(m1), 64); m1 2388 src/dps8/dps8_math.c int128 m1l = m1 & (((uint128)1<<64)-1); m1 2389 src/dps8/dps8_math.c int128 m1h = SIGNEXT72_128(m1) >> 64; m1 2403 src/dps8/dps8_math.c if (ISEQ_128 (m1, SIGN72) && ISEQ_128 (m2, SIGN72)) { m1 2472 src/dps8/dps8_math.c word72 m1; m1 2481 src/dps8/dps8_math.c m1 = convert_to_word72 (cpu.rA, cpu.rQ); m1 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) m1 2527 src/dps8/dps8_math.c m1 = or_128 (m1, lshift_128 (construct_128 (0, cpu.Ypair[1]), 8u)); m1 2529 src/dps8/dps8_math.c m1 = ((word72) getbits36_28 (cpu.Ypair[0], 8)) << 44; m1 2530 src/dps8/dps8_math.c m1 |= (word72) cpu.Ypair[1] << 8; m1 2536 src/dps8/dps8_math.c if (ISZERO_128 (m1)) { m1 2553 src/dps8/dps8_math.c if (isnonzero_128 (and_128 (m1, SIGN72))) { m1 2555 src/dps8/dps8_math.c if (iseq_128 (m1, SIGN72)) { m1 2556 src/dps8/dps8_math.c m1 = rshift_128 (m1, shift_amt); m1 2559 src/dps8/dps8_math.c m1 = and_128 (negate_128 (m1), MASK72); m1 2576 src/dps8/dps8_math.c if (m1 & SIGN72) { m1 2578 src/dps8/dps8_math.c if (m1 == SIGN72) { m1 2579 src/dps8/dps8_math.c m1 >>= shift_amt; m1 2582 src/dps8/dps8_math.c m1 = (~m1 + 1) & MASK72; m1 2612 src/dps8/dps8_math.c convert_to_word36 (m1, & cpu.rA, & cpu.rQ); m1 2622 src/dps8/dps8_math.c while (isge_128 (m1, m2)) { m1 2623 src/dps8/dps8_math.c m1 = rshift_128 (m1, shift_amt); m1 2627 src/dps8/dps8_math.c while (m1 >= m2) { m1 2628 src/dps8/dps8_math.c m1 >>= shift_amt; m1 2650 src/dps8/dps8_math.c word72 m3 = divide_128 (lshift_128 (m1, 63-8), rshift_128 (m2, 8), NULL); m1 2652 src/dps8/dps8_math.c word72 m3 = ((uint128)m1 << (63-8)) / ((uint128)m2 >> 8); m1 3328 src/dps8/dps8_math.c word72 m1 = convert_to_word72 (cpu.rA, cpu.rQ & 0777777777400LL); m1 3351 src/dps8/dps8_math.c bool s = isnonzero_128 (and_128 (m1, SIGN72)); ///< mantissa negative? m1 3353 src/dps8/dps8_math.c notallzeros |= m1.l & 1; m1 3354 src/dps8/dps8_math.c m1 = rshift_128 (m1, 1); m1 3356 src/dps8/dps8_math.c m1 = or_128 (m1, SIGN72); m1 3360 src/dps8/dps8_math.c if (iseq_128 (m1, MASK72) && notallzeros == 1 && shift_count * (int) shift_amt > 71) m1 3361 src/dps8/dps8_math.c m1 = construct_128 (0, 0); m1 3363 src/dps8/dps8_math.c if (iseq_128 (m1, MASK72) && notallzeros == 1 && shift_count > 71) m1 3364 src/dps8/dps8_math.c m1 = construct_128 (0, 0); m1 3366 src/dps8/dps8_math.c m1 = and_128 (m1, MASK72); m1 3386 src/dps8/dps8_math.c SC_I_ZERO (iseq_128 (m1, m2)); m1 3387 src/dps8/dps8_math.c int128 sm1 = SIGNEXT72_128 (m1); m1 3395 src/dps8/dps8_math.c bool s = m1 & SIGN72; ///< mantissa negative? m1 3397 src/dps8/dps8_math.c notallzeros |= m1 & 1; m1 3398 src/dps8/dps8_math.c m1 >>= 1; m1 3400 src/dps8/dps8_math.c m1 |= SIGN72; m1 3404 src/dps8/dps8_math.c if (m1 == MASK72 && notallzeros == 1 && shift_count * (int) shift_amt > 71) m1 3405 src/dps8/dps8_math.c m1 = 0; m1 3407 src/dps8/dps8_math.c if (m1 == MASK72 && notallzeros == 1 && shift_count > 71) m1 3408 src/dps8/dps8_math.c m1 = 0; m1 3410 src/dps8/dps8_math.c m1 &= MASK72; m1 3430 src/dps8/dps8_math.c SC_I_ZERO (m1 == m2); m1 3431 src/dps8/dps8_math.c int128 sm1 = SIGNEXT72_128 (m1); m1 3463 src/dps8/dps8_math.c word72 m1 = convert_to_word72 (cpu.rA & MASK36, cpu.rQ & 0777777777400LL); m1 3487 src/dps8/dps8_math.c bool s = isnonzero_128 (and_128 (m1, SIGN72)); ///< mantissa negative? m1 3489 src/dps8/dps8_math.c notallzeros |= m1.l & 1; m1 3490 src/dps8/dps8_math.c m1 = rshift_128 (m1, 1); m1 3492 src/dps8/dps8_math.c m1 = or_128 (m1, SIGN72); m1 3495 src/dps8/dps8_math.c if (iseq_128 (m1, MASK72) && notallzeros == 1 && shift_count * (int) shift_amt > 71) m1 3496 src/dps8/dps8_math.c m1 = construct_128 (0, 0); m1 3498 src/dps8/dps8_math.c if (iseq_128 (m1, MASK72) && notallzeros == 1 && shift_count > 71) m1 3499 src/dps8/dps8_math.c m1 = construct_128 (0, 0); m1 3501 src/dps8/dps8_math.c m1 = and_128 (m1, MASK72); m1 3503 src/dps8/dps8_math.c bool s = m1 & SIGN72; ///< mantissa negative? m1 3505 src/dps8/dps8_math.c notallzeros |= m1 & 1; m1 3506 src/dps8/dps8_math.c m1 >>= 1; m1 3508 src/dps8/dps8_math.c m1 |= SIGN72; m1 3511 src/dps8/dps8_math.c if (m1 == MASK72 && notallzeros == 1 && shift_count * (int) shift_amt > 71) m1 3512 src/dps8/dps8_math.c m1 = 0; m1 3514 src/dps8/dps8_math.c if (m1 == MASK72 && notallzeros == 1 && shift_count > 71) m1 3515 src/dps8/dps8_math.c m1 = 0; m1 3517 src/dps8/dps8_math.c m1 &= MASK72; m1 3557 src/dps8/dps8_math.c SC_I_ZERO (iseq_128 (m1, m2)); m1 3558 src/dps8/dps8_math.c int128 sm1 = SIGNEXT72_128 (m1); m1 3567 src/dps8/dps8_math.c SC_I_ZERO (m1 == m2); m1 3568 src/dps8/dps8_math.c int128 sm1 = SIGNEXT72_128 (m1);