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