Lines Matching refs:expon
334 short expon ; /* Integer part of base 2 log of 'd' */
346 expon = quan (dqm >> 1, power2, 15) ;
347 mant = ((dqm << 7) >> expon) & 0x7F ; /* Fractional portion. */
348 dl = (expon << 7) + mant ;
418 short mag, expon ; /* Adaptive predictor, FLOAT A */
547 { expon = quan (mag, power2, 15) ;
549 (expon << 6) + ((mag << 6) >> expon) :
550 (expon << 6) + ((mag << 6) >> expon) - 0x400 ;
558 { expon = quan (sr, power2, 15) ;
559 state_ptr->sr [0] = (expon << 6) + ((sr << 6) >> expon) ;
563 expon = quan (mag, power2, 15) ;
564 state_ptr->sr [0] = (expon << 6) + ((mag << 6) >> expon) - 0x400 ;