Lines Matching refs:X

8 |	Input: Double-extended number X in location pointed to
11 |	Output: The value tan(X) returned in floating-point register Fp0.
19 |		input argument X such that |X| < 15Pi, which is the usual
24 |	1. If |X| >= 15Pi or |X| < 2**(-40), go to 6.
26 |	2. Decompose X as X = N(Pi/2) + r where |r| <= Pi/4. Let
31 |	4. (k is even) Tan(X) = tan(r) and tan(r) is approximated by a
37 |	4. (k is odd) Tan(X) = -cot(r). Since tan(r) is approximated by a
43 |	6. If |X| > 1, go to 8.
45 |	7. (|X|<2**(-40)) Tan(X) = X. Exit.
47 |	8. Overwrite X by X := X rem 2Pi. Now that |X| <= Pi, go back to 2.
165 |--TAN(X) = X FOR DENORMALIZED X
177 	cmpil		#0x3FD78000,%d0		| ...|X| >= 2**(-40)?
181 	cmpil		#0x4004BC7E,%d0		| ...|X| < 15 PI?
187 |--THIS IS THE USUAL CASE, |X| <= 15 PI.
190 	fmuld		TWOBYPI,%fp1	| ...X*2/PI
201 	fsubx		(%a1)+,%fp0	| ...X-Y1
204 	fsubs		(%a1),%fp0	| ...FP0 IS R = (X-Y1)-Y2
292 |--IF |X| > 15PI, WE USE THE GENERAL ARGUMENT REDUCTION.
293 |--IF |X| < 2**(-40), RETURN X OR 1.
340 |--ON ENTRY, FP0 IS X, ON RETURN, FP0 IS X REM PI/2, |X| <= PI/4.
362 |--THAT	INT( X * (2/PI) / 2**(L) ) < 2**29.