m3 605 src/dps8/dps8_math.c word72 m3; m3 606 src/dps8/dps8_math.c m3 = Add72b (cpup, m1, m2, 0, I_CARRY, & cpu.cu.IR, & ovf); m3 620 src/dps8/dps8_math.c word72 s = and_128 (m3, SIGN72); // save the sign bit m3 622 src/dps8/dps8_math.c m3 = rshift_128 (m3, shift_amt); // renormalize the mantissa m3 625 src/dps8/dps8_math.c m3 = and_128 (m3, MASK68); m3 628 src/dps8/dps8_math.c m3 = or_128 (m3, HEX_SIGN); m3 630 src/dps8/dps8_math.c word72 signbit = and_128 (m3, SIGN72); m3 631 src/dps8/dps8_math.c m3 = rshift_128 (m3, 1); m3 632 src/dps8/dps8_math.c m3 = and_128 (m3, MASK71); m3 633 src/dps8/dps8_math.c m3 = or_128 (m3, signbit); m3 634 src/dps8/dps8_math.c m3 = xor_128 (m3, SIGN72); // C(AQ)0 is inverted to restore the sign m3 638 src/dps8/dps8_math.c word72 signbit = and_128 (m3, SIGN72); m3 639 src/dps8/dps8_math.c m3 = rshift_128 (m3, 1); m3 640 src/dps8/dps8_math.c m3 = and_128 (m3, MASK71); m3 641 src/dps8/dps8_math.c m3 = or_128 (m3, signbit); m3 642 src/dps8/dps8_math.c m3 = xor_128 (m3, SIGN72); // C(AQ)0 is inverted to restore the sign m3 652 src/dps8/dps8_math.c word72 s = m3 & SIGN72; // save the sign bit m3 654 src/dps8/dps8_math.c m3 >>= shift_amt; // renormalize the mantissa m3 657 src/dps8/dps8_math.c m3 &= MASK68; m3 660 src/dps8/dps8_math.c m3 |= HEX_SIGN; m3 662 src/dps8/dps8_math.c word72 signbit = m3 & SIGN72; m3 663 src/dps8/dps8_math.c m3 >>= 1; m3 664 src/dps8/dps8_math.c m3 = (m3 & MASK71) | signbit; m3 665 src/dps8/dps8_math.c m3 ^= SIGN72; // C(AQ)0 is inverted to restore the sign m3 669 src/dps8/dps8_math.c word72 signbit = m3 & SIGN72; m3 670 src/dps8/dps8_math.c m3 >>= 1; m3 671 src/dps8/dps8_math.c m3 = (m3 & MASK71) | signbit; m3 672 src/dps8/dps8_math.c m3 ^= SIGN72; // C(AQ)0 is inverted to restore the sign m3 678 src/dps8/dps8_math.c convert_to_word36 (m3, & cpu.rA, & cpu.rQ); m3 1182 src/dps8/dps8_math.c int128 m3 = multiply_s128 (SIGNEXT72_128(m1), cast_s128 (ut)); m3 1185 src/dps8/dps8_math.c int128 m3 = (SIGNEXT72_128(m1) * (SIGNEXT72_128(m2) >> 44)); m3 1190 src/dps8/dps8_math.c word72 m3a = and_128 (rshift_128 (cast_128 (m3), 98u - 71u), MASK72); m3 1193 src/dps8/dps8_math.c word72 m3a = ((word72) (m3 >> (98-71))) & MASK72; m3 1440 src/dps8/dps8_math.c word72 m3; m3 1442 src/dps8/dps8_math.c m3 = divide_128_32 (rshift_128 (m1, (44u-35u)), divisor, NULL); m3 1444 src/dps8/dps8_math.c m3 = divide_128_16 (rshift_128 (m1, (44u-35u)), (uint16_t) divisor, NULL); m3 1446 src/dps8/dps8_math.c word72 m3 = (m1 >> (44-35)) / (m2 >> 44); m3 1450 src/dps8/dps8_math.c m3 = lshift_128 (m3, 36); m3 1452 src/dps8/dps8_math.c m3 = and_128 (negate_128 (m3), MASK72); m3 1454 src/dps8/dps8_math.c m3 <<= 36; // convert back to float m3 1456 src/dps8/dps8_math.c m3 = (~m3 + 1) & MASK72; m3 1461 src/dps8/dps8_math.c cpu.rA = rshift_128 (m3, 36u).l & MASK36; m3 1463 src/dps8/dps8_math.c cpu.rA = (m3 >> 36) & MASK36; m3 2127 src/dps8/dps8_math.c word72 m3 = Add72b (cpup, m1, m2, 0, I_CARRY, & cpu.cu.IR, & ovf); m3 2140 src/dps8/dps8_math.c bool s = isnonzero_128 (and_128 (m3, SIGN72)); m3 2142 src/dps8/dps8_math.c bool s = (m3 & SIGN72) != (word72)0; m3 2146 src/dps8/dps8_math.c m3 = rshift_128 (m3, shift_amt); // renormalize the mantissa m3 2149 src/dps8/dps8_math.c m3 = and_128 (m3, MASK68); m3 2152 src/dps8/dps8_math.c m3 = or_128 (m3, HEX_SIGN); m3 2154 src/dps8/dps8_math.c m3 >>= shift_amt; // renormalize the mantissa m3 2157 src/dps8/dps8_math.c m3 &= MASK68; m3 2160 src/dps8/dps8_math.c m3 |= HEX_SIGN; m3 2164 src/dps8/dps8_math.c word72 signbit = and_128 (m3, SIGN72); m3 2165 src/dps8/dps8_math.c m3 = rshift_128 (m3, 1); // renormalize the mantissa m3 2166 src/dps8/dps8_math.c m3 = or_128 (and_128 (m3, MASK71), signbit); m3 2167 src/dps8/dps8_math.c m3 = xor_128 (m3, SIGN72); // C(AQ)0 is inverted to restore the sign m3 2169 src/dps8/dps8_math.c word72 signbit = m3 & SIGN72; m3 2170 src/dps8/dps8_math.c m3 >>= 1; m3 2171 src/dps8/dps8_math.c m3 = (m3 & MASK71) | signbit; m3 2172 src/dps8/dps8_math.c m3 ^= SIGN72; // C(AQ)0 is inverted to restore the sign m3 2178 src/dps8/dps8_math.c word72 signbit = and_128 (m3, SIGN72); m3 2179 src/dps8/dps8_math.c m3 = rshift_128 (m3, 1); // renormalize the mantissa m3 2180 src/dps8/dps8_math.c m3 = or_128 (and_128 (m3, MASK71), signbit); m3 2181 src/dps8/dps8_math.c m3 = xor_128 (m3, SIGN72); // C(AQ)0 is inverted to restore the sign m3 2183 src/dps8/dps8_math.c word72 signbit = m3 & SIGN72; m3 2184 src/dps8/dps8_math.c m3 >>= 1; m3 2185 src/dps8/dps8_math.c m3 = (m3 & MASK71) | signbit; m3 2186 src/dps8/dps8_math.c m3 ^= SIGN72; // C(AQ)0 is inverted to restore the sign m3 2192 src/dps8/dps8_math.c convert_to_word36 (m3, & cpu.rA, & cpu.rQ); m3 2650 src/dps8/dps8_math.c word72 m3 = divide_128 (lshift_128 (m1, 63-8), rshift_128 (m2, 8), NULL); m3 2652 src/dps8/dps8_math.c word72 m3 = ((uint128)m1 << (63-8)) / ((uint128)m2 >> 8); m3 2657 src/dps8/dps8_math.c m3 = lshift_128 (m3, 8); // convert back to float m3 2659 src/dps8/dps8_math.c m3 = and_128 (negate_128 (m3), MASK72); m3 2661 src/dps8/dps8_math.c m3 <<= 8; // convert back to float m3 2663 src/dps8/dps8_math.c m3 = (~m3 + 1) & MASK72; m3 2666 src/dps8/dps8_math.c convert_to_word36 (m3, & cpu.rA, & cpu.rQ);