Lines Matching refs:SGN
5180 #--LET J BE THE LEAST SIG. BIT OF D0, LET SGN := (-1)**J.
5181 #--THEN WE RETURN SGN*SIN(R). SGN*SIN(R) IS COMPUTED BY
5203 eor.l %d1,X(%a6) # X IS NOW R'= SGN*R
7952 set SGN,L_SCR3
7974 mov.l %d1,SGN(%a6)
7978 and.l &0x80000000,SGN(%a6)
7991 mov.l SGN(%a6),%d1
8007 #--TANH(X) = 1 - (2/[EXP(2X)+1]). LET Y = 2|X|, SGN = SIGN(X),
8008 #--TANH(X) = SGN - SGN*2/[EXP(Y)+1].
8011 mov.l %d1,SGN(%a6)
8015 and.l &0x80000000,SGN(%a6)
8016 mov.l SGN(%a6),%d1
8026 mov.l SGN(%a6),%d1
8033 mov.l SGN(%a6),%d1
8034 or.l &0x3F800000,%d1 # SGN
8035 fmov.s %d1,%fp0 # SGN IN SGL FMT
8048 #---RETURN SGN(X) - SGN(X)EPS