Lines Matching refs:sgn
5046 # 5. (k is odd) Set j := (k-1)/2, sgn := (-1)**j. #
5047 # Return sgn*cos(r) where cos(r) is approximated by an #
5052 # 6. (k is even) Set j := k/2, sgn := (-1)**j. Return sgn*sin(r) #
5189 #--LET J BE THE LEAST SIG. BIT OF D0, LET SGN := (-1)**J.
5190 #--THEN WE RETURN SGN*SIN(R). SGN*SIN(R) IS COMPUTED BY
5192 #--R' = SGN*R, S=R*R. THIS CAN BE REWRITTEN AS
5212 eor.l %d1,X(%a6) # X IS NOW R'= SGN*R
5242 #--LET J BE THE LEAST SIG. BIT OF D0, LET SGN := (-1)**J.
5243 #--THEN WE RETURN SGN*COS(R). SGN*COS(R) IS COMPUTED BY
5244 #--SGN + S'*(B1 + S(B2 + S(B3 + S(B4 + ... + SB8)))), WHERE
5245 #--S=R*R AND S'=SGN*S. THIS CAN BE REWRITTEN AS
5246 #--SGN + S'*([B1+T(B3+T(B5+TB7))] + [S(B2+T(B4+T(B6+TB8)))])
5269 eor.l %d1,X(%a6) # X IS NOW S'= SGN*S
5274 or.l &0x3F800000,%d1 # D0 IS SGN IN SINGLE
6171 # Step 2. Let X = sgn * 2**k * 1.xxxxxxxx...x. #
6173 # Define F = sgn * 2**k * 1.xxxx1, i.e. the first 5 #
6630 # 4. (|X| = 1) sgn := sign(X), return asin(X) := sgn * Pi/2. Exit.#
7816 # y = |X|, sgn = sign(X), and z = expm1(Y), #
7817 # sinh(X) = sgn*(1/2)*( z + z/(1+z) ). #
7827 # sgn := sign(X) #
7828 # sgnFact := sgn * 2**(16380) #
7934 # sgn := sign(X), y := 2|X|, z := expm1(Y), and #
7935 # tanh(X) = sgn*( z/(2+z) ). #
7944 # sgn := sign(X), y := 2|X|, z := exp(Y), #
7945 # tanh(X) = sgn - [ sgn*2/(1+z) ]. #
7950 # sgn := sign(X), Tiny := 2**(-126), #
7951 # tanh(X) := sgn - sgn*Tiny. #
7961 set SGN,L_SCR3
7983 mov.l %d1,SGN(%a6)
7987 and.l &0x80000000,SGN(%a6)
8000 mov.l SGN(%a6),%d1
8016 #--TANH(X) = 1 - (2/[EXP(2X)+1]). LET Y = 2|X|, SGN = SIGN(X),
8017 #--TANH(X) = SGN - SGN*2/[EXP(Y)+1].
8020 mov.l %d1,SGN(%a6)
8024 and.l &0x80000000,SGN(%a6)
8025 mov.l SGN(%a6),%d1
8035 mov.l SGN(%a6),%d1
8042 mov.l SGN(%a6),%d1
8043 or.l &0x3F800000,%d1 # SGN
8044 fmov.s %d1,%fp0 # SGN IN SGL FMT
8057 #---RETURN SGN(X) - SGN(X)EPS
8695 # sgn := sign(X) #
8698 # atanh(X) := sgn * (1/2) * logp1(z) #
8705 # sgn := sign(X) #
8706 # atan(X) := sgn / (+0). #
10431 or.b %d1,%d0 # concat {sgn,mode,prec}
11647 mov.w FP_SCR0_EX(%a6),%d1 # load {sgn,exp}
11717 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
11837 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
12175 mov.w FP_SCR0_EX(%a6),%d1 # load {sgn,exp}
12289 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
12461 mov.w FP_SCR0_EX(%a6),%d1 # load {sgn,exp}
12530 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
12605 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
12955 mov.w FP_SCR0_EX(%a6),%d1 # load sgn,exp
13069 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
13573 mov.w FP_SCR0_EX(%a6),%d1 # load sgn,exp
13684 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
14018 mov.w FP_SCR0_EX(%a6),%d1 # load {sgn,exp}
14065 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
14142 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
14365 mov.w FP_SCR0_EX(%a6),%d1 # load {sgn,exp}
14418 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
14475 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
14828 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
15207 mov.w (%sp),%d1 # fetch {sgn,exp}
15281 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
15288 or.w %d2,%d1 # concat sgn,exp
15636 mov.w FP_SCR0_EX(%a6),%d1 # load sgn,exp
15766 mov.w FP_SCR0_EX(%a6),%d1 # fetch {sgn,exp}
15918 or.w %d1,%d0 # concat {sgn,new exp}
15954 or.w %d1,%d0 # concat {sgn,new exp}
15994 mov.w FP_SCR0_EX(%a6),%d1 # extract operand's {sgn,exp}
15999 andi.w &0x8000,%d0 # extract operand's sgn
16051 mov.w FP_SCR0_EX(%a6),%d1 # extract operand's {sgn,exp}
16054 andi.w &0x8000,FP_SCR0_EX(%a6) # extract operand's sgn
16121 mov.w FP_SCR1_EX(%a6),%d1 # extract operand's {sgn,exp}
16126 andi.w &0x8000,%d0 # extract operand's sgn
19984 btst &0x7, (%a0) # is sgn bit set?
19986 bset &0x7, FP_SRC_EX(%a6) # set sgn of xprec value
19993 or.w %d1, FP_SRC_EX(%a6) # {sgn,exp}
20070 btst &0x7, (%a0) # is sgn bit set?
20072 bset &0x7, FP_SRC_EX(%a6) # set sgn of xprec value
20079 or.w %d1, FP_SRC_EX(%a6) # {sgn,exp}
22408 and.w &0x7fff, %d1 # strip off sgn
22419 or.w %d0, %d1 # {sgn,new exp}
22740 bclr &0x7, FTEMP_EX(%a0) # clear sgn first; may have residue
22743 bset &0x7, FTEMP_EX(%a0) # set result sgn
22800 bclr &0x7,FTEMP_EX(%a0) # clear sgn first; may have residue
22803 bset &0x7,FTEMP_EX(%a0) # set result sgn
Indexes created Mon Oct 27 15:09:58 GMT 2025