op3 10243 src/dps8/dps8_eis.c decNumber *op3 = decNumberAdd(&_3, op1, op2, &set); op3 10247 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 10251 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 10255 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 10256 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 10260 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 10268 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 10269 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 10272 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 10284 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 10288 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 10289 src/dps8/dps8_eis.c op3->exponent = 127; op3 10307 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10309 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10312 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10342 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10344 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10347 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10357 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 10358 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 10361 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 10374 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 10379 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 10386 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 10387 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 10614 src/dps8/dps8_eis.c decNumber *op3 = decNumberAdd(&_3, op1, op2, &set); op3 10628 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 10632 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 10636 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 10637 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 10641 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 10649 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 10650 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 10653 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 10665 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 10669 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 10670 src/dps8/dps8_eis.c op3->exponent = 127; op3 10688 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10690 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10693 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10723 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10725 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10728 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10738 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 10739 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 10743 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 10756 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 10761 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 10768 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 10769 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 10936 src/dps8/dps8_eis.c decNumber *op3 = decNumberSubtract(&_3, op2, op1, &set); op3 10940 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 10944 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 10948 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 10949 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 10953 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 10961 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 10962 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 10965 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 10977 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 10981 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 10982 src/dps8/dps8_eis.c op3->exponent = 127; op3 11000 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11002 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11005 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11035 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11037 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11040 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11050 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 11051 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 11055 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 11068 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 11073 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 11080 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 11081 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 11268 src/dps8/dps8_eis.c decNumber *op3 = decNumberSubtract(&_3, op2, op1, &set); op3 11272 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 11276 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 11280 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 11281 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 11285 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 11293 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 11294 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 11297 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 11309 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 11313 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 11314 src/dps8/dps8_eis.c op3->exponent = 127; op3 11330 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11332 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11335 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11365 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11367 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11370 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11380 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 11381 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 11385 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 11398 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 11403 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 11410 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 11411 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 11575 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op3 11580 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 11582 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 11583 src/dps8/dps8_eis.c op3->exponent = 127; op3 11599 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11601 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11604 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11634 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11636 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11639 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11649 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 11650 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 11654 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 11667 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 11672 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 11679 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 11680 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 11867 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op3 11883 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 11885 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 11886 src/dps8/dps8_eis.c op3->exponent = 127; op3 11905 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11907 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11910 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11940 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11942 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11945 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11955 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 11956 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 11959 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 11972 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 11977 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 11984 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 11985 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 12938 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op3 12945 src/dps8/dps8_eis.c PRINTDEC("op3", op3); op3 12963 src/dps8/dps8_eis.c if (n2 - op3->digits > 0) op3 12965 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op3->exponent - (n2 - op3->digits)); op3 12966 src/dps8/dps8_eis.c PRINTDEC("Value 1", op3) op3 12968 src/dps8/dps8_eis.c op3 = decNumberRescale(op3, op3, &_sf, &set); op3 12969 src/dps8/dps8_eis.c PRINTDEC("Value 2", op3) op3 13009 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2 -1, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 13016 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv2d: addzero n2 %d %s exp %d\n",n2,res,op3->exponent); op3 13019 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 13023 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 13026 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 13027 src/dps8/dps8_eis.c op3->exponent = 127; op3 13042 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13044 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13047 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13077 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13079 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13082 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13092 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 13093 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 13096 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 13109 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 13114 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 13121 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 13122 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 13366 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op3 13373 src/dps8/dps8_eis.c PRINTDEC("op3", op3); op3 13391 src/dps8/dps8_eis.c if (n3 - op3->digits > 0) op3 13393 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op3->exponent - (n3 - op3->digits)); op3 13394 src/dps8/dps8_eis.c PRINTDEC("Value 1", op3) op3 13396 src/dps8/dps8_eis.c op3 = decNumberRescale(op3, op3, &_sf, &set); op3 13397 src/dps8/dps8_eis.c PRINTDEC("Value 2", op3) op3 13437 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3 -1, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 13444 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv3d: addzero n3 %d %s exp %d\n",n3,res,op3->exponent); op3 13447 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 13451 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 13454 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 13455 src/dps8/dps8_eis.c op3->exponent = 127; op3 13472 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13474 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13477 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13507 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13509 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13512 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13522 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 13523 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 13526 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 13539 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 13544 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 13551 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 13552 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0