41   int n, hx, hy, hz, ix, iy, sx, i;  in fmod()  local
98       for (iy = -1043, i = ly; i > 0; i <<= 1)  in fmod()
100         iy -= 1;  in fmod()
105       for (iy = -1022, i = (hy << 11); i > 0; i <<= 1)  in fmod()
107         iy -= 1;  in fmod()
113     iy = (hy >> 20) - 1023;  in fmod()
135   if (iy >= -1022)  in fmod()
141     n = -1022 - iy;  in fmod()
155   n = ix - iy;  in fmod()
200     iy -= 1;  in fmod()
204   if (iy >= -1022) /* normalize output */  in fmod()
206     hx = ((hx - 0x00100000) | ((iy + 1023) << 20));  in fmod()
212     n = -1022 - iy;  in fmod()