setexponent16
setexponent16(st0_ptr, exponent(st0_ptr));
setexponent16(&exponent, 31);
setexponent16(st1_ptr,
setexponent16(&tmp, 63);
setexponent16(st0_ptr, exponent(st0_ptr));
setexponent16(st0_ptr, scale);
setexponent16(dest, 31);
setexponent16(st_new_ptr, exponent(st_new_ptr));
setexponent16(st0_ptr, (expon & 1));
setexponent16(st0_ptr, 63);
setexponent16(&tmp, exponent(&CONST_PI2));
setexponent16(&tmp, 63);
setexponent16(&tmp, exponent16(&st1));
setexponent16(&tmp, N);
setexponent16(&st1, 0);
setexponent16(&tmp, exp_1 + expdif);
setexponent16(result, exponent);
setexponent16(st1_ptr, exponent);
setexponent16(dest, exponent);
setexponent16(&x, -1);
setexponent16(&x, 0);
setexponent16(st1_ptr, expon_expon + exponent16(st1_ptr) + 1);
setexponent16(st0_ptr, exponent + EXTENDED_Ebias); /* Result is positive. */
setexponent16(st0_ptr,
setexponent16(x, exponent(a));
setexponent16(loaded_data, exp | negative);
setexponent16(loaded_data, exp | negative); /* Set the sign. */
setexponent16(r, exp);