op3 10316 src/dps8/dps8_eis.c decNumber *op3 = decNumberAdd(&_3, op1, op2, &set); op3 10320 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 10324 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 10328 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 10329 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 10333 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 10340 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 10341 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 10344 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 10356 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 10360 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 10361 src/dps8/dps8_eis.c op3->exponent = 127; op3 10382 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10385 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10389 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10422 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10425 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10429 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10439 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 10440 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 10443 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 10456 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 10461 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 10468 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 10469 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 10697 src/dps8/dps8_eis.c decNumber *op3 = decNumberAdd(&_3, op1, op2, &set); op3 10711 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 10715 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 10719 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 10720 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 10724 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 10731 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 10732 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 10735 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 10747 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 10751 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 10752 src/dps8/dps8_eis.c op3->exponent = 127; op3 10773 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10776 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10780 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10813 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10816 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10820 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10830 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 10831 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 10835 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 10848 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 10853 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 10860 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 10861 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 11028 src/dps8/dps8_eis.c decNumber *op3 = decNumberSubtract(&_3, op2, op1, &set); op3 11032 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 11036 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 11040 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 11041 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 11045 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 11052 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 11053 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 11056 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 11068 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 11072 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 11073 src/dps8/dps8_eis.c op3->exponent = 127; op3 11094 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11097 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11101 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11134 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11137 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11141 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11151 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 11152 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 11156 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 11169 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 11174 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 11181 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 11182 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 11369 src/dps8/dps8_eis.c decNumber *op3 = decNumberSubtract(&_3, op2, op1, &set); op3 11373 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 11377 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 11381 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 11382 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 11386 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 11393 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 11394 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 11397 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 11409 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 11413 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 11414 src/dps8/dps8_eis.c op3->exponent = 127; op3 11433 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11436 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11440 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11473 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11476 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11480 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11490 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 11491 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 11495 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 11508 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 11513 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 11520 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 11521 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 11685 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op3 11690 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 11692 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 11693 src/dps8/dps8_eis.c op3->exponent = 127; op3 11712 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11715 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11719 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11752 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11755 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11759 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11769 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 11770 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 11774 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 11787 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 11792 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 11799 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 11800 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 11987 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op3 12003 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 12005 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 12006 src/dps8/dps8_eis.c op3->exponent = 127; op3 12026 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 12029 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 12033 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 12066 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 12069 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 12073 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 12083 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 12084 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 12087 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 12100 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 12105 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 12112 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 12113 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 13069 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op3 13076 src/dps8/dps8_eis.c PRINTDEC("op3", op3); op3 13094 src/dps8/dps8_eis.c if (n2 - op3->digits > 0) op3 13096 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op3->exponent - (n2 - op3->digits)); op3 13097 src/dps8/dps8_eis.c PRINTDEC("Value 1", op3) op3 13099 src/dps8/dps8_eis.c op3 = decNumberRescale(op3, op3, &_sf, &set); op3 13100 src/dps8/dps8_eis.c PRINTDEC("Value 2", op3) op3 13142 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2 -1, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 13149 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv2d: addzero n2 %d %s exp %d\n",n2,res,op3->exponent); op3 13152 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 13156 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 13159 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 13160 src/dps8/dps8_eis.c op3->exponent = 127; op3 13178 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13181 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13185 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13218 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13221 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13225 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13235 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 13236 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 13239 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 13252 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 13257 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 13264 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 13265 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 13512 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op3 13519 src/dps8/dps8_eis.c PRINTDEC("op3", op3); op3 13537 src/dps8/dps8_eis.c if (n3 - op3->digits > 0) op3 13539 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op3->exponent - (n3 - op3->digits)); op3 13540 src/dps8/dps8_eis.c PRINTDEC("Value 1", op3) op3 13542 src/dps8/dps8_eis.c op3 = decNumberRescale(op3, op3, &_sf, &set); op3 13543 src/dps8/dps8_eis.c PRINTDEC("Value 2", op3) op3 13587 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3 -1, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 13594 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv3d: addzero n3 %d %s exp %d\n",n3,res,op3->exponent); op3 13597 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 13601 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 13604 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 13605 src/dps8/dps8_eis.c op3->exponent = 127; op3 13625 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13628 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13632 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13665 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13668 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13672 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13682 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 13683 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 13686 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 13699 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 13704 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 13711 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 13712 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0