Cross Reference: /src/sys/arch/m68k/060sp/dist/fplsp.s

Lines Matching refs:sgn
4940 #	5. (k is odd) Set j := (k-1)/2, sgn := (-1)**j. 		#
4941 #		Return sgn*cos(r) where cos(r) is approximated by an 	#
4946 #	6. (k is even) Set j := k/2, sgn := (-1)**j. Return sgn*sin(r)	#
5083 #--LET J BE THE LEAST SIG. BIT OF D0, LET SGN := (-1)**J.
5084 #--THEN WE RETURN	SGN*SIN(R). SGN*SIN(R) IS COMPUTED BY
5086 #--R' = SGN*R, S=R*R. THIS CAN BE REWRITTEN AS
5106 	eor.l		%d1,X(%a6)		# X IS NOW R'= SGN*R
5136 #--LET J BE THE LEAST SIG. BIT OF D0, LET SGN := (-1)**J.
5137 #--THEN WE RETURN	SGN*COS(R). SGN*COS(R) IS COMPUTED BY
5138 #--SGN + S'*(B1 + S(B2 + S(B3 + S(B4 + ... + SB8)))), WHERE
5139 #--S=R*R AND S'=SGN*S. THIS CAN BE REWRITTEN AS
5140 #--SGN + S'*([B1+T(B3+T(B5+TB7))] + [S(B2+T(B4+T(B6+TB8)))])
5163 	eor.l		%d1,X(%a6)		# X IS NOW S'= SGN*S
5168 	or.l		&0x3F800000,%d1		# D0 IS SGN IN SINGLE
6065 #	Step 2. Let X = sgn * 2**k * 1.xxxxxxxx...x. 			#
6067 #		Define F = sgn * 2**k * 1.xxxx1, i.e. the first 5 	#
6524 #	4. (|X| = 1) sgn := sign(X), return asin(X) := sgn * Pi/2. Exit.#
7710 #               y = |X|, sgn = sign(X), and z = expm1(Y),		#
7711 #               sinh(X) = sgn*(1/2)*( z + z/(1+z) ).			#
7721 #             sgn     := sign(X)					#
7722 #             sgnFact := sgn * 2**(16380)				#
7828 #		sgn := sign(X), y := 2|X|, z := expm1(Y), and		#
7829 #		tanh(X) = sgn*( z/(2+z) ).				#
7838 #		sgn := sign(X), y := 2|X|, z := exp(Y),			#
7839 #		tanh(X) = sgn - [ sgn*2/(1+z) ].			#
7844 #		sgn := sign(X), Tiny := 2**(-126),			#
7845 #		tanh(X) := sgn - sgn*Tiny.				#
7855 	set		SGN,L_SCR3
7877 	mov.l		%d1,SGN(%a6)
7881 	and.l		&0x80000000,SGN(%a6)
7894 	mov.l		SGN(%a6),%d1
7910 #--TANH(X) = 1 - (2/[EXP(2X)+1]). LET Y = 2|X|, SGN = SIGN(X),
7911 #--TANH(X) = SGN -	SGN*2/[EXP(Y)+1].
7914 	mov.l		%d1,SGN(%a6)
7918 	and.l		&0x80000000,SGN(%a6)
7919 	mov.l		SGN(%a6),%d1
7929 	mov.l		SGN(%a6),%d1
7936 	mov.l		SGN(%a6),%d1
7937 	or.l		&0x3F800000,%d1		# SGN
7938 	fmov.s		%d1,%fp0		# SGN IN SGL FMT
7951 #---RETURN SGN(X) - SGN(X)EPS
8589 #		sgn := sign(X)						#
8592 #		atanh(X) := sgn * (1/2) * logp1(z)			#
8599 #		sgn := sign(X)						#
8600 #		atan(X) := sgn / (+0).					#
10927 	and.w		&0x7fff, %d1		# strip off sgn
10938 	or.w		%d0, %d1		# {sgn,new exp}
OpenGrok
