161 	uInt dpd[6]={0,0,0,0,0,0};  in decimal64FromNumber()  local
164 	for (i=0; d>0; i++, d-=3) dpd[i]=BIN2DPD[dn->lsu[i]];  in decimal64FromNumber()
165 	targlo =dpd[0];  in decimal64FromNumber()
166 	targlo|=dpd[1]<<10;  in decimal64FromNumber()
167 	targlo|=dpd[2]<<20;  in decimal64FromNumber()
169 	  targlo|=dpd[3]<<30;  in decimal64FromNumber()
170 	  targhi =dpd[3]>>2;  in decimal64FromNumber()
171 	  targhi|=dpd[4]<<8;  in decimal64FromNumber()
173 	msd=dpd[5];		   /* [did not really need conversion] */  in decimal64FromNumber()
309   Int  dpd;			   /* .. */  in decimal64ToString()  local
362   #define dpd2char u=&BIN2CHAR[DPD2BIN[dpd]*4];			  \  in decimal64ToString()
366   dpd=(sourhi>>8)&0x3ff;		     /* declet 1 */  in decimal64ToString()
368   dpd=((sourhi&0xff)<<2) | (sourlo>>30);     /* declet 2 */  in decimal64ToString()
370   dpd=(sourlo>>20)&0x3ff;		     /* declet 3 */  in decimal64ToString()
372   dpd=(sourlo>>10)&0x3ff;		     /* declet 4 */  in decimal64ToString()
374   dpd=(sourlo)&0x3ff;			     /* declet 5 */  in decimal64ToString()
621   uInt dpd;		      /* densely packed decimal value */  in decDigitsToDPD()  local
707     dpd=BIN2DPD[bin];  in decDigitsToDPD()
710     *uout|=dpd<<uoff;  in decDigitsToDPD()
715     *uout|=dpd>>(10-uoff);	   /* collect top bits */  in decDigitsToDPD()
745   uInt	dpd;			   /* collector for 10 bits */  in decDigitsFromDPD()  local
764     dpd=*uin>>uoff;  in decDigitsFromDPD()
769       dpd|=*uin<<(10-uoff);	   /* get waiting bits */  in decDigitsFromDPD()
771     dpd&=0x3ff;			   /* clear uninteresting bits */  in decDigitsFromDPD()
774     if (dpd==0) *uout=0;  in decDigitsFromDPD()
776       *uout=DPD2BIN[dpd];	   /* convert 10 bits to binary 0-999 */  in decDigitsFromDPD()
783     if (dpd==0) {		   /* fastpath [e.g., leading zeros] */  in decDigitsFromDPD()
795     bcd=DPD2BCD[dpd];		   /* convert 10 bits to 12 bits BCD */  in decDigitsFromDPD()