SGL_BIAS
Deposit_dexponent(dest,src_exponent+(DBL_BIAS-SGL_BIAS))
dest = src_exponent + (SGL_BIAS - DBL_BIAS)
src_exponent = Sgl_exponent(src) - SGL_BIAS;
src_exponent = Sgl_exponent(src) - SGL_BIAS;
src_exponent = Sgl_exponent(src) - SGL_BIAS;
src_exponent = Sgl_exponent(src) - SGL_BIAS;
Sgl_set_exponent(result, (62+SGL_BIAS) - dst_exponent);
Sgl_set_exponent(result, 30+SGL_BIAS - dst_exponent);
#define SGL_INFINITY_EXPONENT (SGL_EMAX+SGL_BIAS+1)
Sgl_set_exponent(result,SGL_BIAS);
Sgl_set_exponent(result,SGL_BIAS);
Sgl_set_exponent(result,SGL_BIAS);
if ((src_exponent -= SGL_BIAS) >= SGL_P - 1) {
Sgl_set_exponent(result,src_exponent + (SGL_BIAS+1));
else Sgl_set_exponent(result,src_exponent + SGL_BIAS);
dest_exponent = Sgl_exponent(opnd1) - Sgl_exponent(opnd2) + SGL_BIAS;
dest_exponent = Sgl_exponent(opnd1) + Sgl_exponent(opnd2) - SGL_BIAS;
((src_exponent-SGL_BIAS)>>1)+SGL_BIAS);
Sgl_set_exponent(result,((src_exponent-SGL_BIAS)>>1)+SGL_BIAS);
Sall(sgl_value) = ((SGL_EMAX+SGL_BIAS) << (32-(1+SGL_EXP_LENGTH))) \
Sall(sgl_value) = ((SGL_EMAX+SGL_BIAS) << (32-(1+SGL_EXP_LENGTH))) \
(((SGL_EMAX+SGL_BIAS) << (32-(1+SGL_EXP_LENGTH))) \
(((SGL_EMAX+SGL_BIAS) << (32-(1+SGL_EXP_LENGTH))) \
Sall(dest) = ((SGL_EMAX+SGL_BIAS)+1)<< (32-(1+SGL_EXP_LENGTH)) \
Sall(dest) = ((SGL_EMAX+SGL_BIAS)+1)<< (32-(1+SGL_EXP_LENGTH)) \