Lines Matching +full:fraction +full:- +full:z

8 |	Input: Double-extended number X in location pointed to
11 |	Output: The value arccos(X) returned in floating-point register Fp0.
26 |		z := (1-X) / (1+X)
27 |		acos(X) = 2 * atan( sqrt(z) ).
57 |--ACOS(X) = PI/2 FOR DENORMALIZED X
66 	movel		(%a0),%d0		| ...pack exponent with upper 16 fraction
72 |--THIS IS THE USUAL CASE, |X| < 1
73 |--ACOS(X) = 2 * ATAN(	SQRT( (1-X)/(1+X) )	)
77 	fnegx		%fp0		| ... -X
78 	fadds		#0x3F800000,%fp0	| ...1-X
79 	fdivx		%fp1,%fp0		| ...(1-X)/(1+X)
80 	fsqrtx		%fp0		| ...SQRT((1-X)/(1+X))
81 	fmovemx	%fp0-%fp0,(%a0)	| ...overwrite input
82 	movel		%d1,-(%sp)	|save original users fpcr
84 	bsr		satan		| ...ATAN(SQRT([1-X]/[1+X]))
94 |--|X| = 1, ACOS(X) = 0 OR PI
95 	movel		(%a0),%d0		| ...pack exponent with upper 16 fraction
97 	cmpl		#0,%d0		|D0 has original exponent+fraction
100 |--X = -1
105 |					;into the 040 - will not trap until next