65 	word		R, S, dmax, scal, best_k;  variable
82 	if (dmax == 0) scal = 0;
87 	if (temp > 6) scal = 0;
88 	else scal = 6 - temp;
89 	assert(scal >= 0);
95 	wt_k  = SASR(d[best_k], scal);
109 	assert(scal <= 100 && scal >= -100);
110 	L_max = L_max >> (6 - scal);	/* sub(6, scal) */
168 	word		R, S, dmax, scal;  variable
182 	if (dmax == 0) scal = 0;
188 	if (temp > 6) scal = 0;
189 	else scal = 6 - temp;
191 	assert(scal >= 0);
196 	for (k = 0; k <= 39; k++) wt[k] = SASR( d[k], scal );
244 	assert(scal <= 100 && scal >=  -100);
245 	L_max = L_max >> (6 - scal);	/* sub(6, scal) */
309 	word		R, S, dmax, scal;  variable
323 	if (dmax == 0) scal = 0;
329 	if (temp > 6) scal = 0;
330 	else scal = 6 - temp;
332 	assert(scal >= 0);
333 	ltp_cut = (longword)SASR(dmax, scal) * st->ltp_cut / 100;
340 		register word w = SASR( d[k], scal );
424 	assert(scal <= 100 && scal >=  -100);
425 	L_max = L_max >> (6 - scal);	/* sub(6, scal) */
485 	word		R, S, dmax, scal;  variable
499 	if (dmax == 0) scal = 0;
505 	if (temp > 6) scal = 0;
506 	else scal = 6 - temp;
508 	assert(scal >= 0);
513 	for (k =    0; k < 40; k++) wt_float[k] =  SASR( d[k], scal );
589 	assert(scal <= 100 && scal >=  -100);
590 	L_max = L_max >> (6 - scal);	/* sub(6, scal) */