addexponent
addexponent(dest, (-3 * (1 << 13)));
addexponent(dest, (3 * (1 << 13)) + EXTENDED_Ebias);
addexponent(st0_ptr, expon >> 1);
addexponent(dest, 1);
addexponent(dest, 1);
addexponent(x, 1);
addexponent(x, 1);
addexponent(loaded_data, negative);
addexponent(st0_ptr, sign); /* Set the sign. */
addexponent(&tmp, -DOUBLE_Emin + 52); /* largest exp to be 51 */
addexponent(&tmp, -SINGLE_Emin + 23); /* largest exp to be 22 */