op3 10242 src/dps8/dps8_eis.c decNumber *op3 = decNumberAdd(&_3, op1, op2, &set); op3 10246 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 10250 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 10254 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 10255 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 10259 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 10267 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 10268 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 10271 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 10283 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 10287 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 10288 src/dps8/dps8_eis.c op3->exponent = 127; op3 10306 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10308 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10311 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10341 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10343 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10346 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10356 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 10357 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 10360 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 10373 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 10378 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 10385 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 10386 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 10613 src/dps8/dps8_eis.c decNumber *op3 = decNumberAdd(&_3, op1, op2, &set); op3 10627 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 10631 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 10635 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 10636 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 10640 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 10648 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 10649 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 10652 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 10664 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 10668 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 10669 src/dps8/dps8_eis.c op3->exponent = 127; op3 10687 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10689 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10692 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10722 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 10724 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 10727 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 10737 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 10738 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 10742 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 10755 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 10760 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 10767 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 10768 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 10935 src/dps8/dps8_eis.c decNumber *op3 = decNumberSubtract(&_3, op2, op1, &set); op3 10939 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 10943 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 10947 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 10948 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 10952 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 10960 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 10961 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 10964 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 10976 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 10980 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 10981 src/dps8/dps8_eis.c op3->exponent = 127; op3 10999 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11001 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11004 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11034 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11036 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11039 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11049 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 11050 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 11054 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 11067 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 11072 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 11079 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 11080 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 11267 src/dps8/dps8_eis.c decNumber *op3 = decNumberSubtract(&_3, op2, op1, &set); op3 11271 src/dps8/dps8_eis.c if (op3->digits > 63) { op3 11275 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; op3 11279 src/dps8/dps8_eis.c decNumberGetBCD(op3,pr); op3 11280 src/dps8/dps8_eis.c for (int i=op3->digits-1;i>=0 && pr[i]==0;i--) op3 11284 src/dps8/dps8_eis.c if (op3->digits - min(max(sf,0),ctz) > 63) { op3 11292 src/dps8/dps8_eis.c set.digits = op3->digits - min(max(sf,0),ctz) - 63; op3 11293 src/dps8/dps8_eis.c decNumberPlus(&tmp, op3, &set); op3 11296 src/dps8/dps8_eis.c decNumberSubtract(op3, op3, &tmp, &set); op3 11308 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 11312 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 11313 src/dps8/dps8_eis.c op3->exponent = 127; op3 11329 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11331 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11334 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11364 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11366 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11369 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11379 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 11380 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 11384 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 11397 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 11402 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 11409 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 11410 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 11574 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op3 11579 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 11581 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 11582 src/dps8/dps8_eis.c op3->exponent = 127; op3 11598 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11600 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11603 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11633 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11635 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11638 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11648 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 11649 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 11653 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 11666 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 11671 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 11678 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 11679 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 11866 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op3 11882 src/dps8/dps8_eis.c char *res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 11884 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 11885 src/dps8/dps8_eis.c op3->exponent = 127; op3 11904 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11906 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11909 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11939 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 11941 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 11944 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 11954 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 11955 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 11958 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 11971 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 11976 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 11983 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 11984 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 12937 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op3 12944 src/dps8/dps8_eis.c PRINTDEC("op3", op3); op3 12962 src/dps8/dps8_eis.c if (n2 - op3->digits > 0) op3 12964 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op3->exponent - (n2 - op3->digits)); op3 12965 src/dps8/dps8_eis.c PRINTDEC("Value 1", op3) op3 12967 src/dps8/dps8_eis.c op3 = decNumberRescale(op3, op3, &_sf, &set); op3 12968 src/dps8/dps8_eis.c PRINTDEC("Value 2", op3) op3 13008 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2 -1, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 13015 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv2d: addzero n2 %d %s exp %d\n",n2,res,op3->exponent); op3 13018 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 13022 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n2, (int) e->S2, e->SF2, R, &Ovr, &Trunc); op3 13025 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 13026 src/dps8/dps8_eis.c op3->exponent = 127; op3 13041 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13043 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13046 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13076 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13078 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13081 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13091 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 13092 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 13095 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 13108 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 13113 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 13120 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 13121 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0 op3 13365 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op3 13372 src/dps8/dps8_eis.c PRINTDEC("op3", op3); op3 13390 src/dps8/dps8_eis.c if (n3 - op3->digits > 0) op3 13392 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op3->exponent - (n3 - op3->digits)); op3 13393 src/dps8/dps8_eis.c PRINTDEC("Value 1", op3) op3 13395 src/dps8/dps8_eis.c op3 = decNumberRescale(op3, op3, &_sf, &set); op3 13396 src/dps8/dps8_eis.c PRINTDEC("Value 2", op3) op3 13436 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3 -1, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 13443 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv3d: addzero n3 %d %s exp %d\n",n3,res,op3->exponent); op3 13446 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 13450 src/dps8/dps8_eis.c res = formatDecimal(out, &set, op3, n3, (int) e->S3, e->SF3, R, &Ovr, &Trunc); op3 13453 src/dps8/dps8_eis.c if (decNumberIsZero(op3)) op3 13454 src/dps8/dps8_eis.c op3->exponent = 127; op3 13471 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13473 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13476 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13506 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 013); // special + op3 13508 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? 015 : 014); // default + op3 13511 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (decNumberIsNegative(op3) && !decNumberIsZero(op3)) ? '-' : '+'); op3 13521 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits op3 13522 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits op3 13525 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent op3 13538 src/dps8/dps8_eis.c if (op3->exponent > 127) op3 13543 src/dps8/dps8_eis.c if (op3->exponent < -128) op3 13550 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op3) && !decNumberIsZero(op3)); // set negative indicator if op3 < 0 op3 13551 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op3)); // set zero indicator if op3 == 0