__HI
hx = __HI(x);
ahy = __HI(y)&0x7fffffff;
__HI(x) = hx | sx;
__HI(x) = hx | sx;
hx = __HI(x); /* high word of x */
hy = __HI(y); /* high word of y */
hx = __HI(x); /* high word of x */
hy = __HI(y); /* high word of y */
ix = __HI(x);
__HI(y) = ix;
__HI(z) = (ix & 0xffffc000) | 0x2000; /* z[j]=1+j/64+1/128 */
k = __HI(u) & 0x7fffffff;
__HI(zh) &= 0xfffffff8; /* zh 18 bits mantissa */
hx = __HI(x);
__HI(w) += m << 20;
hx = __HI(z);
__HI(z) = ix ^ i;
__HI(t) -= 60 << 20;
__HI(z) = ix ^ i;
ix = __HI(x);
__HI(y) = ix;
__HI(z) = (ix & 0xffffc000) | 0x2000; /* z[j]=1+j/64+1/128 */
__HI(zz) += m << 20;