WLSHIFT
bl = WLSHIFT((b), HWORD_BITS);
phl[1] = (WLSHIFT(phl[1], HWORD_BITS) |
phl[0] = WLSHIFT(phl[0], HWORD_BITS);
rm = (WLSHIFT(rhl[1], HWORD_BITS) |
(*q) = (WLSHIFT(qh, HWORD_BITS) | ql);
hipart = WLSHIFT(in->val[ipos], hshift);
hipart = WLSHIFT(in->val[ipos], hshift);
hipart = WLSHIFT(in->val[ipos], hshift);
hipart = WLSHIFT(in->val[ipos], hshift);