dword_t
dword_t carry = 0;
dword_t buffer = 0;
buffer |= ((dword_t)red->limb[LIMBPERM(j)]) << fill;
buffer |= ((dword_t)sj) << fill;