249   uInt	 encode;	      /* encoding accumulator */  in decFinalize()  local
506     encode=DECCOMBFROM[code];		/* indexed by (0-2)*16+msd */  in decFinalize()
507     encode|=(uexp<<(32-6-DECECONL)) & 0x03ffffff; /* exponent continuation */  in decFinalize()
509    else encode=num->exponent;		/* special [already in word] */  in decFinalize()
510   encode|=num->sign;			/* add sign */  in decFinalize()
530     encode|=dpd<<10;  in decFinalize()
532     encode|=dpd;  in decFinalize()
533     DFWORD(df, 0)=encode;     /* just the one word */  in decFinalize()
536     getDPDt(dpd, 4); encode|=dpd<<8;  in decFinalize()
537     getDPDt(dpd, 3); encode|=dpd>>2;  in decFinalize()
538     DFWORD(df, 0)=encode;  in decFinalize()
539     encode=dpd<<30;  in decFinalize()
540     getDPDt(dpd, 2); encode|=dpd<<20;  in decFinalize()
541     getDPDt(dpd, 1); encode|=dpd<<10;  in decFinalize()
542     getDPDt(dpd, 0); encode|=dpd;  in decFinalize()
543     DFWORD(df, 1)=encode;  in decFinalize()
546     getDPDt(dpd,10); encode|=dpd<<4;  in decFinalize()
547     getDPDt(dpd, 9); encode|=dpd>>6;  in decFinalize()
548     DFWORD(df, 0)=encode;  in decFinalize()
550     encode=dpd<<26;  in decFinalize()
551     getDPDt(dpd, 8); encode|=dpd<<16;  in decFinalize()
552     getDPDt(dpd, 7); encode|=dpd<<6;  in decFinalize()
553     getDPDt(dpd, 6); encode|=dpd>>4;  in decFinalize()
554     DFWORD(df, 1)=encode;  in decFinalize()
556     encode=dpd<<28;  in decFinalize()
557     getDPDt(dpd, 5); encode|=dpd<<18;  in decFinalize()
558     getDPDt(dpd, 4); encode|=dpd<<8;  in decFinalize()
559     getDPDt(dpd, 3); encode|=dpd>>2;  in decFinalize()
560     DFWORD(df, 2)=encode;  in decFinalize()
562     encode=dpd<<30;  in decFinalize()
563     getDPDt(dpd, 2); encode|=dpd<<20;  in decFinalize()
564     getDPDt(dpd, 1); encode|=dpd<<10;  in decFinalize()
565     getDPDt(dpd, 0); encode|=dpd;  in decFinalize()
566     DFWORD(df, 3)=encode;  in decFinalize()
591   uInt encode, dpd;			/* work */  in decFloatFromBCD()  local
594   if (EXPISSPECIAL(exp)) encode=exp|sig;/* specials already encoded */  in decFloatFromBCD()
601     encode=DECCOMBFROM[code]|sig;	/* indexed by (0-2)*16+msd */  in decFloatFromBCD()
602     encode|=(uexp<<(32-6-DECECONL)) & 0x03ffffff; /* exponent continuation */  in decFloatFromBCD()
618     encode|=dpd<<10;  in decFloatFromBCD()
620     encode|=dpd;  in decFloatFromBCD()
621     DFWORD(df, 0)=encode;     /* just the one word */  in decFloatFromBCD()
624     getDPDb(dpd, 4); encode|=dpd<<8;  in decFloatFromBCD()
625     getDPDb(dpd, 3); encode|=dpd>>2;  in decFloatFromBCD()
626     DFWORD(df, 0)=encode;  in decFloatFromBCD()
627     encode=dpd<<30;  in decFloatFromBCD()
628     getDPDb(dpd, 2); encode|=dpd<<20;  in decFloatFromBCD()
629     getDPDb(dpd, 1); encode|=dpd<<10;  in decFloatFromBCD()
630     getDPDb(dpd, 0); encode|=dpd;  in decFloatFromBCD()
631     DFWORD(df, 1)=encode;  in decFloatFromBCD()
634     getDPDb(dpd,10); encode|=dpd<<4;  in decFloatFromBCD()
635     getDPDb(dpd, 9); encode|=dpd>>6;  in decFloatFromBCD()
636     DFWORD(df, 0)=encode;  in decFloatFromBCD()
638     encode=dpd<<26;  in decFloatFromBCD()
639     getDPDb(dpd, 8); encode|=dpd<<16;  in decFloatFromBCD()
640     getDPDb(dpd, 7); encode|=dpd<<6;  in decFloatFromBCD()
641     getDPDb(dpd, 6); encode|=dpd>>4;  in decFloatFromBCD()
642     DFWORD(df, 1)=encode;  in decFloatFromBCD()
644     encode=dpd<<28;  in decFloatFromBCD()
645     getDPDb(dpd, 5); encode|=dpd<<18;  in decFloatFromBCD()
646     getDPDb(dpd, 4); encode|=dpd<<8;  in decFloatFromBCD()
647     getDPDb(dpd, 3); encode|=dpd>>2;  in decFloatFromBCD()
648     DFWORD(df, 2)=encode;  in decFloatFromBCD()
650     encode=dpd<<30;  in decFloatFromBCD()
651     getDPDb(dpd, 2); encode|=dpd<<20;  in decFloatFromBCD()
652     getDPDb(dpd, 1); encode|=dpd<<10;  in decFloatFromBCD()
653     getDPDb(dpd, 0); encode|=dpd;  in decFloatFromBCD()
654     DFWORD(df, 3)=encode;  in decFloatFromBCD()