Lines Matching refs:FP1
5132 #--SAVE FPCR, FP1. CHECK IF |X| IS TOO SMALL OR LARGE
5198 fmul.x %fp1,%fp1 # FP1 IS T
5251 fmul.x %fp1,%fp1 # FP1 IS T
5607 #--Intermeditate remainder is 66-bit long; (R,r) in (FP0,FP1)
5651 fadd.s TWOTO63(%a6),%fp2 # THE FRACTIONAL PART OF FP1 IS ROUNDED
6038 #--Intermeditate remainder is 66-bit long; (R,r) in (FP0,FP1)
6082 fadd.s TWOTO63(%a6),%fp2 # THE FRACTIONAL PART OF FP1 IS ROUNDED
6391 fmov.x %fp0,%fp1 # FP1 IS X
6392 fmul.x X(%a6),%fp1 # FP1 IS X*F, NOTE THAT X*F > 0
6394 fadd.s &0x3F800000,%fp1 # FP1 IS 1 + X*F
6441 fadd.x %fp1,%fp0 # ATAN(U), FP1 RELEASED
6450 #--|X| IS IN d0 IN COMPACT FORM. FP1, d0 SAVED.
6471 fmul.x %fp1,%fp1 # FP1 IS Z = Y*Y
6524 fdiv.x %fp0,%fp1 # FP1 IS -1/X
6533 fmul.x %fp1,%fp1 # FP1 IS Z = Y*Y
8379 #--SUMMARY: FP0 IS Y-F, A0 IS ADDRESS OF 1/F, FP1 IS K
8380 #--REGISTERS SAVED: FPCR, FP1, FP2
8388 fmov.x %fp1,KLOG2(%a6) # PUT K*LOG2 IN MEMEORY, FREE FP1
8433 #--REGISTERS SAVED: FPCR, FP1. FP0 CONTAINS THE INPUT.
8435 fsub.s one(%pc),%fp1 # FP1 IS X-1
8437 fadd.x %fp1,%fp1 # FP1 IS 2(X-1)
8439 #--IN U, U = 2(X-1)/(X+1) = FP1/FP0
8443 fdiv.x %fp0,%fp1 # FP1 IS U
8445 #--REGISTERS SAVED ARE NOW FPCR,FP1,FP2,FP3
8451 fmov.x %fp1,SAVEU(%a6) # STORE U IN MEMORY, FREE FP1
8453 fmul.x %fp1,%fp1 # FP1 IS W
8560 fmov.x %fp0,%fp1 # FP1 IS INPUT Z
8585 fadd.x %fp1,%fp1 # FP1 IS 2Z
8587 #--U = FP1/FP0
8597 #--ON RETURNING TO LP1CONT1, WE MUST HAVE K IN FP1, ADDRESS OF
8621 fmov.s negone(%pc),%fp1 # FP1 IS K = -1
8638 fmov.s zero(%pc),%fp1 # FP1 IS K = 0
9131 #--REGISTERS SAVED SO FAR ARE (IN ORDER) FPCR, D0, FP1, a1, AND FP2.
9228 #--REGISTERS SAVED SO FAR ARE (IN ORDER) FPCR, D0, FP1, a1, AND FP2.
9260 fmul.x %fp1,%fp1 # FP1 IS S = R*R
18284 lsl.b &0x1,%d1 # should FP1 be moved?
18379 lsl.b &0x1,%d1 # should FP1 be moved?
23034 # A4. Calculate the factor 10^exp in FP1 using a table of #
23042 # mantissa in FP0 by the factor in FP1 if the adjusted #
23043 # exponent sign is positive, and dividing FP0 by FP1 if #