Lines Matching refs:X

9 |	Input: Double-extended number X in location pointed to
12 |	Output: The function value sin(X) or cos(X) returned in Fp0 if SIN or
13 |		COS is requested. Otherwise, for SINCOS, sin(X) is returned
14 |		in Fp0, and cos(X) is returned in Fp1.
24 |		input argument X such that |X| < 15Pi, which is the usual
32 |	2. If |X| >= 15Pi or |X| < 2**(-40), go to 7.
34 |	3. Decompose X as X = N(Pi/2) + r where |r| <= Pi/4. Let
50 |	7. If |X| > 1, go to 9.
52 |	8. (|X|<2**(-40)) If SIN is invoked, return X; otherwise return 1.
54 |	9. Overwrite X by X := X rem 2Pi. Now that |X| <= Pi, go back to 3.
57 |	1. If |X| >= 15Pi or |X| < 2**(-40), go to 6.
59 |	2. Decompose X as X = N(Pi/2) + r where |r| <= Pi/4. Let
67 |		SIN(X) = sgn1 * cos(r) and COS(X) = sgn2*sin(r) where
72 |		SIN(X) = sgn1 * sin(r) and COS(X) = sgn1*cos(r) where
76 |	6. If |X| > 1, go to 8.
78 |	7. (|X|<2**(-40)) SIN(X) = X and COS(X) = 1. Exit.
80 |	8. Overwrite X by X := X rem 2Pi. Now that |X| <= Pi, go back to 2.
132 	.set	X,FP_SCR5  define
133 	.set	XDCARE,X+2
134 	.set	XFRAC,X+4
153 |--SIN(X) = X FOR DENORMALIZED X
158 |--COS(X) = 1 FOR DENORMALIZED X
180 |--SAVE FPCR, FP1. CHECK IF |X| IS TOO SMALL OR LARGE
186 	fmovex		%fp0,X(%a6)
187 	andil		#0x7FFFFFFF,%d0		| ...COMPACTIFY X
189 	cmpil		#0x3FD78000,%d0		| ...|X| >= 2**(-40)?
194 	cmpil		#0x4004BC7E,%d0		| ...|X| < 15 PI?
199 |--THIS IS THE USUAL CASE, |X| <= 15 PI.
202 	fmuld		TWOBYPI,%fp1	| ...X*2/PI
216 	fsubx		(%a1)+,%fp0	| ...X-Y1
218 	fsubs		(%a1),%fp0	| ...FP0 IS R = (X-Y1)-Y2
270 	fmulx		X(%a6),%fp0	| ...R'*S
304 	fmovex		%fp0,X(%a6)	| ...X IS S
311 	eorl		%d0,X(%a6)	| ...X IS NOW S'= SGN*S
525 |--SIN AND COS OF X FOR DENORMALIZED X
540 	fmovex		%fp0,X(%a6)
541 	andil		#0x7FFFFFFF,%d0		| ...COMPACTIFY X
543 	cmpil		#0x3FD78000,%d0		| ...|X| >= 2**(-40)?
548 	cmpil		#0x4004BC7E,%d0		| ...|X| < 15 PI?
554 |--THIS IS THE USUAL CASE, |X| <= 15 PI.
557 	fmuld		TWOBYPI,%fp1	| ...X*2/PI
570 	fsubx		(%a1)+,%fp0	| ...X-Y1
571         fsubs		(%a1),%fp0	| ...FP0 IS R = (X-Y1)-Y2
652 	faddx		RPRIME(%a6),%fp1	| ...COS(X)
655 	fadds		POSNEG1(%a6),%fp0	| ...SIN(X)
720 	fadds		POSNEG1(%a6),%fp1	| ...COS(X)
723 	faddx		RPRIME(%a6),%fp0	| ...SIN(X)
742 	fmovex		X(%a6),%fp0