477     #define GETCOEFF(df, bcd) {                          \  argument
479       *(bcd)=(uByte)DECCOMBMSD[sourhi>>26];              \
480       dpd2bcd8(bcd+1, sourhi>>10);                       \
481       dpd2bcd83(bcd+4, sourhi);}
482     #define GETWCOEFF(df, bcd) {                         \  argument
485       *(bcd)=(uByte)DECCOMBMSD[sourhi>>26];              \
486       dpd2bcd8(bcd+1, sourhi>>8);                        \
487       dpd2bcd8(bcd+4, (sourhi<<2) | (sourlo>>30));       \
488       dpd2bcd8(bcd+7, sourlo>>20);                       \
489       dpd2bcd8(bcd+10, sourlo>>10);                      \
490       dpd2bcd83(bcd+13, sourlo);}
493     #define GETCOEFF(df, bcd) {                          \  argument
496       *(bcd)=(uByte)DECCOMBMSD[sourhi>>26];              \
497       dpd2bcd8(bcd+1, sourhi>>8);                        \
498       dpd2bcd8(bcd+4, (sourhi<<2) | (sourlo>>30));       \
499       dpd2bcd8(bcd+7, sourlo>>20);                       \
500       dpd2bcd8(bcd+10, sourlo>>10);                      \
501       dpd2bcd83(bcd+13, sourlo);}
502     #define GETWCOEFF(df, bcd) {                         \  argument
507       *(bcd)=(uByte)DECCOMBMSD[sourhi>>26];              \
508       dpd2bcd8(bcd+1, sourhi>>4);                        \
509       dpd2bcd8(bcd+4, ((sourhi)<<6) | (sourmh>>26));     \
510       dpd2bcd8(bcd+7, sourmh>>16);                       \
511       dpd2bcd8(bcd+10, sourmh>>6);                       \
512       dpd2bcd8(bcd+13, ((sourmh)<<4) | (sourml>>28));    \
513       dpd2bcd8(bcd+16, sourml>>18);                      \
514       dpd2bcd8(bcd+19, sourml>>8);                       \
515       dpd2bcd8(bcd+22, ((sourml)<<2) | (sourlo>>30));    \
516       dpd2bcd8(bcd+25, sourlo>>20);                      \
517       dpd2bcd8(bcd+28, sourlo>>10);                      \
518       dpd2bcd83(bcd+31, sourlo);}
521     #define GETCOEFF(df, bcd) {                          \  argument
526       *(bcd)=(uByte)DECCOMBMSD[sourhi>>26];              \
527       dpd2bcd8(bcd+1, sourhi>>4);                        \
528       dpd2bcd8(bcd+4, ((sourhi)<<6) | (sourmh>>26));     \
529       dpd2bcd8(bcd+7, sourmh>>16);                       \
530       dpd2bcd8(bcd+10, sourmh>>6);                       \
531       dpd2bcd8(bcd+13, ((sourmh)<<4) | (sourml>>28));    \
532       dpd2bcd8(bcd+16, sourml>>18);                      \
533       dpd2bcd8(bcd+19, sourml>>8);                       \
534       dpd2bcd8(bcd+22, ((sourml)<<2) | (sourlo>>30));    \
535       dpd2bcd8(bcd+25, sourlo>>20);                      \
536       dpd2bcd8(bcd+28, sourlo>>10);                      \
537       dpd2bcd83(bcd+31, sourlo);}
539       #define GETWCOEFF(df, bcd) {??} /* [should never be used]       */  argument