op2 7426 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 7428 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 7430 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 7433 src/dps8/dps8_eis.c decNumber *cmp = decNumberCompare(&_3, op1, op2, &set); // compare signed op1 :: op2 op2 7438 src/dps8/dps8_eis.c op2 = decNumberAbs(op2, op2, &set); op2 7441 src/dps8/dps8_eis.c decNumber *mcmp = decNumberCompare(&_3, op1, op2, &set); // compare signed op1 :: op2 op2 10236 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 10238 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 10240 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 10242 src/dps8/dps8_eis.c decNumber *op3 = decNumberAdd(&_3, op1, op2, &set); op2 10607 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 10609 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 10611 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 10613 src/dps8/dps8_eis.c decNumber *op3 = decNumberAdd(&_3, op1, op2, &set); op2 10929 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 10931 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 10933 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 10935 src/dps8/dps8_eis.c decNumber *op3 = decNumberSubtract(&_3, op2, op1, &set); op2 11261 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 11263 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 11265 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 11267 src/dps8/dps8_eis.c decNumber *op3 = decNumberSubtract(&_3, op2, op1, &set); op2 11568 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 11570 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 11572 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 11574 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op2 11860 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 11862 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 11864 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 11866 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op2 12900 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); // dividend op2 12902 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 12904 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 12920 src/dps8/dps8_eis.c for (i=0; i < op2->digits; i++) op2 12930 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 12937 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op2 12942 src/dps8/dps8_eis.c PRINTDEC("op2", op2); op2 12988 src/dps8/dps8_eis.c if (op1->digits >= op2->digits) { op2 12991 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op1->digits - op2->digits); op2 12992 src/dps8/dps8_eis.c decNumberShift(&_2a, op2, &_sf, &set); op2 12993 src/dps8/dps8_eis.c } else if (op1->digits < op2->digits) { op2 12995 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op2->digits - op1->digits); op2 12997 src/dps8/dps8_eis.c decNumberCopy(&_2a, op2); op2 13004 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 13312 src/dps8/dps8_eis.c decNumber *op2 = decBCD9ToNumber(e->inBuffer, n2, sc2, &_2); op2 13314 src/dps8/dps8_eis.c op2->bits |= DECNEG; op2 13316 src/dps8/dps8_eis.c op2->exponent = e->exponent; op2 13348 src/dps8/dps8_eis.c for (i=0; i < op2->digits; i++) op2 13356 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 13358 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 13365 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op2 13370 src/dps8/dps8_eis.c PRINTDEC("op2", op2); op2 13416 src/dps8/dps8_eis.c if (op1->digits >= op2->digits) { op2 13419 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op1->digits - op2->digits); op2 13420 src/dps8/dps8_eis.c decNumberShift(&_2a, op2, &_sf, &set); op2 13421 src/dps8/dps8_eis.c } else if (op1->digits < op2->digits) { op2 13423 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op2->digits - op1->digits); op2 13425 src/dps8/dps8_eis.c decNumberCopy(&_2a, op2); op2 13432 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);