op3 10305 src/dps8/dps8_eis.c decNumber *op3 = decNumberAdd(&_3, op1, op2, &set); op3 10309 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 10313 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 10317 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 10318 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 10322 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 10329 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 10330 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 10333 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 10345 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 10349 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 10350 src/dps8/dps8_eis.c op3->exponent = 127; op3 10371 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10374 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10378 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10411 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10414 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10418 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10428 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 10429 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 10432 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 10445 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 10450 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 10457 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 10458 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 10686 src/dps8/dps8_eis.c decNumber *op3 = decNumberAdd(&_3, op1, op2, &set); op3 10700 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 10704 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 10708 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 10709 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 10713 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 10720 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 10721 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 10724 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 10736 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 10740 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 10741 src/dps8/dps8_eis.c op3->exponent = 127; op3 10762 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10765 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10769 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10802 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10805 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10809 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10819 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 10820 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 10824 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 10837 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 10842 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 10849 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 10850 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 11017 src/dps8/dps8_eis.c decNumber *op3 = decNumberSubtract(&_3, op2, op1, &set); op3 11021 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 11025 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 11029 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 11030 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 11034 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 11041 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 11042 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 11045 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 11057 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 11061 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 11062 src/dps8/dps8_eis.c op3->exponent = 127; op3 11083 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11086 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11090 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11123 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11126 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11130 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11140 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 11141 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 11145 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 11158 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 11163 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 11170 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 11171 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 11358 src/dps8/dps8_eis.c decNumber *op3 = decNumberSubtract(&_3, op2, op1, &set); op3 11362 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 11366 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 11370 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 11371 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 11375 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 11382 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 11383 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 11386 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 11398 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 11402 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 11403 src/dps8/dps8_eis.c op3->exponent = 127; op3 11422 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11425 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11429 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11462 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11465 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11469 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11479 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 11480 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 11484 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 11497 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 11502 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 11509 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 11510 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 11674 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op3 11679 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 11681 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 11682 src/dps8/dps8_eis.c op3->exponent = 127; op3 11701 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11704 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11708 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11741 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11744 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11748 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11758 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 11759 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 11763 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 11776 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 11781 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 11788 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 11789 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 11976 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op3 11992 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 11994 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 11995 src/dps8/dps8_eis.c op3->exponent = 127; op3 12015 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 12018 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 12022 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 12055 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 12058 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 12062 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 12072 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 12073 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 12076 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 12089 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 12094 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 12101 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 12102 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 13058 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op3 13065 src/dps8/dps8_eis.c PRINTDEC("op3", op3); op3 13083 src/dps8/dps8_eis.c if (n2 - op3->digits > 0) op3 13085 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op3->exponent - (n2 - op3->digits)); op3 13086 src/dps8/dps8_eis.c PRINTDEC("Value 1", op3) op3 13088 src/dps8/dps8_eis.c op3 = decNumberRescale(op3, op3, &_sf, &set); op3 13089 src/dps8/dps8_eis.c PRINTDEC("Value 2", op3) op3 13131 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2 -1, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 13138 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv2d: addzero n2 %d %s exp %d\n",n2,res,op3->exponent); op3 13141 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 13145 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 13148 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 13149 src/dps8/dps8_eis.c op3->exponent = 127; op3 13167 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13170 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13174 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13207 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13210 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13214 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13224 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 13225 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 13228 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 13241 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 13246 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 13253 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 13254 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 13501 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op3 13508 src/dps8/dps8_eis.c PRINTDEC("op3", op3); op3 13526 src/dps8/dps8_eis.c if (n3 - op3->digits > 0) op3 13528 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op3->exponent - (n3 - op3->digits)); op3 13529 src/dps8/dps8_eis.c PRINTDEC("Value 1", op3) op3 13531 src/dps8/dps8_eis.c op3 = decNumberRescale(op3, op3, &_sf, &set); op3 13532 src/dps8/dps8_eis.c PRINTDEC("Value 2", op3) op3 13576 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3 -1, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 13583 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv3d: addzero n3 %d %s exp %d\n",n3,res,op3->exponent); op3 13586 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 13590 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 13593 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 13594 src/dps8/dps8_eis.c op3->exponent = 127; op3 13614 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13617 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13621 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13654 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13657 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13661 src/dps8/dps8_eis.c (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13671 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 13672 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 13675 src/dps8/dps8_eis.c EISwrite49(cpup, &e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 13688 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 13693 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 13700 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 13701 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0