Lines Matching refs:SGN
5074 #--LET J BE THE LEAST SIG. BIT OF D0, LET SGN := (-1)**J.
5075 #--THEN WE RETURN SGN*SIN(R). SGN*SIN(R) IS COMPUTED BY
5097 eor.l %d1,X(%a6) # X IS NOW R'= SGN*R
7846 set SGN,L_SCR3
7868 mov.l %d1,SGN(%a6)
7872 and.l &0x80000000,SGN(%a6)
7885 mov.l SGN(%a6),%d1
7901 #--TANH(X) = 1 - (2/[EXP(2X)+1]). LET Y = 2|X|, SGN = SIGN(X),
7902 #--TANH(X) = SGN - SGN*2/[EXP(Y)+1].
7905 mov.l %d1,SGN(%a6)
7909 and.l &0x80000000,SGN(%a6)
7910 mov.l SGN(%a6),%d1
7920 mov.l SGN(%a6),%d1
7927 mov.l SGN(%a6),%d1
7928 or.l &0x3F800000,%d1 # SGN
7929 fmov.s %d1,%fp0 # SGN IN SGL FMT
7942 #---RETURN SGN(X) - SGN(X)EPS