Frac_mask
*bits = 4*P + 8 - k - hi0bits(word0(d) & Frac_mask);
if ( (j = 11 - hi0bits(word0(d2) & Frac_mask)) )
z = d0 & Frac_mask;