EXONE
if( expchk > (EXONE + 15) )
r -= EXONE;
exp = (long )xi[E] - (EXONE - 0201); /* adjust exponent for offsets */
r += EXONE - 0201; /* subtract DEC exponent offset */
if( r < (EXONE - 128) )
lt = ltb - lta + EXONE;
lt = lta + ltb - (EXONE - 1);
r += EXONE - 01777;
r += EXONE - 0177;
exp = (long )xi[E] - (EXONE - 0x3ff); /* adjust exponent for offsets */
exp = (long )xi[E] - (EXONE - 0177); /* adjust exponent for offsets */
yi[E] = EXONE + 47; /* exponent if normalize shift count were 0 */
yi[E] = EXONE + 15; /* exponent if normalize shift count were 0 */
yi[E] = EXONE + 47; /* exponent if normalize shift count were 0 */
yi[E] = EXONE + 15; /* exponent if normalize shift count were 0 */
k = (int )xi[E] - (EXONE - 1);
xi[E] = EXONE - 1;
k = (int )xi[E] - (EXONE - 1);
xi[E] = EXONE - 1;
u[NE-1] = EXONE + NBITS - 1;
u[NE-1] += y[NE-1] - (unsigned int )(EXONE + NBITS - 1);
lexp = (EXONE - 1 + NBITS) - k;
lexp += EXONE;
lexp += EXONE;
lexp -= EXONE - 1;
lexp -= EXONE - 0x3ff;
lexp -= EXONE - 0177;
lexp -= EXONE - 0201;
e = (expon & 0x7fff) - (EXONE - 1);