SGL_WRAP
if (dest_exponent >= SGL_INFINITY_EXPONENT+SGL_WRAP)
if (dest_exponent <= -(SGL_WRAP))
Deposit_sexponent(sgl_value,(exponent op SGL_WRAP))