DBL_BIAS
Deposit_dexponent(dest,src_exponent+(DBL_BIAS-SGL_BIAS))
dest = src_exponent + (SGL_BIAS - DBL_BIAS)
Dallp1(dbl_valueA) = ((DBL_EMAX+DBL_BIAS) << (32-(1+DBL_EXP_LENGTH))) \
Dallp1(dbl_valueA) = ((DBL_EMAX+DBL_BIAS) << (32-(1+DBL_EXP_LENGTH))) \
(((DBL_EMAX+DBL_BIAS) << (32-(1+DBL_EXP_LENGTH))) \
((DBL_EMAX+DBL_BIAS) << (32-(1+DBL_EXP_LENGTH))) | \
Dallp1(desta) = ((DBL_EMAX+DBL_BIAS)+1)<< (32-(1+DBL_EXP_LENGTH)) \
Dallp1(desta) = ((DBL_EMAX+DBL_BIAS)+1)<< (32-(1+DBL_EXP_LENGTH)) \
dest_exponent = Dbl_exponent(opnd1p1) - Dbl_exponent(opnd2p1) + DBL_BIAS;
dest_exponent = Dbl_exponent(opnd1p1) + Dbl_exponent(opnd2p1) -DBL_BIAS;
((src_exponent-DBL_BIAS)>>1)+DBL_BIAS);
Dbl_set_exponent(resultp1,((src_exponent-DBL_BIAS)>>1)+DBL_BIAS);
src_exponent = Dbl_exponent(srcp1) - DBL_BIAS;
src_exponent = Dbl_exponent(srcp1) - DBL_BIAS;
src_exponent = Dbl_exponent(srcp1) - DBL_BIAS;
src_exponent = Dbl_exponent(srcp1) - DBL_BIAS;
src_exponent = Dbl_exponent(srcp1) - DBL_BIAS;
src_exponent = Dbl_exponent(srcp1) - DBL_BIAS;
src_exponent = Dbl_exponent(srcp1) - DBL_BIAS;
src_exponent = Dbl_exponent(srcp1) - DBL_BIAS;
Dbl_set_exponent(resultp1, (30+DBL_BIAS) - dst_exponent);
Dbl_set_exponent(resultp1, (62+DBL_BIAS) - dst_exponent);
Dbl_set_exponent(resultp1, (30+DBL_BIAS) - dst_exponent);
Dbl_set_exponent(resultp1, (62+DBL_BIAS) - dst_exponent);
#define DBL_INFINITY_EXPONENT (DBL_EMAX+DBL_BIAS+1)
mpy_exponent = Dbl_exponent(opnd1p1) + Dbl_exponent(opnd2p1) - DBL_BIAS;
mpy_exponent = Dbl_exponent(opnd1p1) + Dbl_exponent(opnd2p1) - DBL_BIAS;
if ((src_exponent -= DBL_BIAS) >= DBL_P - 1) {
Dbl_set_exponent(resultp1,src_exponent + (DBL_BIAS+1));
else Dbl_set_exponent(resultp1,src_exponent + DBL_BIAS);
Dbl_set_exponent(resultp1,DBL_BIAS);
Dbl_set_exponent(resultp1,DBL_BIAS);
Dbl_set_exponent(resultp1,DBL_BIAS);