m3 600 src/dps8/dps8_math.c word72 m3; m3 601 src/dps8/dps8_math.c m3 = Add72b (m1, m2, 0, I_CARRY, & cpu.cu.IR, & ovf); m3 615 src/dps8/dps8_math.c word72 s = and_128 (m3, SIGN72); // save the sign bit m3 617 src/dps8/dps8_math.c m3 = rshift_128 (m3, shift_amt); // renormalize the mantissa m3 620 src/dps8/dps8_math.c m3 = and_128 (m3, MASK68); m3 623 src/dps8/dps8_math.c m3 = or_128 (m3, HEX_SIGN); m3 625 src/dps8/dps8_math.c word72 signbit = and_128 (m3, SIGN72); m3 626 src/dps8/dps8_math.c m3 = rshift_128 (m3, 1); m3 627 src/dps8/dps8_math.c m3 = and_128 (m3, MASK71); m3 628 src/dps8/dps8_math.c m3 = or_128 (m3, signbit); m3 629 src/dps8/dps8_math.c m3 = xor_128 (m3, SIGN72); // C(AQ)0 is inverted to restore the sign m3 633 src/dps8/dps8_math.c word72 signbit = and_128 (m3, SIGN72); m3 634 src/dps8/dps8_math.c m3 = rshift_128 (m3, 1); m3 635 src/dps8/dps8_math.c m3 = and_128 (m3, MASK71); m3 636 src/dps8/dps8_math.c m3 = or_128 (m3, signbit); m3 637 src/dps8/dps8_math.c m3 = xor_128 (m3, SIGN72); // C(AQ)0 is inverted to restore the sign m3 647 src/dps8/dps8_math.c word72 s = m3 & SIGN72; // save the sign bit m3 649 src/dps8/dps8_math.c m3 >>= shift_amt; // renormalize the mantissa m3 652 src/dps8/dps8_math.c m3 &= MASK68; m3 655 src/dps8/dps8_math.c m3 |= HEX_SIGN; m3 657 src/dps8/dps8_math.c word72 signbit = m3 & SIGN72; m3 658 src/dps8/dps8_math.c m3 >>= 1; m3 659 src/dps8/dps8_math.c m3 = (m3 & MASK71) | signbit; m3 660 src/dps8/dps8_math.c m3 ^= SIGN72; // C(AQ)0 is inverted to restore the sign m3 664 src/dps8/dps8_math.c word72 signbit = m3 & SIGN72; m3 665 src/dps8/dps8_math.c m3 >>= 1; m3 666 src/dps8/dps8_math.c m3 = (m3 & MASK71) | signbit; m3 667 src/dps8/dps8_math.c m3 ^= SIGN72; // C(AQ)0 is inverted to restore the sign m3 673 src/dps8/dps8_math.c convert_to_word36 (m3, & cpu.rA, & cpu.rQ); m3 1178 src/dps8/dps8_math.c int128 m3 = multiply_s128 (SIGNEXT72_128(m1), cast_s128 (ut)); m3 1181 src/dps8/dps8_math.c int128 m3 = (SIGNEXT72_128(m1) * (SIGNEXT72_128(m2) >> 44)); m3 1186 src/dps8/dps8_math.c word72 m3a = and_128 (rshift_128 (cast_128 (m3), 98u - 71u), MASK72); m3 1189 src/dps8/dps8_math.c word72 m3a = ((word72) (m3 >> (98-71))) & MASK72; m3 1436 src/dps8/dps8_math.c word72 m3; m3 1438 src/dps8/dps8_math.c m3 = divide_128_32 (rshift_128 (m1, (44u-35u)), divisor, NULL); m3 1440 src/dps8/dps8_math.c m3 = divide_128_16 (rshift_128 (m1, (44u-35u)), (uint16_t) divisor, NULL); m3 1442 src/dps8/dps8_math.c word72 m3 = (m1 >> (44-35)) / (m2 >> 44); m3 1446 src/dps8/dps8_math.c m3 = lshift_128 (m3, 36); m3 1448 src/dps8/dps8_math.c m3 = and_128 (negate_128 (m3), MASK72); m3 1450 src/dps8/dps8_math.c m3 <<= 36; // convert back to float m3 1452 src/dps8/dps8_math.c m3 = (~m3 + 1) & MASK72; m3 1457 src/dps8/dps8_math.c cpu.rA = rshift_128 (m3, 36u).l & MASK36; m3 1459 src/dps8/dps8_math.c cpu.rA = (m3 >> 36) & MASK36; m3 2124 src/dps8/dps8_math.c word72 m3 = Add72b (m1, m2, 0, I_CARRY, & cpu.cu.IR, & ovf); m3 2137 src/dps8/dps8_math.c bool s = isnonzero_128 (and_128 (m3, SIGN72)); m3 2139 src/dps8/dps8_math.c bool s = (m3 & SIGN72) != (word72)0; m3 2143 src/dps8/dps8_math.c m3 = rshift_128 (m3, shift_amt); // renormalize the mantissa m3 2146 src/dps8/dps8_math.c m3 = and_128 (m3, MASK68); m3 2149 src/dps8/dps8_math.c m3 = or_128 (m3, HEX_SIGN); m3 2151 src/dps8/dps8_math.c m3 >>= shift_amt; // renormalize the mantissa m3 2154 src/dps8/dps8_math.c m3 &= MASK68; m3 2157 src/dps8/dps8_math.c m3 |= HEX_SIGN; m3 2161 src/dps8/dps8_math.c word72 signbit = and_128 (m3, SIGN72); m3 2162 src/dps8/dps8_math.c m3 = rshift_128 (m3, 1); // renormalize the mantissa m3 2163 src/dps8/dps8_math.c m3 = or_128 (and_128 (m3, MASK71), signbit); m3 2164 src/dps8/dps8_math.c m3 = xor_128 (m3, SIGN72); // C(AQ)0 is inverted to restore the sign m3 2166 src/dps8/dps8_math.c word72 signbit = m3 & SIGN72; m3 2167 src/dps8/dps8_math.c m3 >>= 1; m3 2168 src/dps8/dps8_math.c m3 = (m3 & MASK71) | signbit; m3 2169 src/dps8/dps8_math.c m3 ^= SIGN72; // C(AQ)0 is inverted to restore the sign m3 2175 src/dps8/dps8_math.c word72 signbit = and_128 (m3, SIGN72); m3 2176 src/dps8/dps8_math.c m3 = rshift_128 (m3, 1); // renormalize the mantissa m3 2177 src/dps8/dps8_math.c m3 = or_128 (and_128 (m3, MASK71), signbit); m3 2178 src/dps8/dps8_math.c m3 = xor_128 (m3, SIGN72); // C(AQ)0 is inverted to restore the sign m3 2180 src/dps8/dps8_math.c word72 signbit = m3 & SIGN72; m3 2181 src/dps8/dps8_math.c m3 >>= 1; m3 2182 src/dps8/dps8_math.c m3 = (m3 & MASK71) | signbit; m3 2183 src/dps8/dps8_math.c m3 ^= SIGN72; // C(AQ)0 is inverted to restore the sign m3 2189 src/dps8/dps8_math.c convert_to_word36 (m3, & cpu.rA, & cpu.rQ); m3 2645 src/dps8/dps8_math.c word72 m3 = divide_128 (lshift_128 (m1, 63-8), rshift_128 (m2, 8), NULL); m3 2647 src/dps8/dps8_math.c word72 m3 = ((uint128)m1 << (63-8)) / ((uint128)m2 >> 8); m3 2652 src/dps8/dps8_math.c m3 = lshift_128 (m3, 8); // convert back to float m3 2654 src/dps8/dps8_math.c m3 = and_128 (negate_128 (m3), MASK72); m3 2656 src/dps8/dps8_math.c m3 <<= 8; // convert back to float m3 2658 src/dps8/dps8_math.c m3 = (~m3 + 1) & MASK72; m3 2661 src/dps8/dps8_math.c convert_to_word36 (m3, & cpu.rA, & cpu.rQ);