setexponentpos
setexponentpos(st_new_ptr, 0);
setexponentpos(&result, exponent(st0_ptr) + echange);
setexponentpos(&result, echange - 1);
setexponentpos(&result, -1);
setexponentpos(&result, exp2 + echange);