op1 7634 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 7636 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 7638 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 7649 src/dps8/dps8_eis.c decNumber *cmp = decNumberCompare(&_3, op1, op2, &set); // compare signed op1 :: op2 op1 7653 src/dps8/dps8_eis.c op1 = decNumberAbs(op1, op1, &set); op1 7657 src/dps8/dps8_eis.c decNumber *mcmp = decNumberCompare(&_3, op1, op2, &set); // compare signed op1 :: op2 op1 7965 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber (e->inBuffer, n1, sc1, &_1); op1 7968 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 7970 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 7971 src/dps8/dps8_eis.c if (decNumberIsZero (op1)) op1 7972 src/dps8/dps8_eis.c op1->exponent = 127; op1 7976 src/dps8/dps8_eis.c PRINTDEC ("mvn input (op1)", op1); op1 7982 src/dps8/dps8_eis.c char * res = formatDecimal (out, & set, op1, n2, (int) e->S2, e->SF2, R, op1 8006 src/dps8/dps8_eis.c (decNumberIsNegative (op1) && op1 8007 src/dps8/dps8_eis.c ! decNumberIsZero(op1)) ? 015 : 013); op1 8011 src/dps8/dps8_eis.c (decNumberIsNegative (op1) && op1 8012 src/dps8/dps8_eis.c ! decNumberIsZero (op1)) ? 015 : 014); op1 8016 src/dps8/dps8_eis.c (decNumberIsNegative (op1) && op1 8017 src/dps8/dps8_eis.c ! decNumberIsZero (op1)) ? '-' : '+'); op1 8053 src/dps8/dps8_eis.c (decNumberIsNegative (op1) && op1 8054 src/dps8/dps8_eis.c ! decNumberIsZero(op1)) ? 015 : 013); op1 8058 src/dps8/dps8_eis.c (decNumberIsNegative (op1) && op1 8059 src/dps8/dps8_eis.c ! decNumberIsZero (op1)) ? 015 : 014); op1 8064 src/dps8/dps8_eis.c (decNumberIsNegative (op1) && op1 8065 src/dps8/dps8_eis.c ! decNumberIsZero(op1)) ? '-' : '+'); op1 8076 src/dps8/dps8_eis.c (op1->exponent >> 4) & 0xf); // upper 4-bits op1 8078 src/dps8/dps8_eis.c op1->exponent & 0xf); // lower 4-bits op1 8082 src/dps8/dps8_eis.c op1->exponent & 0xff); // write 8-bit exponent op1 8095 src/dps8/dps8_eis.c if (op1->exponent > 127) op1 8100 src/dps8/dps8_eis.c if (op1->exponent < -128) op1 8107 src/dps8/dps8_eis.c sim_debug (DBG_CAC, & cpu_dev, "is neg %o\r\n", decNumberIsNegative(op1)); op1 8108 src/dps8/dps8_eis.c sim_debug (DBG_CAC, & cpu_dev, "is zero %o\r\n", decNumberIsZero(op1)); op1 8118 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op1) && !decNumberIsZero(op1)); op1 8121 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op1)); op1 9850 src/dps8/dps8_eis.c decNumber *op1 = decNumberFromString(&_1, tmp+i, &set); op1 9852 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 9857 src/dps8/dps8_eis.c char * res = formatDecimal (out, &set, op1, n2, (int) e->S2, e->SF2, 0, &Ovr, &Trunc); op1 9875 src/dps8/dps8_eis.c (decNumberIsNegative(op1) && !decNumberIsZero(op1)) ? 015 : 013); // special + op1 9878 src/dps8/dps8_eis.c (decNumberIsNegative(op1) && !decNumberIsZero(op1)) ? 015 : 014); // default + op1 9882 src/dps8/dps8_eis.c (decNumberIsNegative(op1) && !decNumberIsZero(op1)) ? '-' : '+'); op1 9915 src/dps8/dps8_eis.c (decNumberIsNegative(op1) && !decNumberIsZero(op1)) ? 015 : 013); // special + op1 9918 src/dps8/dps8_eis.c (decNumberIsNegative(op1) && !decNumberIsZero(op1)) ? 015 : 014); // default + op1 9923 src/dps8/dps8_eis.c (decNumberIsNegative(op1) && !decNumberIsZero(op1)) ? '-' : '+'); op1 9933 src/dps8/dps8_eis.c SC_I_NEG (decNumberIsNegative(op1) && !decNumberIsZero(op1)); // set negative indicator if op3 < 0 op1 9934 src/dps8/dps8_eis.c SC_I_ZERO (decNumberIsZero(op1)); // set zero indicator if op3 == 0 op1 10262 src/dps8/dps8_eis.c op1 10264 src/dps8/dps8_eis.c op1 10265 src/dps8/dps8_eis.c op1 10266 src/dps8/dps8_eis.c op1 10270 src/dps8/dps8_eis.c op1 10627 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 10629 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 10631 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 10659 src/dps8/dps8_eis.c winLost = eisWindowOperands (op1, op2); op1 10660 src/dps8/dps8_eis.c op3 = decNumberAdd(&_3, op1, op2, &set); op1 10666 src/dps8/dps8_eis.c fltAlignTrunc = eisFloatAlignTrunc (op1, op2); op1 10667 src/dps8/dps8_eis.c eisFloatWindowOperands (op1, op2); op1 10668 src/dps8/dps8_eis.c op3 = decNumberAdd(&_3, op1, op2, &set); op1 11054 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 11056 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 11058 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 11086 src/dps8/dps8_eis.c winLost = eisWindowOperands (op1, op2); op1 11087 src/dps8/dps8_eis.c op3 = decNumberAdd(&_3, op1, op2, &set); op1 11093 src/dps8/dps8_eis.c fltAlignTrunc = eisFloatAlignTrunc (op1, op2); op1 11094 src/dps8/dps8_eis.c eisFloatWindowOperands (op1, op2); op1 11095 src/dps8/dps8_eis.c op3 = decNumberAdd(&_3, op1, op2, &set); op1 11431 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 11433 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 11435 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 11463 src/dps8/dps8_eis.c winLost = eisWindowOperands (op1, op2); op1 11464 src/dps8/dps8_eis.c op3 = decNumberSubtract(&_3, op2, op1, &set); op1 11470 src/dps8/dps8_eis.c fltAlignTrunc = eisFloatAlignTrunc (op1, op2); op1 11471 src/dps8/dps8_eis.c eisFloatWindowOperands (op1, op2); op1 11472 src/dps8/dps8_eis.c op3 = decNumberSubtract(&_3, op2, op1, &set); op1 11818 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 11820 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 11822 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 11850 src/dps8/dps8_eis.c winLost = eisWindowOperands (op1, op2); op1 11851 src/dps8/dps8_eis.c op3 = decNumberSubtract(&_3, op2, op1, &set); op1 11857 src/dps8/dps8_eis.c fltAlignTrunc = eisFloatAlignTrunc (op1, op2); op1 11858 src/dps8/dps8_eis.c eisFloatWindowOperands (op1, op2); op1 11859 src/dps8/dps8_eis.c op3 = decNumberSubtract(&_3, op2, op1, &set); op1 12180 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 12182 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 12184 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 12194 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op1 12482 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 12484 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 12486 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 12496 src/dps8/dps8_eis.c decNumber *op3 = decNumberMultiply(&_3, op1, op2, &set); op1 13522 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); // divisor op1 13524 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 13526 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 13529 src/dps8/dps8_eis.c if (decNumberIsZero(op1)) op1 13555 src/dps8/dps8_eis.c for (i=0; i < op1->digits; i++) op1 13567 src/dps8/dps8_eis.c NQ = (n2-clz2+1) - (n1-clz1) + (-(e->S1==CSFL?op1->exponent:(int)e->SF1)); op1 13570 src/dps8/dps8_eis.c e->S1,e->S2,e->N1,e->N2,clz1,clz2,op1->exponent,op2->exponent,e->SF2,NQ); op1 13578 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op1 13584 src/dps8/dps8_eis.c PRINTDEC("op1", op1); op1 13630 src/dps8/dps8_eis.c if (op1->digits >= op2->digits) { op1 13632 src/dps8/dps8_eis.c decNumberCopy(&_1a, op1); op1 13633 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op1->digits - op2->digits); op1 13635 src/dps8/dps8_eis.c } else if (op1->digits < op2->digits) { op1 13637 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op2->digits - op1->digits); op1 13638 src/dps8/dps8_eis.c decNumberShift(&_1a, op1, &_sf, &set); op1 13647 src/dps8/dps8_eis.c op1->exponent,op2->exponent,op1->digits,op2->digits,_1a.digits,_2a.digits); op1 13947 src/dps8/dps8_eis.c decNumber *op1 = decBCD9ToNumber(e->inBuffer, n1, sc1, &_1); op1 13950 src/dps8/dps8_eis.c op1->bits |= DECNEG; op1 13952 src/dps8/dps8_eis.c op1->exponent = e->exponent; op1 13955 src/dps8/dps8_eis.c if (decNumberIsZero(op1)) op1 13997 src/dps8/dps8_eis.c for (i=0; i < op1->digits; i++) op1 14010 src/dps8/dps8_eis.c ((e->S2==CSFL?op2->exponent:(int)e->SF2)-(e->S1==CSFL?op1->exponent:(int)e->SF1)-(int)e->SF3); op1 14013 src/dps8/dps8_eis.c e->S1,e->S2,e->N1,e->N2,clz1,clz2,op1->exponent,op2->exponent,e->SF3,NQ); op1 14021 src/dps8/dps8_eis.c decNumber *op3 = decNumberDivide(&_3, op2, op1, &set); op1 14027 src/dps8/dps8_eis.c PRINTDEC("op1", op1); op1 14073 src/dps8/dps8_eis.c if (op1->digits >= op2->digits) { op1 14075 src/dps8/dps8_eis.c decNumberCopy(&_1a, op1); op1 14076 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op1->digits - op2->digits); op1 14078 src/dps8/dps8_eis.c } else if (op1->digits < op2->digits) { op1 14080 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op2->digits - op1->digits); op1 14081 src/dps8/dps8_eis.c decNumberShift(&_1a, op1, &_sf, &set); op1 14091 src/dps8/dps8_eis.c op1->exponent ,op2->exponent, op1->digits, op1 280 src/dps8/dps8_utils.c word36 Add36b (cpu_state_t * cpup, word36 op1, word36 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op1 285 src/dps8/dps8_utils.c op1, op2, carryin, flagsToSet, * flags); op1 290 src/dps8/dps8_utils.c word38 op1e = op1 & MASK36; op1 360 src/dps8/dps8_utils.c word36 Sub36b (cpu_state_t * cpup, word36 op1, word36 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op1 372 src/dps8/dps8_utils.c word38 op1e = op1 & MASK36; op1 444 src/dps8/dps8_utils.c word18 Add18b (cpu_state_t * cpup, word18 op1, word18 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op1 451 src/dps8/dps8_utils.c word20 op1e = op1 & MASK18; op1 520 src/dps8/dps8_utils.c word18 Sub18b (cpu_state_t * cpup, word18 op1, word18 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op1 532 src/dps8/dps8_utils.c word20 op1e = op1 & MASK18; op1 604 src/dps8/dps8_utils.c word72 Add72b (cpu_state_t * cpup, word72 op1, word72 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op1 612 src/dps8/dps8_utils.c word74 op1e = and_128 (op1, MASK72); op1 616 src/dps8/dps8_utils.c word74 op1e = op1 & MASK72; op1 718 src/dps8/dps8_utils.c word72 Sub72b (cpu_state_t * cpup, word72 op1, word72 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf) op1 724 src/dps8/dps8_utils.c (word36) ((rshift_128 (op1, 36).l) & MASK36), op1 725 src/dps8/dps8_utils.c (word36) (op1.l & MASK36), op1 732 src/dps8/dps8_utils.c (word36) ((op1 >> 36) & MASK36), op1 733 src/dps8/dps8_utils.c (word36) (op1 & MASK36), op1 748 src/dps8/dps8_utils.c word74 op1e = and_128 (op1, MASK72); op1 751 src/dps8/dps8_utils.c word74 op1e = op1 & MASK72; op1 892 src/dps8/dps8_utils.c word36 compl36(cpu_state_t * cpup, word36 op1, word18 *flags, bool * ovf) op1 897 src/dps8/dps8_utils.c op1 &= DMASK; op1 901 src/dps8/dps8_utils.c word36 res = ((word36) (- ((word36s) op1))) & DMASK; op1 903 src/dps8/dps8_utils.c * ovf = op1 == MAXNEG; op1 928 src/dps8/dps8_utils.c word18 compl18(cpu_state_t * cpup, word18 op1, word18 *flags, bool * ovf) op1 933 src/dps8/dps8_utils.c op1 &= MASK18; op1 937 src/dps8/dps8_utils.c word18 res = ((word18) (- (word18s) op1)) & MASK18; op1 939 src/dps8/dps8_utils.c * ovf = op1 == MAX18NEG; op1 1096 src/dps8/dps8_utils.c t_int64 op1 = SIGNEXT36_64(oP1 & DMASK); op1 1099 src/dps8/dps8_utils.c word36 sign1 = (word36) op1 & SIGN36; op1 1107 src/dps8/dps8_utils.c if (op1 > op2) op1 1113 src/dps8/dps8_utils.c else if (op1 == op2) op1 1140 src/dps8/dps8_utils.c int32 op1 = SIGNEXT18_32 (oP1 & MASK18); op1 1143 src/dps8/dps8_utils.c word18 sign1 = (word18) op1 & SIGN18; op1 1151 src/dps8/dps8_utils.c if (op1 > op2) op1 1157 src/dps8/dps8_utils.c else if (op1 == op2) op1 1215 src/dps8/dps8_utils.c void cmp72(cpu_state_t * cpup, word72 op1, word72 op2, word18 *flags) op1 1222 src/dps8/dps8_utils.c sim_debug (DBG_TRACEEXT, & cpu_dev, "op1 %016"PRIx64"%016"PRIx64"\r\n", op1.h, op1.l); op1 1224 src/dps8/dps8_utils.c int128 op1s = SIGNEXT72_128 (and_128 (op1, MASK72)); op1 1229 src/dps8/dps8_utils.c sim_debug (DBG_TRACEEXT, & cpu_dev, "op1 %016"PRIx64"%016"PRIx64"\r\n", (uint64_t) (op1>>64), (uint64_t) op1); op1 1231 src/dps8/dps8_utils.c int128 op1s = SIGNEXT72_128 (op1 & MASK72); op1 1270 src/dps8/dps8_utils.c if (isnonzero_128 (and_128 (op1, SIGN72))) op1 1272 src/dps8/dps8_utils.c if (op1 & SIGN72) op1 50 src/dps8/dps8_utils.h word36 compl36(cpu_state_t * cpup, word36 op1, word18 *flags, bool * ovf); op1 51 src/dps8/dps8_utils.h word18 compl18(cpu_state_t * cpup, word18 op1, word18 *flags, bool * ovf); op1 59 src/dps8/dps8_utils.h void cmp36(cpu_state_t * cpup, word36 op1, word36 op2, word18 *flags); op1 61 src/dps8/dps8_utils.h void cmp18(cpu_state_t * cpup, word18 op1, word18 op2, word18 *flags); op1 62 src/dps8/dps8_utils.h void cmp72(cpu_state_t * cpup, word72 op1, word72 op2, word18 *flags); op1 893 src/dps8/dps8_utils.h word36 Add36b (cpu_state_t * cpup, word36 op1, word36 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf); op1 894 src/dps8/dps8_utils.h word36 Sub36b (cpu_state_t * cpup, word36 op1, word36 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf); op1 895 src/dps8/dps8_utils.h word18 Add18b (cpu_state_t * cpup, word18 op1, word18 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf); op1 896 src/dps8/dps8_utils.h word18 Sub18b (cpu_state_t * cpup, word18 op1, word18 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf); op1 897 src/dps8/dps8_utils.h word72 Add72b (cpu_state_t * cpup, word72 op1, word72 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf); op1 898 src/dps8/dps8_utils.h word72 Sub72b (cpu_state_t * cpup, word72 op1, word72 op2, word1 carryin, word18 flagsToSet, word18 * flags, bool * ovf);