615 /* QUOT10 -- macro to return the quotient of unit u divided by 10**n */
625   const Unit *inu=dn->lsu;    /* -> current input unit */  in decDigitsToDPD()
626   Unit	uar[DECMAXUNITS];     /* working copy of units, iff shifted */  in decDigitsToDPD()
628     Unit in;		      /* current unit */  in decDigitsToDPD()
635     const Unit *source;			/* .. */  in decDigitsToDPD()
636     Unit  *target, *first;		/* .. */  in decDigitsToDPD()
642     if (cut==0) {			/* unit-boundary case */  in decDigitsToDPD()
648 	/* split the source Unit and accumulate remainder for next */  in decDigitsToDPD()
657 	if (target<=first) *target=(Unit)next; /* write to target iff valid */  in decDigitsToDPD()
658 	next=rem*DECPOWERS[DECDPUN-cut];       /* save remainder for next Unit */  in decDigitsToDPD()
663       *target=(Unit)next;  in decDigitsToDPD()
673     in=*inu;			   /* current unit */  in decDigitsToDPD()
685       Unit dig;			   /* current digit */  in decDigitsToDPD()
689 	  Unit temp=(Unit)((uInt)(in*6554)>>16);  in decDigitsToDPD()
690 	  dig=(Unit)(in-X10(temp));  in decDigitsToDPD()
747   Unit	*uout=dn->lsu;		   /* -> current output unit */  in decDigitsFromDPD()
748   Unit	*last=uout;		   /* will be unit containing msd */  in decDigitsFromDPD()
755   Unit	out=0;			   /* accumulator */  in decDigitsFromDPD()
756   Int	cut=0;			   /* power of ten in current unit */  in decDigitsFromDPD()
777       last=uout;		   /* record most significant unit */  in decDigitsFromDPD()
799     if (nibble) out=(Unit)(out+nibble*DECPOWERS[cut]);  in decDigitsFromDPD()
807     /* overflow the unit array */  in decDigitsFromDPD()
811     if (nibble) out=(Unit)(out+nibble*DECPOWERS[cut]);  in decDigitsFromDPD()
817     if (nibble) out=(Unit)(out+nibble*DECPOWERS[cut]);  in decDigitsFromDPD()
822     *uout=out;				/* write out final unit */
827   /* here, last points to the most significant unit with digits; */