Lines Matching refs:FP1
317 set EXC_FP1, EXC_FPREGS+(1*12) # offset of saved fp1
576 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
623 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
633 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
681 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
691 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
739 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
753 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
800 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
810 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
858 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
868 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
916 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
930 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
977 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
987 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1035 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1045 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1093 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1107 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1154 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1164 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1212 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1222 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1270 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1284 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1331 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1341 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1389 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1399 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1447 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1461 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1508 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1518 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1566 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1576 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1624 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1638 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1685 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1695 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1743 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1753 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1801 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1815 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1862 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1872 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1920 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1930 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1978 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
1992 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2039 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2049 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2097 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2107 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2155 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2169 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2216 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2226 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2274 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2284 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2332 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2346 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2393 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2403 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2451 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2461 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2509 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2523 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2570 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2580 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2628 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2638 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2686 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2700 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2747 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2757 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2805 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2815 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2863 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2877 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2924 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2934 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2982 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
2992 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3040 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3054 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3101 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3111 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3159 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3169 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3217 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3231 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3278 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3288 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3336 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3346 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3394 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3408 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3455 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3465 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3513 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3523 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3571 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3585 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3632 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3642 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3690 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3700 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3748 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3762 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3809 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3819 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3867 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3877 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3925 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3939 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3986 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
3996 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4044 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
4054 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4102 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
4116 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4163 fmovm.x &0x03,-(%sp) # store off fp0/fp1
4164 fmovm.x (%sp)+,&0x40 # fp0 now in fp1
4165 fmovm.x (%sp)+,&0x80 # fp1 now in fp0
4175 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4223 fmovm.x &0x03,-(%sp) # store off fp0/fp1
4224 fmovm.x (%sp)+,&0x40 # fp0 now in fp1
4225 fmovm.x (%sp)+,&0x80 # fp1 now in fp0
4235 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4283 fmovm.x &0x03,-(%sp) # store off fp0/fp1
4284 fmovm.x (%sp)+,&0x40 # fp0 now in fp1
4285 fmovm.x (%sp)+,&0x80 # fp1 now in fp0
4299 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4355 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
4365 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4421 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
4431 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4489 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
4503 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4559 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
4569 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4625 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
4635 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4693 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
4707 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4763 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
4773 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4829 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
4839 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4897 fmovm.x EXC_FP1(%a6),&0x40 # restore fp1
4919 # fp1 = cos(X) #
5035 #--SAVE FPCR, FP1. CHECK IF |X| IS TOO SMALL OR LARGE
5057 fmov.x %fp0,%fp1
5058 fmul.d TWOBYPI(%pc),%fp1 # X*2/PI
5062 fmov.l %fp1,INT(%a6) # CONVERT TO INTEGER
5100 fmov.x %fp0,%fp1
5101 fmul.x %fp1,%fp1 # FP1 IS T
5108 fmul.x %fp1,%fp3 # TA7
5109 fmul.x %fp1,%fp2 # TA6
5114 fmul.x %fp1,%fp3 # T(A5+TA7)
5115 fmul.x %fp1,%fp2 # T(A4+TA6)
5120 fmul.x %fp3,%fp1 # T(A3+T(A5+TA7))
5123 fadd.x SINA1(%pc),%fp1 # A1+T(A3+T(A5+TA7))
5126 fadd.x %fp2,%fp1 # [A1+T(A3+T(A5+TA7))]+[S(A2+T(A4+TA6))]
5128 fmul.x %fp1,%fp0 # SIN(R')-R'
5153 fmov.x %fp0,%fp1
5154 fmul.x %fp1,%fp1 # FP1 IS T
5161 fmul.x %fp1,%fp2 # TB8
5166 fmul.x %fp1,%fp3 # TB7
5174 fmul.x %fp1,%fp2 # T(B6+TB8)
5175 fmul.x %fp1,%fp3 # T(B5+TB7)
5180 fmul.x %fp1,%fp2 # T(B4+T(B6+TB8))
5181 fmul.x %fp3,%fp1 # T(B3+T(B5+TB7))
5184 fadd.s COSB1(%pc),%fp1 # B1+T(B3+T(B5+TB7))
5188 fadd.x %fp1,%fp0
5268 fmov.x %fp0,%fp1
5270 fmul.d TWOBYPI(%pc),%fp1 # X*2/PI
5274 fmov.l %fp1,INT(%a6) # CONVERT TO INTEGER
5297 fmov.d SINA7(%pc),%fp1 # A7
5299 fmul.x %fp0,%fp1 # SA7
5309 fadd.d SINA6(%pc),%fp1 # A6+SA7
5312 fmul.x %fp0,%fp1 # S(A6+SA7)
5321 fadd.d SINA5(%pc),%fp1 # A5+S(A6+SA7)
5324 fmul.x %fp0,%fp1 # S(A5+S(A6+SA7))
5328 fadd.d SINA4(%pc),%fp1 # A4+S(A5+S(A6+SA7))
5332 fmul.x %fp0,%fp1 # S(A4+...)
5335 fadd.d SINA3(%pc),%fp1 # A3+S(A4+...)
5338 fmul.x %fp0,%fp1 # S(A3+...)
5341 fadd.x SINA2(%pc),%fp1 # A2+S(A3+...)
5344 fmul.x %fp0,%fp1 # S(A2+...)
5347 fadd.x SINA1(%pc),%fp1 # A1+S(A2+...)
5350 fmul.x %fp0,%fp1 # S(A1+...)
5353 fmul.x RPRIME(%a6),%fp1 # R'S(A1+...)
5360 fadd.x RPRIME(%a6),%fp1 # COS(X)
5372 fmov.d COSB8(%pc),%fp1 # B8
5375 fmul.x %fp0,%fp1 # SB8
5382 fadd.d COSB7(%pc),%fp1 # B7+SB8
5388 fmul.x %fp0,%fp1 # S(B7+SB8)
5395 fadd.d COSB6(%pc),%fp1 # B6+S(B7+SB8)
5398 fmul.x %fp0,%fp1 # S(B6+S(B7+SB8))
5401 fadd.d COSB5(%pc),%fp1 # B5+S(B6+S(B7+SB8))
5404 fmul.x %fp0,%fp1 # S(B5+...)
5407 fadd.d COSB4(%pc),%fp1 # B4+S(B5+...)
5410 fmul.x %fp0,%fp1 # S(B4+...)
5413 fadd.x COSB3(%pc),%fp1 # B3+S(B4+...)
5416 fmul.x %fp0,%fp1 # S(B3+...)
5419 fadd.x COSB2(%pc),%fp1 # B2+S(B3+...)
5422 fmul.x %fp0,%fp1 # S(B2+...)
5426 fadd.s COSB1(%pc),%fp1 # B1+S(B2...)
5428 fmul.x SPRIME(%a6),%fp1 # S'(B1+S(B2+...))
5433 fadd.s POSNEG1(%a6),%fp1 # COS(X)
5448 fmov.s &0x3F800000,%fp1
5451 fsub.s &0x00800000,%fp1
5464 fmov.s &0x3F800000,%fp1
5477 fmov.s &0x00000000,%fp1 # fp1 = 0
5503 fmov.x %fp0,%fp1 # save high result in fp1
5505 fsub.x %fp0,%fp1 # determine low component of result
5506 fadd.x FP_SCR1(%a6),%fp1 # fp0/fp1 are reduced argument.
5510 #--Intermeditate remainder is 66-bit long; (R,r) in (FP0,FP1)
5554 fadd.s TWOTO63(%a6),%fp2 # THE FRACTIONAL PART OF FP1 IS ROUNDED
5590 fsub.x %fp4,%fp1 # fp1 = a := r - p
5594 fadd.x %fp1,%fp0 # fp0 = R := A+a
5601 fadd.x %fp3,%fp1 # fp1 = r := (A-R)+a
5786 fmov.x %fp0,%fp1
5787 fmul.d TWOBYPI(%pc),%fp1 # X*2/PI
5791 fmov.l %fp1,%d1 # CONVERT TO INTEGER
5809 fmov.x %fp0,%fp1
5810 fmul.x %fp1,%fp1 # S = R*R
5815 fmul.x %fp1,%fp3 # SQ4
5816 fmul.x %fp1,%fp2 # SP3
5821 fmul.x %fp1,%fp3 # S(Q3+SQ4)
5822 fmul.x %fp1,%fp2 # S(P2+SP3)
5827 fmul.x %fp1,%fp3 # S(Q2+S(Q3+SQ4))
5828 fmul.x %fp1,%fp2 # S(P1+S(P2+SP3))
5833 fmul.x %fp3,%fp1 # S(Q1+S(Q2+S(Q3+SQ4)))
5837 fadd.s &0x3F800000,%fp1 # 1+S(Q1+...)
5842 fdiv.x %fp1,%fp0 # last inst - possible exception set
5846 fmov.x %fp0,%fp1
5868 fmul.x %fp1,%fp2 # RS(P1+S(P2+SP3))
5872 fadd.x %fp2,%fp1 # R+RS(P1+S(P2+SP3))
5877 fmov.x %fp1,-(%sp)
5908 fmov.s &0x00000000,%fp1 # fp1 = 0
5934 fmov.x %fp0,%fp1 # save high result in fp1
5936 fsub.x %fp0,%fp1 # determine low component of result
5937 fadd.x FP_SCR1(%a6),%fp1 # fp0/fp1 are reduced argument.
5941 #--Intermeditate remainder is 66-bit long; (R,r) in (FP0,FP1)
5985 fadd.s TWOTO63(%a6),%fp2 # THE FRACTIONAL PART OF FP1 IS ROUNDED
6021 fsub.x %fp4,%fp1 # fp1 = a := r - p
6025 fadd.x %fp1,%fp0 # fp0 = R := A+a
6032 fadd.x %fp3,%fp1 # fp1 = r := (A-R)+a
6294 fmov.x %fp0,%fp1 # FP1 IS X
6295 fmul.x X(%a6),%fp1 # FP1 IS X*F, NOTE THAT X*F > 0
6297 fadd.s &0x3F800000,%fp1 # FP1 IS 1 + X*F
6298 fdiv.x %fp1,%fp0 # FP0 IS U = (X-F)/(1+X*F)
6335 fmov.x %fp0,%fp1
6336 fmul.x %fp1,%fp1
6338 fadd.x %fp1,%fp2 # A3+V
6339 fmul.x %fp1,%fp2 # V*(A3+V)
6340 fmul.x %fp0,%fp1 # U*V
6342 fmul.d ATANA1(%pc),%fp1 # A1*U*V
6343 fmul.x %fp2,%fp1 # A1*U*V*(A2+V*(A3+V))
6344 fadd.x %fp1,%fp0 # ATAN(U), FP1 RELEASED
6353 #--|X| IS IN d0 IN COMPACT FORM. FP1, d0 SAVED.
6373 fmov.x %fp0,%fp1
6374 fmul.x %fp1,%fp1 # FP1 IS Z = Y*Y
6379 fmul.x %fp1,%fp2 # Z*B6
6380 fmul.x %fp1,%fp3 # Z*B5
6385 fmul.x %fp1,%fp2 # Z*(B4+Z*B6)
6386 fmul.x %fp3,%fp1 # Z*(B3+Z*B5)
6389 fadd.d ATANB1(%pc),%fp1 # B1+Z*(B3+Z*B5)
6394 fadd.x %fp2,%fp1 # [B1+Z*(B3+Z*B5)]+[Y*(B2+Z*(B4+Z*B6))]
6396 fmul.x %fp1,%fp0 # X*Y*([B1+Z*(B3+Z*B5)]+[Y*(B2+Z*(B4+Z*B6))])
6426 fmov.s &0xBF800000,%fp1 # LOAD -1
6427 fdiv.x %fp0,%fp1 # FP1 IS -1/X
6431 fmov.x %fp1,%fp0 # FP0 IS X'
6433 fmov.x %fp1,X(%a6) # X IS REALLY X'
6435 fmov.x %fp0,%fp1
6436 fmul.x %fp1,%fp1 # FP1 IS Z = Y*Y
6441 fmul.x %fp1,%fp3 # Z*C5
6442 fmul.x %fp1,%fp2 # Z*B4
6447 fmul.x %fp3,%fp1 # Z*(C3+Z*C5), FP3 RELEASED
6450 fadd.d ATANC1(%pc),%fp1 # C1+Z*(C3+Z*C5)
6453 fadd.x %fp2,%fp1 # [Y*(C2+Z*C4)]+[C1+Z*(C3+Z*C5)]
6455 fmul.x %fp1,%fp0 # X'*Y*([B1+Z*(B3+Z*B5)]
6553 fmov.s &0x3F800000,%fp1
6554 fsub.x %fp0,%fp1 # 1-X
6558 fmul.x %fp2,%fp1 # (1+X)(1-X)
6560 fsqrt.x %fp1 # SQRT([1-X][1+X])
6561 fdiv.x %fp1,%fp0 # X/SQRT([1-X][1+X])
6646 fmov.s &0x3F800000,%fp1
6647 fadd.x %fp0,%fp1 # 1+X
6650 fdiv.x %fp1,%fp0 # (1-X)/(1+X)
7132 fmov.x %fp0,%fp1
7151 #--fp1,fp2 saved on the stack. fp0 is N, fp1 is X,
7156 fadd.x %fp1,%fp0 # X + N*L1
7165 fmov.x %fp0,%fp1
7166 fmul.x %fp1,%fp1 # fp1 IS S = R*R
7170 fmul.x %fp1,%fp2 # fp2 IS S*A5
7171 fmov.x %fp1,%fp3
7177 fmul.x %fp1,%fp2 # fp2 IS S*(A3+S*A5)
7182 fmul.x %fp1,%fp3 # fp3 IS S*(A2+S*A4)
7187 fmul.x %fp1,%fp2 # fp2 IS S*(A1+S*(A3+S*A5))
7190 fmov.x (%a1)+,%fp1 # fp1 is lead. pt. of 2^(J/64)
7197 fmul.x %fp1,%fp0 # 2^(J/64)*(Exp(R)-1)
7201 fadd.x %fp1,%fp0 # 2^(J/64) + 2^(J/64)*...
7229 fmov.x %fp0,%fp1
7297 fmov.x %fp0,%fp1
7313 #--fp1,fp2 saved on the stack. fp0 is N, fp1 is X,
7318 fadd.x %fp1,%fp0 # X + N*L1
7328 fmov.x %fp0,%fp1
7329 fmul.x %fp1,%fp1 # fp1 IS S = R*R
7333 fmul.x %fp1,%fp2 # fp2 IS S*A6
7334 fmov.x %fp1,%fp3
7343 fmul.x %fp1,%fp2 # fp2 IS S*(A4+S*A6)
7346 fmul.x %fp1,%fp3 # fp3 IS S*(A3+S*A5)
7351 fmul.x %fp1,%fp2 # fp2 IS S*(A2+S*(A4+S*A6))
7356 fmul.x %fp3,%fp1 # fp1 IS S*(A1+S*(A3+S*A5))
7359 fadd.x %fp1,%fp0 # fp0 IS R+S*(A1+S*(A3+S*A5))
7376 fmov.s 12(%a1),%fp1 # fp1 is t
7377 fadd.x ONEBYSC(%a6),%fp1 # fp1 is t+OnebySc
7378 fadd.x %fp1,%fp0 # p+(t+OnebySc), fp1 released
7393 fmov.x (%a1)+,%fp1 # fp1 is T
7395 fadd.x ONEBYSC(%a6),%fp1 # fp1 is T+OnebySc
7396 fadd.x %fp1,%fp0 # (T+OnebySc)+(p+t)
7441 fmov.s &0x2F30CAA8,%fp1 # fp1 is B12
7442 fmul.x %fp0,%fp1 # fp1 is S*B12
7444 fadd.s &0x32D73220,%fp1 # fp1 is B10+S*B12
7447 fmul.x %fp0,%fp1 # fp1 is S*(B10 + ...
7450 fadd.d EM1B8(%pc),%fp1 # fp1 is B8+S*...
7453 fmul.x %fp0,%fp1 # fp1 is S*(B8+...
7456 fadd.d EM1B6(%pc),%fp1 # fp1 is B6+S*...
7459 fmul.x %fp0,%fp1 # fp1 is S*(B6+...
7462 fadd.d EM1B4(%pc),%fp1 # fp1 is B4+S*...
7465 fmul.x %fp0,%fp1 # fp1 is S*(B4+...
7468 fadd.x EM1B2(%pc),%fp1 # fp1 is B2+S*...
7471 fmul.x %fp0,%fp1 # fp1 is S*(B2+...
7474 fmul.x (%a0),%fp1 # fp1 is X*S*(B2...
7477 fadd.x %fp2,%fp1 # fp1 is Q
7481 fadd.x %fp1,%fp0 # fp0 is S*B1+Q
7646 fmov.s &0x3E800000,%fp1 # (1/4)
7647 fdiv.x %fp0,%fp1 # 1/(2 EXP(|X|))
7651 fadd.x %fp1,%fp0
7759 fmov.x %fp0,%fp1
7760 fadd.s &0x3F800000,%fp1 # 1+Z
7762 fdiv.x %fp1,%fp0 # Z/(1+Z)
7892 fmov.x %fp0,%fp1
7893 fadd.s &0x40000000,%fp1 # Z+2
7895 fmov.x %fp1,V(%a6)
7933 fmov.s %d1,%fp1 # -SIGN(X)*2 IN SGL FMT
7934 fdiv.x %fp0,%fp1 # -SIGN(X)2 / [EXP(Y)+1 ]
7942 fadd.x %fp1,%fp0
8263 fmov.l %d1,%fp1 # CONVERT K TO FLOATING-POINT FORMAT
8282 #--SUMMARY: FP0 IS Y-F, A0 IS ADDRESS OF 1/F, FP1 IS K
8283 #--REGISTERS SAVED: FPCR, FP1, FP2
8288 fmul.x LOGOF2(%pc),%fp1 # GET K*LOG2 WHILE FP0 IS NOT READY
8291 fmov.x %fp1,KLOG2(%a6) # PUT K*LOG2 IN MEMORY, FREE FP1
8298 fmov.x %fp2,%fp1
8300 fmul.d LOGA6(%pc),%fp1 # V*A6
8303 fadd.d LOGA4(%pc),%fp1 # A4+V*A6
8306 fmul.x %fp3,%fp1 # V*(A4+V*A6)
8309 fadd.d LOGA2(%pc),%fp1 # A2+V*(A4+V*A6)
8312 fmul.x %fp3,%fp1 # V*(A2+V*(A4+V*A6))
8316 fmul.x %fp0,%fp1 # U*V*(A2+V*(A4+V*A6))
8319 fadd.x (%a0),%fp1 # LOG(F)+U*V*(A2+V*(A4+V*A6))
8321 fadd.x %fp1,%fp0 # FP0 IS LOG(F) + LOG(1+U)
8336 #--REGISTERS SAVED: FPCR, FP1. FP0 CONTAINS THE INPUT.
8337 fmov.x %fp0,%fp1
8338 fsub.s one(%pc),%fp1 # FP1 IS X-1
8340 fadd.x %fp1,%fp1 # FP1 IS 2(X-1)
8342 #--IN U, U = 2(X-1)/(X+1) = FP1/FP0
8346 fdiv.x %fp0,%fp1 # FP1 IS U
8348 #--REGISTERS SAVED ARE NOW FPCR,FP1,FP2,FP3
8352 fmov.x %fp1,%fp0
8354 fmov.x %fp1,SAVEU(%a6) # STORE U IN MEMORY, FREE FP1
8355 fmov.x %fp0,%fp1
8356 fmul.x %fp1,%fp1 # FP1 IS W
8361 fmul.x %fp1,%fp3 # W*B5
8362 fmul.x %fp1,%fp2 # W*B4
8367 fmul.x %fp3,%fp1 # W*(B3+W*B5), FP3 RELEASED
8371 fadd.d LOGB1(%pc),%fp1 # B1+W*(B3+W*B5)
8374 fadd.x %fp2,%fp1 # B1+W*(B3+W*B5) + V*(B2+W*B4), FP2 RELEASED
8377 fmul.x %fp1,%fp0 # U*V*( [B1+W*(B3+W*B5)] + [V*(B2+W*B4)] )
8463 fmov.x %fp0,%fp1 # FP1 IS INPUT Z
8488 fadd.x %fp1,%fp1 # FP1 IS 2Z
8490 #--U = FP1/FP0
8500 #--ON RETURNING TO LP1CONT1, WE MUST HAVE K IN FP1, ADDRESS OF
8519 fadd.x %fp1,%fp1 # GET 2Z
8521 fadd.x %fp1,%fp0 # FP0 IS Y-F = (2-F)+2Z
8524 fmov.s negone(%pc),%fp1 # FP1 IS K = -1
8537 fadd.x %fp1,%fp0 # FP0 IS Y-F
8541 fmov.s zero(%pc),%fp1 # FP1 IS K = 0
8620 fmov.x %fp0,%fp1
8621 fneg.x %fp1 # -Y
8623 fadd.s &0x3F800000,%fp1 # 1-Y
8624 fdiv.x %fp1,%fp0 # 2Y/(1-Y)
9014 fmov.x %fp0,%fp1
9015 fmul.s &0x42800000,%fp1 # 64 * X
9016 fmov.l %fp1,INT(%a6) # N = ROUND-TO-INT(64 X)
9019 fmov.l INT(%a6),%fp1 # N --> FLOATING FMT
9034 #--REGISTERS SAVED SO FAR ARE (IN ORDER) FPCR, D0, FP1, a1, AND FP2.
9038 fmul.s &0x3C800000,%fp1 # (1/64)*N
9044 fsub.x %fp1,%fp0 # X - (1/64)*INT(64 X)
9111 fmov.x %fp0,%fp1
9112 fmul.d L2TEN64(%pc),%fp1 # X*64*LOG10/LOG2
9113 fmov.l %fp1,INT(%a6) # N=INT(X*64*LOG10/LOG2)
9116 fmov.l INT(%a6),%fp1 # N --> FLOATING FMT
9131 #--REGISTERS SAVED SO FAR ARE (IN ORDER) FPCR, D0, FP1, a1, AND FP2.
9134 fmov.x %fp1,%fp2
9136 fmul.d L10TWO1(%pc),%fp1 # N*(LOG2/64LOG10)_LEAD
9143 fsub.x %fp1,%fp0 # X - N L_LEAD
9162 fmov.x %fp0,%fp1
9163 fmul.x %fp1,%fp1 # FP1 IS S = R*R
9168 fmul.x %fp1,%fp2 # FP2 IS S*A5
9169 fmul.x %fp1,%fp3 # FP3 IS S*A4
9174 fmul.x %fp1,%fp2 # FP2 IS S*(A3+S*A5)
9175 fmul.x %fp1,%fp3 # FP3 IS S*(A2+S*A4)
9180 fmul.x %fp1,%fp2 # FP2 IS S*(A1+S*(A3+S*A5))
9850 # in fp0 while fp1 is used to create a DZ exception so that the #
9872 # but use fp1 instead. return the dst operand unscathed in fp0.
9876 fmov.s &0xbf800000,%fp1 # load -1
9877 fdiv.s &0x00000000,%fp1 # -1 / 0
9891 # but use fp1 instead. return the dst operand unscathed in fp0.
9895 fmov.s &0x3f800000,%fp1 # load +1
9896 fdiv.s &0x00000000,%fp1 # +1 / 0
9909 # fp1 = source operand #
9913 # fp1 = unchanged #
9919 # and the source operand in fp1. Use fp2 to create an OPERR exception #
10193 fmov.s &0x3f800000,%fp1 # load +1
10194 fadd.x pls_tiny(%pc),%fp1 # cause exception
10248 # values are already in fp0 and fp1 so we do nothing here.
10635 fmov.s &0x3f800000,%fp1
10653 fmov.x qnan(%pc),%fp1 # load NAN
10662 fmov.x LOCAL_EX(%a0),%fp1
Indexes created Sun Oct 26 13:09:57 GMT 2025