Dbl_exponent
exponent = Dbl_exponent(opndp1) - DBL_WRAP;
result_exponent = Dbl_exponent(leftp1);
if((right_exponent = Dbl_exponent(rightp1)) == 0)
if ((result_exponent = Dbl_exponent(leftp1)) == DBL_INFINITY_EXPONENT)
if( (Dbl_exponent(leftp1) == DBL_INFINITY_EXPONENT)
|| (Dbl_exponent(rightp1) == DBL_INFINITY_EXPONENT) )
if( ((Dbl_exponent(leftp1) == DBL_INFINITY_EXPONENT)
((Dbl_exponent(rightp1) == DBL_INFINITY_EXPONENT)
else if( ((Dbl_exponent(leftp1) == DBL_INFINITY_EXPONENT)
((Dbl_exponent(rightp1) == DBL_INFINITY_EXPONENT)
dest_exponent = Dbl_exponent(opnd1p1) - Dbl_exponent(opnd2p1) + DBL_BIAS;
dest_exponent = Dbl_exponent(opnd1p1) + Dbl_exponent(opnd2p1) -DBL_BIAS;
if ((opnd1_exponent = Dbl_exponent(opnd1p1)) == DBL_INFINITY_EXPONENT) {
if ((opnd2_exponent = Dbl_exponent(opnd2p1)) == DBL_INFINITY_EXPONENT) {
if ((src_exponent = Dbl_exponent(srcp1)) == DBL_INFINITY_EXPONENT) {
result_exponent = Dbl_exponent(leftp1);
if((right_exponent = Dbl_exponent(rightp1)) == 0)
if ((result_exponent = Dbl_exponent(leftp1)) == DBL_INFINITY_EXPONENT)
src_exponent = Dbl_exponent(srcp1);
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;
add_exponent = Dbl_exponent(opnd3p1);
add_exponent = Dbl_exponent(opnd3p1);
mpy_exponent = Dbl_exponent(opnd1p1) + Dbl_exponent(opnd2p1) - DBL_BIAS;
mpy_exponent = Dbl_exponent(opnd1p1) + Dbl_exponent(opnd2p1) - DBL_BIAS;
if ((src_exponent = Dbl_exponent(srcp1)) == DBL_INFINITY_EXPONENT) {