479     #define GETCOEFF(df, bcd) {                          \  argument
481       *(bcd)=(uByte)DECCOMBMSD[sourhi>>26];              \
482       dpd2bcd8(bcd+1, sourhi>>10);                       \
483       dpd2bcd83(bcd+4, sourhi);}
484     #define GETWCOEFF(df, bcd) {                         \  argument
487       *(bcd)=(uByte)DECCOMBMSD[sourhi>>26];              \
488       dpd2bcd8(bcd+1, sourhi>>8);                        \
489       dpd2bcd8(bcd+4, (sourhi<<2) | (sourlo>>30));       \
490       dpd2bcd8(bcd+7, sourlo>>20);                       \
491       dpd2bcd8(bcd+10, sourlo>>10);                      \
492       dpd2bcd83(bcd+13, sourlo);}
495     #define GETCOEFF(df, bcd) {                          \  argument
498       *(bcd)=(uByte)DECCOMBMSD[sourhi>>26];              \
499       dpd2bcd8(bcd+1, sourhi>>8);                        \
500       dpd2bcd8(bcd+4, (sourhi<<2) | (sourlo>>30));       \
501       dpd2bcd8(bcd+7, sourlo>>20);                       \
502       dpd2bcd8(bcd+10, sourlo>>10);                      \
503       dpd2bcd83(bcd+13, sourlo);}
504     #define GETWCOEFF(df, bcd) {                         \  argument
509       *(bcd)=(uByte)DECCOMBMSD[sourhi>>26];              \
510       dpd2bcd8(bcd+1, sourhi>>4);                        \
511       dpd2bcd8(bcd+4, ((sourhi)<<6) | (sourmh>>26));     \
512       dpd2bcd8(bcd+7, sourmh>>16);                       \
513       dpd2bcd8(bcd+10, sourmh>>6);                       \
514       dpd2bcd8(bcd+13, ((sourmh)<<4) | (sourml>>28));    \
515       dpd2bcd8(bcd+16, sourml>>18);                      \
516       dpd2bcd8(bcd+19, sourml>>8);                       \
517       dpd2bcd8(bcd+22, ((sourml)<<2) | (sourlo>>30));    \
518       dpd2bcd8(bcd+25, sourlo>>20);                      \
519       dpd2bcd8(bcd+28, sourlo>>10);                      \
520       dpd2bcd83(bcd+31, sourlo);}
523     #define GETCOEFF(df, bcd) {                          \  argument
528       *(bcd)=(uByte)DECCOMBMSD[sourhi>>26];              \
529       dpd2bcd8(bcd+1, sourhi>>4);                        \
530       dpd2bcd8(bcd+4, ((sourhi)<<6) | (sourmh>>26));     \
531       dpd2bcd8(bcd+7, sourmh>>16);                       \
532       dpd2bcd8(bcd+10, sourmh>>6);                       \
533       dpd2bcd8(bcd+13, ((sourmh)<<4) | (sourml>>28));    \
534       dpd2bcd8(bcd+16, sourml>>18);                      \
535       dpd2bcd8(bcd+19, sourml>>8);                       \
536       dpd2bcd8(bcd+22, ((sourml)<<2) | (sourlo>>30));    \
537       dpd2bcd8(bcd+25, sourlo>>20);                      \
538       dpd2bcd8(bcd+28, sourlo>>10);                      \
539       dpd2bcd83(bcd+31, sourlo);}
541       #define GETWCOEFF(df, bcd) {??} /* [should never be used]       */  argument