m 6043 src/decNumber/decNumber.c Unit *c, Int m) { m 6081 src/decNumber/decNumber.c carry+=((eInt)*b)*m; // [special-casing m=1/-1 m 6165 src/decNumber/decNumber.c carry+=((eInt)*b)*m; m 603 src/dps8/dps8_cpu.h struct MOP_struct_s *m; // pointer to current MOP struct m 4030 src/dps8/dps8_eis.c uint m = 0; m 4035 src/dps8/dps8_eis.c m = c & 017; // truncate upper 2-bits m 4038 src/dps8/dps8_eis.c m = c & 077; // truncate upper 3-bits m 4041 src/dps8/dps8_eis.c m = c; // keep all 9-bits m 4045 src/dps8/dps8_eis.c word9 cout = xlate (cpup, &e->ADDR2, CTA9, m); m 4049 src/dps8/dps8_eis.c m, isprint ((int) m) ? '?' : (char) m, m 4226 src/dps8/dps8_eis.c uint m = 0; m 4231 src/dps8/dps8_eis.c m = c & 017; // truncate upper 2-bits m 4234 src/dps8/dps8_eis.c m = c & 077; // truncate upper 3-bits m 4237 src/dps8/dps8_eis.c m = c; // keep all 9-bits m 4241 src/dps8/dps8_eis.c word9 cout = xlate (cpup, &e->ADDR2, CTA9, m); m 4245 src/dps8/dps8_eis.c m, isprint ((int) m) ? '?' : (char) m, m 6540 src/dps8/dps8_eis.c MOP_struct *m = &mopTab[mop]; m 6541 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "MOP %s(%o) %o\n", m -> mopName, mop, e->mopIF); m 6542 src/dps8/dps8_eis.c e->m = m; m 6543 src/dps8/dps8_eis.c if (e->m == NULL || e->m->f == NULL) m 6554 src/dps8/dps8_eis.c return m; m 6596 src/dps8/dps8_eis.c MOP_struct *m = EISgetMop(cpup); m 6597 src/dps8/dps8_eis.c if (! m) m 6603 src/dps8/dps8_eis.c int mres = m->f(cpup); // execute mop m 9326 src/dps8/dps8_eis.c int m = n; m 9327 src/dps8/dps8_eis.c while (m) m 9354 src/dps8/dps8_eis.c m -= 1; // decrement byte counter m 7583 src/dps8/dps8_ins.c word4 m = cpu.PTWAM[i].USE; m 7584 src/dps8/dps8_ins.c cpu.PTWAM[m].POINTER = getbits36_15 (cpu.Yblock16[i], 0); m 7585 src/dps8/dps8_ins.c cpu.PTWAM[m].PAGENO = getbits36_12 (cpu.Yblock16[i], 15); m 7586 src/dps8/dps8_ins.c cpu.PTWAM[m].FE = getbits36_1 (cpu.Yblock16[i], 27); m 7599 src/dps8/dps8_ins.c word4 m = cpu.PTWAM[i].USE; m 7600 src/dps8/dps8_ins.c cpu.PTWAM[m].ADDR = getbits36_18 (cpu.Yblock16[i], 0); m 7601 src/dps8/dps8_ins.c cpu.PTWAM[m].M = getbits36_1 (cpu.Yblock16[i], 29); m 7627 src/dps8/dps8_ins.c word4 m = cpu.SDWAM[i].USE; m 7628 src/dps8/dps8_ins.c cpu.SDWAM[m].POINTER = getbits36_15 (cpu.Yblock16[i], 0); m 7629 src/dps8/dps8_ins.c cpu.SDWAM[m].FE = getbits36_1 (cpu.Yblock16[i], 27); m 7645 src/dps8/dps8_ins.c word4 m = cpu.SDWAM[i].USE; m 7646 src/dps8/dps8_ins.c uint j = (uint)m * 2; m 7647 src/dps8/dps8_ins.c cpu.SDWAM[m].ADDR = getbits36_24 (cpu.Yblock32[j], 0); m 7648 src/dps8/dps8_ins.c cpu.SDWAM[m].R1 = getbits36_3 (cpu.Yblock32[j], 24); m 7649 src/dps8/dps8_ins.c cpu.SDWAM[m].R2 = getbits36_3 (cpu.Yblock32[j], 27); m 7650 src/dps8/dps8_ins.c cpu.SDWAM[m].R3 = getbits36_3 (cpu.Yblock32[j], 30); m 7652 src/dps8/dps8_ins.c cpu.SDWAM[m].BOUND = getbits36_14 (cpu.Yblock32[j + 1], 37 - 36); m 7653 src/dps8/dps8_ins.c cpu.SDWAM[m].R = getbits36_1 (cpu.Yblock32[j + 1], 51 - 36); m 7654 src/dps8/dps8_ins.c cpu.SDWAM[m].E = getbits36_1 (cpu.Yblock32[j + 1], 52 - 36); m 7655 src/dps8/dps8_ins.c cpu.SDWAM[m].W = getbits36_1 (cpu.Yblock32[j + 1], 53 - 36); m 7656 src/dps8/dps8_ins.c cpu.SDWAM[m].P = getbits36_1 (cpu.Yblock32[j + 1], 54 - 36); m 7657 src/dps8/dps8_ins.c cpu.SDWAM[m].U = getbits36_1 (cpu.Yblock32[j + 1], 55 - 36); m 7658 src/dps8/dps8_ins.c cpu.SDWAM[m].G = getbits36_1 (cpu.Yblock32[j + 1], 56 - 36); m 7659 src/dps8/dps8_ins.c cpu.SDWAM[m].C = getbits36_1 (cpu.Yblock32[j + 1], 57 - 36); m 7660 src/dps8/dps8_ins.c cpu.SDWAM[m].EB = getbits36_14 (cpu.Yblock32[j + 1], 58 - 36); m 60 src/dps8/dps8_math.c # define ISZERO_128(m) iszero_128 (m) m 63 src/dps8/dps8_math.c # define ISZERO_128(m) ((m) == 0) m 92 src/dps8/dps8_math.c long double m = 0; // mantissa value; m 104 src/dps8/dps8_math.c m += v; m 109 src/dps8/dps8_math.c m += v; m 120 src/dps8/dps8_math.c return (S ? -1 : 1) * ldexpl(m, e); m 144 src/dps8/dps8_math.c double m = 0; // mantissa value m 156 src/dps8/dps8_math.c m += v; m 161 src/dps8/dps8_math.c m += v; m 167 src/dps8/dps8_math.c return (S ? -1 : 1) * ldexp(m, e); m 363 src/dps8/dps8_math.c m 374 src/dps8/dps8_math.c m 379 src/dps8/dps8_math.c m 746 src/dps8/dps8_math.c float72 m = convert_to_word72 (* A, * Q); m 750 src/dps8/dps8_math.c word72 s = and_128 (m, SIGN72); // save the sign bit m 753 src/dps8/dps8_math.c m = rshift_128 (m, shift_amt); // renormalize the mantissa m 756 src/dps8/dps8_math.c m = and_128 (m, MASK68); m 759 src/dps8/dps8_math.c m = or_128 (m, HEX_SIGN); m 761 src/dps8/dps8_math.c m = rshift_128 (m, 1); // renormalize the mantissa m 762 src/dps8/dps8_math.c m = or_128 (m, SIGN72); // set the sign bit m 763 src/dps8/dps8_math.c m = xor_128 (m, s); // if the was 0, leave it 1; if it was 1, make it 0 m 766 src/dps8/dps8_math.c m = rshift_128 (m, 1); // renormalize the mantissa m 767 src/dps8/dps8_math.c m = or_128 (m, SIGN72); // set the sign bit m 768 src/dps8/dps8_math.c m = xor_128 (m, s); // if the was 0, leave it 1; if it was 1, make it 0 m 772 src/dps8/dps8_math.c if (iszero_128 (m)) { m 787 src/dps8/dps8_math.c word72 s = m & SIGN72; // save the sign bit m 790 src/dps8/dps8_math.c m >>= shift_amt; // renormalize the mantissa m 793 src/dps8/dps8_math.c m &= MASK68; m 796 src/dps8/dps8_math.c m |= HEX_SIGN; m 798 src/dps8/dps8_math.c m >>= 1; // renormalize the mantissa m 799 src/dps8/dps8_math.c m |= SIGN72; // set the sign bit m 800 src/dps8/dps8_math.c m ^= s; // if the was 0, leave it 1; if it was 1, make it 0 m 803 src/dps8/dps8_math.c m >>= 1; // renormalize the mantissa m 804 src/dps8/dps8_math.c m |= SIGN72; // set the sign bit m 805 src/dps8/dps8_math.c m ^= s; // if the was 0, leave it 1; if it was 1, make it 0 m 809 src/dps8/dps8_math.c if (m == 0) { m 823 src/dps8/dps8_math.c convert_to_word36 (m, A, Q); m 831 src/dps8/dps8_math.c if (iszero_128 (m)) { /// C(AQ) == 0. m 840 src/dps8/dps8_math.c if (m == 0) { // C(AQ) == 0. m 853 src/dps8/dps8_math.c bool s = isnonzero_128 (and_128 (m, SIGN72)); m 855 src/dps8/dps8_math.c bool s = (m & SIGN72) != (word72)0; ///< save sign bit m 869 src/dps8/dps8_math.c while (iseq_128 (and_128 (m, HEX_NORM), HEX_NORM)) { m 870 src/dps8/dps8_math.c m = lshift_128 (m, 4); m 873 src/dps8/dps8_math.c m = and_128 (m, MASK71); m 874 src/dps8/dps8_math.c m = or_128 (m, SIGN72); m 876 src/dps8/dps8_math.c while ((m & HEX_NORM) == HEX_NORM) { m 877 src/dps8/dps8_math.c m <<= 4; m 880 src/dps8/dps8_math.c m &= MASK71; m 881 src/dps8/dps8_math.c m |= SIGN72; m 889 src/dps8/dps8_math.c while (iszero_128 (and_128 (m, HEX_NORM))) { m 890 src/dps8/dps8_math.c m = lshift_128 (m, 4); m 893 src/dps8/dps8_math.c m = and_128 (m, MASK71); m 899 src/dps8/dps8_math.c while ((m & HEX_NORM) == 0) { m 900 src/dps8/dps8_math.c m <<= 4; m 903 src/dps8/dps8_math.c m &= MASK71; m 908 src/dps8/dps8_math.c while (s == isnonzero_128 (and_128 (m, BIT71))) { // until C(AQ)0 != C(AQ)1? m 909 src/dps8/dps8_math.c m = lshift_128 (m, 1); m 913 src/dps8/dps8_math.c m = and_128 (m, MASK71); m 916 src/dps8/dps8_math.c m = or_128 (m, SIGN72); m 918 src/dps8/dps8_math.c while (s == !! (m & BIT71)) { // until C(AQ)0 != C(AQ)1? m 919 src/dps8/dps8_math.c m <<= 1; m 923 src/dps8/dps8_math.c m &= MASK71; m 926 src/dps8/dps8_math.c m |= SIGN72; m 931 src/dps8/dps8_math.c while (s == isnonzero_128 (and_128 (m, BIT71))) { // until C(AQ)0 != C(AQ)1? m 932 src/dps8/dps8_math.c m = lshift_128 (m, 1); m 936 src/dps8/dps8_math.c m = and_128 (m, MASK71); m 939 src/dps8/dps8_math.c m = or_128 (m, SIGN72); m 941 src/dps8/dps8_math.c while (s == !! (m & BIT71)) { // until C(AQ)0 != C(AQ)1? m 942 src/dps8/dps8_math.c m <<= 1; m 946 src/dps8/dps8_math.c m &= MASK71; m 949 src/dps8/dps8_math.c m |= SIGN72; m 960 src/dps8/dps8_math.c convert_to_word36 (m, A, Q); m 989 src/dps8/dps8_math.c m 992 src/dps8/dps8_math.c m 993 src/dps8/dps8_math.c m 995 src/dps8/dps8_math.c m 1002 src/dps8/dps8_math.c m 1013 src/dps8/dps8_math.c m 1015 src/dps8/dps8_math.c m 1016 src/dps8/dps8_math.c m 1030 src/dps8/dps8_math.c m 1031 src/dps8/dps8_math.c m 1033 src/dps8/dps8_math.c m 1034 src/dps8/dps8_math.c m 1037 src/dps8/dps8_math.c m 1044 src/dps8/dps8_math.c m 1052 src/dps8/dps8_math.c m 1053 src/dps8/dps8_math.c m 1082 src/dps8/dps8_math.c word72 m = convert_to_word72 (cpu.rA, cpu.rQ); m 1087 src/dps8/dps8_math.c if (ISEQ_128 (m, SIGN72)) { m 1092 src/dps8/dps8_math.c m = rshift_128 (m, 1); m 1094 src/dps8/dps8_math.c m >>= 1; m 1107 src/dps8/dps8_math.c m = negate_128 (m); m 1111 src/dps8/dps8_math.c m = (word72) (- (word72s) m); m 1114 src/dps8/dps8_math.c convert_to_word36 (m, & cpu.rA, & cpu.rQ); m 1553 src/dps8/dps8_math.c word72 m = convert_to_word72 (cpu.rA, cpu.rQ); m 1554 src/dps8/dps8_math.c if (ISZERO_128 (m)) { m 1567 src/dps8/dps8_math.c if (iszero_128 (and_128 (m, SIGN72))) m 1569 src/dps8/dps8_math.c if ((m & SIGN72) == 0) m 1575 src/dps8/dps8_math.c m = Add72b (cpup, m, construct_128 (0, 0177777777777777LL), carry, I_OFLOW, & flags1, & ovf); m 1577 src/dps8/dps8_math.c m = Add72b (cpup, m, 0177777777777777LL, carry, I_OFLOW, & flags1, & ovf); m 1582 src/dps8/dps8_math.c m = and_128 (m, lshift_128 (construct_128 (0, 0777777777400), 36)); m 1584 src/dps8/dps8_math.c m &= ((word72)0777777777400 << 36); m 1594 src/dps8/dps8_math.c convert_to_word36 (m, & cpu.rA, & cpu.rQ); m 1618 src/dps8/dps8_math.c float72 m = convert_to_word72 (A, Q); m 1620 src/dps8/dps8_math.c if (iszero_128 (m)) m 1622 src/dps8/dps8_math.c if (m == 0) m 1639 src/dps8/dps8_math.c if (iszero_128 (and_128 (m, SIGN72))) m 1641 src/dps8/dps8_math.c if ((m & SIGN72) == 0) m 1647 src/dps8/dps8_math.c m = Add72b (cpup, m, construct_128 (0, 0177777777777777LL), carry, I_OFLOW, & flags1, & ovf); m 1649 src/dps8/dps8_math.c m = Add72b (cpup, m, 0177777777777777LL, carry, I_OFLOW, & flags1, & ovf); m 1654 src/dps8/dps8_math.c m = and_128 (m, lshift_128 (construct_128 (0, 0777777777400), 36)); m 1656 src/dps8/dps8_math.c m &= ((word72)0777777777400 << 36); m 1666 src/dps8/dps8_math.c convert_to_word36 (m, & A, & Q); m 3164 src/dps8/dps8_math.c float72 m = convert_to_word72 (cpu.rA, cpu.rQ); m 3165 src/dps8/dps8_math.c if (ISZERO_128 (m)) { m 3178 src/dps8/dps8_math.c if (iszero_128 (and_128 (m, SIGN72))) m 3180 src/dps8/dps8_math.c if ((m & SIGN72) == 0) m 3186 src/dps8/dps8_math.c m = Add72b (cpup, m, construct_128 (0, 0177), carry, I_OFLOW, & flags1, & ovf); m 3188 src/dps8/dps8_math.c m = Add72b (cpup, m, 0177, carry, I_OFLOW, & flags1, & ovf); m 3193 src/dps8/dps8_math.c putbits72 (& m, 64, 8, construct_128 (0, 0)); // 64-71 => 0 per DH02 m 3195 src/dps8/dps8_math.c putbits72 (& m, 64, 8, 0); // 64-71 => 0 per DH02 m 3205 src/dps8/dps8_math.c convert_to_word36 (m, & cpu.rA, & cpu.rQ); m 3243 src/dps8/dps8_math.c float72 m = convert_to_word72 (A, Q); m 3245 src/dps8/dps8_math.c if (iszero_128 (m)) m 3247 src/dps8/dps8_math.c if (m == 0) m 3266 src/dps8/dps8_math.c if (iszero_128 (and_128 (m, SIGN72))) m 3268 src/dps8/dps8_math.c if ((m & SIGN72) == 0) m 3274 src/dps8/dps8_math.c m = Add72b (cpup, m, construct_128 (0, 0177), carry, I_OFLOW, & flags1, & ovf); m 3276 src/dps8/dps8_math.c m = Add72b (cpup, m, 0177, carry, I_OFLOW, & flags1, & ovf); m 3281 src/dps8/dps8_math.c putbits72 (& m, 64, 8, construct_128 (0, 0)); // 64-71 => 0 per DH02 m 3283 src/dps8/dps8_math.c putbits72 (& m, 64, 8, 0); // 64-71 => 0 per DH02 m 3294 src/dps8/dps8_math.c convert_to_word36 (m, & A, & Q); m 275 src/dps8/dps8_math128.c uint32_t v[], int m, int n) m 286 src/dps8/dps8_math128.c for (i = 0; i < m; i++) m 292 src/dps8/dps8_math128.c for (i = 0; i < m; i++) m 299 src/dps8/dps8_math128.c w[j + m] = (uint32_t) k; m 304 src/dps8/dps8_math128.c uint32_t v[], int m, int n) m 306 src/dps8/dps8_math128.c mulmn (w, u, v, m, n); m 312 src/dps8/dps8_math128.c if ((int32_t)u[m - 1] < 0) m 317 src/dps8/dps8_math128.c int t = (int) w[j + m] - (int) v[j] - b; m 318 src/dps8/dps8_math128.c w[j + m] = (uint32_t) t; m 325 src/dps8/dps8_math128.c for (int i = 0; i < m; i++) m 381 src/dps8/dps8_math128.c int m, int n) m 390 src/dps8/dps8_math128.c if (m < n || n <= 0 || v[n-1] == 0) m 397 src/dps8/dps8_math128.c for (j = m - 1; j >= 0; j--) m 419 src/dps8/dps8_math128.c uint16_t un [m+1]; m 420 src/dps8/dps8_math128.c un[m] = u[m-1] >> (16-s); m 421 src/dps8/dps8_math128.c for (i = m - 1; i > 0; i--) m 424 src/dps8/dps8_math128.c for (j = m - n; j >= 0; j--) m 516 src/dps8/dps8_math128.c const int m = 8; m 518 src/dps8/dps8_math128.c uint16_t q[m], u[m], v[n]; m 544 src/dps8/dps8_math128.c divmnu (q, remp ? r : NULL, u, v, m, normlen); m 571 src/dps8/dps8_math128.c const int m = 8; m 573 src/dps8/dps8_math128.c uint16_t q[m], u[m], v[n]; m 587 src/dps8/dps8_math128.c divmnu (q, remp, u, v, m, n); m 607 src/dps8/dps8_math128.c const int m = 8; m 609 src/dps8/dps8_math128.c uint16_t q[m], u[m], v[n], r[2]; m 624 src/dps8/dps8_math128.c divmnu (q, remp ? r : NULL, u, v, m, n); m 98 src/dps8/hdbg.h # define HDBGFault(n, s, m, c) hdbgFault(n, s, m, c) m 108 src/libsir/include/sir/internal.h bool _sir_mapmutexid(sir_mutex_id mid, sir_mutex** m, void** section); m 447 src/libsir/src/sirinternal.c sir_mutex* m = NULL; m 450 src/libsir/src/sirinternal.c bool enter = _sir_mapmutexid(mid, &m, &sec) && _sir_mutexlock(m); m 457 src/libsir/src/sirinternal.c sir_mutex* m = NULL; m 460 src/libsir/src/sirinternal.c bool leave = _sir_mapmutexid(mid, &m, &sec) && _sir_mutexunlock(m); m 464 src/libsir/src/sirinternal.c bool _sir_mapmutexid(sir_mutex_id mid, sir_mutex** m, void** section) { m 496 src/libsir/src/sirinternal.c *m = tmpm; m 501 src/libsir/src/sirinternal.c return *m != NULL && (!section || *section != NULL); m 7000 src/simh/scp.c #define PUT_RVAL(sz,rp,id,v,m) \ m 7003 src/simh/scp.c ~((m) << (rp)->offset)) | ((v) << (rp)->offset)) m 106 src/simh/scp.h # define GCC_FMT_ATTR(n, m) m 110 src/simh/scp.h # define GCC_FMT_ATTR(n, m) __attribute__ ((format (__printf__, n, m))) m 679 src/simh/sim_defs.h # define DEBUG_PRI(d,m) (sim_deb && (d.dctrl & (m))) m 680 src/simh/sim_defs.h # define DEBUG_PRJ(d,m) (sim_deb && ((d)->dctrl & (m)))