m 6063 src/decNumber/decNumber.c Unit *c, Int m) { m 6101 src/decNumber/decNumber.c carry+=((eInt)*b)*m; // [special-casing m=1/-1 m 6185 src/decNumber/decNumber.c carry+=((eInt)*b)*m; m 612 src/dps8/dps8_cpu.h MOP_struct *m; // pointer to current MOP struct m 3994 src/dps8/dps8_eis.c uint m = 0; m 3999 src/dps8/dps8_eis.c m = c & 017; // truncate upper 2-bits m 4002 src/dps8/dps8_eis.c m = c & 077; // truncate upper 3-bits m 4005 src/dps8/dps8_eis.c m = c; // keep all 9-bits m 4009 src/dps8/dps8_eis.c word9 cout = xlate (&e->ADDR2, CTA9, m); m 4013 src/dps8/dps8_eis.c m, isprint ((int) m) ? '?' : (char) m, m 4190 src/dps8/dps8_eis.c uint m = 0; m 4195 src/dps8/dps8_eis.c m = c & 017; // truncate upper 2-bits m 4198 src/dps8/dps8_eis.c m = c & 077; // truncate upper 3-bits m 4201 src/dps8/dps8_eis.c m = c; // keep all 9-bits m 4205 src/dps8/dps8_eis.c word9 cout = xlate (&e->ADDR2, CTA9, m); m 4209 src/dps8/dps8_eis.c m, isprint ((int) m) ? '?' : (char) m, m 6491 src/dps8/dps8_eis.c MOP_struct *m = &mopTab[mop]; m 6492 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "MOP %s(%o) %o\n", m -> mopName, mop, e->mopIF); m 6493 src/dps8/dps8_eis.c e->m = m; m 6494 src/dps8/dps8_eis.c if (e->m == NULL || e->m->f == NULL) m 6505 src/dps8/dps8_eis.c return m; m 6545 src/dps8/dps8_eis.c MOP_struct *m = EISgetMop(); m 6546 src/dps8/dps8_eis.c if (! m) m 6552 src/dps8/dps8_eis.c int mres = m->f(); // execute mop m 9274 src/dps8/dps8_eis.c int m = n; m 9275 src/dps8/dps8_eis.c while (m) m 9302 src/dps8/dps8_eis.c m -= 1; // decrement byte counter m 7253 src/dps8/dps8_ins.c word4 m = cpu.PTWAM[i].USE; m 7254 src/dps8/dps8_ins.c cpu.PTWAM[m].POINTER = getbits36_15 (cpu.Yblock16[i], 0); m 7255 src/dps8/dps8_ins.c cpu.PTWAM[m].PAGENO = getbits36_12 (cpu.Yblock16[i], 15); m 7256 src/dps8/dps8_ins.c cpu.PTWAM[m].FE = getbits36_1 (cpu.Yblock16[i], 27); m 7269 src/dps8/dps8_ins.c word4 m = cpu.PTWAM[i].USE; m 7270 src/dps8/dps8_ins.c cpu.PTWAM[m].ADDR = getbits36_18 (cpu.Yblock16[i], 0); m 7271 src/dps8/dps8_ins.c cpu.PTWAM[m].M = getbits36_1 (cpu.Yblock16[i], 29); m 7297 src/dps8/dps8_ins.c word4 m = cpu.SDWAM[i].USE; m 7298 src/dps8/dps8_ins.c cpu.SDWAM[m].POINTER = getbits36_15 (cpu.Yblock16[i], 0); m 7299 src/dps8/dps8_ins.c cpu.SDWAM[m].FE = getbits36_1 (cpu.Yblock16[i], 27); m 7315 src/dps8/dps8_ins.c word4 m = cpu.SDWAM[i].USE; m 7316 src/dps8/dps8_ins.c uint j = (uint)m * 2; m 7317 src/dps8/dps8_ins.c cpu.SDWAM[m].ADDR = getbits36_24 (cpu.Yblock32[j], 0); m 7318 src/dps8/dps8_ins.c cpu.SDWAM[m].R1 = getbits36_3 (cpu.Yblock32[j], 24); m 7319 src/dps8/dps8_ins.c cpu.SDWAM[m].R2 = getbits36_3 (cpu.Yblock32[j], 27); m 7320 src/dps8/dps8_ins.c cpu.SDWAM[m].R3 = getbits36_3 (cpu.Yblock32[j], 30); m 7322 src/dps8/dps8_ins.c cpu.SDWAM[m].BOUND = getbits36_14 (cpu.Yblock32[j + 1], 37 - 36); m 7323 src/dps8/dps8_ins.c cpu.SDWAM[m].R = getbits36_1 (cpu.Yblock32[j + 1], 51 - 36); m 7324 src/dps8/dps8_ins.c cpu.SDWAM[m].E = getbits36_1 (cpu.Yblock32[j + 1], 52 - 36); m 7325 src/dps8/dps8_ins.c cpu.SDWAM[m].W = getbits36_1 (cpu.Yblock32[j + 1], 53 - 36); m 7326 src/dps8/dps8_ins.c cpu.SDWAM[m].P = getbits36_1 (cpu.Yblock32[j + 1], 54 - 36); m 7327 src/dps8/dps8_ins.c cpu.SDWAM[m].U = getbits36_1 (cpu.Yblock32[j + 1], 55 - 36); m 7328 src/dps8/dps8_ins.c cpu.SDWAM[m].G = getbits36_1 (cpu.Yblock32[j + 1], 56 - 36); m 7329 src/dps8/dps8_ins.c cpu.SDWAM[m].C = getbits36_1 (cpu.Yblock32[j + 1], 57 - 36); m 7330 src/dps8/dps8_ins.c cpu.SDWAM[m].EB = getbits36_14 (cpu.Yblock32[j + 1], 58 - 36); m 63 src/dps8/dps8_math.c # define ISZERO_128(m) iszero_128 (m) m 66 src/dps8/dps8_math.c # define ISZERO_128(m) ((m) == 0) m 91 src/dps8/dps8_math.c long double m = 0; // mantissa value; m 103 src/dps8/dps8_math.c m += v; m 108 src/dps8/dps8_math.c m += v; m 119 src/dps8/dps8_math.c return (S ? -1 : 1) * ldexpl(m, e); m 143 src/dps8/dps8_math.c double m = 0; // mantissa value m 155 src/dps8/dps8_math.c m += v; m 160 src/dps8/dps8_math.c m += v; m 166 src/dps8/dps8_math.c return (S ? -1 : 1) * ldexp(m, e); m 358 src/dps8/dps8_math.c m 369 src/dps8/dps8_math.c m 374 src/dps8/dps8_math.c m 741 src/dps8/dps8_math.c float72 m = convert_to_word72 (* A, * Q); m 745 src/dps8/dps8_math.c word72 s = and_128 (m, SIGN72); // save the sign bit m 748 src/dps8/dps8_math.c m = rshift_128 (m, shift_amt); // renormalize the mantissa m 751 src/dps8/dps8_math.c m = and_128 (m, MASK68); m 754 src/dps8/dps8_math.c m = or_128 (m, HEX_SIGN); m 756 src/dps8/dps8_math.c m = rshift_128 (m, 1); // renormalize the mantissa m 757 src/dps8/dps8_math.c m = or_128 (m, SIGN72); // set the sign bit m 758 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 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 767 src/dps8/dps8_math.c if (iszero_128 (m)) { m 782 src/dps8/dps8_math.c word72 s = m & SIGN72; // save the sign bit m 785 src/dps8/dps8_math.c m >>= shift_amt; // renormalize the mantissa m 788 src/dps8/dps8_math.c m &= MASK68; m 791 src/dps8/dps8_math.c m |= HEX_SIGN; m 793 src/dps8/dps8_math.c m >>= 1; // renormalize the mantissa m 794 src/dps8/dps8_math.c m |= SIGN72; // set the sign bit m 795 src/dps8/dps8_math.c m ^= s; // if the was 0, leave it 1; if it was 1, make it 0 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 804 src/dps8/dps8_math.c if (m == 0) { m 818 src/dps8/dps8_math.c convert_to_word36 (m, A, Q); m 826 src/dps8/dps8_math.c if (iszero_128 (m)) { /// C(AQ) == 0. m 835 src/dps8/dps8_math.c if (m == 0) { // C(AQ) == 0. m 848 src/dps8/dps8_math.c bool s = isnonzero_128 (and_128 (m, SIGN72)); m 850 src/dps8/dps8_math.c bool s = (m & SIGN72) != (word72)0; ///< save sign bit m 864 src/dps8/dps8_math.c while (iseq_128 (and_128 (m, HEX_NORM), HEX_NORM)) { m 865 src/dps8/dps8_math.c m = lshift_128 (m, 4); m 868 src/dps8/dps8_math.c m = and_128 (m, MASK71); m 869 src/dps8/dps8_math.c m = or_128 (m, SIGN72); m 871 src/dps8/dps8_math.c while ((m & HEX_NORM) == HEX_NORM) { m 872 src/dps8/dps8_math.c m <<= 4; m 875 src/dps8/dps8_math.c m &= MASK71; m 876 src/dps8/dps8_math.c m |= SIGN72; m 884 src/dps8/dps8_math.c while (iszero_128 (and_128 (m, HEX_NORM))) { m 885 src/dps8/dps8_math.c m = lshift_128 (m, 4); m 888 src/dps8/dps8_math.c m = and_128 (m, MASK71); m 894 src/dps8/dps8_math.c while ((m & HEX_NORM) == 0) { m 895 src/dps8/dps8_math.c m <<= 4; m 898 src/dps8/dps8_math.c m &= MASK71; m 903 src/dps8/dps8_math.c while (s == isnonzero_128 (and_128 (m, BIT71))) { // until C(AQ)0 != C(AQ)1? m 904 src/dps8/dps8_math.c m = lshift_128 (m, 1); m 908 src/dps8/dps8_math.c m = and_128 (m, MASK71); m 911 src/dps8/dps8_math.c m = or_128 (m, SIGN72); m 913 src/dps8/dps8_math.c while (s == !! (m & BIT71)) { // until C(AQ)0 != C(AQ)1? m 914 src/dps8/dps8_math.c m <<= 1; m 918 src/dps8/dps8_math.c m &= MASK71; m 921 src/dps8/dps8_math.c m |= SIGN72; m 926 src/dps8/dps8_math.c while (s == isnonzero_128 (and_128 (m, BIT71))) { // until C(AQ)0 != C(AQ)1? m 927 src/dps8/dps8_math.c m = lshift_128 (m, 1); m 931 src/dps8/dps8_math.c m = and_128 (m, MASK71); m 934 src/dps8/dps8_math.c m = or_128 (m, SIGN72); m 936 src/dps8/dps8_math.c while (s == !! (m & BIT71)) { // until C(AQ)0 != C(AQ)1? m 937 src/dps8/dps8_math.c m <<= 1; m 941 src/dps8/dps8_math.c m &= MASK71; m 944 src/dps8/dps8_math.c m |= SIGN72; m 955 src/dps8/dps8_math.c convert_to_word36 (m, A, Q); m 984 src/dps8/dps8_math.c m 987 src/dps8/dps8_math.c m 988 src/dps8/dps8_math.c m 990 src/dps8/dps8_math.c m 997 src/dps8/dps8_math.c m 1008 src/dps8/dps8_math.c m 1010 src/dps8/dps8_math.c m 1011 src/dps8/dps8_math.c m 1025 src/dps8/dps8_math.c m 1026 src/dps8/dps8_math.c m 1028 src/dps8/dps8_math.c m 1029 src/dps8/dps8_math.c m 1032 src/dps8/dps8_math.c m 1039 src/dps8/dps8_math.c m 1047 src/dps8/dps8_math.c m 1048 src/dps8/dps8_math.c m 1078 src/dps8/dps8_math.c word72 m = convert_to_word72 (cpu.rA, cpu.rQ); m 1083 src/dps8/dps8_math.c if (ISEQ_128 (m, SIGN72)) { m 1088 src/dps8/dps8_math.c m = rshift_128 (m, 1); m 1090 src/dps8/dps8_math.c m >>= 1; m 1103 src/dps8/dps8_math.c m = negate_128 (m); m 1107 src/dps8/dps8_math.c m = (word72) (- (word72s) m); m 1110 src/dps8/dps8_math.c convert_to_word36 (m, & cpu.rA, & cpu.rQ); m 1549 src/dps8/dps8_math.c word72 m = convert_to_word72 (cpu.rA, cpu.rQ); m 1550 src/dps8/dps8_math.c if (ISZERO_128 (m)) { m 1563 src/dps8/dps8_math.c if (iszero_128 (and_128 (m, SIGN72))) m 1565 src/dps8/dps8_math.c if ((m & SIGN72) == 0) m 1571 src/dps8/dps8_math.c m = Add72b (m, construct_128 (0, 0177777777777777LL), carry, I_OFLOW, & flags1, & ovf); m 1573 src/dps8/dps8_math.c m = Add72b (m, 0177777777777777LL, carry, I_OFLOW, & flags1, & ovf); m 1578 src/dps8/dps8_math.c m = and_128 (m, lshift_128 (construct_128 (0, 0777777777400), 36)); m 1580 src/dps8/dps8_math.c m &= ((word72)0777777777400 << 36); m 1590 src/dps8/dps8_math.c convert_to_word36 (m, & cpu.rA, & cpu.rQ); m 1614 src/dps8/dps8_math.c float72 m = convert_to_word72 (A, Q); m 1616 src/dps8/dps8_math.c if (iszero_128 (m)) m 1618 src/dps8/dps8_math.c if (m == 0) m 1635 src/dps8/dps8_math.c if (iszero_128 (and_128 (m, SIGN72))) m 1637 src/dps8/dps8_math.c if ((m & SIGN72) == 0) m 1643 src/dps8/dps8_math.c m = Add72b (m, construct_128 (0, 0177777777777777LL), carry, I_OFLOW, & flags1, & ovf); m 1645 src/dps8/dps8_math.c m = Add72b (m, 0177777777777777LL, carry, I_OFLOW, & flags1, & ovf); m 1650 src/dps8/dps8_math.c m = and_128 (m, lshift_128 (construct_128 (0, 0777777777400), 36)); m 1652 src/dps8/dps8_math.c m &= ((word72)0777777777400 << 36); m 1662 src/dps8/dps8_math.c convert_to_word36 (m, & A, & Q); m 3153 src/dps8/dps8_math.c float72 m = convert_to_word72 (cpu.rA, cpu.rQ); m 3154 src/dps8/dps8_math.c if (ISZERO_128 (m)) { m 3167 src/dps8/dps8_math.c if (iszero_128 (and_128 (m, SIGN72))) m 3169 src/dps8/dps8_math.c if ((m & SIGN72) == 0) m 3175 src/dps8/dps8_math.c m = Add72b (m, construct_128 (0, 0177), carry, I_OFLOW, & flags1, & ovf); m 3177 src/dps8/dps8_math.c m = Add72b (m, 0177, carry, I_OFLOW, & flags1, & ovf); m 3182 src/dps8/dps8_math.c putbits72 (& m, 64, 8, construct_128 (0, 0)); // 64-71 => 0 per DH02 m 3184 src/dps8/dps8_math.c putbits72 (& m, 64, 8, 0); // 64-71 => 0 per DH02 m 3194 src/dps8/dps8_math.c convert_to_word36 (m, & cpu.rA, & cpu.rQ); m 3232 src/dps8/dps8_math.c float72 m = convert_to_word72 (A, Q); m 3234 src/dps8/dps8_math.c if (iszero_128 (m)) m 3236 src/dps8/dps8_math.c if (m == 0) m 3255 src/dps8/dps8_math.c if (iszero_128 (and_128 (m, SIGN72))) m 3257 src/dps8/dps8_math.c if ((m & SIGN72) == 0) m 3263 src/dps8/dps8_math.c m = Add72b (m, construct_128 (0, 0177), carry, I_OFLOW, & flags1, & ovf); m 3265 src/dps8/dps8_math.c m = Add72b (m, 0177, carry, I_OFLOW, & flags1, & ovf); m 3270 src/dps8/dps8_math.c putbits72 (& m, 64, 8, construct_128 (0, 0)); // 64-71 => 0 per DH02 m 3272 src/dps8/dps8_math.c putbits72 (& m, 64, 8, 0); // 64-71 => 0 per DH02 m 3283 src/dps8/dps8_math.c convert_to_word36 (m, & A, & Q); m 278 src/dps8/dps8_math128.c uint32_t v[], int m, int n) m 287 src/dps8/dps8_math128.c for (i = 0; i < m; i++) m 293 src/dps8/dps8_math128.c for (i = 0; i < m; i++) m 300 src/dps8/dps8_math128.c w[j + m] = (uint32_t) k; m 305 src/dps8/dps8_math128.c uint32_t v[], int m, int n) m 307 src/dps8/dps8_math128.c mulmn (w, u, v, m, n); m 313 src/dps8/dps8_math128.c if ((int32_t)u[m - 1] < 0) m 318 src/dps8/dps8_math128.c int t = (int) w[j + m] - (int) v[j] - b; m 319 src/dps8/dps8_math128.c w[j + m] = (uint32_t) t; m 326 src/dps8/dps8_math128.c for (int i = 0; i < m; i++) m 382 src/dps8/dps8_math128.c int m, int n) m 392 src/dps8/dps8_math128.c if (m < n || n <= 0 || v[n-1] == 0) m 399 src/dps8/dps8_math128.c for (j = m - 1; j >= 0; j--) m 421 src/dps8/dps8_math128.c uint16_t un [m+1]; m 422 src/dps8/dps8_math128.c un[m] = u[m-1] >> (16-s); m 423 src/dps8/dps8_math128.c for (i = m - 1; i > 0; i--) m 426 src/dps8/dps8_math128.c for (j = m - n; j >= 0; j--) m 518 src/dps8/dps8_math128.c const int m = 8; m 520 src/dps8/dps8_math128.c uint16_t q[m], u[m], v[n]; m 546 src/dps8/dps8_math128.c divmnu (q, remp ? r : NULL, u, v, m, normlen); m 573 src/dps8/dps8_math128.c const int m = 8; m 575 src/dps8/dps8_math128.c uint16_t q[m], u[m], v[n]; m 589 src/dps8/dps8_math128.c divmnu (q, remp, u, v, m, n); m 609 src/dps8/dps8_math128.c const int m = 8; m 611 src/dps8/dps8_math128.c uint16_t q[m], u[m], v[n], r[2]; m 626 src/dps8/dps8_math128.c divmnu (q, remp ? r : NULL, u, v, m, n); m 112 src/dps8/hdbg.h # define HDBGFault(n, s, m, c) hdbgFault(n, s, m, c) m 6653 src/simh/scp.c #define PUT_RVAL(sz,rp,id,v,m) \ m 6656 src/simh/scp.c ~((m) << (rp)->offset)) | ((v) << (rp)->offset)) m 106 src/simh/scp.h # define GCC_FMT_ATTR(n, m) m 109 src/simh/scp.h # define GCC_FMT_ATTR(n, m) __attribute__ ((format (__printf__, n, m))) m 669 src/simh/sim_defs.h # define DEBUG_PRI(d,m) (sim_deb && (d.dctrl & (m))) m 670 src/simh/sim_defs.h # define DEBUG_PRJ(d,m) (sim_deb && ((d)->dctrl & (m)))