51 extern const uInt COMBEXP[32], COMBMSD[32];
54 extern void decDigitsFromDPD(decNumber *, const uInt *, Int);
55 extern void decDigitsToDPD(const decNumber *, uInt *, Int);
91   uInt status=0;		   /* status accumulator */  in decimal64FromNumber()
95   uInt *pu;			   /* .. */  in decimal64FromNumber()
96   uInt comb, exp;		   /* .. */  in decimal64FromNumber()
97   uInt targar[2]={0, 0};	   /* target 64-bit */  in decimal64FromNumber()
148       uInt msd;				/* work */  in decimal64FromNumber()
152       exp=(uInt)(dn->exponent+DECIMAL64_Bias);	  /* bias exponent */  in decimal64FromNumber()
161 	uInt dpd[6]={0,0,0,0,0,0};  in decimal64FromNumber()
162 	uInt i;  in decimal64FromNumber()
193   pu=(uInt *)d64->bytes;	   /* overlay */  in decimal64FromNumber()
215   uInt msd;			   /* coefficient MSD */  in decimal64ToNumber()
216   uInt exp;			   /* exponent top two bits */  in decimal64ToNumber()
217   uInt comb;			   /* combination field */  in decimal64ToNumber()
218   const uInt *pu;		   /* work */  in decimal64ToNumber()
220   uInt sourar[2];		   /* source 64-bit */  in decimal64ToNumber()
225   pu=(const uInt *)d64->bytes;	   /* overlay */  in decimal64ToNumber()
302   uInt msd;			   /* coefficient MSD */  in decimal64ToString()
304   uInt comb;			   /* combination field */  in decimal64ToString()
307   const uInt *pu;		   /* work */  in decimal64ToString()
313   uInt sourar[2];		   /* source 64-bit */  in decimal64ToString()
318   pu=(const uInt *)d64->bytes;	   /* overlay */  in decimal64ToString()
579 const uInt COMBEXP[32]={0, 0, 0, 0, 0, 0, 0, 0,
583 const uInt COMBMSD[32]={0, 1, 2, 3, 4, 5, 6, 7,
614 static const uInt multies[]={131073, 26215, 5243, 1049, 210};
616 #define QUOT10(u, n) ((((uInt)(u)>>(n))*multies[n])>>17)
618 void decDigitsToDPD(const decNumber *dn, uInt *targ, Int shift) {  in decDigitsToDPD()
621   uInt dpd;		      /* densely packed decimal value */  in decDigitsToDPD()
622   uInt bin;		      /* binary value 0-999 */  in decDigitsToDPD()
623   uInt *uout=targ;	      /* -> current output uInt */  in decDigitsToDPD()
624   uInt	uoff=0;		      /* -> current output offset [from right] */  in decDigitsToDPD()
637     uInt  next=0;			/* work */  in decDigitsToDPD()
650 	  uInt quot=QUOT10(*source, cut);  in decDigitsToDPD()
651 	  uInt rem=*source-quot*DECPOWERS[cut];  in decDigitsToDPD()
654 	  uInt rem=*source%DECPOWERS[cut];  in decDigitsToDPD()
689 	  Unit temp=(Unit)((uInt)(in*6554)>>16);  in decDigitsToDPD()
743 void decDigitsFromDPD(decNumber *dn, const uInt *sour, Int declets) {  in decDigitsFromDPD()
745   uInt	dpd;			   /* collector for 10 bits */  in decDigitsFromDPD()
749   const uInt *uin=sour;		   /* -> current input uInt */  in decDigitsFromDPD()
750   uInt	uoff=0;			   /* -> current input offset [from right] */  in decDigitsFromDPD()
753   uInt	bcd;			   /* BCD result */  in decDigitsFromDPD()
754   uInt	nibble;			   /* work */  in decDigitsFromDPD()
759   uInt const *pow;		   /* work */  in decDigitsFromDPD()