Lines Matching refs:FP0
316 set EXC_FP0, EXC_FPREGS+(0*12) # offset of saved fp0
576 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
583 fmov.s 0x8(%a6),%fp0 # load sgl input
584 fmov.x %fp0,FP_SRC(%a6)
619 # Result is now in FP0
633 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
640 fmov.d 0x8(%a6),%fp0 # load dbl input
641 fmov.x %fp0,FP_SRC(%a6)
677 # Result is now in FP0
691 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
735 # Result is now in FP0
753 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
760 fmov.s 0x8(%a6),%fp0 # load sgl input
761 fmov.x %fp0,FP_SRC(%a6)
796 # Result is now in FP0
810 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
817 fmov.d 0x8(%a6),%fp0 # load dbl input
818 fmov.x %fp0,FP_SRC(%a6)
854 # Result is now in FP0
868 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
912 # Result is now in FP0
930 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
937 fmov.s 0x8(%a6),%fp0 # load sgl input
938 fmov.x %fp0,FP_SRC(%a6)
973 # Result is now in FP0
987 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
994 fmov.d 0x8(%a6),%fp0 # load dbl input
995 fmov.x %fp0,FP_SRC(%a6)
1031 # Result is now in FP0
1045 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1089 # Result is now in FP0
1107 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1114 fmov.s 0x8(%a6),%fp0 # load sgl input
1115 fmov.x %fp0,FP_SRC(%a6)
1150 # Result is now in FP0
1164 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1171 fmov.d 0x8(%a6),%fp0 # load dbl input
1172 fmov.x %fp0,FP_SRC(%a6)
1208 # Result is now in FP0
1222 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1266 # Result is now in FP0
1284 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1291 fmov.s 0x8(%a6),%fp0 # load sgl input
1292 fmov.x %fp0,FP_SRC(%a6)
1327 # Result is now in FP0
1341 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1348 fmov.d 0x8(%a6),%fp0 # load dbl input
1349 fmov.x %fp0,FP_SRC(%a6)
1385 # Result is now in FP0
1399 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1443 # Result is now in FP0
1461 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1468 fmov.s 0x8(%a6),%fp0 # load sgl input
1469 fmov.x %fp0,FP_SRC(%a6)
1504 # Result is now in FP0
1518 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1525 fmov.d 0x8(%a6),%fp0 # load dbl input
1526 fmov.x %fp0,FP_SRC(%a6)
1562 # Result is now in FP0
1576 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1620 # Result is now in FP0
1638 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1645 fmov.s 0x8(%a6),%fp0 # load sgl input
1646 fmov.x %fp0,FP_SRC(%a6)
1681 # Result is now in FP0
1695 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1702 fmov.d 0x8(%a6),%fp0 # load dbl input
1703 fmov.x %fp0,FP_SRC(%a6)
1739 # Result is now in FP0
1753 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1797 # Result is now in FP0
1815 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1822 fmov.s 0x8(%a6),%fp0 # load sgl input
1823 fmov.x %fp0,FP_SRC(%a6)
1858 # Result is now in FP0
1872 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1879 fmov.d 0x8(%a6),%fp0 # load dbl input
1880 fmov.x %fp0,FP_SRC(%a6)
1916 # Result is now in FP0
1930 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1974 # Result is now in FP0
1992 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
1999 fmov.s 0x8(%a6),%fp0 # load sgl input
2000 fmov.x %fp0,FP_SRC(%a6)
2035 # Result is now in FP0
2049 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2056 fmov.d 0x8(%a6),%fp0 # load dbl input
2057 fmov.x %fp0,FP_SRC(%a6)
2093 # Result is now in FP0
2107 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2151 # Result is now in FP0
2169 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2176 fmov.s 0x8(%a6),%fp0 # load sgl input
2177 fmov.x %fp0,FP_SRC(%a6)
2212 # Result is now in FP0
2226 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2233 fmov.d 0x8(%a6),%fp0 # load dbl input
2234 fmov.x %fp0,FP_SRC(%a6)
2270 # Result is now in FP0
2284 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2328 # Result is now in FP0
2346 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2353 fmov.s 0x8(%a6),%fp0 # load sgl input
2354 fmov.x %fp0,FP_SRC(%a6)
2389 # Result is now in FP0
2403 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2410 fmov.d 0x8(%a6),%fp0 # load dbl input
2411 fmov.x %fp0,FP_SRC(%a6)
2447 # Result is now in FP0
2461 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2505 # Result is now in FP0
2523 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2530 fmov.s 0x8(%a6),%fp0 # load sgl input
2531 fmov.x %fp0,FP_SRC(%a6)
2566 # Result is now in FP0
2580 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2587 fmov.d 0x8(%a6),%fp0 # load dbl input
2588 fmov.x %fp0,FP_SRC(%a6)
2624 # Result is now in FP0
2638 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2682 # Result is now in FP0
2700 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2707 fmov.s 0x8(%a6),%fp0 # load sgl input
2708 fmov.x %fp0,FP_SRC(%a6)
2743 # Result is now in FP0
2757 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2764 fmov.d 0x8(%a6),%fp0 # load dbl input
2765 fmov.x %fp0,FP_SRC(%a6)
2801 # Result is now in FP0
2815 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2859 # Result is now in FP0
2877 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2884 fmov.s 0x8(%a6),%fp0 # load sgl input
2885 fmov.x %fp0,FP_SRC(%a6)
2920 # Result is now in FP0
2934 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
2941 fmov.d 0x8(%a6),%fp0 # load dbl input
2942 fmov.x %fp0,FP_SRC(%a6)
2978 # Result is now in FP0
2992 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3036 # Result is now in FP0
3054 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3061 fmov.s 0x8(%a6),%fp0 # load sgl input
3062 fmov.x %fp0,FP_SRC(%a6)
3097 # Result is now in FP0
3111 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3118 fmov.d 0x8(%a6),%fp0 # load dbl input
3119 fmov.x %fp0,FP_SRC(%a6)
3155 # Result is now in FP0
3169 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3213 # Result is now in FP0
3231 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3238 fmov.s 0x8(%a6),%fp0 # load sgl input
3239 fmov.x %fp0,FP_SRC(%a6)
3274 # Result is now in FP0
3288 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3295 fmov.d 0x8(%a6),%fp0 # load dbl input
3296 fmov.x %fp0,FP_SRC(%a6)
3332 # Result is now in FP0
3346 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3390 # Result is now in FP0
3408 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3415 fmov.s 0x8(%a6),%fp0 # load sgl input
3416 fmov.x %fp0,FP_SRC(%a6)
3451 # Result is now in FP0
3465 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3472 fmov.d 0x8(%a6),%fp0 # load dbl input
3473 fmov.x %fp0,FP_SRC(%a6)
3509 # Result is now in FP0
3523 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3567 # Result is now in FP0
3585 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3592 fmov.s 0x8(%a6),%fp0 # load sgl input
3593 fmov.x %fp0,FP_SRC(%a6)
3628 # Result is now in FP0
3642 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3649 fmov.d 0x8(%a6),%fp0 # load dbl input
3650 fmov.x %fp0,FP_SRC(%a6)
3686 # Result is now in FP0
3700 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3744 # Result is now in FP0
3762 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3769 fmov.s 0x8(%a6),%fp0 # load sgl input
3770 fmov.x %fp0,FP_SRC(%a6)
3805 # Result is now in FP0
3819 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3826 fmov.d 0x8(%a6),%fp0 # load dbl input
3827 fmov.x %fp0,FP_SRC(%a6)
3863 # Result is now in FP0
3877 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3921 # Result is now in FP0
3939 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
3946 fmov.s 0x8(%a6),%fp0 # load sgl input
3947 fmov.x %fp0,FP_SRC(%a6)
3982 # Result is now in FP0
3996 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4003 fmov.d 0x8(%a6),%fp0 # load dbl input
4004 fmov.x %fp0,FP_SRC(%a6)
4040 # Result is now in FP0
4054 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4098 # Result is now in FP0
4116 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4123 fmov.s 0x8(%a6),%fp0 # load sgl input
4124 fmov.x %fp0,FP_SRC(%a6)
4159 # Result is now in FP0
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
4182 fmov.d 0x8(%a6),%fp0 # load dbl input
4183 fmov.x %fp0,FP_SRC(%a6)
4219 # Result is now in FP0
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
4279 # Result is now in FP0
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
4306 fmov.s 0x8(%a6),%fp0 # load sgl dst
4307 fmov.x %fp0,FP_DST(%a6)
4312 fmov.s 0xc(%a6),%fp0 # load sgl src
4313 fmov.x %fp0,FP_SRC(%a6)
4351 # Result is now in FP0
4365 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4372 fmov.d 0x8(%a6),%fp0 # load dbl dst
4373 fmov.x %fp0,FP_DST(%a6)
4378 fmov.d 0x10(%a6),%fp0 # load dbl src
4379 fmov.x %fp0,FP_SRC(%a6)
4417 # Result is now in FP0
4431 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4485 # Result is now in FP0
4503 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4510 fmov.s 0x8(%a6),%fp0 # load sgl dst
4511 fmov.x %fp0,FP_DST(%a6)
4516 fmov.s 0xc(%a6),%fp0 # load sgl src
4517 fmov.x %fp0,FP_SRC(%a6)
4555 # Result is now in FP0
4569 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4576 fmov.d 0x8(%a6),%fp0 # load dbl dst
4577 fmov.x %fp0,FP_DST(%a6)
4582 fmov.d 0x10(%a6),%fp0 # load dbl src
4583 fmov.x %fp0,FP_SRC(%a6)
4621 # Result is now in FP0
4635 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4689 # Result is now in FP0
4707 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4714 fmov.s 0x8(%a6),%fp0 # load sgl dst
4715 fmov.x %fp0,FP_DST(%a6)
4720 fmov.s 0xc(%a6),%fp0 # load sgl src
4721 fmov.x %fp0,FP_SRC(%a6)
4759 # Result is now in FP0
4773 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4780 fmov.d 0x8(%a6),%fp0 # load dbl dst
4781 fmov.x %fp0,FP_DST(%a6)
4786 fmov.d 0x10(%a6),%fp0 # load dbl src
4787 fmov.x %fp0,FP_SRC(%a6)
4825 # Result is now in FP0
4839 fmovm.x &0xc0,EXC_FP0(%a6) # save fp0/fp1
4893 # Result is now in FP0
4915 # fp0 = sin(X) or cos(X) #
4918 # fp0 = sin(X) #
5037 fmov.x (%a0),%fp0 # LOAD INPUT
5038 fmov.x %fp0,X(%a6) # save input at X
5057 fmov.x %fp0,%fp1
5070 fsub.x (%a1)+,%fp0 # X-Y1
5071 fsub.s (%a1),%fp0 # fp0 = R = (X-Y1)-Y2
5094 fmov.x %fp0,X(%a6) # X IS R
5095 fmul.x %fp0,%fp0 # FP0 IS S
5100 fmov.x %fp0,%fp1
5122 fmul.x %fp0,%fp2 # S(A2+T(A4+TA6))
5124 fmul.x X(%a6),%fp0 # R'*S
5128 fmul.x %fp1,%fp0 # SIN(R')-R'
5133 fadd.x X(%a6),%fp0 # last inst - possible exception set
5148 fmul.x %fp0,%fp0 # FP0 IS S
5153 fmov.x %fp0,%fp1
5156 fmov.x %fp0,X(%a6) # X IS S
5186 fmul.x %fp2,%fp0 # S(B2+T(B4+T(B6+TB8)))
5188 fadd.x %fp1,%fp0
5190 fmul.x X(%a6),%fp0
5195 fadd.s POSNEG1(%a6),%fp0 # last inst - possible exception set
5219 fmov.x X(%a6),%fp0 # last inst - possible exception set
5223 fmov.s &0x3F800000,%fp0 # fp0 = 1.0
5225 fadd.s &0x80800000,%fp0 # last inst - possible exception set
5238 fmov.s &0x3F800000,%fp0 # fp0 = 1.0
5248 fmov.x (%a0),%fp0 # LOAD INPUT
5249 fmov.x %fp0,X(%a6)
5268 fmov.x %fp0,%fp1
5280 fsub.x (%a1)+,%fp0 # X-Y1
5281 fsub.s (%a1),%fp0 # FP0 IS R = (X-Y1)-Y2
5295 fmov.x %fp0,RPRIME(%a6)
5296 fmul.x %fp0,%fp0 # FP0 IS S = R*R
5299 fmul.x %fp0,%fp1 # SA7
5300 fmul.x %fp0,%fp2 # SB8
5312 fmul.x %fp0,%fp1 # S(A6+SA7)
5315 fmul.x %fp0,%fp2 # S(B7+SB8)
5324 fmul.x %fp0,%fp1 # S(A5+S(A6+SA7))
5325 fmul.x %fp0,%fp2 # S(B6+S(B7+SB8))
5326 fmov.x %fp0,SPRIME(%a6)
5332 fmul.x %fp0,%fp1 # S(A4+...)
5333 fmul.x %fp0,%fp2 # S(B5+...)
5338 fmul.x %fp0,%fp1 # S(A3+...)
5339 fmul.x %fp0,%fp2 # S(B4+...)
5344 fmul.x %fp0,%fp1 # S(A2+...)
5345 fmul.x %fp0,%fp2 # S(B3+...)
5350 fmul.x %fp0,%fp1 # S(A1+...)
5351 fmul.x %fp2,%fp0 # S(B2+...)
5354 fadd.s COSB1(%pc),%fp0 # B1+S(B2...)
5355 fmul.x SPRIME(%a6),%fp0 # S'(B1+S(B2+...))
5362 fadd.s POSNEG1(%a6),%fp0 # SIN(X)
5369 fmov.x %fp0,RPRIME(%a6)
5370 fmul.x %fp0,%fp0 # FP0 IS S = R*R
5375 fmul.x %fp0,%fp1 # SB8
5376 fmov.x %fp0,SPRIME(%a6)
5377 fmul.x %fp0,%fp2 # SA7
5388 fmul.x %fp0,%fp1 # S(B7+SB8)
5393 fmul.x %fp0,%fp2 # S(A6+SA7)
5398 fmul.x %fp0,%fp1 # S(B6+S(B7+SB8))
5399 fmul.x %fp0,%fp2 # S(A5+S(A6+SA7))
5404 fmul.x %fp0,%fp1 # S(B5+...)
5405 fmul.x %fp0,%fp2 # S(A4+...)
5410 fmul.x %fp0,%fp1 # S(B4+...)
5411 fmul.x %fp0,%fp2 # S(A3+...)
5416 fmul.x %fp0,%fp1 # S(B3+...)
5417 fmul.x %fp0,%fp2 # S(A2+...)
5422 fmul.x %fp0,%fp1 # S(B2+...)
5423 fmul.x %fp2,%fp0 # s(a1+...)
5427 fmul.x RPRIME(%a6),%fp0 # R'S(A1+...)
5435 fadd.x RPRIME(%a6),%fp0 # SIN(X)
5455 fmov.x X(%a6),%fp0
5496 ftest.x %fp0 # test sign of argument
5502 fadd.x FP_SCR0(%a6),%fp0 # high part of reduction is exact
5503 fmov.x %fp0,%fp1 # save high result in fp1
5504 fadd.x FP_SCR1(%a6),%fp0 # low part of reduction
5505 fsub.x %fp0,%fp1 # determine low component of result
5506 fadd.x FP_SCR1(%a6),%fp1 # fp0/fp1 are reduced argument.
5508 #--ON ENTRY, FP0 IS X, ON RETURN, FP0 IS X REM PI/2, |X| <= PI/4.
5510 #--Intermeditate remainder is 66-bit long; (R,r) in (FP0,FP1)
5512 fmov.x %fp0,INARG(%a6) # +-2**K * F, 1 <= F < 2
5541 fmov.x %fp0,%fp2
5586 fsub.x %fp3,%fp0 # fp0 = A := R - P
5589 fmov.x %fp0,%fp3 # fp3 = A
5594 fadd.x %fp1,%fp0 # fp0 = R := A+a
5600 fsub.x %fp0,%fp3 # fp3 = A-R
5624 # fp0 = tan(X) #
5769 fmov.x (%a0),%fp0 # LOAD INPUT
5786 fmov.x %fp0,%fp1
5796 fsub.x (%a1)+,%fp0 # X-Y1
5798 fsub.s (%a1),%fp0 # FP0 IS R = (X-Y1)-Y2
5809 fmov.x %fp0,%fp1
5831 fmul.x %fp0,%fp2 # RS(P1+S(P2+SP3))
5835 fadd.x %fp2,%fp0 # R+RS(P1+S(P2+SP3))
5842 fdiv.x %fp1,%fp0 # last inst - possible exception set
5846 fmov.x %fp0,%fp1
5847 fmul.x %fp0,%fp0 # S = R*R
5852 fmul.x %fp0,%fp3 # SQ4
5853 fmul.x %fp0,%fp2 # SP3
5858 fmul.x %fp0,%fp3 # S(Q3+SQ4)
5859 fmul.x %fp0,%fp2 # S(P2+SP3)
5864 fmul.x %fp0,%fp3 # S(Q2+S(Q3+SQ4))
5865 fmul.x %fp0,%fp2 # S(P1+S(P2+SP3))
5870 fmul.x %fp3,%fp0 # S(Q1+S(Q2+S(Q3+SQ4)))
5873 fadd.s &0x3F800000,%fp0 # 1+S(Q1+...)
5881 fdiv.x (%sp)+,%fp0 # last inst - possible exception set
5891 fmov.x %fp0,-(%sp)
5894 fmov.x (%sp)+,%fp0 # last inst - posibble exception set
5927 ftest.x %fp0 # test sign of argument
5933 fadd.x FP_SCR0(%a6),%fp0 # high part of reduction is exact
5934 fmov.x %fp0,%fp1 # save high result in fp1
5935 fadd.x FP_SCR1(%a6),%fp0 # low part of reduction
5936 fsub.x %fp0,%fp1 # determine low component of result
5937 fadd.x FP_SCR1(%a6),%fp1 # fp0/fp1 are reduced argument.
5939 #--ON ENTRY, FP0 IS X, ON RETURN, FP0 IS X REM PI/2, |X| <= PI/4.
5941 #--Intermeditate remainder is 66-bit long; (R,r) in (FP0,FP1)
5943 fmov.x %fp0,INARG(%a6) # +-2**K * F, 1 <= F < 2
5972 fmov.x %fp0,%fp2
6017 fsub.x %fp3,%fp0 # fp0 = A := R - P
6020 fmov.x %fp0,%fp3 # fp3 = A
6025 fadd.x %fp1,%fp0 # fp0 = R := A+a
6031 fsub.x %fp0,%fp3 # fp3 = A-R
6054 # fp0 = arctan(X) #
6251 fmov.x (%a0),%fp0 # LOAD INPUT
6255 fmov.x %fp0,X(%a6)
6294 fmov.x %fp0,%fp1 # FP1 IS X
6296 fsub.x X(%a6),%fp0 # FP0 IS X-F
6298 fdiv.x %fp1,%fp0 # FP0 IS U = (X-F)/(1+X*F)
6325 #--U IN FP0, WE ARE NOW READY TO COMPUTE ATAN(U) AS
6335 fmov.x %fp0,%fp1
6340 fmul.x %fp0,%fp1 # U*V
6344 fadd.x %fp1,%fp0 # ATAN(U), FP1 RELEASED
6349 fadd.x ATANF(%a6),%fp0 # ATAN(X)
6354 #--FP0 IS X AND |X| <= 1/16 OR |X| >= 16.
6371 fmul.x %fp0,%fp0 # FPO IS Y = X*X
6373 fmov.x %fp0,%fp1
6391 fmul.x %fp0,%fp2 # Y*(B2+Z*(B4+Z*B6))
6392 fmul.x X(%a6),%fp0 # X*Y
6396 fmul.x %fp1,%fp0 # X*Y*([B1+Z*(B3+Z*B5)]+[Y*(B2+Z*(B4+Z*B6))])
6401 fadd.x X(%a6),%fp0
6409 fmov.x X(%a6),%fp0 # last inst - possible exception set
6427 fdiv.x %fp0,%fp1 # FP1 IS -1/X
6431 fmov.x %fp1,%fp0 # FP0 IS X'
6432 fmul.x %fp0,%fp0 # FP0 IS Y = X'*X'
6435 fmov.x %fp0,%fp1
6448 fmul.x %fp0,%fp2 # Y*(C2+Z*C4)
6451 fmul.x X(%a6),%fp0 # X'*Y
6455 fmul.x %fp1,%fp0 # X'*Y*([B1+Z*(B3+Z*B5)]
6457 fadd.x X(%a6),%fp0
6466 fadd.x NPIBY2(%pc),%fp0
6470 fadd.x PPIBY2(%pc),%fp0
6479 fmov.x NPIBY2(%pc),%fp0
6481 fadd.x PTINY(%pc),%fp0
6485 fmov.x PPIBY2(%pc),%fp0
6487 fadd.x NTINY(%pc),%fp0
6504 # fp0 = arcsin(X) #
6533 fmov.x (%a0),%fp0 # LOAD INPUT
6554 fsub.x %fp0,%fp1 # 1-X
6557 fadd.x %fp0,%fp2 # 1+X
6561 fdiv.x %fp1,%fp0 # X/SQRT([1-X][1+X])
6569 fabs.x %fp0 # |X|
6570 fcmp.s %fp0,&0x3F800000
6575 fmov.x PIBY2(%pc),%fp0
6581 fmul.s (%sp)+,%fp0
6588 fmov.x (%a0),%fp0 # last inst - possible exception
6605 # fp0 = arccos(X) #
6634 fmov.x (%a0),%fp0 # LOAD INPUT
6647 fadd.x %fp0,%fp1 # 1+X
6648 fneg.x %fp0 # -X
6649 fadd.s &0x3F800000,%fp0 # 1-X
6650 fdiv.x %fp1,%fp0 # (1-X)/(1+X)
6651 fsqrt.x %fp0 # SQRT((1-X)/(1+X))
6660 fadd.x %fp0,%fp0 # 2 * ATAN( STUFF )
6664 fabs.x %fp0
6665 fcmp.s %fp0,&0x3F800000
6675 fmov.x PI(%pc),%fp0 # load PI
6677 fadd.s &0x00800000,%fp0 # add a small value
6687 fmov.x PIBY2(%pc),%fp0
6701 # fp0 = exp(X) or exp(X)-1 #
7130 fmov.x (%a0),%fp0 # load input from (a0)
7132 fmov.x %fp0,%fp1
7133 fmul.s &0x42B8AA3B,%fp0 # 64/log2 * X
7136 fmov.l %fp0,%d1 # N = int( X * 64/log2 )
7138 fmov.l %d1,%fp0 # convert to floating-format
7151 #--fp1,fp2 saved on the stack. fp0 is N, fp1 is X,
7153 fmov.x %fp0,%fp2
7154 fmul.s &0xBC317218,%fp0 # N * L1, L1 = lead(-log2/64)
7156 fadd.x %fp1,%fp0 # X + N*L1
7157 fadd.x %fp2,%fp0 # fp0 is R, reduced arg.
7165 fmov.x %fp0,%fp1
7185 fmul.x %fp0,%fp3 # fp3 IS R*S*(A2+S*A4)
7188 fadd.x %fp3,%fp0 # fp0 IS R+R*S*(A2+S*A4),
7191 fadd.x %fp2,%fp0 # fp0 is EXP(R) - 1
7197 fmul.x %fp1,%fp0 # 2^(J/64)*(Exp(R)-1)
7199 fadd.s (%a1),%fp0 # accurate 2^(J/64)
7201 fadd.x %fp1,%fp0 # 2^(J/64) + 2^(J/64)*...
7208 fmul.x ADJSCALE(%a6),%fp0
7212 fmul.x SCALE(%a6),%fp0 # multiply 2^(M)
7219 fadd.s &0x3F800000,%fp0 # 1+X in user mode
7227 fmov.x (%a0),%fp0 # load input from (a0)
7229 fmov.x %fp0,%fp1
7230 fmul.s &0x42B8AA3B,%fp0 # 64/log2 * X
7233 fmov.l %fp0,%d1 # N = int( X * 64/log2 )
7235 fmov.l %d1,%fp0 # convert to floating-format
7266 fmov.s &0x3F800000,%fp0
7269 fadd.s (%sp)+,%fp0
7295 fmov.x (%a0),%fp0 # load input from (a0)
7297 fmov.x %fp0,%fp1
7298 fmul.s &0x42B8AA3B,%fp0 # 64/log2 * X
7300 fmov.l %fp0,%d1 # N = int( X * 64/log2 )
7302 fmov.l %d1,%fp0 # convert to floating-format
7313 #--fp1,fp2 saved on the stack. fp0 is N, fp1 is X,
7315 fmov.x %fp0,%fp2
7316 fmul.s &0xBC317218,%fp0 # N * L1, L1 = lead(-log2/64)
7318 fadd.x %fp1,%fp0 # X + N*L1
7319 fadd.x %fp2,%fp0 # fp0 is R, reduced arg.
7328 fmov.x %fp0,%fp1
7358 fmul.x %fp0,%fp2 # fp2 IS R*S*(A2+S*(A4+S*A6))
7359 fadd.x %fp1,%fp0 # fp0 IS R+S*(A1+S*(A3+S*A5))
7361 fadd.x %fp2,%fp0 # fp0 IS EXP(R)-1
7368 fmul.x (%a1),%fp0 # 2^(J/64)*(Exp(R)-1)
7378 fadd.x %fp1,%fp0 # p+(t+OnebySc), fp1 released
7379 fadd.x (%a1),%fp0 # T+(p+(t+OnebySc))
7387 fadd.s 12(%a1),%fp0 # p+t
7388 fadd.x (%a1),%fp0 # T+(p+t)
7389 fadd.x ONEBYSC(%a6),%fp0 # OnebySc + (T+(p+t))
7394 fadd.s (%a1),%fp0 # fp0 is p+t
7396 fadd.x %fp1,%fp0 # (T+OnebySc)+(p+t)
7401 fmul.x SC(%a6),%fp0
7417 fmov.x (%a0),%fp0
7420 fadd.x SC(%a6),%fp0
7425 fmov.x (%a0),%fp0
7426 fmul.d TWO140(%pc),%fp0
7430 fadd.x SC(%a6),%fp0
7433 fmul.d TWON140(%pc),%fp0
7438 fmov.x (%a0),%fp0 # fp0 is X
7439 fmul.x %fp0,%fp0 # fp0 is S := X*X
7442 fmul.x %fp0,%fp1 # fp1 is S*B12
7446 fmul.x %fp0,%fp2 # fp2 is S*B11
7447 fmul.x %fp0,%fp1 # fp1 is S*(B10 + ...
7452 fmul.x %fp0,%fp2 # fp2 is S*(B9+...
7453 fmul.x %fp0,%fp1 # fp1 is S*(B8+...
7458 fmul.x %fp0,%fp2 # fp2 is S*(B7+...
7459 fmul.x %fp0,%fp1 # fp1 is S*(B6+...
7464 fmul.x %fp0,%fp2 # fp2 is S*(B5+...
7465 fmul.x %fp0,%fp1 # fp1 is S*(B4+...
7470 fmul.x %fp0,%fp2 # fp2 is S*(B3+...
7471 fmul.x %fp0,%fp1 # fp1 is S*(B2+...
7473 fmul.x %fp0,%fp2 # fp2 is S*S*(B3+...)
7476 fmul.s &0x3F000000,%fp0 # fp0 is S*B1
7481 fadd.x %fp1,%fp0 # fp0 is S*B1+Q
7484 fadd.x (%a0),%fp0
7493 fmov.s &0xBF800000,%fp0 # fp0 is -1
7495 fadd.s &0x00800000,%fp0 # -1 + 2^(-126)
7507 # returned as an extended precision number in fp0. #
7512 # an exponent of $3fff and is returned in fp0. The range of #
7520 # fp0 = exponent(X) or mantissa(X) #
7529 fmov.w %d0,%fp0 # return exp in fp0
7542 fmov.w %d0,%fp0 # return exp in fp0
7556 fmov.x FP_SCR0(%a6),%fp0 # put new value back in fp0
7582 # fp0 = cosh(X) #
7624 fmov.x (%a0),%fp0 # LOAD INPUT
7635 fabs.x %fp0 # |X|
7641 bsr setox # FP0 IS EXP(|X|)
7643 fmul.s &0x3F000000,%fp0 # (1/2)EXP(|X|)
7647 fdiv.x %fp0,%fp1 # 1/(2 EXP(|X|))
7651 fadd.x %fp1,%fp0
7658 fabs.x %fp0
7659 fsub.d T1(%pc),%fp0 # (|X|-16381LOG2_LEAD)
7660 fsub.d T2(%pc),%fp0 # |X| - 16381 LOG2, ACCURATE
7664 fmovm.x &0x01,-(%sp) # save fp0 to stack
7665 lea (%sp),%a0 # pass ptr to fp0
7667 add.l &0xc,%sp # clear fp0 from stack
7672 fmul.x TWO16380(%pc),%fp0
7681 fmov.s &0x3F800000,%fp0
7684 fadd.s &0x00800000,%fp0
7696 # fp0 = sinh(X) #
7736 fmov.x (%a0),%fp0 # LOAD INPUT
7748 fabs.x %fp0 # Y = |X|
7754 bsr setoxm1 # FP0 IS Z = EXPM1(Y)
7759 fmov.x %fp0,%fp1
7761 fmov.x %fp0,-(%sp)
7762 fdiv.x %fp1,%fp0 # Z/(1+Z)
7766 fadd.x (%sp)+,%fp0
7771 fmul.s (%sp)+,%fp0 # last fp inst - possible exceptions set
7777 fabs.x %fp0
7778 fsub.d T1(%pc),%fp0 # (|X|-16381LOG2_LEAD)
7785 fsub.d T2(%pc),%fp0 # |X| - 16381 LOG2, ACCURATE
7789 fmovm.x &0x01,-(%sp) # save fp0 on stack
7790 lea (%sp),%a0 # pass ptr to fp0
7792 add.l &0xc,%sp # clear fp0 from stack
7797 fmul.x (%sp)+,%fp0 # possible exception
7814 # fp0 = tanh(X) #
7861 fmov.x (%a0),%fp0 # LOAD INPUT
7863 fmov.x %fp0,X(%a6)
7882 fmov.x X(%a6),%fp0 # FP0 IS Y = 2|X|
7888 bsr setoxm1 # FP0 IS Z = EXPM1(Y)
7892 fmov.x %fp0,%fp1
7899 fdiv.x V(%a6),%fp0
7920 fmov.x X(%a6),%fp0 # Y = 2|X|
7926 bsr setox # FP0 IS EXP(Y)
7930 fadd.s &0x3F800000,%fp0 # EXP(Y)+1
7934 fdiv.x %fp0,%fp1 # -SIGN(X)2 / [EXP(Y)+1 ]
7938 fmov.s %d1,%fp0 # SGN IN SGL FMT
7942 fadd.x %fp1,%fp0
7948 fmov.x X(%a6),%fp0 # last inst - possible exception set
7956 fmov.s %d1,%fp0
7961 fadd.s %d1,%fp0
7980 # fp0 = log(X) or log(1+X) #
8223 fmov.x (%a0),%fp0 # LOAD INPUT
8227 #--FPCR SAVED AND CLEARED, INPUT IS 2^(ADJK)*FP0, FP0 CONTAINS
8277 fmov.x X(%a6),%fp0
8280 fsub.x F(%a6),%fp0 # Y-F
8281 fmovm.x &0xc,-(%sp) # SAVE FP2-3 WHILE FP0 IS NOT READY
8282 #--SUMMARY: FP0 IS Y-F, A0 IS ADDRESS OF 1/F, FP1 IS K
8287 fmul.x (%a0),%fp0 # FP0 IS U = (Y-F)/F
8288 fmul.x LOGOF2(%pc),%fp1 # GET K*LOG2 WHILE FP0 IS NOT READY
8289 fmov.x %fp0,%fp2
8316 fmul.x %fp0,%fp1 # U*V*(A2+V*(A4+V*A6))
8317 fadd.x %fp2,%fp0 # U+V*(A1+V*(A3+V*A5))
8321 fadd.x %fp1,%fp0 # FP0 IS LOG(F) + LOG(1+U)
8324 fadd.x KLOG2(%a6),%fp0 # FINAL ADD
8333 fcmp.b %fp0,&0x1 # is it equal to one?
8336 #--REGISTERS SAVED: FPCR, FP1. FP0 CONTAINS THE INPUT.
8337 fmov.x %fp0,%fp1
8339 fadd.s one(%pc),%fp0 # FP0 IS X+1
8342 #--IN U, U = 2(X-1)/(X+1) = FP1/FP0
8346 fdiv.x %fp0,%fp1 # FP1 IS U
8352 fmov.x %fp1,%fp0
8353 fmul.x %fp0,%fp0 # FP0 IS V
8355 fmov.x %fp0,%fp1
8369 fmul.x %fp0,%fp2 # V*(B2+W*B4)
8372 fmul.x SAVEU(%a6),%fp0 # FP0 IS U*V
8377 fmul.x %fp1,%fp0 # U*V*( [B1+W*(B3+W*B5)] + [V*(B2+W*B4)] )
8380 fadd.x SAVEU(%a6),%fp0
8391 mov.l &-100,ADJK(%a6) # INPUT = 2^(ADJK) * FP0
8421 fmov.x X(%a6),%fp0
8443 fmov.x X(%a6),%fp0
8451 fmov.x (%a0),%fp0 # LOAD INPUT
8452 fabs.x %fp0 # test magnitude
8453 fcmp.x %fp0,LTHOLD(%pc) # compare with min threshold
8457 fmov.x (%a0),%fp0 # return signed argument
8461 fmov.x (%a0),%fp0 # LOAD INPUT
8463 fmov.x %fp0,%fp1 # FP1 IS INPUT Z
8464 fadd.s one(%pc),%fp0 # X := ROUND(1+Z)
8465 fmov.x %fp0,X(%a6)
8489 fadd.s one(%pc),%fp0 # FP0 IS 1+X
8490 #--U = FP1/FP0
8501 #--(1/F) IN A0, Y-F IN FP0, AND FP2 SAVED.
8510 fmov.s TWO(%pc),%fp0
8513 fsub.x F(%a6),%fp0 # 2-F
8521 fadd.x %fp1,%fp0 # FP0 IS Y-F = (2-F)+2Z
8528 fmov.s one(%pc),%fp0
8531 fsub.x F(%a6),%fp0 # 1-F
8537 fadd.x %fp1,%fp0 # FP0 IS Y-F
8549 fmov.s negone(%pc),%fp0
8555 fmov.s zero(%pc),%fp0
8575 # fp0 = arctanh(X) #
8619 fabs.x (%a0),%fp0 # Y = |X|
8620 fmov.x %fp0,%fp1
8622 fadd.x %fp0,%fp0 # 2Y
8624 fdiv.x %fp1,%fp0 # 2Y/(1-Y)
8640 fmul.s (%sp)+,%fp0
8644 fabs.x (%a0),%fp0 # |X|
8645 fcmp.s %fp0,&0x3F800000
8665 # fp0 = log_10(X) or log_2(X) #
8748 fmov.b &0x1,%fp0
8749 fcmp.x %fp0,(%a0) # if operand == 1,
8758 fmul.x INV_L10(%pc),%fp0
8770 fmul.x INV_L10(%pc),%fp0
8792 fmov.l %d1,%fp0
8800 fmul.x INV_L2(%pc),%fp0
8815 fmul.x INV_L2(%pc),%fp0
8829 # fp0 = 2**X or 10**X #
8999 fmov.x %fp0,X(%a6)
9014 fmov.x %fp0,%fp1
9044 fsub.x %fp1,%fp0 # X - (1/64)*INT(64 X)
9050 fmul.x LOG2(%pc),%fp0 # FP0 IS R
9063 fadd.s &0x3F800000,%fp0 # RETURN 1 + X
9083 fmov.s &0x3F800000,%fp0 # RETURN 1 + X
9086 fadd.s %d1,%fp0
9096 fmov.x %fp0,X(%a6)
9111 fmov.x %fp0,%fp1
9143 fsub.x %fp1,%fp0 # X - N L_LEAD
9146 fsub.x %fp2,%fp0 # X - N L_TRAIL
9152 fmul.x LOG10(%pc),%fp0 # FP0 IS R
9159 #--FP0 IS R. THE FOLLOWING CODE COMPUTES
9162 fmov.x %fp0,%fp1
9178 fmul.x %fp0,%fp3 # FP3 IS R*S*(A2+S*A4)
9181 fadd.x %fp3,%fp0 # FP0 IS R+R*S*(A2+S*A4)
9182 fadd.x %fp2,%fp0 # FP0 IS EXP(R) - 1
9189 fmul.x FACT1(%a6),%fp0
9190 fadd.x FACT2(%a6),%fp0
9191 fadd.x FACT1(%a6),%fp0
9199 fmul.x ADJFACT(%a6),%fp0 # FINAL ADJUSTMENT
9207 fmov.s &0x3F800000,%fp0 # RETURN 1 + X
9210 fadd.s %d1,%fp0
9223 # fp0 = scale(X,Y) #
9248 fintrz.x SRC(%a0),%fp0 # calc int of src
9249 fmov.l %fp0,%d0 # int src to d0
9304 fmovm.x DST(%a1),&0x80 # load fp0 with normalized src
9317 fmul.x (%sp)+,%fp0 # do the multiply
9342 fmov.x DST(%a1),%fp0 # simply return dest
9362 # fp0 = FREM(X,Y) or FMOD(X,Y) #
9638 fmov.x R(%a6),%fp0 # no exception
9649 fmov.x R(%a6),%fp0
9677 fsub.x Y(%a6),%fp0 # no exceptions
9685 fneg.x %fp0
9711 fmul.x Scale(%pc),%fp0 # may cause underflow
9715 # algorithm just got done playing with fp0 and expected no exceptions
9722 fmov.x %fp0,%fp0 # capture exceptions & round
9738 fmov.s &0x00000000,%fp0
9843 # fp0 = default DZ result. #
9850 # in fp0 while fp1 is used to create a DZ exception so that the #
9868 fmov.s &0xff800000,%fp0 # return -INF
9872 # but use fp1 instead. return the dst operand unscathed in fp0.
9874 fmovm.x EXC_FP0(%a6),&0x80 # return fp0 unscathed
9887 fmov.s &0x7f800000,%fp0 # return +INF
9891 # but use fp1 instead. return the dst operand unscathed in fp0.
9893 fmovm.x EXC_FP0(%a6),&0x80 # return fp0 unscathed
9912 # fp0 = default result #
9918 # in fp0. If OPERR is enabled, return the dst operand unscathed in fp0 #
9931 # operr is disabled. return a QNAN in fp0
9936 # but use fp2 instead. return the dst operand unscathed in fp0.
9938 fmovm.x EXC_FP0(%a6),&0x80 # return fp0 unscathed
9970 # fp0 = default underflow result #
9991 fmul.x pls_tiny(%pc),%fp0
10002 fmul.x %fp0,%fp0
10027 # fp0 = default underflow result #
10082 fmul.x pls_huge(%pc),%fp0
10092 fmul.x pls_huge(%pc),%fp0
10104 fmul.x pls_huge(%pc),%fp0
10124 # fp0 = default underflow or overflow result #
10127 # fp0 = default result #
10158 # fp0 = default result #
10161 # fp0 = default result #
10216 # fp0 = default result #
10229 fmov.x SRC_EX(%a0),%fp0
10238 fmov.x SRC_EX(%a0),%fp0
10248 # values are already in fp0 and fp1 so we do nothing here.
10261 fmov.x DST(%a1),%fp0
10276 fmov.x SRC(%a0),%fp0
10299 fmov.s 0x8(%sp),%fp0 # load sgl dst
10301 fadd.s 0x8(%sp),%fp0 # fadd w/ sgl src
10308 fmov.d 0x8(%sp),%fp0 # load dbl dst
10310 fadd.d 0xc(%sp),%fp0 # fadd w/ dbl src
10316 fadd.x 0x10(%sp),%fp0 # fadd w/ ext src
10323 fmov.s 0x8(%sp),%fp0 # load sgl dst
10325 fsub.s 0x8(%sp),%fp0 # fsub w/ sgl src
10332 fmov.d 0x8(%sp),%fp0 # load dbl dst
10334 fsub.d 0xc(%sp),%fp0 # fsub w/ dbl src
10340 fsub.x 0x10(%sp),%fp0 # fsub w/ ext src
10347 fmov.s 0x8(%sp),%fp0 # load sgl dst
10349 fmul.s 0x8(%sp),%fp0 # fmul w/ sgl src
10356 fmov.d 0x8(%sp),%fp0 # load dbl dst
10358 fmul.d 0xc(%sp),%fp0 # fmul w/ dbl src
10364 fmul.x 0x10(%sp),%fp0 # fmul w/ ext src
10371 fmov.s 0x8(%sp),%fp0 # load sgl dst
10373 fdiv.s 0x8(%sp),%fp0 # fdiv w/ sgl src
10380 fmov.d 0x8(%sp),%fp0 # load dbl dst
10382 fdiv.d 0xc(%sp),%fp0 # fdiv w/ dbl src
10388 fdiv.x 0x10(%sp),%fp0 # fdiv w/ ext src
10393 fabs.s 0x4(%sp),%fp0 # fabs w/ sgl src
10398 fabs.d 0x4(%sp),%fp0 # fabs w/ dbl src
10403 fabs.x 0x4(%sp),%fp0 # fabs w/ ext src
10408 fneg.s 0x4(%sp),%fp0 # fneg w/ sgl src
10413 fneg.d 0x4(%sp),%fp0 # fneg w/ dbl src
10418 fneg.x 0x4(%sp),%fp0 # fneg w/ ext src
10423 fsqrt.s 0x4(%sp),%fp0 # fsqrt w/ sgl src
10428 fsqrt.d 0x4(%sp),%fp0 # fsqrt w/ dbl src
10433 fsqrt.x 0x4(%sp),%fp0 # fsqrt w/ ext src
10438 fint.s 0x4(%sp),%fp0 # fint w/ sgl src
10443 fint.d 0x4(%sp),%fp0 # fint w/ dbl src
10448 fint.x 0x4(%sp),%fp0 # fint w/ ext src
10453 fintrz.s 0x4(%sp),%fp0 # fintrz w/ sgl src
10458 fintrz.d 0x4(%sp),%fp0 # fintrx w/ dbl src
10463 fintrz.x 0x4(%sp),%fp0 # fintrz w/ ext src
10481 fmov.s &0x00000000,%fp0 # load +0
10488 fmov.s &0x80000000,%fp0 # load -0
10514 fmov.s &0x7f800000,%fp0 # load +INF
10523 fmov.s &0xff800000,%fp0 # load -INF
10582 fmov.s &0x3f800000,%fp0 # load +1
10591 fmov.s &0xbf800000,%fp0 # load -1
10612 fmov.x ppiby2(%pc),%fp0 # load +pi/2
10621 fmov.x mpiby2(%pc),%fp0 # load -pi/2
10630 # cosine register and return a ZERO in fp0 w/ the same sign
10638 fmov.s &0x80000000,%fp0 # return sin result in fp0
10642 fmov.s &0x00000000,%fp0 # return sin result in fp0
10732 fmov.x DST(%a1),%fp0
Indexes created Fri Oct 17 23:09:53 GMT 2025