op1 7419 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 7421 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 7423 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 7434 src/dps8/dps8_eis.c decNumber *cmp = decNumberCompare(&_3, op1, op2, &set); // compare signed op1 :: op2 op1 7438 src/dps8/dps8_eis.c op1 = decNumberAbs(op1, op1, &set); op1 7442 src/dps8/dps8_eis.c decNumber *mcmp = decNumberCompare(&_3, op1, op2, &set); // compare signed op1 :: op2 op1 7747 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber (e->inBuffer, n1, sc1, &_1); op1 7750 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 7752 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 7753 src/dps8/dps8_eis.c if (decNumberIsZero (op1)) op1 7754 src/dps8/dps8_eis.c op1->exponent = 127; op1 7758 src/dps8/dps8_eis.c PRINTDEC ("mvn input (op1)", op1); op1 7764 src/dps8/dps8_eis.c char * res = formatDecimal (out, & set, op1, n2, (int) e->S2, e->SF2, R, op1 7788 src/dps8/dps8_eis.c (decNumberIsNegative (op1) && op1 7789 src/dps8/dps8_eis.c ! decNumberIsZero(op1)) ? 015 : 013); op1 7793 src/dps8/dps8_eis.c (decNumberIsNegative (op1) && op1 7794 src/dps8/dps8_eis.c ! decNumberIsZero (op1)) ? 015 : 014); op1 7798 src/dps8/dps8_eis.c (decNumberIsNegative (op1) && op1 7799 src/dps8/dps8_eis.c ! decNumberIsZero (op1)) ? '-' : '+'); op1 7835 src/dps8/dps8_eis.c (decNumberIsNegative (op1) && op1 7836 src/dps8/dps8_eis.c ! decNumberIsZero(op1)) ? 015 : 013); op1 7840 src/dps8/dps8_eis.c (decNumberIsNegative (op1) && op1 7841 src/dps8/dps8_eis.c ! decNumberIsZero (op1)) ? 015 : 014); op1 7846 src/dps8/dps8_eis.c (decNumberIsNegative (op1) && op1 7847 src/dps8/dps8_eis.c ! decNumberIsZero(op1)) ? '-' : '+'); op1 7858 src/dps8/dps8_eis.c (op1->exponent >> 4) & 0xf); // upper 4-bits op1 7860 src/dps8/dps8_eis.c op1->exponent & 0xf); // lower 4-bits op1 7864 src/dps8/dps8_eis.c op1->exponent & 0xff); // write 8-bit exponent op1 7877 src/dps8/dps8_eis.c if (op1->exponent > 127) op1 7882 src/dps8/dps8_eis.c if (op1->exponent < -128) op1 7889 src/dps8/dps8_eis.c sim_debug (DBG_CAC, & cpu_dev, "is neg %o\n", decNumberIsNegative(op1)); op1 7890 src/dps8/dps8_eis.c sim_debug (DBG_CAC, & cpu_dev, "is zero %o\n", decNumberIsZero(op1)); op1 7900 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op1) && !decNumberIsZero(op1)); op1 7903 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op1)); op1 9614 src/dps8/dps8_eis.c decNumber *op1 = decNumberFromString(&_1, tmp+i, &set); op1 9616 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 9621 src/dps8/dps8_eis.c char * res = formatDecimal (out, &set, op1, n2, (int) e->S2, e->SF2, 0, &Ovr, &Trunc); op1 9636 src/dps8/dps8_eis.c EISwrite49(&e->ADDR2, &pos, (int) dstTN, (decNumberIsNegative(op1) && !decNumberIsZero(op1)) ? 015 : 013); // special + op1 9638 src/dps8/dps8_eis.c EISwrite49(&e->ADDR2, &pos, (int) dstTN, (decNumberIsNegative(op1) && !decNumberIsZero(op1)) ? 015 : 014); // default + op1 9641 src/dps8/dps8_eis.c EISwrite49(&e->ADDR2, &pos, (int) dstTN, (decNumberIsNegative(op1) && !decNumberIsZero(op1)) ? '-' : '+'); op1 9671 src/dps8/dps8_eis.c EISwrite49(&e->ADDR2, &pos, (int) dstTN, (decNumberIsNegative(op1) && !decNumberIsZero(op1)) ? 015 : 013); // special + op1 9673 src/dps8/dps8_eis.c EISwrite49(&e->ADDR2, &pos, (int) dstTN, (decNumberIsNegative(op1) && !decNumberIsZero(op1)) ? 015 : 014); // default + op1 9677 src/dps8/dps8_eis.c EISwrite49(&e->ADDR2, &pos, (int) dstTN, (decNumberIsNegative(op1) && !decNumberIsZero(op1)) ? '-' : '+'); op1 9687 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op1) && !decNumberIsZero(op1)); // set negative indicator if op3 < 0 op1 9688 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op1)); // set zero indicator if op3 == 0 op1 10016 src/dps8/dps8_eis.c op1 10018 src/dps8/dps8_eis.c op1 10019 src/dps8/dps8_eis.c op1 10020 src/dps8/dps8_eis.c op1 10023 src/dps8/dps8_eis.c op1 10229 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 10231 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 10233 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 10243 src/dps8/dps8_eis.c decNumber *op3 = decNumberAdd(&_3, op1, op2, &set); op1 10600 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 10602 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 10604 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 10614 src/dps8/dps8_eis.c decNumber *op3 = decNumberAdd(&_3, op1, op2, &set); op1 10922 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 10924 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 10926 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 10936 src/dps8/dps8_eis.c decNumber *op3 = decNumberSubtract(&_3, op2, op1, &set); op1 11254 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 11256 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 11258 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 11268 src/dps8/dps8_eis.c decNumber *op3 = decNumberSubtract(&_3, op2, op1, &set); op1 11561 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 11563 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 11565 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 11575 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op1 11853 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 11855 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 11857 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 11867 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op1 12884 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); // divisor op1 12886 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 12888 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 12891 src/dps8/dps8_eis.c if (decNumberIsZero(op1)) op1 12917 src/dps8/dps8_eis.c for (i=0; i < op1->digits; i++) op1 12929 src/dps8/dps8_eis.c NQ = (n2-clz2+1) - (n1-clz1) + (-(e->S1==CSFL?op1->exponent:(int)e->SF1)); op1 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); op1 12938 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op1 12944 src/dps8/dps8_eis.c PRINTDEC("op1", op1); op1 12989 src/dps8/dps8_eis.c if (op1->digits >= op2->digits) { op1 12991 src/dps8/dps8_eis.c decNumberCopy(&_1a, op1); op1 12992 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op1->digits - op2->digits); op1 12994 src/dps8/dps8_eis.c } else if (op1->digits < op2->digits) { op1 12996 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op2->digits - op1->digits); op1 12997 src/dps8/dps8_eis.c decNumberShift(&_1a, op1, &_sf, &set); op1 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); op1 13295 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 13298 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 13300 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 13303 src/dps8/dps8_eis.c if (decNumberIsZero(op1)) op1 13345 src/dps8/dps8_eis.c for (i=0; i < op1->digits; i++) op1 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); op1 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); op1 13366 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op1 13372 src/dps8/dps8_eis.c PRINTDEC("op1", op1); op1 13417 src/dps8/dps8_eis.c if (op1->digits >= op2->digits) { op1 13419 src/dps8/dps8_eis.c decNumberCopy(&_1a, op1); op1 13420 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op1->digits - op2->digits); op1 13422 src/dps8/dps8_eis.c } else if (op1->digits < op2->digits) { op1 13424 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op2->digits - op1->digits); op1 13425 src/dps8/dps8_eis.c decNumberShift(&_1a, op1, &_sf, &set); op1 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); op1 175 src/dps8/dps8_utils.c word36 Add36b (word36 op1, word36 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op1 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); op1 183 src/dps8/dps8_utils.c word38 op1e = op1 & MASK36; op1 253 src/dps8/dps8_utils.c word36 Sub36b (word36 op1, word36 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op1 265 src/dps8/dps8_utils.c word38 op1e = op1 & MASK36; op1 337 src/dps8/dps8_utils.c word18 Add18b (word18 op1, word18 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op1 344 src/dps8/dps8_utils.c word20 op1e = op1 & MASK18; op1 413 src/dps8/dps8_utils.c word18 Sub18b (word18 op1, word18 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op1 425 src/dps8/dps8_utils.c word20 op1e = op1 & MASK18; op1 497 src/dps8/dps8_utils.c word72 Add72b (word72 op1, word72 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op1 505 src/dps8/dps8_utils.c word74 op1e = and_128 (op1, MASK72); op1 509 src/dps8/dps8_utils.c word74 op1e = op1 & MASK72; op1 611 src/dps8/dps8_utils.c word72 Sub72b (word72 op1, word72 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op1 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); op1 619 src/dps8/dps8_utils.c (word36) ((op1 >> 36) & MASK36), (word36) (op1 & MASK36), (word36) ((op2 >> 36) & MASK36), (word36) (op2 & MASK36), carryin, flagsToSet, * flags); op1 631 src/dps8/dps8_utils.c word74 op1e = and_128 (op1, MASK72); op1 634 src/dps8/dps8_utils.c word74 op1e = op1 & MASK72; op1 761 src/dps8/dps8_utils.c word36 compl36(word36 op1, word18 *flags, bool * ovf) op1 766 src/dps8/dps8_utils.c op1 &= DMASK; op1 770 src/dps8/dps8_utils.c word36 res = ((word36) (- ((word36s) op1))) & DMASK; op1 772 src/dps8/dps8_utils.c * ovf = op1 == MAXNEG; op1 797 src/dps8/dps8_utils.c word18 compl18(word18 op1, word18 *flags, bool * ovf) op1 802 src/dps8/dps8_utils.c op1 &= MASK18; op1 806 src/dps8/dps8_utils.c word18 res = ((word18) (- (word18s) op1)) & MASK18; op1 808 src/dps8/dps8_utils.c * ovf = op1 == MAX18NEG; op1 965 src/dps8/dps8_utils.c t_int64 op1 = SIGNEXT36_64(oP1 & DMASK); op1 968 src/dps8/dps8_utils.c word36 sign1 = (word36) op1 & SIGN36; op1 976 src/dps8/dps8_utils.c if (op1 > op2) op1 982 src/dps8/dps8_utils.c else if (op1 == op2) op1 1009 src/dps8/dps8_utils.c int32 op1 = SIGNEXT18_32 (oP1 & MASK18); op1 1012 src/dps8/dps8_utils.c word18 sign1 = (word18) op1 & SIGN18; op1 1020 src/dps8/dps8_utils.c if (op1 > op2) op1 1026 src/dps8/dps8_utils.c else if (op1 == op2) op1 1084 src/dps8/dps8_utils.c void cmp72(word72 op1, word72 op2, word18 *flags) op1 1091 src/dps8/dps8_utils.c sim_debug (DBG_TRACEEXT, & cpu_dev, "op1 %016"PRIx64"%016"PRIx64"\n", op1.h, op1.l); op1 1093 src/dps8/dps8_utils.c int128 op1s = SIGNEXT72_128 (and_128 (op1, MASK72)); op1 1098 src/dps8/dps8_utils.c sim_debug (DBG_TRACEEXT, & cpu_dev, "op1 %016"PRIx64"%016"PRIx64"\n", (uint64_t) (op1>>64), (uint64_t) op1); op1 1100 src/dps8/dps8_utils.c int128 op1s = SIGNEXT72_128 (op1 & MASK72); op1 1139 src/dps8/dps8_utils.c if (isnonzero_128 (and_128 (op1, SIGN72))) op1 1141 src/dps8/dps8_utils.c if (op1 & SIGN72) op1 53 src/dps8/dps8_utils.h word36 compl36(word36 op1, word18 *flags, bool * ovf); op1 54 src/dps8/dps8_utils.h word18 compl18(word18 op1, word18 *flags, bool * ovf); op1 62 src/dps8/dps8_utils.h void cmp36(word36 op1, word36 op2, word18 *flags); op1 64 src/dps8/dps8_utils.h void cmp18(word18 op1, word18 op2, word18 *flags); op1 65 src/dps8/dps8_utils.h void cmp72(word72 op1, word72 op2, word18 *flags); op1 892 src/dps8/dps8_utils.h word36 Add36b (word36 op1, word36 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf); op1 893 src/dps8/dps8_utils.h word36 Sub36b (word36 op1, word36 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf); op1 894 src/dps8/dps8_utils.h word18 Add18b (word18 op1, word18 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf); op1 895 src/dps8/dps8_utils.h word18 Sub18b (word18 op1, word18 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf); op1 896 src/dps8/dps8_utils.h word72 Add72b (word72 op1, word72 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf); op1 897 src/dps8/dps8_utils.h word72 Sub72b (word72 op1, word72 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf);