exponent 327 src/decNumber/decNumber.c if (dn->bits&DECSPECIAL || dn->digits>10 || dn->exponent!=0) ; // bad exponent 359 src/decNumber/decNumber.c if (dn->bits&DECSPECIAL || dn->digits>10 || dn->exponent!=0 exponent 429 src/decNumber/decNumber.c Int exponent=0; // working exponent [assume 0] exponent 542 src/decNumber/decNumber.c exponent=X10(exponent)+(Int)*c-(Int)'0'; exponent 551 src/decNumber/decNumber.c if (c>firstexp+9+1 || *firstexp>'1') exponent=DECNUMMAXE*2; exponent 554 src/decNumber/decNumber.c if (nege) exponent=-exponent; // was negative exponent 579 src/decNumber/decNumber.c exponent-=(last-dotchar); // adjust exponent exponent 626 src/decNumber/decNumber.c dn->exponent=exponent; exponent 638 src/decNumber/decNumber.c if ((dn->exponent-1<set->emin-dn->digits) exponent 639 src/decNumber/decNumber.c || (dn->exponent-1>set->emax-set->digits)) { exponent 677 src/decNumber/decNumber.c dzero.exponent=rhs->exponent; // [no coefficient expansion] exponent 726 src/decNumber/decNumber.c if (lhs->exponent!=0 || decNumberIsSpecial(lhs) || decNumberIsNegative(lhs) exponent 727 src/decNumber/decNumber.c || rhs->exponent!=0 || decNumberIsSpecial(rhs) || decNumberIsNegative(rhs)) { exponent 767 src/decNumber/decNumber.c res->exponent=0; // integer exponent 1093 src/decNumber/decNumber.c if (rhs->exponent!=0 || decNumberIsSpecial(rhs) || decNumberIsNegative(rhs)) { exponent 1124 src/decNumber/decNumber.c res->exponent=0; // integer exponent 1229 src/decNumber/decNumber.c Int ae=rhs->exponent+rhs->digits-1; // adjusted exponent exponent 1337 src/decNumber/decNumber.c decNumberFromInt32(w, w->exponent); exponent 1509 src/decNumber/decNumber.c dzero.exponent=rhs->exponent; // [no coefficient expansion] exponent 1549 src/decNumber/decNumber.c dtiny.exponent=set->emin-set->digits; exponent 1591 src/decNumber/decNumber.c dtiny.exponent=set->emin-set->digits; exponent 1650 src/decNumber/decNumber.c dtiny.exponent=DEC_MIN_EMIN-1; // .. smaller than tiniest exponent 1684 src/decNumber/decNumber.c if (lhs->exponent!=0 || decNumberIsSpecial(lhs) || decNumberIsNegative(lhs) exponent 1685 src/decNumber/decNumber.c || rhs->exponent!=0 || decNumberIsSpecial(rhs) || decNumberIsNegative(rhs)) { exponent 1723 src/decNumber/decNumber.c res->exponent=0; // integer exponent 1750 src/decNumber/decNumber.c dzero.exponent=rhs->exponent; // [no coefficient expansion] exponent 1872 src/decNumber/decNumber.c res->exponent=-shift; // make 1.0000... exponent 1979 src/decNumber/decNumber.c aset.digits=reqdigits+(rhs->digits+rhs->exponent)+2; exponent 2015 src/decNumber/decNumber.c dac->exponent=-shift; // make 1.0000... exponent 2315 src/decNumber/decNumber.c else if (decNumberIsInfinite(rhs) || rhs->exponent!=0) exponent 2433 src/decNumber/decNumber.c else if (lhs->exponent==rhs->exponent) ret=1; exponent 2465 src/decNumber/decNumber.c else if (decNumberIsInfinite(rhs) || rhs->exponent!=0) exponent 2479 src/decNumber/decNumber.c Int exp=res->exponent; // save for overflow test exponent 2480 src/decNumber/decNumber.c res->exponent+=reqexp; // adjust the exponent exponent 2482 src/decNumber/decNumber.c && ((exp^res->exponent)<0)) { // .. but result had different exponent 2484 src/decNumber/decNumber.c if (exp<0) res->exponent=DEC_MIN_EMIN-DEC_MAX_DIGITS; exponent 2485 src/decNumber/decNumber.c else res->exponent=DEC_MAX_EMAX+1; exponent 2527 src/decNumber/decNumber.c else if (decNumberIsInfinite(rhs) || rhs->exponent!=0) exponent 2704 src/decNumber/decNumber.c ideal=(rhs->exponent&~1)/2; // target exponent 2709 src/decNumber/decNumber.c res->exponent=ideal; // use the ideal [safe] exponent 2754 src/decNumber/decNumber.c exp=f->exponent+f->digits; // adjusted to Hull rules exponent 2755 src/decNumber/decNumber.c f->exponent=-(f->digits); // to range exponent 2771 src/decNumber/decNumber.c t->exponent=-3; exponent 2772 src/decNumber/decNumber.c a->exponent=-3; exponent 2786 src/decNumber/decNumber.c f->exponent--; // f=f/10 exponent 2788 src/decNumber/decNumber.c t->exponent=-4; exponent 2789 src/decNumber/decNumber.c a->exponent=-2; exponent 2811 src/decNumber/decNumber.c t->exponent=-1; // .. exponent 2829 src/decNumber/decNumber.c a->exponent+=exp/2; // set correct exponent exponent 2847 src/decNumber/decNumber.c a->exponent-=exp/2; // back to 0.1->1 exponent 2855 src/decNumber/decNumber.c t->exponent=-a->digits-1; // make 0.5 ulp exponent 2862 src/decNumber/decNumber.c t->exponent++; // make 1.0 ulp exponent 2876 src/decNumber/decNumber.c t->exponent++; // make 1.0 ulp exponent 2889 src/decNumber/decNumber.c a->exponent+=exp/2; // set correct exponent exponent 2915 src/decNumber/decNumber.c Int todrop=ideal-a->exponent; // most that can be dropped exponent 2920 src/decNumber/decNumber.c Int maxdrop=maxexp-a->exponent; exponent 2931 src/decNumber/decNumber.c a->exponent+=todrop; // maintain numerical value exponent 2942 src/decNumber/decNumber.c Int ae=rhs->exponent+rhs->digits-1; // adjusted exponent exponent 3021 src/decNumber/decNumber.c if (rhs->exponent>=0) return decNumberCopy(res, rhs); exponent 3067 src/decNumber/decNumber.c if (lhs->exponent!=0 || decNumberIsSpecial(lhs) || decNumberIsNegative(lhs) exponent 3068 src/decNumber/decNumber.c || rhs->exponent!=0 || decNumberIsSpecial(rhs) || decNumberIsNegative(rhs)) { exponent 3106 src/decNumber/decNumber.c res->exponent=0; // integer exponent 3183 src/decNumber/decNumber.c dest->exponent=src->exponent; exponent 3331 src/decNumber/decNumber.c ae=dn->exponent+dn->digits-1; // adjusted exponent exponent 3348 src/decNumber/decNumber.c ae=dn->exponent+dn->digits-1; // adjusted exponent exponent 3391 src/decNumber/decNumber.c dn->exponent=0; exponent 3416 src/decNumber/decNumber.c Int exp=dn->exponent; // local copy exponent 3658 src/decNumber/decNumber.c Int lexp=lhs->exponent; // save in case LHS==RES exponent 3668 src/decNumber/decNumber.c adjust=lexp-res->exponent; // adjustment needed [if -ve] exponent 3670 src/decNumber/decNumber.c if (adjust<0) res->exponent=lexp; // set exponent exponent 3684 src/decNumber/decNumber.c res->exponent+=adjust; // set the exponent. exponent 3695 src/decNumber/decNumber.c Int rexp=rhs->exponent; // save in case RHS==RES exponent 3705 src/decNumber/decNumber.c adjust=rexp-res->exponent; // adjustment needed [if -ve] exponent 3712 src/decNumber/decNumber.c res->exponent+=adjust; // set the exponent. exponent 3724 src/decNumber/decNumber.c padding=rhs->exponent-lhs->exponent; exponent 3731 src/decNumber/decNumber.c && rhs->exponent>=set->emin // [some normals drop through] exponent 3732 src/decNumber/decNumber.c && rhs->exponent<=set->emax-set->digits+1 // [could clamp] exponent 3771 src/decNumber/decNumber.c Int exponent; // new exponent of LHS (if adjusted) exponent 3779 src/decNumber/decNumber.c exponent = rhs->exponent-1; exponent 3780 src/decNumber/decNumber.c exponent += (rhs->digits>reqdigits) ? 0 : rhs->digits-reqdigits-1; exponent 3781 src/decNumber/decNumber.c if (lhs->digits+lhs->exponent-1 < exponent) { exponent 3784 src/decNumber/decNumber.c dtiny.exponent=exponent; exponent 3788 src/decNumber/decNumber.c padding=rhs->exponent-exponent; exponent 3826 src/decNumber/decNumber.c res->exponent=lhs->exponent; // .. operands (even if aliased) exponent 4014 src/decNumber/decNumber.c Int exponent; // working exponent exponent 4075 src/decNumber/decNumber.c res->exponent=set->emin-set->digits+1; exponent 4107 src/decNumber/decNumber.c exponent=lhs->exponent-rhs->exponent; // ideal exponent exponent 4110 src/decNumber/decNumber.c res->exponent=exponent; // exponent, too exponent 4117 src/decNumber/decNumber.c exponent=rhs->exponent; // [save in case overwrite] exponent 4119 src/decNumber/decNumber.c if (exponent<res->exponent) res->exponent=exponent; // use lower exponent 4132 src/decNumber/decNumber.c exponent=(lhs->exponent+lhs->digits)-(rhs->exponent+rhs->digits); exponent 4137 src/decNumber/decNumber.c if (exponent<0 && !(op==DIVIDE)) { exponent 4147 src/decNumber/decNumber.c if (lhs->exponent<=rhs->exponent) { exponent 4148 src/decNumber/decNumber.c if (op&REMAINDER || exponent<-1) { exponent 4232 src/decNumber/decNumber.c for (pow=&powers[1]; *msu1>=*pow; pow++) exponent--; exponent 4233 src/decNumber/decNumber.c for (pow=&powers[1]; *msu2>=*pow; pow++) exponent++; exponent 4245 src/decNumber/decNumber.c if (exponent<0) cut=-exponent; exponent 4246 src/decNumber/decNumber.c else cut=DECDPUN-exponent%DECDPUN; exponent 4248 src/decNumber/decNumber.c exponent+=cut; // maintain numerical value exponent 4254 src/decNumber/decNumber.c maxexponent=lhs->exponent-rhs->exponent; // save exponent 4259 src/decNumber/decNumber.c exponent-=DECDPUN; // update the exponent exponent 4344 src/decNumber/decNumber.c if ((op&DIVIDE) && (exponent<=maxexponent)) break; exponent 4349 src/decNumber/decNumber.c if (exponent==0 && !(op&DIVIDE)) break; exponent 4354 src/decNumber/decNumber.c exponent-=DECDPUN; // update the exponent exponent 4385 src/decNumber/decNumber.c if (exponent>=maxexponent) break; // don't chop real 0s exponent 4392 src/decNumber/decNumber.c exponent++; exponent 4407 src/decNumber/decNumber.c if (accdigits+exponent>reqdigits) { exponent 4424 src/decNumber/decNumber.c Int exp=lhs->exponent; // save min(exponents) exponent 4425 src/decNumber/decNumber.c if (rhs->exponent<exp) exp=rhs->exponent; exponent 4430 src/decNumber/decNumber.c res->exponent=exp; // .. with proper exponent exponent 4444 src/decNumber/decNumber.c postshift=var1initpad+exponent-lhs->exponent+rhs->exponent; exponent 4454 src/decNumber/decNumber.c exponent=lhs->exponent; // exponent is smaller of lhs & rhs exponent 4455 src/decNumber/decNumber.c if (rhs->exponent<exponent) exponent=rhs->exponent; exponent 4474 src/decNumber/decNumber.c rhs->exponent-exponent); exponent 4515 src/decNumber/decNumber.c exp=rhs->exponent-exponent; // RHS padding needed exponent 4534 src/decNumber/decNumber.c res->exponent=exponent; exponent 4598 src/decNumber/decNumber.c Int exponent; // work exponent 4875 src/decNumber/decNumber.c exponent=lhs->exponent+rhs->exponent; // calculate exponent exponent 4876 src/decNumber/decNumber.c if (lhs->exponent<0 && rhs->exponent<0 && exponent>0) exponent 4877 src/decNumber/decNumber.c exponent=-2*DECNUMMAXE; // force underflow exponent 4878 src/decNumber/decNumber.c res->exponent=exponent; // OK to overwrite now exponent 5042 src/decNumber/decNumber.c d->exponent=-set->digits; // * 10**(-d) exponent 5043 src/decNumber/decNumber.c if (decNumberIsNegative(rhs)) d->exponent--; // negative case exponent 5053 src/decNumber/decNumber.c res->exponent=-shift; // make 1.0000... exponent 5067 src/decNumber/decNumber.c h=rhs->exponent+rhs->digits; exponent 5079 src/decNumber/decNumber.c if (decNumberIsNegative(rhs)) a->exponent=-2; // make 0.02 exponent 5103 src/decNumber/decNumber.c if (rhs->exponent!=use) { exponent 5114 src/decNumber/decNumber.c newrhs->exponent=use; // normalize; now <1 exponent 5184 src/decNumber/decNumber.c if (((a->digits+a->exponent)>=(t->digits+t->exponent+p+1)) exponent 5367 src/decNumber/decNumber.c if (rhs->exponent==0 && set->digits<=40) { exponent 5427 src/decNumber/decNumber.c r=rhs->exponent+rhs->digits; // 'normalised' exponent exponent 5430 src/decNumber/decNumber.c b->exponent=-6; // .. exponent 5437 src/decNumber/decNumber.c b->exponent=0; // make integer exponent 5447 src/decNumber/decNumber.c b->exponent=-(t&3)-3; // set exponent exponent 5500 src/decNumber/decNumber.c (a->digits+a->exponent)>=(b->digits+b->exponent+set->digits+1)) { exponent 5504 src/decNumber/decNumber.c if (cmp.lsu[0]==0) a->exponent=0; // yes, exact 0 exponent 5509 src/decNumber/decNumber.c if (decNumberIsZero(b)) b->exponent=a->exponent-p; exponent 5603 src/decNumber/decNumber.c if (quant) reqexp=inrhs->exponent; // quantize -- match exponents exponent 5625 src/decNumber/decNumber.c res->exponent=reqexp; // .. just set exponent exponent 5631 src/decNumber/decNumber.c Int adjust=reqexp-lhs->exponent; // digit adjustment needed exponent 5650 src/decNumber/decNumber.c if (res->exponent>reqexp) { exponent 5659 src/decNumber/decNumber.c res->exponent--; // (re)adjust the exponent. exponent 5673 src/decNumber/decNumber.c res->exponent+=adjust; // adjust the exponent exponent 5680 src/decNumber/decNumber.c if (res->exponent>set->emax-res->digits+1) { // too big exponent 5822 src/decNumber/decNumber.c if (lhs->exponent!=rhs->exponent) { exponent 5823 src/decNumber/decNumber.c if (lhs->exponent<rhs->exponent) result=-1; exponent 5856 src/decNumber/decNumber.c if (lhs->exponent<rhs->exponent) result=+1; exponent 5861 src/decNumber/decNumber.c if (lhs->exponent>rhs->exponent) result=+1; exponent 5926 src/decNumber/decNumber.c if (lhs->exponent>rhs->exponent) { // LHS exponent larger exponent 5935 src/decNumber/decNumber.c rhs->exponent-lhs->exponent); exponent 6317 src/decNumber/decNumber.c dn->exponent=0; // (sign is preserved) exponent 6322 src/decNumber/decNumber.c exp=dn->exponent; exponent 6351 src/decNumber/decNumber.c Int maxd=set->emax-set->digits+1-dn->exponent; exponent 6358 src/decNumber/decNumber.c dn->exponent+=d; // maintain numerical value exponent 6558 src/decNumber/decNumber.c dest->exponent=src->exponent; exponent 6628 src/decNumber/decNumber.c dn->exponent+=discard; // maintain numerical value exponent 6875 src/decNumber/decNumber.c dn->exponent++; // and bump exponent exponent 6877 src/decNumber/decNumber.c if ((dn->exponent+dn->digits)>set->emax+1) { exponent 6901 src/decNumber/decNumber.c dn->exponent--; // and bump exponent exponent 6908 src/decNumber/decNumber.c if (dn->exponent+1==set->emin-set->digits+1) { //-V584 exponent 6914 src/decNumber/decNumber.c dn->exponent++; exponent 6952 src/decNumber/decNumber.c dn->exponent=0; // clean exponent .. exponent 6956 src/decNumber/decNumber.c if (dn->exponent>=0) { // non-negative exponent exponent 6958 src/decNumber/decNumber.c if (set->digits >= (dn->exponent+dn->digits)) { exponent 6959 src/decNumber/decNumber.c dn->digits=decShiftToMost(dn->lsu, dn->digits, dn->exponent); exponent 6960 src/decNumber/decNumber.c dn->exponent=0; exponent 6994 src/decNumber/decNumber.c if (dn->exponent<=tinyexp) { // prefilter exponent 6998 src/decNumber/decNumber.c if (dn->exponent<tinyexp) { exponent 7006 src/decNumber/decNumber.c nmin.exponent=set->emin; exponent 7023 src/decNumber/decNumber.c if (dn->exponent<=set->emax-set->digits+1) return; // neither needed exponent 7026 src/decNumber/decNumber.c if (dn->exponent>set->emax-dn->digits+1) { // too big exponent 7034 src/decNumber/decNumber.c shift=dn->exponent-(set->emax-set->digits+1); exponent 7040 src/decNumber/decNumber.c dn->exponent-=shift; // adjust the exponent to match exponent 7063 src/decNumber/decNumber.c if (dn->exponent>emax) { // clamp required exponent 7064 src/decNumber/decNumber.c dn->exponent=emax; exponent 7116 src/decNumber/decNumber.c dn->exponent=set->emax-set->digits+1; exponent 7157 src/decNumber/decNumber.c if (dn->exponent<etiny) { // clamp required exponent 7158 src/decNumber/decNumber.c dn->exponent=etiny; exponent 7165 src/decNumber/decNumber.c adjust=etiny-dn->exponent; // calculate digits to remove exponent 7189 src/decNumber/decNumber.c if (dn->exponent>etiny) { exponent 7191 src/decNumber/decNumber.c dn->exponent--; // (re)adjust the exponent. exponent 7223 src/decNumber/decNumber.c || rhs->exponent+rhs->digits>DEC_MAX_MATH+1 exponent 7224 src/decNumber/decNumber.c || rhs->exponent+rhs->digits<2*(1-DEC_MAX_MATH)) exponent 7248 src/decNumber/decNumber.c Int ilength=dn->digits+dn->exponent; // integral length exponent 7263 src/decNumber/decNumber.c if (dn->exponent>=0) { // relatively easy exponent 7265 src/decNumber/decNumber.c got=dn->exponent; exponent 7268 src/decNumber/decNumber.c Int count=-dn->exponent; // digits to discard exponent 7420 src/decNumber/decNumber.c res->exponent=0; // clean exponent exponent 73 src/decNumber/decNumber.h int32_t exponent; /* Unadjusted exponent, unbiased, in */ exponent 342 src/decNumber/decNumberLocal.h Int exponent; /* Unadjusted signed exponent (q), or */ exponent 350 src/decNumber/decNumberLocal.h # define NUMISSPECIAL(num) (EXPISSPECIAL((num)->exponent)) exponent 620 src/dps8/dps8_cpu.h int exponent; // For decimal floating-point (evil) exponent 126 src/dps8/dps8_decimal.c dn->exponent=-scale; // set the exponent exponent 239 src/dps8/dps8_decimal.c exponent 423 src/dps8/dps8_decimal.c exponent 466 src/dps8/dps8_decimal.c exponent 469 src/dps8/dps8_decimal.c exponent 483 src/dps8/dps8_decimal.c exponent 509 src/dps8/dps8_decimal.c exponent 721 src/dps8/dps8_decimal.c if (sf != r->exponent) { exponent 724 src/dps8/dps8_decimal.c if (sf > r->exponent) // ET 330: truncation due to: output sf > input sf or exponent exponent 741 src/dps8/dps8_decimal.c if (r->exponent > sf) exponent 742 src/dps8/dps8_decimal.c set->digits = min (DECNUMDIGITS, max (set->digits, r->digits + r->exponent - sf)); exponent 43 src/dps8/dps8_decimal.h sim_printf("%s:'%s E%d'\n", msg, getBCDn(dn, set->digits), dn->exponent); \ exponent 5037 src/dps8/dps8_eis.c e->exponent = 0; exponent 5089 src/dps8/dps8_eis.c e->exponent = (signed char)(c & 0377); // want to do a sign extend exponent 5094 src/dps8/dps8_eis.c e->exponent = (c & 0xf);// << 4; exponent 5095 src/dps8/dps8_eis.c e->exponent <<= 4; exponent 5100 src/dps8/dps8_eis.c e->exponent |= (c & 0xf); exponent 5102 src/dps8/dps8_eis.c signed char ce = (signed char) (e->exponent & 0xff); exponent 5103 src/dps8/dps8_eis.c e->exponent = ce; exponent 7422 src/dps8/dps8_eis.c op1->exponent = e->exponent; exponent 7430 src/dps8/dps8_eis.c op2->exponent = e->exponent; exponent 7751 src/dps8/dps8_eis.c op1->exponent = e->exponent; exponent 7753 src/dps8/dps8_eis.c op1->exponent = 127; exponent 7857 src/dps8/dps8_eis.c (op1->exponent >> 4) & 0xf); // upper 4-bits exponent 7859 src/dps8/dps8_eis.c op1->exponent & 0xf); // lower 4-bits exponent 7863 src/dps8/dps8_eis.c op1->exponent & 0xff); // write 8-bit exponent exponent 7876 src/dps8/dps8_eis.c if (op1->exponent > 127) exponent 7881 src/dps8/dps8_eis.c if (op1->exponent < -128) exponent 10019 src/dps8/dps8_eis.c exponent 10232 src/dps8/dps8_eis.c op1->exponent = e->exponent; exponent 10240 src/dps8/dps8_eis.c op2->exponent = e->exponent; exponent 10250 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; exponent 10288 src/dps8/dps8_eis.c op3->exponent = 127; exponent 10356 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits exponent 10357 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits exponent 10360 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent exponent 10373 src/dps8/dps8_eis.c if (op3->exponent > 127) exponent 10378 src/dps8/dps8_eis.c if (op3->exponent < -128) exponent 10603 src/dps8/dps8_eis.c op1->exponent = e->exponent; exponent 10611 src/dps8/dps8_eis.c op2->exponent = e->exponent; exponent 10631 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; exponent 10669 src/dps8/dps8_eis.c op3->exponent = 127; exponent 10737 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits exponent 10738 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits exponent 10742 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent exponent 10755 src/dps8/dps8_eis.c if (op3->exponent > 127) exponent 10760 src/dps8/dps8_eis.c if (op3->exponent < -128) exponent 10925 src/dps8/dps8_eis.c op1->exponent = e->exponent; exponent 10933 src/dps8/dps8_eis.c op2->exponent = e->exponent; exponent 10943 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; exponent 10981 src/dps8/dps8_eis.c op3->exponent = 127; exponent 11049 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits exponent 11050 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits exponent 11054 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent exponent 11067 src/dps8/dps8_eis.c if (op3->exponent > 127) exponent 11072 src/dps8/dps8_eis.c if (op3->exponent < -128) exponent 11257 src/dps8/dps8_eis.c op1->exponent = e->exponent; exponent 11265 src/dps8/dps8_eis.c op2->exponent = e->exponent; exponent 11275 src/dps8/dps8_eis.c int sf = e->S3==CSFL?op3->exponent:e->SF3; exponent 11313 src/dps8/dps8_eis.c op3->exponent = 127; exponent 11379 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits exponent 11380 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits exponent 11384 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent exponent 11397 src/dps8/dps8_eis.c if (op3->exponent > 127) exponent 11402 src/dps8/dps8_eis.c if (op3->exponent < -128) exponent 11564 src/dps8/dps8_eis.c op1->exponent = e->exponent; exponent 11572 src/dps8/dps8_eis.c op2->exponent = e->exponent; exponent 11582 src/dps8/dps8_eis.c op3->exponent = 127; exponent 11648 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits exponent 11649 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits exponent 11653 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent exponent 11666 src/dps8/dps8_eis.c if (op3->exponent > 127) exponent 11671 src/dps8/dps8_eis.c if (op3->exponent < -128) exponent 11856 src/dps8/dps8_eis.c op1->exponent = e->exponent; exponent 11864 src/dps8/dps8_eis.c op2->exponent = e->exponent; exponent 11885 src/dps8/dps8_eis.c op3->exponent = 127; exponent 11954 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits exponent 11955 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits exponent 11958 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent exponent 11971 src/dps8/dps8_eis.c if (op3->exponent > 127) exponent 11976 src/dps8/dps8_eis.c if (op3->exponent < -128) exponent 12048 src/dps8/dps8_eis.c exponent 12177 src/dps8/dps8_eis.c exponent 12309 src/dps8/dps8_eis.c exponent 12310 src/dps8/dps8_eis.c exponent 12379 src/dps8/dps8_eis.c exponent 12423 src/dps8/dps8_eis.c exponent 12426 src/dps8/dps8_eis.c exponent 12442 src/dps8/dps8_eis.c exponent 12469 src/dps8/dps8_eis.c exponent 12521 src/dps8/dps8_eis.c exponent 12538 src/dps8/dps8_eis.c exponent 12673 src/dps8/dps8_eis.c exponent 12887 src/dps8/dps8_eis.c op1->exponent = e->exponent; exponent 12904 src/dps8/dps8_eis.c op2->exponent = e->exponent; exponent 12928 src/dps8/dps8_eis.c NQ = (n2-clz2+1) - (n1-clz1) + (-(e->S1==CSFL?op1->exponent:(int)e->SF1)); exponent 12930 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv2d S1 %d S2 %d N1 %d N2 %d clz1 %d clz2 %d E1 %d E2 %d SF2 %d NQ %d\n",e->S1,e->S2,e->N1,e->N2,clz1,clz2,op1->exponent,op2->exponent,e->SF2,NQ); exponent 12964 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op3->exponent - (n2 - op3->digits)); exponent 12999 src/dps8/dps8_eis.c _1a.exponent = 0; exponent 13000 src/dps8/dps8_eis.c _2a.exponent = 0; exponent 13004 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv2d: exp1 %d exp2 %d digits op1 %d op2 %d op1a %d op2a %d\n",op1->exponent,op2->exponent,op1->digits,op2->digits,_1a.digits,_2a.digits); exponent 13015 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv2d: addzero n2 %d %s exp %d\n",n2,res,op3->exponent); exponent 13026 src/dps8/dps8_eis.c op3->exponent = 127; exponent 13091 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits exponent 13092 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits exponent 13095 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent exponent 13108 src/dps8/dps8_eis.c if (op3->exponent > 127) exponent 13113 src/dps8/dps8_eis.c if (op3->exponent < -128) exponent 13299 src/dps8/dps8_eis.c op1->exponent = e->exponent; exponent 13316 src/dps8/dps8_eis.c op2->exponent = e->exponent; exponent 13356 src/dps8/dps8_eis.c NQ = (n2-clz2+1) - (n1-clz1) + ((e->S2==CSFL?op2->exponent:(int)e->SF2)-(e->S1==CSFL?op1->exponent:(int)e->SF1)-(int)e->SF3); exponent 13358 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv3d S1 %d S2 %d N1 %d N2 %d clz1 %d clz2 %d E1 %d E2 %d SF3 %d NQ %d\n",e->S1,e->S2,e->N1,e->N2,clz1,clz2,op1->exponent,op2->exponent,e->SF3,NQ); exponent 13392 src/dps8/dps8_eis.c decNumberFromInt32(&_sf, op3->exponent - (n3 - op3->digits)); exponent 13427 src/dps8/dps8_eis.c _1a.exponent = 0; exponent 13428 src/dps8/dps8_eis.c _2a.exponent = 0; exponent 13432 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv3d: exp1 %d exp2 %d digits op1 %d op2 %d op1a %d op2a %d\n",op1->exponent,op2->exponent,op1->digits,op2->digits,_1a.digits,_2a.digits); exponent 13443 src/dps8/dps8_eis.c sim_debug (DBG_TRACEEXT, & cpu_dev, "dv3d: addzero n3 %d %s exp %d\n",n3,res,op3->exponent); exponent 13454 src/dps8/dps8_eis.c op3->exponent = 127; exponent 13521 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, (op3->exponent >> 4) & 0xf); // upper 4-bits exponent 13522 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xf); // lower 4-bits exponent 13525 src/dps8/dps8_eis.c EISwrite49(&e->ADDR3, &pos, (int) dstTN, op3->exponent & 0xff); // write 8-bit exponent exponent 13538 src/dps8/dps8_eis.c if (op3->exponent > 127) exponent 13543 src/dps8/dps8_eis.c if (op3->exponent < -128) exponent 234 src/dps8/dps8_math.c int exponent, bit; exponent 246 src/dps8/dps8_math.c exponent = 0; exponent 257 src/dps8/dps8_math.c exponent |= bit; exponent 272 src/dps8/dps8_math.c exponent |= bit; exponent 275 src/dps8/dps8_math.c exponent = -exponent; exponent 278 src/dps8/dps8_math.c *exp = exponent;