EXPONENT
return ((EXPONENT(x) != MAXEXP));
if ((EXPONENT(x) == MAXEXP) && (HIFRACTION(x) || LOFRACTION(x)))
if ((EXPONENT(y) == MAXEXP) && (HIFRACTION(y) || LOFRACTION(y)))
exp = EXPONENT(x);
#define ISMAXEXP(X) ((EXPONENT(X)) == MAXEXP)