616   Int  cut;		      /* work */  in decDigitsToDPD()  local
639     cut=DECDPUN-MSUDIGITS(shift);	/* where to slice */  in decDigitsToDPD()
640     if (cut==0) {			/* unit-boundary case */  in decDigitsToDPD()
648 	  uInt quot=QUOT10(*source, cut);  in decDigitsToDPD()
649 	  uInt rem=*source-quot*DECPOWERS[cut];  in decDigitsToDPD()
652 	  uInt rem=*source%DECPOWERS[cut];  in decDigitsToDPD()
653 	  next+=*source/DECPOWERS[cut];  in decDigitsToDPD()
656 	next=rem*DECPOWERS[DECDPUN-cut];       /* save remainder for next Unit */  in decDigitsToDPD()
672     cut=0;			   /* at lowest digit */  in decDigitsToDPD()
699 	cut++;  in decDigitsToDPD()
700 	if (cut==DECDPUN) {inu++; in=*inu; cut=0;}  in decDigitsToDPD()
754   Int	cut=0;			   /* power of ten in current unit */  in decDigitsFromDPD()  local
783       cut++;  in decDigitsFromDPD()
784       if (cut==DECDPUN) {*uout=out; if (out) {last=uout; out=0;} uout++; cut=0;}  in decDigitsFromDPD()
786       cut++;  in decDigitsFromDPD()
787       if (cut==DECDPUN) {*uout=out; if (out) {last=uout; out=0;} uout++; cut=0;}  in decDigitsFromDPD()
788       cut++;  in decDigitsFromDPD()
789       if (cut==DECDPUN) {*uout=out; if (out) {last=uout; out=0;} uout++; cut=0;}  in decDigitsFromDPD()
797     if (nibble) out=(Unit)(out+nibble*DECPOWERS[cut]);  in decDigitsFromDPD()
798     cut++;  in decDigitsFromDPD()
799     if (cut==DECDPUN) {*uout=out; if (out) {last=uout; out=0;} uout++; cut=0;}  in decDigitsFromDPD()
809     if (nibble) out=(Unit)(out+nibble*DECPOWERS[cut]);  in decDigitsFromDPD()
810     cut++;  in decDigitsFromDPD()
811     if (cut==DECDPUN) {*uout=out; if (out) {last=uout; out=0;} uout++; cut=0;}  in decDigitsFromDPD()
815     if (nibble) out=(Unit)(out+nibble*DECPOWERS[cut]);  in decDigitsFromDPD()
816     cut++;  in decDigitsFromDPD()
817     if (cut==DECDPUN) {*uout=out; if (out) {last=uout; out=0;} uout++; cut=0;}  in decDigitsFromDPD()
819   if (cut!=0) { 			/* some more left over */