op2 7427 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 7429 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 7431 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 7434 src/dps8/dps8_eis.c decNumber *cmp = decNumberCompare(&_3, op1, op2, &set); // compare signed op1 :: op2 op2 7439 src/dps8/dps8_eis.c op2 = decNumberAbs(op2, op2, &set); op2 7442 src/dps8/dps8_eis.c decNumber *mcmp = decNumberCompare(&_3, op1, op2, &set); // compare signed op1 :: op2 op2 10237 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 10239 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 10241 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 10243 src/dps8/dps8_eis.c decNumber *op3 = decNumberAdd(&_3, op1, op2, &set); op2 10608 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 10610 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 10612 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 10614 src/dps8/dps8_eis.c decNumber *op3 = decNumberAdd(&_3, op1, op2, &set); op2 10930 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 10932 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 10934 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 10936 src/dps8/dps8_eis.c decNumber *op3 = decNumberSubtract(&_3, op2, op1, &set); op2 11262 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 11264 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 11266 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 11268 src/dps8/dps8_eis.c decNumber *op3 = decNumberSubtract(&_3, op2, op1, &set); op2 11569 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 11571 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 11573 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 11575 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op2 11861 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 11863 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 11865 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 11867 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op2 12901 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); // dividend op2 12903 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 12905 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 12921 src/dps8/dps8_eis.c for (i=0; i < op2->digits; i++) op2 12931 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv2d S1 %d S2 %d N1 %d N2 %d clz1 %d clz2 %d E1 %d E2 %d SF2 %d NQ %d\n",e->S1,e->S2,e->N1,e->N2,clz1,clz2,op1->exponent,op2->exponent,e->SF2,NQ); op2 12938 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op2 12943 src/dps8/dps8_eis.c PRINTDEC("op2", op2); op2 12989 src/dps8/dps8_eis.c if (op1->digits >= op2->digits) { op2 12992 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op1->digits - op2->digits); op2 12993 src/dps8/dps8_eis.c decNumberShift(&_2a, op2, &_sf, &set); op2 12994 src/dps8/dps8_eis.c } else if (op1->digits < op2->digits) { op2 12996 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op2->digits - op1->digits); op2 12998 src/dps8/dps8_eis.c decNumberCopy(&_2a, op2); op2 13005 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv2d: exp1 %d exp2 %d digits op1 %d op2 %d op1a %d op2a %d\n",op1->exponent,op2->exponent,op1->digits,op2->digits,_1a.digits,_2a.digits); op2 13313 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 13315 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 13317 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 13349 src/dps8/dps8_eis.c for (i=0; i < op2->digits; i++) op2 13357 src/dps8/dps8_eis.c NQ = (n2-clz2+1) - (n1-clz1) + ((e->S2==CSFL?op2->exponent:(int)e->SF2)-(e->S1==CSFL?op1->exponent:(int)e->SF1)-(int)e->SF3); op2 13359 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv3d S1 %d S2 %d N1 %d N2 %d clz1 %d clz2 %d E1 %d E2 %d SF3 %d NQ %d\n",e->S1,e->S2,e->N1,e->N2,clz1,clz2,op1->exponent,op2->exponent,e->SF3,NQ); op2 13366 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op2 13371 src/dps8/dps8_eis.c PRINTDEC("op2", op2); op2 13417 src/dps8/dps8_eis.c if (op1->digits >= op2->digits) { op2 13420 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op1->digits - op2->digits); op2 13421 src/dps8/dps8_eis.c decNumberShift(&_2a, op2, &_sf, &set); op2 13422 src/dps8/dps8_eis.c } else if (op1->digits < op2->digits) { op2 13424 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op2->digits - op1->digits); op2 13426 src/dps8/dps8_eis.c decNumberCopy(&_2a, op2); op2 13433 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv3d: exp1 %d exp2 %d digits op1 %d op2 %d op1a %d op2a %d\n",op1->exponent,op2->exponent,op1->digits,op2->digits,_1a.digits,_2a.digits); op2 175 src/dps8/dps8_utils.c word36 Add36b (word36 op1, word36 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op2 178 src/dps8/dps8_utils.c sim_debug (DBG_TRACEEXT, & cpu_dev, "Add36b op1 %012"PRIo64" op2 %012"PRIo64" carryin %o flagsToSet %06o flags %06o\n", op1, op2, carryin, flagsToSet, * flags); op2 184 src/dps8/dps8_utils.c word38 op2e = op2 & MASK36; op2 253 src/dps8/dps8_utils.c word36 Sub36b (word36 op1, word36 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op2 266 src/dps8/dps8_utils.c word38 op2e = op2 & MASK36; op2 337 src/dps8/dps8_utils.c word18 Add18b (word18 op1, word18 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op2 345 src/dps8/dps8_utils.c word20 op2e = op2 & MASK18; op2 413 src/dps8/dps8_utils.c word18 Sub18b (word18 op1, word18 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op2 426 src/dps8/dps8_utils.c word20 op2e = op2 & MASK18; op2 497 src/dps8/dps8_utils.c word72 Add72b (word72 op1, word72 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op2 506 src/dps8/dps8_utils.c word74 op2e = and_128 (op2, MASK72); op2 510 src/dps8/dps8_utils.c word74 op2e = op2 & MASK72; op2 611 src/dps8/dps8_utils.c word72 Sub72b (word72 op1, word72 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op2 616 src/dps8/dps8_utils.c (word36) ((rshift_128 (op1, 36).l) & MASK36), (word36) (op1.l & MASK36), (word36) (rshift_128 (op2, 36).l & MASK36), (word36) (op2.l & MASK36), carryin, flagsToSet, * flags); op2 619 src/dps8/dps8_utils.c (word36) ((op1 >> 36) & MASK36), (word36) (op1 & MASK36), (word36) ((op2 >> 36) & MASK36), (word36) (op2 & MASK36), carryin, flagsToSet, * flags); op2 632 src/dps8/dps8_utils.c word74 op2e = and_128 (op2, MASK72); op2 635 src/dps8/dps8_utils.c word74 op2e = op2 & MASK72; op2 966 src/dps8/dps8_utils.c t_int64 op2 = SIGNEXT36_64(oP2 & DMASK); op2 969 src/dps8/dps8_utils.c word36 sign2 = (word36) op2 & SIGN36; op2 976 src/dps8/dps8_utils.c if (op1 > op2) op2 982 src/dps8/dps8_utils.c else if (op1 == op2) op2 1010 src/dps8/dps8_utils.c int32 op2 = SIGNEXT18_32 (oP2 & MASK18); op2 1013 src/dps8/dps8_utils.c word18 sign2 = (word18) op2 & SIGN18; op2 1020 src/dps8/dps8_utils.c if (op1 > op2) op2 1026 src/dps8/dps8_utils.c else if (op1 == op2) op2 1084 src/dps8/dps8_utils.c void cmp72(word72 op1, word72 op2, word18 *flags) op2 1092 src/dps8/dps8_utils.c sim_debug (DBG_TRACEEXT, & cpu_dev, "op2 %016"PRIx64"%016"PRIx64"\n", op2.h, op2.l); op2 1094 src/dps8/dps8_utils.c int128 op2s = SIGNEXT72_128 (and_128 (op2, MASK72)); op2 1099 src/dps8/dps8_utils.c sim_debug (DBG_TRACEEXT, & cpu_dev, "op2 %016"PRIx64"%016"PRIx64"\n", (uint64_t) (op2>>64), (uint64_t) op2); op2 1101 src/dps8/dps8_utils.c int128 op2s = SIGNEXT72_128 (op2 & MASK72); op2 1112 src/dps8/dps8_utils.c if (isnonzero_128 (and_128 (op2, SIGN72))) op2 1114 src/dps8/dps8_utils.c if (op2 & SIGN72) op2 62 src/dps8/dps8_utils.h void cmp36(word36 op1, word36 op2, word18 *flags); op2 64 src/dps8/dps8_utils.h void cmp18(word18 op1, word18 op2, word18 *flags); op2 65 src/dps8/dps8_utils.h void cmp72(word72 op1, word72 op2, word18 *flags); op2 892 src/dps8/dps8_utils.h word36 Add36b (word36 op1, word36 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf); op2 893 src/dps8/dps8_utils.h word36 Sub36b (word36 op1, word36 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf); op2 894 src/dps8/dps8_utils.h word18 Add18b (word18 op1, word18 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf); op2 895 src/dps8/dps8_utils.h word18 Sub18b (word18 op1, word18 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf); op2 896 src/dps8/dps8_utils.h word72 Add72b (word72 op1, word72 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf); op2 897 src/dps8/dps8_utils.h word72 Sub72b (word72 op1, word72 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf);