diff options
Diffstat (limited to 'areals.asm')
| -rw-r--r-- | areals.asm | 8967 |
1 files changed, 8967 insertions, 0 deletions
diff --git a/areals.asm b/areals.asm new file mode 100644 index 0000000..73cfafb --- /dev/null +++ b/areals.asm @@ -0,0 +1,8967 @@ + +_TEXT segment para 'CODE' +_TEXT ends +_DATA segment para 'DATA' +_DATA ends + + _TEXT segment + + public sin_real + +sin_real: + ucomisd xmm0,qword ptr real_pi_d_4 + jbe sin_real_1 ; x<=pi/4 | NAN + ucomisd xmm0,qword ptr real_3_pi_d_4 + jbe sin_real_2 + ucomisd xmm0,qword ptr real_5_pi_d_4 + jbe sin_real_3 + ucomisd xmm0,qword ptr real_7_pi_d_4 + jbe sin_real_4 + ucomisd xmm0,qword ptr real_9_pi_d_4 + jbe sin_real_5 + + ucomisd xmm0,qword ptr real_36825084_pi + jbe sin_real_0 + + ucomisd xmm0,qword ptr real_2_p_53 + jae sin_cos_or_tan_real_too_large ; x>=-2^53 + + call rem_36825084_pi + + movlpd xmm2,qword ptr real_pi_d_4_26 + movlpd xmm3,qword ptr real_pi_d_4_26_26 + movlpd xmm13,qword ptr real_pi_d_4_52_l + + mulsd xmm2,xmm1 + mulsd xmm3,xmm1 + mulsd xmm13,xmm1 + + andpd xmm5,xmm1 + andpd xmm6,xmm1 + + subsd xmm13,xmm7 + jmp sin_real_0_ + +sin_real_0: + movlpd xmm1,qword ptr real_4_d_pi + + mulsd xmm1,xmm0 ; x*4/pi + + movq xmm4,qword ptr round_even_c + + addsd xmm1,qword ptr real_1_0 ; x*4/pi+1 + + movq xmm2,xmm1 + psrlq xmm1,52 + psubq xmm4,xmm1 + + movq xmm1,qword ptr mask_all_one + psllq xmm1,xmm4 + andpd xmm1,xmm2 ; round_even (x*4/pi+1) + + movlpd xmm2,qword ptr real_pi_d_4_26 + movlpd xmm3,qword ptr real_pi_d_4_26_26 + movlpd xmm13,qword ptr real_pi_d_4_52_l + + movq xmm5,qword ptr mask_all_one_except_last + psllq xmm5,xmm4 + movq xmm6,qword ptr mask_all_one_except_second_last + psllq xmm6,xmm4 + + mulsd xmm2,xmm1 + mulsd xmm3,xmm1 + mulsd xmm13,xmm1 + + andpd xmm5,xmm1 + andpd xmm6,xmm1 + +sin_real_0_: + ucomisd xmm1,xmm5 + jne sin_real_cos + +sin_real_sin: + ucomisd xmm1,xmm6 + jne sin_real_n_sin + + subsd xmm0,xmm2 + subsd xmm0,xmm3 + + jmp sin_real_p + +sin_real_n_sin: + movsd xmm1,xmm3 + subsd xmm0,xmm2 + subsd xmm1,xmm0 + jmp sin_real_m + +sin_real_cos: + subsd xmm0,xmm2 + subsd xmm0,xmm3 + + ucomisd xmm1,xmm6 + je cos_real_p + jmp cos_real_m + +sin_real_n: + ucomisd xmm0,qword ptr real_m_3_pi_d_4 + jae sin_real_n_2 + ucomisd xmm0,qword ptr real_m_5_pi_d_4 + jae sin_real_n_3 + ucomisd xmm0,qword ptr real_m_7_pi_d_4 + jae sin_real_n_4 + ucomisd xmm0,qword ptr real_m_9_pi_d_4 + jae sin_real_n_5 + + ucomisd xmm0,qword ptr real_m_36825084_pi + jae sin_real_n_0 + + ucomisd xmm0,qword ptr real_m_2_p_53 + jbe sin_cos_or_tan_real_too_small_or_nan ; x<=-2^53 | NAN + + call rem_n_36825084_pi + + movlpd xmm2,qword ptr real_pi_d_4_26 + movlpd xmm3,qword ptr real_pi_d_4_26_26 + movlpd xmm13,qword ptr real_pi_d_4_52_l + + mulsd xmm2,xmm1 + mulsd xmm3,xmm1 + mulsd xmm13,xmm1 + + andpd xmm5,xmm1 + andpd xmm6,xmm1 + + subsd xmm13,xmm7 + jmp sin_real_n_0_ + +sin_real_n_0: + movlpd xmm1,qword ptr real_4_d_pi + + mulsd xmm1,xmm0 ; x*4/pi + + movq xmm4,qword ptr m_round_even_c + + subsd xmm1,qword ptr real_1_0 ; x*4/pi-1 + + movq xmm2,xmm1 + psrlq xmm1,52 + psubq xmm4,xmm1 + + movq xmm1,qword ptr mask_all_one + psllq xmm1,xmm4 + andpd xmm1,xmm2 ; round_even (x*4/pi-1) + + movlpd xmm2,qword ptr real_pi_d_4_26 + movlpd xmm3,qword ptr real_pi_d_4_26_26 + movlpd xmm13,qword ptr real_pi_d_4_52_l + + movq xmm5,qword ptr mask_all_one_except_last + psllq xmm5,xmm4 + movq xmm6,qword ptr mask_all_one_except_second_last + psllq xmm6,xmm4 + + mulsd xmm2,xmm1 + mulsd xmm3,xmm1 + mulsd xmm13,xmm1 + + andpd xmm5,xmm1 + andpd xmm6,xmm1 + +sin_real_n_0_: + ucomisd xmm1,xmm5 + je sin_real_sin + + subsd xmm0,xmm2 + subsd xmm0,xmm3 + + ucomisd xmm1,xmm6 + jne cos_real_p + jmp cos_real_m + +sin_real_1: + ucomisd xmm0,qword ptr real_m_pi_d_4 + jb sin_real_n ; ; x<-pi/4 | NAN + + ucomisd xmm0,qword ptr real_0_43540000008249979402 + jae sin_real_p_0_6 + ucomisd xmm0,qword ptr real_m_0_43540000008249979402 + jbe sin_real_m_0_6 + + movsd xmm1,xmm0 ; x + + ucomisd xmm0,qword ptr real_0_0 + je sin_real_0_0 ; sin -0.0 = -0.0 + + mulsd xmm0,xmm0 ; x2 + + movlpd xmm5,qword ptr sin_p_0 + movlpd xmm6,qword ptr sin_p_1 + + movsd xmm2,xmm1 ; x + mulsd xmm1,xmm0 ; x3 + + movsd xmm3,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + +; ucomisd xmm3,qword ptr real_0_25 ; x2>=0.25 (|x|>0.5) + + mulsd xmm3,xmm1 ; x5 + + movlpd xmm7,qword ptr sin_p_2 + movlpd xmm8,qword ptr sin_p_3 + + mulsd xmm5,xmm1 ; p3 + mulsd xmm1,xmm0 ; x7 + + mulsd xmm6,xmm3 ; p5 + mulsd xmm3,xmm0 ; x9 + + mulsd xmm7,xmm1 ; p7 + mulsd xmm1,xmm0 ; x11 + + mulsd xmm8,xmm3 ; p9 + mulsd xmm3,xmm0 ; x13 + + mulsd xmm1,qword ptr sin_p_4 ; p11 + mulsd xmm3,qword ptr sin_p_5 ; p13 + + movsd xmm0,xmm2 ; x + + addsd xmm1,xmm3 ; p11+p13 + addsd xmm1,xmm8 ; p9+p11+p13 + +; jae sin_real_1_l + + addsd xmm1,xmm7 ; p7+p9+p11+p13 + addsd xmm1,xmm6 ; p5+p7+p9+p11+p13 + addsd xmm1,xmm5 ; p3+p5+p7+p9+p11+p13 + addsd xmm0,xmm1 ; x+p3+p5+p7+p9+p11+p13 + +sin_real_0_0: + ret + +;sin_real_1_l: +; movlpd xmm2,qword ptr real_47_bits +; andpd xmm2,xmm5 ; p3h + +; addsd xmm1,xmm7 ; p7+p9+p11+p13 + +; subsd xmm5,xmm2 ; p3l +; addsd xmm0,xmm2 ; x+p3h + +; addsd xmm1,xmm6 ; p5+p7+p9+p11+p13 +; addsd xmm1,xmm5 ; p3l+p5+p7+p9+p11+p13 +; addsd xmm0,xmm1 ; x+p3+p5+p7+p9+p11+p13 + +; ret + +sin_real_m_0_6: + movlpd xmm1,qword ptr real_m_0_600000000082499762577 + + ucomisd xmm0,xmm1 + subsd xmm0,xmm1 + + lea rcx,sin_p3_c + lea rdx,sin_p4_c + + cmova rcx,rdx + + jmp sin_real_0_6 + +sin_real_p_0_6: + movlpd xmm1,qword ptr real_0_600000000082499762577 + + ucomisd xmm0,xmm1 + subsd xmm0,xmm1 + + lea rcx,sin_p1_c + lea rdx,sin_p2_c + + cmovb rcx,rdx + +sin_real_0_6: + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + movlpd xmm7,qword ptr (sin_p1_3-sin_p1_c)[rcx] + movlpd xmm8,qword ptr (sin_p1_2-sin_p1_c)[rcx] + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + mulsd xmm7,xmm2 ; p3 + mulsd xmm8,xmm2 ; p2 + + movlpd xmm9,qword ptr (sin_p1_5-sin_p1_c)[rcx] + + mulsd xmm2,xmm0 ; x6 + + movsd xmm4,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + mulsd xmm9,xmm4 ; p5 + mulsd xmm4,qword ptr (sin_p1_4-sin_p1_c)[rcx] ; p4 + + movlpd xmm11,qword ptr (sin_p1_7-sin_p1_c)[rcx] + movlpd xmm12,qword ptr (sin_p1_9-sin_p1_c)[rcx] + + mulsd xmm11,xmm2 ; p7 + mulsd xmm2,qword ptr (sin_p1_6-sin_p1_c)[rcx] ; p6 + + mulsd xmm12,xmm0 ; p9 + mulsd xmm0,qword ptr (sin_p1_8-sin_p1_c)[rcx] ; p8 + + addsd xmm11,xmm12 ; p9+p7 + addsd xmm0,xmm2 ; p8+p6 + + movlpd xmm2,qword ptr real_26_bits + movsd xmm3,xmm1 ; x + movlpd xmm6,qword ptr (sin_p1_1l-sin_p1_c)[rcx] + movlpd xmm5,qword ptr (sin_p1_1h-sin_p1_c)[rcx] + + addsd xmm9,xmm11 ; p9+p7+p5 + addsd xmm0,xmm4 ; p8+p6+p4 + + andpd xmm2,xmm1 ; x_h + mulsd xmm6,xmm1 ; x*c1l + movlpd xmm13,qword ptr (sin_p1_0h-sin_p1_c)[rcx] + + addsd xmm7,xmm9 ; p9+p7+p5+p3 + addsd xmm0,xmm8 ; p8+p6+p4+p2 + + subsd xmm3,xmm2 ; x_l + mulsd xmm2,xmm5 ; x_h*c1h + + mulsd xmm7,xmm1 ; (p9+p7+p5+p3)(*x) + + movsd xmm14,xmm13 + addsd xmm13,xmm2 ; x_h*c1h+c0h + + addsd xmm0,xmm7 ; p9+p8+..+p2 + + subsd xmm14,xmm13 ; c0h-(x_h*c1h+c0h) + mulsd xmm3,xmm5 ; x_l*c1h + +; addsd xmm0,qword ptr (sin_p1_0l-sin_p1_c)[rcx] + + addsd xmm14,xmm2 ; (c0h-(x_h*c1h+c0h))+x_h*c1h + addsd xmm3,xmm6 ; x_l*c1h+x*c1l + + addsd xmm3,xmm14 ; (c0h-(x_h*c1h+c0h))+x_h*c1h+x_l*c1h+x*c1l + + addsd xmm0,xmm3 + addsd xmm0,xmm13 + ret + +sin_real_n_5: + addsd xmm0,qword ptr real_2_pi + movlpd xmm13,qword ptr real_m_2_pi_l + jmp sin_real_p + +sin_real_5: + subsd xmm0,qword ptr real_2_pi + movlpd xmm13,qword ptr real_2_pi_l + jmp sin_real_p + +cos_real_n_2: + addsd xmm0,qword ptr real_pi_d_2 + movlpd xmm13,qword ptr real_m_pi_d_2_l + jmp sin_real_p + +cos_real_4: + subsd xmm0,qword ptr real_3_pi_d_2 + movlpd xmm13,qword ptr real_3_pi_d_2_l + +sin_real_p: + ucomisd xmm0,qword ptr real_0_43540000008249979402 + + movsd xmm12,xmm0 + + jae sin_real_p_p_0_6 + ucomisd xmm0,qword ptr real_m_0_43540000008249979402 + jb sin_real_p_m_0_6 + + subsd xmm0,xmm13 + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + subsd xmm12,xmm1 + + movlpd xmm5,qword ptr sin_p_0 + movlpd xmm6,qword ptr sin_p_1 + + movsd xmm2,xmm1 ; x + mulsd xmm1,xmm0 ; x3 + + movsd xmm3,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + subsd xmm12,xmm13 ; x_l + movsd xmm14,xmm3 ; x2 + +; ucomisd xmm3,qword ptr real_0_25 ; x2>=0.25 (|x|>0.5) + + mulsd xmm3,xmm1 ; x5 + + movlpd xmm7,qword ptr sin_p_2 + movlpd xmm8,qword ptr sin_p_3 + + mulsd xmm5,xmm1 ; p3 + mulsd xmm1,xmm0 ; x7 + + mulsd xmm6,xmm3 ; p5 + mulsd xmm3,xmm0 ; x9 + + mulsd xmm7,xmm1 ; p7 + mulsd xmm1,xmm0 ; x11 + + mulsd xmm8,xmm3 ; p9 + mulsd xmm3,xmm0 ; x13 + + mulsd xmm14,xmm12 ; x_l*x2 + + mulsd xmm1,qword ptr sin_p_4 ; p11 + mulsd xmm3,qword ptr sin_p_5 ; p13 + + movsd xmm0,xmm2 ; x + + mulsd xmm14,qword ptr real_0_5 ; 0.5*x_l*x2 + + addsd xmm1,xmm3 ; p11+p13 + + subsd xmm12,xmm14 ; x_l-0.5*x_l*x2 + + addsd xmm1,xmm8 ; p9+p11+p13 + +; jae sin_real_p_l + + addsd xmm1,xmm7 ; p7+p9+p11+p13 + addsd xmm1,xmm6 ; p5+p7+p9+p11+p13 + addsd xmm1,xmm5 ; p3+p5+p7+p9+p11+p13 + + addsd xmm1,xmm12 + + addsd xmm0,xmm1 ; x+p3+p5+p7+p9+p11+p13 + + ret + +;sin_real_p_l: +; movlpd xmm2,qword ptr real_47_bits +; andpd xmm2,xmm5 ; p3h + +; addsd xmm1,xmm7 ; p7+p9+p11+p13 + +; subsd xmm5,xmm2 ; p3l +; addsd xmm0,xmm2 ; x+p3h + +; addsd xmm1,xmm6 ; p5+p7+p9+p11+p13 +; addsd xmm1,xmm5 ; p3+p5+p7+p9+p11+p13 + +; addsd xmm1,xmm12 + +; addsd xmm0,xmm1 ; x+p3+p5+p7+p9+p11+p13 + +; ret + +sin_real_p_m_0_6: + movlpd xmm1,qword ptr real_m_0_600000000082499762577 + + subsd xmm0,xmm13 + + ucomisd xmm0,xmm1 + movsd xmm15,xmm0 ; x1 + subsd xmm0,xmm1 + + lea rcx,sin_p3_c + lea rdx,sin_p4_c + + cmova rcx,rdx + jmp sin_real_p_pm_0_6 + +sin_real_p_p_0_6: + movlpd xmm1,qword ptr real_0_600000000082499762577 + + subsd xmm0,xmm13 + + ucomisd xmm0,xmm1 + movsd xmm15,xmm0 ; x1 + subsd xmm0,xmm1 + + lea rcx,sin_p1_c + lea rdx,sin_p2_c + + cmovb rcx,rdx + +sin_real_p_pm_0_6: + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + subsd xmm12,xmm15 + mulsd xmm15,xmm15 ; x1*x1 + + movlpd xmm7,qword ptr (sin_p1_3-sin_p1_c)[rcx] + movlpd xmm8,qword ptr (sin_p1_2-sin_p1_c)[rcx] + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + mulsd xmm7,xmm2 ; p3 + mulsd xmm8,xmm2 ; p2 + subsd xmm12,xmm13 ; x_l + +sin_real_pm_0_6: + mulsd xmm15,qword ptr real_0_5 ; 0.5*x1*x1 + + movlpd xmm9,qword ptr (sin_p1_5-sin_p1_c)[rcx] + + mulsd xmm2,xmm0 ; x6 + + movsd xmm4,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + mulsd xmm9,xmm4 ; p5 + mulsd xmm4,qword ptr (sin_p1_4-sin_p1_c)[rcx] ; p4 + + mulsd xmm15,xmm12 ; x_l*0.5*x1*x1 + + movlpd xmm11,qword ptr (sin_p1_7-sin_p1_c)[rcx] + movlpd xmm10,qword ptr (sin_p1_9-sin_p1_c)[rcx] + + mulsd xmm11,xmm2 ; p7 + mulsd xmm2,qword ptr (sin_p1_6-sin_p1_c)[rcx] ; p6 + + mulsd xmm10,xmm0 ; p9 + mulsd xmm0,qword ptr (sin_p1_8-sin_p1_c)[rcx] ; p8 + + addsd xmm11,xmm10 ; p9+p7 + addsd xmm0,xmm2 ; p8+p6 + + subsd xmm12,xmm15 ; x_l-x_l*0.5*x1*x1 + + movlpd xmm2,qword ptr real_26_bits + movsd xmm3,xmm1 ; x + movlpd xmm6,qword ptr (sin_p1_1l-sin_p1_c)[rcx] + movlpd xmm5,qword ptr (sin_p1_1h-sin_p1_c)[rcx] + + addsd xmm9,xmm11 ; p9+p7+p5 + addsd xmm0,xmm4 ; p8+p6+p4 + + andpd xmm2,xmm1 ; x_h + mulsd xmm6,xmm1 ; x*c1l + movlpd xmm13,qword ptr (sin_p1_0h-sin_p1_c)[rcx] + + addsd xmm7,xmm9 ; p9+p7+p5+p3 + addsd xmm0,xmm8 ; p8+p6+p4+p2 + + subsd xmm3,xmm2 ; x_l + mulsd xmm2,xmm5 ; x_h*c1h + + mulsd xmm7,xmm1 ; (p9+p7+p5+p3)(*x) + + movsd xmm14,xmm13 + addsd xmm13,xmm2 ; x_h*c1h+c0h + + addsd xmm0,xmm7 ; p9+p8+..+p2 + + subsd xmm14,xmm13 ; c0h-(x_h*c1h+c0h) + mulsd xmm3,xmm5 ; x_l*c1h + +; addsd xmm0,qword ptr (sin_p1_0l-sin_p1_c)[rcx] + addsd xmm0,xmm12 + + addsd xmm14,xmm2 ; (c0h-(x_h*c1h+c0h))+x_h*c1h + addsd xmm3,xmm6 ; x_l*c1h+x*c1l + + addsd xmm3,xmm14 ; (c0h-(x_h*c1h+c0h))+x_h*c1h+x_l*c1h+x*c1l + + addsd xmm0,xmm3 + addsd xmm0,xmm13 + ret + +sin_real_3: + movlpd xmm1,qword ptr real_pi + movlpd xmm13,qword ptr real_pi_l + subsd xmm1,xmm0 + jmp sin_real_m + +cos_real_n_4: + movlpd xmm1,qword ptr real_m_3_pi_d_2 + movlpd xmm13,qword ptr real_m_3_pi_d_2_l + subsd xmm1,xmm0 + jmp sin_real_m + +sin_real_n_3: + movlpd xmm1,qword ptr real_m_pi + movlpd xmm13,qword ptr real_m_pi_l + subsd xmm1,xmm0 + jmp sin_real_m + +cos_real_2: + movlpd xmm1,qword ptr real_pi_d_2 + movlpd xmm13,qword ptr real_pi_d_2_l + subsd xmm1,xmm0 + +sin_real_m: + ucomisd xmm1,qword ptr real_0_43540000008249979402 + + movsd xmm12,xmm1 + + jae sin_real_m_p_0_6 + ucomisd xmm1,qword ptr real_m_0_43540000008249979402 + jbe sin_real_m_m_0_6 + + addsd xmm1,xmm13 + + movsd xmm0,xmm1 ; x + mulsd xmm1,xmm1 ; x2 + + subsd xmm12,xmm0 + + movlpd xmm5,qword ptr sin_p_0 + movlpd xmm6,qword ptr sin_p_1 + + movsd xmm2,xmm0 ; x + mulsd xmm0,xmm1 ; x3 + +; ucomisd xmm1,qword ptr real_0_25 ; x2>=0.25 (|x|>0.5) + + movsd xmm3,xmm1 ; x2 + mulsd xmm1,xmm1 ; x4 + + addsd xmm12,xmm13 + + movsd xmm14,xmm3 + mulsd xmm3,xmm0 ; x5 + + movlpd xmm7,qword ptr sin_p_2 + movlpd xmm8,qword ptr sin_p_3 + + mulsd xmm5,xmm0 ; p3 + mulsd xmm0,xmm1 ; x7 + + mulsd xmm6,xmm3 ; p5 + mulsd xmm3,xmm1 ; x9 + + mulsd xmm7,xmm0 ; p7 + mulsd xmm0,xmm1 ; x11 + + mulsd xmm8,xmm3 ; p9 + mulsd xmm3,xmm1 ; x13 + + mulsd xmm14,xmm12 + + mulsd xmm0,qword ptr sin_p_4 ; p11 + mulsd xmm3,qword ptr sin_p_5 ; p13 + + movsd xmm1,xmm2 ; x + + mulsd xmm14,qword ptr real_0_5 + + addsd xmm0,xmm3 ; p11+p13 + + subsd xmm12,xmm14 + + addsd xmm0,xmm8 ; p9+p11+p13 + +; jae sin_real_m_l + + addsd xmm0,xmm7 ; p7+p9+p11+p13 + addsd xmm0,xmm6 ; p5+p7+p9+p11+p13 + addsd xmm0,xmm5 ; p3+p5+p7+p9+p11+p13 + + addsd xmm0,xmm12 + + addsd xmm0,xmm1 ; x+p3+p5+p7+p9+p11+p13 + + ret + +;sin_real_m_l: +; movlpd xmm2,qword ptr real_47_bits +; andpd xmm2,xmm5 ; p3h + +; addsd xmm0,xmm7 ; p7+p9+p11+p13 + +; subsd xmm5,xmm2 ; p3l +; addsd xmm1,xmm2 ; x+p3h + +; addsd xmm0,xmm6 ; p5+p7+p9+p11+p13 +; addsd xmm0,xmm5 ; p3+p5+p7+p9+p11+p13 + +; addsd xmm0,xmm12 + +; addsd xmm0,xmm1 ; x+p3+p5+p7+p9+p11+p13 + +; ret + +sin_real_m_m_0_6: + addsd xmm1,xmm13 + + movlpd xmm0,qword ptr real_0_600000000082499762577 + + ucomisd xmm1,qword ptr real_m_0_600000000082499762577 + movsd xmm15,xmm1 ; x1 + addsd xmm0,xmm1 + + lea rcx,sin_p3_c + lea rdx,sin_p4_c + + cmova rcx,rdx + jmp sin_real_m_pm_0_6 + +sin_real_m_p_0_6: + addsd xmm1,xmm13 + + movlpd xmm0,qword ptr real_m_0_600000000082499762577 + + ucomisd xmm1,qword ptr real_0_600000000082499762577 + movsd xmm15,xmm1 ; x1 + addsd xmm0,xmm1 + + lea rcx,sin_p1_c + lea rdx,sin_p2_c + + cmovb rcx,rdx + +sin_real_m_pm_0_6: + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + subsd xmm12,xmm15 + mulsd xmm15,xmm15 ; x1*x1 + + movlpd xmm7,qword ptr (sin_p1_3-sin_p1_c)[rcx] + movlpd xmm8,qword ptr (sin_p1_2-sin_p1_c)[rcx] + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + mulsd xmm7,xmm2 ; p3 + mulsd xmm8,xmm2 ; p2 + + addsd xmm12,xmm13 ; x_l + jmp sin_real_pm_0_6 + + public cos_real + +cos_real: + ucomisd xmm0,qword ptr real_pi_d_4 + jbe cos_real_1 ; x<=pi/4 | NAN + ucomisd xmm0,qword ptr real_3_pi_d_4 + jbe cos_real_2 + ucomisd xmm0,qword ptr real_5_pi_d_4 + jbe cos_real_3 + ucomisd xmm0,qword ptr real_7_pi_d_4 + jbe cos_real_4 + ucomisd xmm0,qword ptr real_9_pi_d_4 + jbe cos_real_5 + + ucomisd xmm0,qword ptr real_36825084_pi + jbe cos_real_0 + + ucomisd xmm0,qword ptr real_2_p_53 + jae sin_cos_or_tan_real_too_large ; x>=-2^53 + + call rem_36825084_pi + + movlpd xmm2,qword ptr real_pi_d_4_26 + movlpd xmm3,qword ptr real_pi_d_4_26_26 + movlpd xmm13,qword ptr real_pi_d_4_52_l + + mulsd xmm2,xmm1 + mulsd xmm3,xmm1 + mulsd xmm13,xmm1 + + andpd xmm5,xmm1 + andpd xmm6,xmm1 + + subsd xmm13,xmm7 + jmp cos_real_0_ + +cos_real_0: + movlpd xmm1,qword ptr real_4_d_pi + + mulsd xmm1,xmm0 ; x*4/pi + + addsd xmm1,qword ptr real_1_0 ; x*4/pi+1 + + movq xmm4,qword ptr round_even_c + movq xmm2,xmm1 + psrlq xmm1,52 + psubq xmm4,xmm1 + + movq xmm1,qword ptr mask_all_one + psllq xmm1,xmm4 + andpd xmm1,xmm2 ; round_even (x*4/pi+1) + + movlpd xmm2,qword ptr real_pi_d_4_26 + movlpd xmm3,qword ptr real_pi_d_4_26_26 + movlpd xmm13,qword ptr real_pi_d_4_52_l + + movq xmm5,qword ptr mask_all_one_except_last + psllq xmm5,xmm4 + movq xmm6,qword ptr mask_all_one_except_second_last + psllq xmm6,xmm4 + + mulsd xmm2,xmm1 + mulsd xmm3,xmm1 + mulsd xmm13,xmm1 + + andpd xmm5,xmm1 + andpd xmm6,xmm1 + +cos_real_0_: + ucomisd xmm1,xmm5 + jne cos_real_sin + +cos_real_cos: + subsd xmm0,xmm2 + subsd xmm0,xmm3 + + ucomisd xmm1,xmm6 + je cos_real_p + jmp cos_real_m + +cos_real_sin: + ucomisd xmm1,xmm6 + jne cos_real_p_sin + + movsd xmm1,xmm3 + subsd xmm0,xmm2 + subsd xmm1,xmm0 + jmp sin_real_m + +cos_real_p_sin: + subsd xmm0,xmm2 + subsd xmm0,xmm3 + jmp sin_real_p + +cos_real_n: + ucomisd xmm0,qword ptr real_m_3_pi_d_4 + jae cos_real_n_2 + ucomisd xmm0,qword ptr real_m_5_pi_d_4 + jae cos_real_n_3 + ucomisd xmm0,qword ptr real_m_7_pi_d_4 + jae cos_real_n_4 + ucomisd xmm0,qword ptr real_m_9_pi_d_4 + jae cos_real_n_5 + + ucomisd xmm0,qword ptr real_m_36825084_pi + jae cos_real_n_0 + + ucomisd xmm0,qword ptr real_m_2_p_53 + jbe sin_cos_or_tan_real_too_small_or_nan ; x<=-2^53 | NAN + + call rem_n_36825084_pi + + movlpd xmm2,qword ptr real_pi_d_4_26 + movlpd xmm3,qword ptr real_pi_d_4_26_26 + movlpd xmm13,qword ptr real_pi_d_4_52_l + + mulsd xmm2,xmm1 + mulsd xmm3,xmm1 + mulsd xmm13,xmm1 + + andpd xmm5,xmm1 + andpd xmm6,xmm1 + + subsd xmm13,xmm7 + jmp cos_real_n_0_ + +cos_real_n_0: + movlpd xmm1,qword ptr real_4_d_pi + + mulsd xmm1,xmm0 ; x*4/pi + + movq xmm4,qword ptr m_round_even_c + + subsd xmm1,qword ptr real_1_0 ; x*4/pi-1 + + movq xmm2,xmm1 + psrlq xmm1,52 + psubq xmm4,xmm1 + + movq xmm1,qword ptr mask_all_one + psllq xmm1,xmm4 + andpd xmm1,xmm2 ; round_even (x*4/pi-1) + + movlpd xmm2,qword ptr real_pi_d_4_26 + movlpd xmm3,qword ptr real_pi_d_4_26_26 + movlpd xmm13,qword ptr real_pi_d_4_52_l + + movq xmm5,qword ptr mask_all_one_except_last + psllq xmm5,xmm4 + movq xmm6,qword ptr mask_all_one_except_second_last + psllq xmm6,xmm4 + + mulsd xmm2,xmm1 + mulsd xmm3,xmm1 + mulsd xmm13,xmm1 + + andpd xmm5,xmm1 + andpd xmm6,xmm1 + +cos_real_n_0_: + ucomisd xmm1,xmm5 + je cos_real_cos + + ucomisd xmm1,xmm6 + je cos_real_n_p_sin + + movsd xmm1,xmm3 + subsd xmm0,xmm2 + subsd xmm1,xmm0 + jmp sin_real_m + +cos_real_n_p_sin: + subsd xmm0,xmm2 + subsd xmm0,xmm3 + jmp sin_real_p + +cos_real_1: + ucomisd xmm0,qword ptr real_m_pi_d_4 + jb cos_real_n ; x<-pi/4 | NAN + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + movlpd xmm9,qword ptr real_17_bits + movlpd xmm5,qword ptr cos_p_0 + + movsd xmm8,xmm1 ; x + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + andpd xmm9,xmm1 ; x_17_h + movlpd xmm10,qword ptr real_0_5 + + movsd xmm3,xmm2 ; x2 + mulsd xmm2,xmm0 ; x6 + + movsd xmm4,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + movlpd xmm7,qword ptr cos_p_2 + + mulsd xmm5,xmm4 ; p4 + mulsd xmm4,xmm2 ; x10 + + movsd xmm6,xmm2 ; x6 + mulsd xmm2,xmm2 ; x12 + + mulsd xmm7,xmm0 ; p8 + mulsd xmm0,xmm6 ; x14 + + mulsd xmm6,qword ptr cos_p_1 ; p6 + mulsd xmm4,qword ptr cos_p_3 ; p10 + mulsd xmm2,qword ptr cos_p_4 ; p12 + mulsd xmm0,qword ptr cos_p_5 ; p14 + + subsd xmm8,xmm9 ; x_17_l + mulsd xmm10,xmm9 ; 0.5*x_17_h + + addsd xmm0,xmm2 ; p12+p14 + + mulsd xmm10,xmm9 ; 0.5*x_17_h*x_17_h + movlpd xmm11,qword ptr real_1_0 + + addsd xmm0,xmm4 ; p10+p12+p14 + + mulsd xmm8,qword ptr real_0_5 ; 0.5*x_17_l + addsd xmm9,xmm1 ; x+x_17_h + + addsd xmm0,xmm7 ; p8+p10+p12+p14 + + mulsd xmm8,xmm9 ; 0.5*x_17_l*(x+x_17_h) + + addsd xmm0,xmm6 ; p6+p8+p10+p12+p14 + + ucomisd xmm10,qword ptr real_2_p_m_18 ; 0.5*x_17_h*x_17_h<2**-18 + jb cos_real_1_s + + subsd xmm11,xmm10 ; 1.0-0.5*x_17_h*x_17_h + + addsd xmm0,xmm5 ; p4+p6+p8+p10+p12+p14 + + subsd xmm0,xmm8 + addsd xmm0,xmm11 + + ret + +cos_real_1_s: + addsd xmm0,xmm5 ; p4+p6+p8+p10+p12+p14 + + subsd xmm0,xmm8 + subsd xmm0,xmm10 + addsd xmm0,xmm11 + + ret + +cos_real_n_5: + addsd xmm0,qword ptr real_2_pi + movlpd xmm13,qword ptr real_m_2_pi_l + jmp cos_real_p + +cos_real_5: + subsd xmm0,qword ptr real_2_pi + movlpd xmm13,qword ptr real_2_pi_l + jmp cos_real_p + +sin_real_n_4: + addsd xmm0,qword ptr real_3_pi_d_2 + movlpd xmm13,qword ptr real_m_3_pi_d_2_l + jmp cos_real_p + +sin_real_2: + subsd xmm0,qword ptr real_pi_d_2 + movlpd xmm13,qword ptr real_pi_d_2_l + +cos_real_p: + movsd xmm12,xmm0 + subsd xmm0,xmm13 + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + subsd xmm12,xmm1 + + movlpd xmm9,qword ptr real_17_bits + movlpd xmm5,qword ptr cos_p_0 + + movsd xmm8,xmm1 ; x + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + subsd xmm12,xmm13 + + andpd xmm9,xmm1 ; x_17_h + movlpd xmm10,qword ptr real_0_5 + + movsd xmm3,xmm2 ; x2 + mulsd xmm2,xmm0 ; x6 + + movsd xmm4,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + movlpd xmm7,qword ptr cos_p_2 + + mulsd xmm12,xmm8 + + mulsd xmm5,xmm4 ; p4 + mulsd xmm4,xmm2 ; x10 + + movsd xmm6,xmm2 ; x6 + mulsd xmm2,xmm2 ; x12 + + mulsd xmm7,xmm0 ; p8 + mulsd xmm0,xmm6 ; x14 + + mulsd xmm6,qword ptr cos_p_1 ; p6 + mulsd xmm4,qword ptr cos_p_3 ; p10 + mulsd xmm2,qword ptr cos_p_4 ; p12 + mulsd xmm0,qword ptr cos_p_5 ; p14 + + subsd xmm8,xmm9 ; x_17_l + mulsd xmm10,xmm9 ; 0.5*x_17_h + + addsd xmm0,xmm2 ; p12+p14 + + mulsd xmm10,xmm9 ; 0.5*x_17_h*x_17_h + movlpd xmm11,qword ptr real_1_0 + + addsd xmm0,xmm4 ; p10+p12+p14 + + mulsd xmm8,qword ptr real_0_5 ; 0.5*x_17_l + addsd xmm9,xmm1 ; x+x_17_h + + addsd xmm0,xmm7 ; p8+p10+p12+p14 + + mulsd xmm8,xmm9 ; 0.5*x_17_l*(x+x_17_h) + + addsd xmm0,xmm6 ; p6+p8+p10+p12+p14 + + ucomisd xmm10,qword ptr real_2_p_m_18 ; 0.5*x_17_h*x_17_h<2**-18 + jb cos_real__s + + subsd xmm11,xmm10 ; 1.0-0.5*x_17_h*x_17_h + + addsd xmm0,xmm5 ; p4+p6+p8+p10+p12+p14 + + addsd xmm8,xmm12 + + subsd xmm0,xmm8 + addsd xmm0,xmm11 + + ret + +cos_real__s: + addsd xmm0,xmm5 ; p4+p6+p8+p10+p12+p14 + + addsd xmm8,xmm12 + + subsd xmm0,xmm8 + subsd xmm0,xmm10 + addsd xmm0,xmm11 + + ret + +sin_real_4: + subsd xmm0,qword ptr real_3_pi_d_2 + movlpd xmm13,qword ptr real_3_pi_d_2_l + jmp cos_real_m + +cos_real_n_3: + addsd xmm0,qword ptr real_pi + movlpd xmm13,qword ptr real_m_pi_l + jmp cos_real_m + +sin_real_n_2: + addsd xmm0,qword ptr real_pi_d_2 + movlpd xmm13,qword ptr real_m_pi_d_2_l + jmp cos_real_m + +cos_real_3: + subsd xmm0,qword ptr real_pi + movlpd xmm13,qword ptr real_pi_l + +cos_real_m: + movsd xmm12,xmm0 + subsd xmm0,xmm13 + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + subsd xmm12,xmm1 + + movlpd xmm9,qword ptr real_17_bits + movlpd xmm5,qword ptr cos_p_0 + + movsd xmm8,xmm1 ; x + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + subsd xmm12,xmm13 + + andpd xmm9,xmm1 ; x_17_h + movlpd xmm10,qword ptr real_0_5 + + movsd xmm3,xmm2 ; x2 + mulsd xmm2,xmm0 ; x6 + + movsd xmm4,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + movlpd xmm7,qword ptr cos_p_2 + + mulsd xmm12,xmm8 + + mulsd xmm5,xmm4 ; p4 + mulsd xmm4,xmm2 ; x10 + + movsd xmm6,xmm2 ; x6 + mulsd xmm2,xmm2 ; x12 + + mulsd xmm7,xmm0 ; p8 + mulsd xmm0,xmm6 ; x14 + + mulsd xmm6,qword ptr cos_p_1 ; p6 + mulsd xmm4,qword ptr cos_p_3 ; p10 + mulsd xmm2,qword ptr cos_p_4 ; p12 + mulsd xmm0,qword ptr cos_p_5 ; p14 + + subsd xmm8,xmm9 ; x_17_l + mulsd xmm10,xmm9 ; 0.5*x_17_h + + addsd xmm0,xmm2 ; p12+p14 + + mulsd xmm10,xmm9 ; 0.5*x_17_h*x_17_h + movlpd xmm11,qword ptr real_m_1_0 + + addsd xmm0,xmm4 ; p10+p12+p14 + + mulsd xmm8,qword ptr real_0_5 ; 0.5*x_17_l + addsd xmm9,xmm1 ; x+x_17_h + + addsd xmm0,xmm7 ; p8+p10+p12+p14 + + mulsd xmm8,xmm9 ; 0.5*x_17_l*(x+x_17_h) + + addsd xmm0,xmm6 ; p6+p8+p10+p12+p14 + + ucomisd xmm10,qword ptr real_2_p_m_18 ; 0.5*x_17_h*x_17_h<2**-18 + jb cos_real_m_s + + addsd xmm11,xmm10 ; -1.0+0.5*x_17_h*x_17_h + + addsd xmm0,xmm5 ; p4+p6+p8+p10+p12+p14 + + addsd xmm8,xmm12 + + subsd xmm8,xmm0 + movsd xmm0,xmm11 + addsd xmm0,xmm8 + ret + +cos_real_m_s: + addsd xmm0,xmm5 ; p4+p6+p8+p10+p12+p14 + + addsd xmm8,xmm12 + + subsd xmm8,xmm0 + + movsd xmm0,xmm11 + addsd xmm8,xmm10 + + addsd xmm0,xmm8 + ret + + public tan_real + +tan_real: + ucomisd xmm0,qword ptr real_m_0_338 + jb tan_real_n ; x<-0.338 | NAN + ucomisd xmm0,qword ptr real_0_89 + jbe tan_real_1 + ucomisd xmm0,qword ptr real_pi_m_0_699 + jbe tan_real_2 + ucomisd xmm0,qword ptr real_pi_p_0_89 + jbe tan_real_3 + ucomisd xmm0,qword ptr real_2pi_m_0_699 + jbe tan_real_4 + ucomisd xmm0,qword ptr real_2pi_p_0_89 + jbe tan_real_5 + + ucomisd xmm0,qword ptr real_36825084_pi + jbe tan_real_0 + + ucomisd xmm0,qword ptr real_2_p_53 + jae sin_cos_or_tan_real_too_large ; x>=-2^53 + + call rem_36825084_pi + +tan_real_pn_l: + movlpd xmm2,qword ptr real_pi_d_4_26 + movlpd xmm3,qword ptr real_pi_d_4_26_26 + movlpd xmm12,qword ptr real_pi_d_4_52_l + + mulsd xmm2,xmm1 + mulsd xmm3,xmm1 + mulsd xmm12,xmm1 + + subsd xmm12,xmm7 + jmp tan_real_ + +tan_real_0: + movlpd xmm1,qword ptr real_4_d_pi + + mulsd xmm1,xmm0 ; x*4/pi + + addsd xmm1,qword ptr real_1_0 ; x*4/pi+1 + + movq xmm4,qword ptr round_even_c +tan_real_pn_0: + movq xmm2,xmm1 + psrlq xmm1,52 + psubq xmm4,xmm1 + movq xmm1,qword ptr mask_all_one + psllq xmm1,xmm4 + andpd xmm1,xmm2 ; round_even (x*4/pi+1) + + movlpd xmm2,qword ptr real_pi_d_4_26 + movlpd xmm3,qword ptr real_pi_d_4_26_26 + movlpd xmm12,qword ptr real_pi_d_4_52_l + + movq xmm5,qword ptr mask_all_one_except_last + psllq xmm5,xmm4 + + mulsd xmm2,xmm1 + mulsd xmm3,xmm1 + mulsd xmm12,xmm1 + +tan_real_: + andpd xmm5,xmm1 + ucomisd xmm1,xmm5 + jne tan_real_0_2 + + subsd xmm0,xmm2 + subsd xmm0,xmm3 + + ucomisd xmm0,qword ptr real_0_338 + ja tan_real_0_1p + ucomisd xmm0,qword ptr real_m_0_338 + jae tan_real_3_ + + ucomisd xmm0,qword ptr real_m_0_542 + ja tan_real_0_5_n + ucomisd xmm0,qword ptr real_m_0_699 + ja tan_real_s_0_5_n + jmp tan_real_1_0_3_n + +tan_real_0_1p: + ucomisd xmm0,qword ptr real_0_542 + jb tan_real_0_5_p + ucomisd xmm0,qword ptr real_0_699 + jb tan_real_s_0_5_p + jmp tan_real_1_0_3 + +tan_real_0_2: + subsd xmm2,xmm0 + movsd xmm1,xmm3 + addsd xmm1,xmm2 + + ucomisd xmm1,qword ptr real_0_5_pi_m_1_18 + ja tan_real_0_2p + ucomisd xmm1,qword ptr real_1_18_m_0_5_pi + jae tan_real_2_ + + ucomisd xmm1,qword ptr real_1_04_m_0_5_pi + ja tan_real_2_0_n + ucomisd xmm1,qword ptr real_0_89_m_0_5_pi + ja tan_real_s_2_n + jmp tan_real_1_0_n + +tan_real_0_2p: + ucomisd xmm1,qword ptr real_0_5_pi_m_1_04 + jb tan_real_2_0_p + ucomisd xmm1,qword ptr real_0_5_pi_m_0_89 + jb tan_real_s_2_p + jmp tan_real_1_0_2_p + +tan_real_n: + ucomisd xmm0,qword ptr real_m_0_89 + jae tan_real_n_1 + ucomisd xmm0,qword ptr real_n_pi_m_0_699 + jae tan_real_n_2 + ucomisd xmm0,qword ptr real_n_pi_p_0_89 + jae tan_real_n_3 + ucomisd xmm0,qword ptr real_n_2pi_m_0_699 + jae tan_real_n_4 + ucomisd xmm0,qword ptr real_n_2pi_p_0_89 + jae tan_real_n_5 + + ucomisd xmm0,qword ptr real_m_36825084_pi + jae tan_real_n_0 + + ucomisd xmm0,qword ptr real_m_2_p_53 + jbe sin_cos_or_tan_real_too_small_or_nan ; x<=-2^53 | NAN + + call rem_n_36825084_pi + jmp tan_real_pn_l + +tan_real_n_0: + movlpd xmm1,qword ptr real_4_d_pi + + mulsd xmm1,xmm0 ; x*4/pi + + subsd xmm1,qword ptr real_1_0 ; x*4/pi-1 + + movq xmm4,qword ptr m_round_even_c + jmp tan_real_pn_0 + +tan_real_1: + ucomisd xmm0,qword ptr real_0_699 + ja tan_real_1_2 + ucomisd xmm0,qword ptr real_0_338 + ja tan_real_0_5 + +tan_real_1_0: + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + movlpd xmm6,qword ptr tan_q_1 + movlpd xmm5,qword ptr tan_q_2 + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + movlpd xmm7,qword ptr tan_p_1 + mulsd xmm6,xmm2 ; q2 + + movsd xmm3,xmm2 ; x2 + mulsd xmm2,xmm0 ; x6 + + movsd xmm4,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + mulsd xmm5,xmm4 ; q4 + mulsd xmm2,qword ptr tan_q_3 ; q6 + + mulsd xmm4,qword ptr tan_p_2 ; p4 + + addsd xmm0,xmm2 ; x8+q6 + + mulsd xmm7,xmm3 ; p2 + + addsd xmm0,xmm5 ; x8+q6+q4 + + addsd xmm4,xmm7 ; p4+p2 + + addsd xmm0,xmm6 ; x8+q6+q4+q2 + + addsd xmm4,qword ptr tan_p_0 ; p4+p2+p0 + + addsd xmm0,qword ptr tan_q_0 ; x8+q6+q4+q2+q0 + + divsd xmm4,xmm0 ; p/q + + mulsd xmm3,xmm1 ; x3 + movsd xmm0,xmm1 ; x + + mulsd xmm3,xmm4 + addsd xmm0,xmm3 + + ret + +tan_real_m_0_5: + ucomisd xmm0,qword ptr real_m_0_542 + jb tan_real_n_s_0_5 + + movlpd xmm1,qword ptr atan_0_5_53 + movlpd xmm10,qword ptr real_49_bits + + addsd xmm1,xmm0 + andpd xmm10,xmm0 ; x_h + + lea rdx,tan_n_0_5_t + addsd xmm1,qword ptr atan_0_5_53_l ; y=x+atan 0.5 + jmp tan_real_0_5_a_s_0_5_a_s_2 + +tan_real_n_s_0_5: + movlpd xmm1,qword ptr atan_sqrt_0_5 + movlpd xmm10,qword ptr real_51_bits + + addsd xmm1,xmm0 + andpd xmm10,xmm0 ; x_h + + lea rdx,tan_n_s_0_5_t + addsd xmm1,qword ptr atan_sqrt_0_5_l ; y=x+atan sqrt 0.5 + jmp tan_real_0_5_a_s_0_5_a_s_2 + +tan_real_0_5: + ucomisd xmm0,qword ptr real_0_542 + ja tan_real_s_0_5 + + movlpd xmm1,qword ptr m_atan_0_5_53 + movlpd xmm10,qword ptr real_49_bits + + addsd xmm1,xmm0 + andpd xmm10,xmm0 ; x_h + + lea rdx,tan_0_5_t + subsd xmm1,qword ptr atan_0_5_53_l ; y=x-atan 0.5 + jmp tan_real_0_5_a_s_0_5_a_s_2 + +tan_real_s_0_5: + movlpd xmm1,qword ptr m_atan_sqrt_0_5 + movlpd xmm10,qword ptr real_51_bits + + addsd xmm1,xmm0 + andpd xmm10,xmm0 ; x_h + + lea rdx,tan_s_0_5_t + subsd xmm1,qword ptr atan_sqrt_0_5_l ; y=x-atan sqrt 0.5 + +tan_real_0_5_a_s_0_5_a_s_2: + subsd xmm0,xmm10 ; x_l + + movsd xmm2,xmm1 ; y + mulsd xmm1,xmm1 ; y2 + + mulsd xmm10,qword ptr [rdx] ; 1.25|1.5|3*x_h + + movlpd xmm7,qword ptr tan3_q_1 + movlpd xmm6,qword ptr tan3_q_2 + + movsd xmm3,xmm1 ; y2 + mulsd xmm1,xmm1 ; y4 + + movlpd xmm9,qword ptr tan3_q_3 + mulsd xmm7,xmm3 ; q2 + + movsd xmm4,xmm3 ; y2 + mulsd xmm3,xmm1 ; y6 + + movlpd xmm8,qword ptr tan3_p_0 + + movsd xmm5,xmm1 ; y4 + mulsd xmm1,xmm1 ; y8 + + mulsd xmm9,xmm3 ; q6 + mulsd xmm3,qword ptr tan3_p_2 ; p6 + + mulsd xmm6,xmm5 ; q4 + mulsd xmm5,qword ptr tan3_p_1 ; p4 + + addsd xmm1,xmm9 ; y8+q6 + + mulsd xmm8,xmm4 ; p2 + + addsd xmm1,xmm6 ; y8+q6+q4 + + mulsd xmm0,qword ptr [rdx] ; 1.25|1.5|3*x_l + + movlpd xmm6,qword ptr 8[rdx] ; 0.5|sqrt 0.5|sqrt 2 + + addsd xmm3,xmm5 ; p6+p4 + addsd xmm1,xmm7 ; y8+q6+q4+q2 + + mulsd xmm6,xmm2 ; 0.5|sqrt 0.5|sqrt 2*y + + addsd xmm3,xmm8 ; p6+p4+p2 + addsd xmm1,qword ptr tan3_q_0 ; y8+q6+q4+q2+q0 + + movsd xmm4,xmm3 ; p + addsd xmm4,xmm1 ; p+q + + mulsd xmm4,xmm6 ; 0.5|sqrt 0.5|sqrt 2*y*(p+q) + + mulsd xmm2,qword ptr [rdx] ; 1.25|1.5|3*y + + addsd xmm3,xmm4 ; p+y*(p+q) + subsd xmm1,xmm4 ; q-y*(p+q) + + divsd xmm3,xmm1 ; (p-y*(p+q))/(q+y*(p+q)) + + addsd xmm0,qword ptr 16[rdx] ; (0.5-1.25atan0.5)_49_l | (sqrt0.5-1.5atan(sqrt0.5))_l | (sqrt2-3atan(sqrt2))_l + + mulsd xmm2,xmm3 ; 1.25|1.5|3 * y * (p-y*(p+q))/(q+y*(p+q)) + + addsd xmm10,qword ptr 24[rdx] ; (0.5-1.25atan0.5)_49 | sqrt0.5-1.5atan(sqrt0.5) | sqrt2-3atan(sqrt2) + + addsd xmm0,xmm2 + + addsd xmm0,xmm10 ; 0.5|sqrt 0.5|sqrt 2+1.25|1.5|3y+1.25|1.5|3y * .. + + ret + +tan_real_n_1: + ucomisd xmm0,qword ptr real_m_0_699 + ja tan_real_m_0_5 + +tan_real_n_1_2: + movlpd xmm1,qword ptr real_pi_d_4 + + addsd xmm1,xmm0 + addsd xmm0,xmm0 ; 2x + + addsd xmm1,qword ptr real_pi_d_4_l ; y=pi/4+x + + addsd xmm0,qword ptr real_pi_d_2_m_1_0_52 ; 1+2x-pi/2=1-2y + movlpd xmm10,qword ptr real_m_pi_d_2_m_1_0_52_l + movlpd xmm11,qword ptr real_m_2_0 + jmp tan_real_1_2_ + +tan_real_1_2: + movlpd xmm1,qword ptr real_pi_d_4 + + subsd xmm1,xmm0 + addsd xmm0,xmm0 ; 2x + + addsd xmm1,qword ptr real_pi_d_4_l ; y=pi/4-x + subsd xmm0,qword ptr real_pi_d_2_m_1_0_52 ; 1+2x-pi/2=1-2y + movlpd xmm10,qword ptr real_pi_d_2_m_1_0_52_l + movlpd xmm11,qword ptr real_2_0 + +tan_real_1_2_: + movsd xmm2,xmm1 ; y + mulsd xmm1,xmm1 ; y2 + + movlpd xmm7,qword ptr tan3_q_1 + movlpd xmm6,qword ptr tan3_q_2 + + movsd xmm3,xmm1 ; y2 + mulsd xmm1,xmm1 ; y4 + + movlpd xmm9,qword ptr tan3_q_3 + mulsd xmm7,xmm3 ; q2 + + movsd xmm4,xmm3 ; y2 + mulsd xmm3,xmm1 ; y6 + + movlpd xmm8,qword ptr tan3_p_0 + + movsd xmm5,xmm1 ; y4 + mulsd xmm1,xmm1 ; y8 + + mulsd xmm9,xmm3 ; q6 + mulsd xmm3,qword ptr tan3_p_2 ; p6 + + mulsd xmm6,xmm5 ; q4 + mulsd xmm5,qword ptr tan3_p_1 ; p4 + + addsd xmm1,xmm9 ; y8+q6 + + mulsd xmm8,xmm4 ; p2 + + addsd xmm1,xmm6 ; y8+q6+q4 + + addsd xmm3,xmm5 ; p6+p4 + addsd xmm1,xmm7 ; y8+q6+q4+q2 + + addsd xmm3,xmm8 ; p6+p4+p2 + addsd xmm1,qword ptr tan3_q_0 ; y8+q6+q4+q2+q0 + + movsd xmm4,xmm3 ; p + addsd xmm4,xmm1 ; p+q + + mulsd xmm4,xmm2 ; y*(p+q) + mulsd xmm2,xmm11 ; 2y + + subsd xmm3,xmm4 ; p-y*(p+q) + addsd xmm1,xmm4 ; q+y*(p+q) + + divsd xmm3,xmm1 ; (p-y*(p+q))/(q+y*(p+q)) + + mulsd xmm2,xmm3 ; 2y * (p-y*(p+q))/(q+y*(p+q)) + + addsd xmm2,xmm10 + + subsd xmm0,xmm2 ; 1-2y-2y * .. + + ret + +tan_real_n_4: + ucomisd xmm0,qword ptr real_n_pi_p_1_18 + + movlpd xmm1,qword ptr real_m_3_pi_d_2 + movlpd xmm12,qword ptr real_m_3_pi_d_2_l + + ja tan_real_n_2_0_4_n + + ucomisd xmm0,qword ptr real_n_2pi_m_0_89 + jb tan_real_n_1_0_2 + ucomisd xmm0,qword ptr real_n_2pi_m_1_18 + jb tan_real_n_2_0_4_p + jmp tan_real_24 + +tan_real_4: + ucomisd xmm0,qword ptr real_pi_p_1_18 + + movlpd xmm1,qword ptr real_3_pi_d_2 + movlpd xmm12,qword ptr real_3_pi_d_2_l + + jb tan_real_2_0_2_p + + ucomisd xmm0,qword ptr real_2pi_m_0_89 + ja tan_real_1_0_2 + ucomisd xmm0,qword ptr real_2pi_m_1_18 + ja tan_real_2_0_4_n + jmp tan_real_24 + +tan_real_n_2: + ucomisd xmm0,qword ptr real_m_1_18 + ja tan_real_n_s_2 + + movlpd xmm1,qword ptr real_m_pi_d_2 + movlpd xmm12,qword ptr real_m_pi_d_2_l + + ucomisd xmm0,qword ptr real_n_pi_m_0_89 + jb tan_real_n_1_0_2 + ucomisd xmm0,qword ptr real_n_pi_m_1_18 + jb tan_real_n_2_0_2_n + + jmp tan_real_24 + +tan_real_2: + ucomisd xmm0,qword ptr real_1_18 + jb tan_real_s_2 + + movlpd xmm1,qword ptr real_pi_d_2 + movlpd xmm12,qword ptr real_pi_d_2_l + + ucomisd xmm0,qword ptr real_pi_m_0_89 + ja tan_real_1_0_2 + ucomisd xmm0,qword ptr real_pi_m_1_18 + ja tan_real_2_0_2_n + +tan_real_24: + subsd xmm1,xmm0 ; y_1 + +tan_real_2_: + movlpd xmm2,qword ptr real_18_bits + movsd xmm3,xmm12 + + andpd xmm2,xmm1 ; y_1_h + addsd xmm3,xmm1 ; y + + movsd xmm6,xmm1 ; y_1 + subsd xmm1,xmm2 ; y_1-y_1_h + + movsd xmm0,xmm2 ; y_1_h + addsd xmm2,xmm3 ; y+y_1_h + addsd xmm1,xmm12 ; y_1_l + + mulsd xmm0,xmm0 ; y_1_h^2 + mulsd xmm1,xmm2 ; (y+y_1_h)*y_1_l + + movsd xmm13,xmm0 ; y_1_h^2 + addsd xmm0,xmm1 ; y^2 + + movsd xmm14,xmm1 ; (y_1^2)_l + movsd xmm1,xmm3 ; y + subsd xmm3,xmm6 ; y-y_1 + + movlpd xmm5,qword ptr tan2_q_1 + movlpd xmm9,qword ptr tan2_p_0 + + subsd xmm12,xmm3 ; y_s + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + mulsd xmm5,xmm2 ; q2 + mulsd xmm9,xmm2 ; p2 + + movlpd xmm6,qword ptr tan2_q_2 + movlpd xmm11,qword ptr tan2_p_1 + + movsd xmm3,xmm2 ; x2 + mulsd xmm2,xmm1 ; x3 + + movsd xmm8,xmm1 ; x + + movlpd xmm10,qword ptr real_0_5 + + mulsd xmm6,xmm0 ; q4 + mulsd xmm11,xmm0 ; p4 + + addsd xmm5,xmm6 ; q4+q2 + + movlpd xmm7,qword ptr real_1_0 + + mulsd xmm10,xmm3 ; 0.5*x2 + mulsd xmm3,xmm0 ; x6 + + addsd xmm5,qword ptr tan2_q_0 ; q4+q2+q0 + + mulsd xmm0,xmm0 ; x8 + mulsd xmm3,qword ptr tan2_p_2 ; p6 + + mulsd xmm5,xmm2 ; (q4+q2+q0)*x3 + + mulsd xmm0,qword ptr tan2_p_3 ; p8 + + movsd xmm2,xmm5 ; (q4+q2+q0)*x3 + addsd xmm5,xmm8 ; (q4+q2+q0)*x3+x + + addsd xmm0,xmm3 ; p8+p6 + + divsd xmm7,xmm5 ; 1/(q4+q2+q0)*x3+x + + movlpd xmm4,qword ptr real_25_bits + + addsd xmm0,xmm11 ; p8+p6+p4 + + andpd xmm5,xmm4 ; q_h + + addsd xmm0,xmm9 ; p8+p6+p4+p2 + + movlpd xmm9,qword ptr real_18_bits + +; ucomisd xmm8,qword ptr real_0_4 + ucomisd xmm10,qword ptr real_2_p_m_31 + + subsd xmm8,xmm5 ; x-q_h + + addsd xmm8,xmm2 ; q_l=q-q_h + movlpd xmm6,qword ptr real_1_0 + + jb tan_real_2_s ; x<1.25*2**-16 + +tan_real_2_1: + movsd xmm3,xmm0 ; p + + mulsd xmm14,qword ptr real_0_5 ; (0.5*x2)_l + mulsd xmm13,qword ptr real_0_5 ; (0.5*x2)_h + + subsd xmm3,xmm10 ; p-0.5*x2 + addsd xmm8,xmm12 ; q_l+y_s + + subsd xmm0,xmm14 ; p-(0.5*x2)_l + + andpd xmm9,xmm7 ; (1/q)_h + + mulsd xmm5,xmm9 ; q_h*(1/q)_h + mulsd xmm8,xmm9 ; q_l*(1/q)_h + + mulsd xmm13,xmm9 ; (0.5*x2)_h*(1/q)_h + mulsd xmm0,xmm9 ; (p-(0.5*x2)_l)*(1/q)_h + movlpd xmm1,qword ptr real_21_bits + + subsd xmm6,xmm5 ; 1-q_h*(1/q)_h + + andpd xmm1,xmm0 ; ((p-(0.5*x2)_l)*(1/q)_h)_h + + subsd xmm6,xmm8 ; 1-(q_h+q_l)*(1/q)_h + + subsd xmm0,xmm1 ; ((p-(0.5*x2)_l)*(1/q)_h)_l + subsd xmm1,xmm13 ; ((p-(0.5*x2)_l)*(1/q)_h)_h-(0.5*x2)_h*(1/q)_h + movlpd xmm2,qword ptr real_21_bits + + mulsd xmm7,xmm6 ; (1/q)_l + + andpd xmm2,xmm1 ; (((p-(0.5*x2)_l)*(1/q)_h)_h-(0.5*x2)_h*(1/q)_h)_h + + mulsd xmm3,xmm7 ; (p-0.5x2)*(1/q)_l + + subsd xmm1,xmm2 ; (((p-(0.5*x2)_l)*(1/q)_h)_h-(0.5*x2)_h*(1/q)_l + addsd xmm2,xmm9 ; (((p-(0.5*x2)_l)*(1/q)_h)_h-(0.5*x2)_h*(1/q)_h)_h+(1/q)_h + + addsd xmm0,xmm3 ; ((p-(0.5*x2)_l)*(1/q)_h)_l+(p-0.5x2)*(1/q)_l + + addsd xmm0,xmm7 ; ((p-(0.5*x2)_l)*(1/q)_h)_l+(p-0.5x2)*(1/q)_l+(1/q)_l + + addsd xmm0,xmm1 ; ((p-(0.5*x2)_l)*(1/q)_h)+(p-0.5x2)*(1/q)_l+(1/q)_l + ; -(0.5*x2)_h*(1/q)_l + addsd xmm0,xmm2 + + ret + +tan_real_2_s: + subsd xmm0,xmm10 ; p-0.5*x2 + addsd xmm8,xmm12 ; q_l+y_s + + andpd xmm9,xmm7 ; (1/q)_h + + mulsd xmm0,xmm7 ; (p-0.5*x2)*(1/q) + + mulsd xmm5,xmm9 ; q_h*(1/q)_h + mulsd xmm8,xmm9 ; q_l*(1/q)_h + + subsd xmm6,xmm5 ; 1-q_h*(1/q)_h + + subsd xmm6,xmm8 ; 1-(q_h+q_l)*(1/q)_h + + mulsd xmm6,xmm7 ; (1/q)_l + + addsd xmm0,xmm6 ; (p/q)_l+(1/q)_l + + addsd xmm0,xmm9 ; p/q+1/q + + ret + +; x<0.4 +; subsd xmm0,xmm10 ; p-0.5*x2 +; addsd xmm8,xmm12 ; q_l+y_s + +; andpd xmm9,xmm7 ; (1/q)_h + +; mulsd xmm0,xmm7 ; (p-0.5*x2)*(1/q) + +; movlpd xmm4,qword ptr real_21_bits + +; mulsd xmm5,xmm9 ; q_h*(1/q)_h +; mulsd xmm8,xmm9 ; q_l*(1/q)_h + +; andpd xmm4,xmm0 ; (p/q)_h + +; subsd xmm6,xmm5 ; 1-q_h*(1/q)_h + +; subsd xmm0,xmm4 ; (p/q)_l +; addsd xmm4,xmm9 ; (p/q)_h+(1/q)_h + +; subsd xmm6,xmm8 ; 1-(q_h+q_l)*(1/q)_h + +; mulsd xmm6,xmm7 ; (1/q)_l + +; addsd xmm0,xmm6 ; (p/q)_l+(1/q)_l + +; addsd xmm0,xmm4 ; p/q+1/q + +; ret + +tan_real_n_s_2: + ucomisd xmm0,qword ptr real_m_1_04 + jb tan_real_n_2_0 + + movlpd xmm1,qword ptr atan_sqrt_2 + movlpd xmm10,qword ptr real_51_bits + + lea rdx,tan_n_s_2_t + + addsd xmm1,xmm0 + andpd xmm10,xmm0 ; x_h + + addsd xmm1,qword ptr atan_sqrt_2_l ; y=x+atan sqrt 2 + jmp tan_real_0_5_a_s_0_5_a_s_2 + +tan_real_s_2: + ucomisd xmm0,qword ptr real_1_04 + ja tan_real_2_0 + + movlpd xmm1,qword ptr m_atan_sqrt_2 + movlpd xmm10,qword ptr real_51_bits + + lea rdx,tan_s_2_t + + addsd xmm1,xmm0 + andpd xmm10,xmm0 ; x_h + + subsd xmm1,qword ptr atan_sqrt_2_l ; y=x-atan sqrt 2 + jmp tan_real_0_5_a_s_0_5_a_s_2 + +tan_real_n_2_0: + movlpd xmm1,qword ptr atan_2_53 + movlpd xmm10,qword ptr real_49_bits + + addsd xmm1,xmm0 + andpd xmm10,xmm0 ; x_h + + addsd xmm1,qword ptr atan_2_53_l ; y=x+atan 2 + subsd xmm0,xmm10 ; x_l + + movlpd xmm11,qword ptr real_5_atan_2_m_2_53_l + movlpd xmm12,qword ptr real_5_atan_2_m_2_53 + movlpd xmm13,qword ptr real_m_2_0 + jmp tan_real_2_0_ + +tan_real_2_0: + movlpd xmm1,qword ptr m_atan_2_53 + movlpd xmm10,qword ptr real_49_bits + + addsd xmm1,xmm0 + andpd xmm10,xmm0 ; x_h + + subsd xmm1,qword ptr atan_2_53_l ; y=x-atan 2 + subsd xmm0,xmm10 ; x_l + + movlpd xmm11,qword ptr real_n_2_m_5_atan_2_53_l + movlpd xmm12,qword ptr real_n_2_m_5_atan_2_53 + movlpd xmm13,qword ptr real_2_0 + +tan_real_2_0_: + movsd xmm2,xmm1 ; y + mulsd xmm1,xmm1 ; y2 + + mulsd xmm10,qword ptr real_5_0 ; 5*x_h + + movlpd xmm7,qword ptr tan3_q_1 + movlpd xmm6,qword ptr tan3_q_2 + + movsd xmm3,xmm1 ; y2 + mulsd xmm1,xmm1 ; y4 + + movlpd xmm9,qword ptr tan3_q_3 + mulsd xmm7,xmm3 ; q2 + + movsd xmm4,xmm3 ; y2 + mulsd xmm3,xmm1 ; y6 + + movlpd xmm8,qword ptr tan3_p_0 + + movsd xmm5,xmm1 ; y4 + mulsd xmm1,xmm1 ; y8 + + mulsd xmm9,xmm3 ; q6 + mulsd xmm3,qword ptr tan3_p_2 ; p6 + + mulsd xmm6,xmm5 ; q4 + mulsd xmm5,qword ptr tan3_p_1 ; p4 + + addsd xmm1,xmm9 ; y8+q6 + + mulsd xmm8,xmm4 ; p2 + + addsd xmm1,xmm6 ; y8+q6+q4 + + mulsd xmm0,qword ptr real_5_0 ; 5*x_l + + addsd xmm3,xmm5 ; p6+p4 + addsd xmm1,xmm7 ; y8+q6+q4+q2 + + mulsd xmm13,xmm2 ; 2*y + + addsd xmm3,xmm8 ; p6+p4+p2 + addsd xmm1,qword ptr tan3_q_0 ; y8+q6+q4+q2+q0 + + movsd xmm4,xmm3 ; p + addsd xmm4,xmm1 ; p+q + + mulsd xmm4,xmm13 ; 2*y*(p+q) + +; mulsd xmm2,qword ptr real_5_0 ; 5*y + + addsd xmm3,xmm4 ; p+y*(p+q) + subsd xmm1,xmm4 ; q-y*(p+q) + + divsd xmm3,xmm1 ; (p-y*(p+q))/(q+y*(p+q)) + + addsd xmm0,xmm11 + + mulsd xmm2,xmm3 ; y * (p-y*(p+q))/(q+y*(p+q)) + + addsd xmm10,xmm12 ; 2+5*x_h-5*atan 2=2-5*y + + mulsd xmm2,qword ptr real_5_0 ; 5*y*.. + + addsd xmm0,xmm2 + + addsd xmm0,xmm10 ; 2+5*y+5*y * .. + + ret + +tan_real_n_2_0_4_p: + ucomisd xmm0,qword ptr real_n_2pi_m_1_04 + subsd xmm1,xmm0 + jb tan_real_s_2_p + jmp tan_real_2_0_p + +tan_real_n_2_0_4_n: + ucomisd xmm0,qword ptr real_n_pi_p_1_04 + subsd xmm1,xmm0 + ja tan_real_s_2_n + jmp tan_real_2_0_n + +tan_real_n_2_0_2_n: + ucomisd xmm0,qword ptr real_n_pi_m_1_04 + subsd xmm1,xmm0 + jb tan_real_s_2_p + jmp tan_real_2_0_p + +tan_real_2_0_2_p: + ucomisd xmm0,qword ptr real_pi_p_1_04 + subsd xmm1,xmm0 + jb tan_real_s_2_p + +tan_real_2_0_p: + movlpd xmm0,qword ptr real_h_pi_m_atan_2_52 + movlpd xmm2,qword ptr real_h_pi_m_atan_2_52_l + movlpd xmm10,qword ptr real_48_bits + + subsd xmm0,xmm1 ; (0.5pi-atan 2)_h-x_h + subsd xmm2,xmm12 ; (0.5pi-atan 2)_l-x_l + andpd xmm10,xmm1 ; x_h + + movlpd xmm11,qword ptr real_m_5_0 + addsd xmm2,xmm0 ; y=0.5pi-atan 2-x + subsd xmm1,xmm10 ; x_h_l + mulsd xmm10,xmm11 ; -5x_h + + movsd xmm0,xmm2 ; y + mulsd xmm2,xmm2 ; y2 + + addsd xmm1,xmm12 ; x_h_l+x_l + addsd xmm10,qword ptr real_2_p_2_5_pi_m_5_atan_2_53 ; -5x+(2+2.5pi-5atan 2)=2+5y + + movlpd xmm12,qword ptr real_2_p_2_5_pi_m_5_atan_2_53_l + movlpd xmm13,qword ptr real_5_0 + jmp tan_real_2_0_pn + +tan_real_2_0_4_n: + ucomisd xmm0,qword ptr real_2pi_m_1_04 + subsd xmm1,xmm0 + ja tan_real_s_2_n + jmp tan_real_2_0_n + +tan_real_2_0_2_n: + ucomisd xmm0,qword ptr real_pi_m_1_04 + subsd xmm1,xmm0 + ja tan_real_s_2_n + +tan_real_2_0_n: + movlpd xmm0,qword ptr real_h_pi_m_atan_2_52 + movlpd xmm2,qword ptr real_h_pi_m_atan_2_52_l + movlpd xmm10,qword ptr real_48_bits + + addsd xmm0,xmm1 ; (0.5pi-atan 2)_h+x_h + addsd xmm2,xmm12 ; (0.5pi-atan 2)_l+x_l + andpd xmm10,xmm1 ; x_h + + movlpd xmm11,qword ptr real_m_5_0 + addsd xmm2,xmm0 ; y=0.5pi-atan 2+x + subsd xmm1,xmm10 ; x_h_l + mulsd xmm10,xmm11 ; -5x_h + + movsd xmm0,xmm2 ; y + mulsd xmm2,xmm2 ; y2 + + addsd xmm1,xmm12 ; x_h_l+x_l + subsd xmm10,qword ptr real_2_p_2_5_pi_m_5_atan_2_53 ; -5x-(2+2.5pi-5atan 2)=-2-5y + + movlpd xmm12,qword ptr real_5_atan_2_m_2_m_2_5_pi_53_l + movlpd xmm13,qword ptr real_m_5_0 + +tan_real_2_0_pn: + movlpd xmm7,qword ptr tan3_q_1 + movlpd xmm6,qword ptr tan3_q_2 + + movsd xmm3,xmm2 ; y2 + mulsd xmm2,xmm2 ; y4 + + movlpd xmm9,qword ptr tan3_q_3 + mulsd xmm7,xmm3 ; q2 + + movsd xmm4,xmm3 ; y2 + mulsd xmm3,xmm2 ; y6 + + movlpd xmm8,qword ptr tan3_p_0 + + movsd xmm5,xmm2 ; y4 + mulsd xmm2,xmm2 ; y8 + + mulsd xmm9,xmm3 ; q6 + mulsd xmm3,qword ptr tan3_p_2 ; p6 + + mulsd xmm6,xmm5 ; q4 + mulsd xmm5,qword ptr tan3_p_1 ; p4 + + addsd xmm2,xmm9 ; y8+q6 + + mulsd xmm8,xmm4 ; p2 + + addsd xmm2,xmm6 ; y8+q6+q4 + + movlpd xmm6,qword ptr real_2_0 + mulsd xmm1,xmm11 ; -5x_l + + addsd xmm3,xmm5 ; p6+p4 + addsd xmm2,xmm7 ; y8+q6+q4+q2 + + mulsd xmm6,xmm0 ; 2*y + + addsd xmm3,xmm8 ; p6+p4+p2 + addsd xmm2,qword ptr tan3_q_0 ; y8+q6+q4+q2+q0 + + movsd xmm4,xmm3 ; p + addsd xmm4,xmm2 ; p+q + + mulsd xmm4,xmm6 ; 2*y*(p+q) + + addsd xmm3,xmm4 ; p+y*(p+q) + subsd xmm2,xmm4 ; q-y*(p+q) + + divsd xmm3,xmm2 ; (p-y*(p+q))/(q+y*(p+q)) + + addsd xmm1,xmm12 + + mulsd xmm0,xmm3 ; y * (p-y*(p+q))/(q+y*(p+q)) + + mulsd xmm0,xmm13 ; -5*y*.. + + addsd xmm0,xmm1 + + addsd xmm0,xmm10 ; -2-5*y-5*y * .. + + ret + +tan_real_s_2_p: + movlpd xmm0,qword ptr real_h_pi_m_atan_s_2_53 + movlpd xmm2,qword ptr real_h_pi_m_atan_s_2_53_l + movlpd xmm10,qword ptr real_49_bits + + subsd xmm0,xmm1 ; (0.5pi-atan sqrt 2)_h-x_h + subsd xmm2,xmm12 ; (0.5pi-atan sqrt 2)_l-x_l + andpd xmm10,xmm1 ; x_h + + movlpd xmm11,qword ptr real_m_3_0 + addsd xmm2,xmm0 ; y=0.5pi-atan 2+x + subsd xmm1,xmm10 ; x_h_l + mulsd xmm10,xmm11 ; -3x_h + + movsd xmm0,xmm2 ; y + mulsd xmm2,xmm2 ; y2 + + addsd xmm1,xmm12 ; x_h_l+x_l + addsd xmm10,qword ptr real_sqrt_2_p_1_5_pi_m_3_atan_sqrt_2_53 ; -3x+(2+2.5pi-5atan 2)=sqrt 2+3y + + movlpd xmm12,qword ptr real_sqrt_2_p_1_5_pi_m_3_atan_sqrt_2_53_l + movlpd xmm13,qword ptr real_3_0 + jmp tan_real_s_2_pn + +tan_real_s_2_n: + movlpd xmm0,qword ptr real_h_pi_m_atan_s_2_53 + movlpd xmm2,qword ptr real_h_pi_m_atan_s_2_53_l + movlpd xmm10,qword ptr real_49_bits + + addsd xmm0,xmm1 ; (0.5pi-atan sqrt 2)_h+x + addsd xmm2,xmm12 ; (0.5pi-atan sqrt 2)_l+x_l + andpd xmm10,xmm1 ; x_h + + movlpd xmm11,qword ptr real_m_3_0 + addsd xmm2,xmm0 ; y=0.5pi-atan 2+x + subsd xmm1,xmm10 ; x_h_l + mulsd xmm10,xmm11 ; -3x_h + + movsd xmm0,xmm2 ; y + mulsd xmm2,xmm2 ; y2 + + addsd xmm1,xmm12 ; x_h_l+x_l + subsd xmm10,qword ptr real_sqrt_2_p_1_5_pi_m_3_atan_sqrt_2_53 ; -3x-(2+2.5pi-5atan 2)=-sqrt 2-3y + + movlpd xmm12,qword ptr real_3_atan_sqrt_2_m_sqrt_2_m_1_5_pi_m_53_l + movlpd xmm13,qword ptr real_m_3_0 + +tan_real_s_2_pn: + movlpd xmm7,qword ptr tan3_q_1 + movlpd xmm6,qword ptr tan3_q_2 + + movsd xmm3,xmm2 ; y2 + mulsd xmm2,xmm2 ; y4 + + movlpd xmm9,qword ptr tan3_q_3 + mulsd xmm7,xmm3 ; q2 + + movsd xmm4,xmm3 ; y2 + mulsd xmm3,xmm2 ; y6 + + movlpd xmm8,qword ptr tan3_p_0 + + movsd xmm5,xmm2 ; y4 + mulsd xmm2,xmm2 ; y8 + + mulsd xmm9,xmm3 ; q6 + mulsd xmm3,qword ptr tan3_p_2 ; p6 + + mulsd xmm6,xmm5 ; q4 + mulsd xmm5,qword ptr tan3_p_1 ; p4 + + addsd xmm2,xmm9 ; y8+q6 + + mulsd xmm8,xmm4 ; p2 + + addsd xmm2,xmm6 ; y8+q6+q4 + + movlpd xmm6,qword ptr sqrt_2_0 + mulsd xmm1,xmm11 ; -3x_l + + addsd xmm3,xmm5 ; p6+p4 + addsd xmm2,xmm7 ; y8+q6+q4+q2 + + mulsd xmm6,xmm0 ; sqrt 2*y + + addsd xmm3,xmm8 ; p6+p4+p2 + addsd xmm2,qword ptr tan3_q_0 ; y8+q6+q4+q2+q0 + + movsd xmm4,xmm3 ; p + addsd xmm4,xmm2 ; p+q + + mulsd xmm4,xmm6 ; sqrt 2*y*(p+q) + mulsd xmm0,xmm13 ; -3*y + + addsd xmm3,xmm4 ; p+sqrt 2*y*(p+q) + subsd xmm2,xmm4 ; q-sqrt 2*y*(p+q) + + divsd xmm3,xmm2 ; (p-y*(p+q))/(q+y*(p+q)) + + addsd xmm1,xmm12 + + mulsd xmm0,xmm3 ; -3*y * (p-y*(p+q))/(q+y*(p+q)) + + addsd xmm0,xmm1 + + addsd xmm0,xmm10 ; -sqrt 2-3*y-3*y * .. + + ret + +tan_real_1_0_2: + subsd xmm1,xmm0 + +tan_real_1_0_n: + movlpd xmm0,qword ptr real_m_pi_d_4 + movlpd xmm2,qword ptr real_m_pi_d_4_l + + subsd xmm0,xmm1 ; -(pi/4)_h-x_h + subsd xmm2,xmm12 ; -(pi/4)_l-x_l + mulsd xmm1,qword ptr real_m_2_0 ; -2x + + addsd xmm2,xmm0 ; y=-pi/4-x + addsd xmm12,xmm12 ; 2x_l + subsd xmm1,qword ptr real_pi_d_2_p_1_0 ; -2x-(pi/2+1)=-1-2y + + movlpd xmm10,qword ptr real_pi_d_2_p_1_0_l + movlpd xmm11,qword ptr real_2_0 + jmp tan_real_1_0_pn + +tan_real_n_1_0_2: + subsd xmm1,xmm0 + +tan_real_1_0_2_p: + movlpd xmm0,qword ptr real_m_pi_d_4 + movlpd xmm2,qword ptr real_m_pi_d_4_l + movlpd xmm11,qword ptr real_m_2_0 + + addsd xmm0,xmm1 ; -(pi/4)_h+x_h + addsd xmm2,xmm12 ; -(pi/4)_l+x_l + mulsd xmm1,xmm11 ; -2x + + addsd xmm2,xmm0 ; y=pi/4-x + addsd xmm12,xmm12 ; 2x_l + addsd xmm1,qword ptr real_pi_d_2_p_1_0 ; (pi/2+1)-2x-=1+2y + + movlpd xmm10,qword ptr real_m_pi_d_2_p_1_0_l + jmp tan_real_1_0_pn + +tan_real_n_5: + ucomisd xmm0,qword ptr real_n_2pi_m_0_338 + movlpd xmm12,qword ptr real_m_2_pi_l + movlpd xmm1,qword ptr real_2_pi + ja tan_real_n_s_0_5_5_p + ucomisd xmm0,qword ptr real_n_2pi_p_0_338 + ja tan_real_5_n + ucomisd xmm0,qword ptr real_n_2pi_p_0_699 + ja tan_real_n_s_0_5_5_n + addsd xmm0,xmm1 + jmp tan_real_1_0_3_n + +tan_real_5: + ucomisd xmm0,qword ptr real_2pi_m_0_338 + movlpd xmm12,qword ptr real_2_pi_l + movlpd xmm1,qword ptr real_2_pi + jb tan_real_s_0_5_5 + ucomisd xmm0,qword ptr real_2pi_p_0_338 + jb tan_real_5_0 + ucomisd xmm0,qword ptr real_2pi_p_0_699 + jb tan_real_s_0_5_5_p + subsd xmm0,xmm1 + jmp tan_real_1_0_3 + +tan_real_n_3: + ucomisd xmm0,qword ptr real_n_pi_m_0_338 + movlpd xmm12,qword ptr real_m_pi_l + movlpd xmm1,qword ptr real_pi + ja tan_real_n_s_0_5_3_p + ucomisd xmm0,qword ptr real_n_pi_p_0_338 + ja tan_real_3_n + ucomisd xmm0,qword ptr real_n_pi_p_0_699 + ja tan_real_n_s_0_5_3_n + addsd xmm0,xmm1 + jmp tan_real_1_0_3_n + +tan_real_3: + ucomisd xmm0,qword ptr real_pi_m_0_338 + movlpd xmm1,qword ptr real_pi + movlpd xmm12,qword ptr real_pi_l + jb tan_real_s_0_5_3 + ucomisd xmm0,qword ptr real_pi_p_0_338 + jb tan_real_3_0 + ucomisd xmm0,qword ptr real_pi_p_0_699 + jb tan_real_s_0_5_3_p + subsd xmm0,xmm1 + jmp tan_real_1_0_3 + +tan_real_5_n: +tan_real_3_n: + addsd xmm0,xmm1 + jmp tan_real_3_ + +tan_real_5_0: +tan_real_3_0: + subsd xmm0,xmm1 + +tan_real_3_: + movlpd xmm2,qword ptr real_26_bits + + andpd xmm2,xmm0 ; y_1_h + movsd xmm1,xmm0 ; y_1 + + subsd xmm1,xmm12 ; y + movsd xmm8,xmm0 ; y_1 + subsd xmm0,xmm2 ; y_1-y_1_h + + movsd xmm3,xmm2 ; y_1_h + addsd xmm2,xmm1 ; y+y_1_h + subsd xmm0,xmm12 ; y_1_l + + mulsd xmm3,xmm3 ; y_1_h^2 + mulsd xmm0,xmm2 ; (y+y_1_h)*y_1_l + + addsd xmm0,xmm3 ; y^2 + + subsd xmm8,xmm1 ; y_1-y + + movlpd xmm6,qword ptr tan_q_1 + movlpd xmm5,qword ptr tan_q_2 + + subsd xmm8,xmm12 ; y_s + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + movlpd xmm7,qword ptr tan_p_1 + mulsd xmm6,xmm2 ; q2 + + movsd xmm3,xmm2 ; x2 + mulsd xmm2,xmm0 ; x6 + + movsd xmm4,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + mulsd xmm5,xmm4 ; q4 + mulsd xmm2,qword ptr tan_q_3 ; q6 + + mulsd xmm4,qword ptr tan_p_2 ; p4 + + addsd xmm0,xmm2 ; x8+q6 + + mulsd xmm7,xmm3 ; p2 + + addsd xmm0,xmm5 ; x8+q6+q4 + + addsd xmm4,xmm7 ; p4+p2 + + addsd xmm0,xmm6 ; x8+q6+q4+q2 + + addsd xmm4,qword ptr tan_p_0 ; p4+p2+p0 + + addsd xmm0,qword ptr tan_q_0 ; x8+q6+q4+q2+q0 + + divsd xmm4,xmm0 ; p/q + + mulsd xmm3,xmm1 ; x3 + movsd xmm0,xmm1 ; x + +; movlpd xmm2,qword ptr real_0_125 + + mulsd xmm3,xmm4 + +; ucomisd xmm3,xmm2 +; jae tan_real_3_1 + + addsd xmm3,xmm8 + + addsd xmm0,xmm3 + + ret + +;tan_real_3_1: +; subsd xmm3,xmm2 +; addsd xmm0,xmm2 + +; addsd xmm3,xmm8 + +; addsd xmm0,xmm3 + +; ret + +tan_real_1_0_3: + movlpd xmm1,qword ptr real_pi_d_4 + movlpd xmm2,qword ptr real_pi_d_4_l + + subsd xmm1,xmm0 ; (pi/4)_h-x + addsd xmm2,xmm12 ; (pi/4)_l+n_x_l + mulsd xmm0,qword ptr real_2_0 ; 2x + + addsd xmm2,xmm1 ; y=pi/4-x + movlpd xmm1,qword ptr real_1_0_m_pi_d_2_52 + addsd xmm12,xmm12 ; 2n_x_l + addsd xmm1,xmm0 ; 2x+(1-pi/2)=1-2y + + movlpd xmm11,qword ptr real_m_2_0 + movlpd xmm10,qword ptr real_pi_d_2_m_1_0_52_l + + jmp tan_real_1_0_pn + +tan_real_1_0_3_n: + movlpd xmm1,qword ptr real_pi_d_4 + movlpd xmm2,qword ptr real_pi_d_4_l + + addsd xmm1,xmm0 + subsd xmm2,xmm12 ; (pi/4)_l-n_x_l + mulsd xmm0,qword ptr real_2_0 ; 2x + + addsd xmm2,xmm1 ; y=pi/4+x + movlpd xmm1,qword ptr real_pi_d_2_m_1_0_52 + addsd xmm12,xmm12 ; 2n_x_l + addsd xmm1,xmm0 ; 2x+(pi/2-1)=-1+2y + + movlpd xmm11,qword ptr real_2_0 + movlpd xmm10,qword ptr real_m_pi_d_2_m_1_0_52_l + +tan_real_1_0_pn: + movsd xmm0,xmm2 ; y + mulsd xmm2,xmm2 ; y2 + + movlpd xmm7,qword ptr tan3_q_1 + movlpd xmm6,qword ptr tan3_q_2 + + movsd xmm3,xmm2 ; y2 + mulsd xmm2,xmm2 ; y4 + + movlpd xmm9,qword ptr tan3_q_3 + mulsd xmm7,xmm3 ; q2 + + movsd xmm4,xmm3 ; y2 + mulsd xmm3,xmm2 ; y6 + + movlpd xmm8,qword ptr tan3_p_0 + + movsd xmm5,xmm2 ; y4 + mulsd xmm2,xmm2 ; y8 + + mulsd xmm9,xmm3 ; q6 + mulsd xmm3,qword ptr tan3_p_2 ; p6 + + mulsd xmm6,xmm5 ; q4 + mulsd xmm5,qword ptr tan3_p_1 ; p4 + + addsd xmm2,xmm9 ; y8+q6 + + mulsd xmm8,xmm4 ; p2 + + addsd xmm2,xmm6 ; y8+q6+q4 + + addsd xmm3,xmm5 ; p6+p4 + addsd xmm2,xmm7 ; y8+q6+q4+q2 + + addsd xmm3,xmm8 ; p6+p4+p2 + addsd xmm2,qword ptr tan3_q_0 ; y8+q6+q4+q2+q0 + + movsd xmm4,xmm3 ; p + addsd xmm4,xmm2 ; p+q + + mulsd xmm4,xmm0 ; y*(p+q) + mulsd xmm0,xmm11 ; -2y | 2y + + subsd xmm3,xmm4 ; p-y*(p+q) + addsd xmm2,xmm4 ; q+y*(p+q) + + divsd xmm3,xmm2 ; (p-y*(p+q))/(q+y*(p+q)) + + addsd xmm12,xmm10 + + mulsd xmm0,xmm3 ; -2y * (p-y*(p+q))/(q+y*(p+q)) | 2y * (p-y*(p+q))/(q+y*(p+q)) + + subsd xmm0,xmm12 + + addsd xmm0,xmm1 ; 1-2y-2y * .. | -1+2y+2y * .. + + ret + +tan_real_n_s_0_5_5_p: + ucomisd xmm0,qword ptr real_n_2pi_m_0_542 + addsd xmm0,xmm1 + jb tan_real_0_5_p + jmp tan_real_s_0_5_p + +tan_real_s_0_5_5_p: + ucomisd xmm0,qword ptr real_2pi_p_0_542 + subsd xmm0,xmm1 + jb tan_real_0_5_p + jmp tan_real_s_0_5_p + +tan_real_n_s_0_5_3_p: + ucomisd xmm0,qword ptr real_n_pi_m_0_542 + addsd xmm0,xmm1 + jb tan_real_0_5_p + jmp tan_real_s_0_5_p + +tan_real_s_0_5_3_p: + ucomisd xmm0,qword ptr real_pi_p_0_542 + subsd xmm0,xmm1 + jb tan_real_0_5_p + +tan_real_s_0_5_p: + movlpd xmm1,qword ptr atan_sqrt_0_5 + movlpd xmm2,qword ptr atan_sqrt_0_5_l + movlpd xmm10,qword ptr real_51_bits + + subsd xmm1,xmm0 ; atan sqrt 0.5_h-x + addsd xmm2,xmm12 ; atan sqrt 0.5_l+n_x_l + andpd xmm10,xmm0 ; x_h + + movlpd xmm11,qword ptr real_1_5 + addsd xmm2,xmm1 ; y=atan sqrt 0.5-x + subsd xmm0,xmm10 ; x_h_l + mulsd xmm10,xmm11 ; 1.5x_h + + movsd xmm1,xmm2 ; y + mulsd xmm2,xmm2 ; y2 + + subsd xmm0,xmm12 ; x_h_l-n_x_l + addsd xmm10,qword ptr sqrtn_0_5_m_1_5_atann_sqrt_0_5 ; 1.5x+(sqrt 0.5-1.5atan sqrt 0.5)=sqrt 0.5+1.5y + + movlpd xmm12,qword ptr sqrtn_0_5_m_1_5_atann_sqrt_0_5_l + movlpd xmm13,qword ptr real_m_1_5 + movlpd xmm14,qword ptr sqrt_0_5 + jmp tan_real_0_5_a_s_0_5_3_pn + +tan_real_n_s_0_5_5_n: + ucomisd xmm0,qword ptr real_n_2pi_p_0_542 + addsd xmm0,xmm1 + ja tan_real_0_5_n + jmp tan_real_s_0_5_n + +tan_real_s_0_5_5: + ucomisd xmm0,qword ptr real_2pi_m_0_542 + subsd xmm0,xmm1 + ja tan_real_0_5_n + jmp tan_real_s_0_5_n + +tan_real_n_s_0_5_3_n: + ucomisd xmm0,qword ptr real_n_pi_p_0_542 + addsd xmm0,xmm1 + ja tan_real_0_5_n + jmp tan_real_s_0_5_n + +tan_real_s_0_5_3: + ucomisd xmm0,qword ptr real_pi_m_0_542 + subsd xmm0,xmm1 + ja tan_real_0_5_n + +tan_real_s_0_5_n: + movlpd xmm1,qword ptr atan_sqrt_0_5 + movlpd xmm2,qword ptr atan_sqrt_0_5_l + movlpd xmm10,qword ptr real_51_bits + + addsd xmm1,xmm0 ; x_h+atan sqrt 0.5_h + subsd xmm2,xmm12 ; -n_x_l+atan sqrt 0.5_l + andpd xmm10,xmm0 ; x_h + + movlpd xmm11,qword ptr real_1_5 + addsd xmm2,xmm1 ; y=x+atan sqrt 0.5 + subsd xmm0,xmm10 ; x_h_l + mulsd xmm10,xmm11 ; 1.5x_h + + movsd xmm1,xmm2 ; y + mulsd xmm2,xmm2 ; y2 + + subsd xmm0,xmm12 ; x_h_l-n_x_l + subsd xmm10,qword ptr sqrtn_0_5_m_1_5_atann_sqrt_0_5 ; 1.5x-(sqrt 0.5-1.5atan sqrt 0.5)=-sqrt 0.5+1.5y + + movlpd xmm12,qword ptr n_sqrtn_0_5_m_1_5_atann_sqrt_0_5_l + movlpd xmm13,qword ptr real_1_5 + movlpd xmm14,qword ptr sqrt_0_5 + +tan_real_0_5_a_s_0_5_3_pn: + movlpd xmm7,qword ptr tan3_q_1 + movlpd xmm6,qword ptr tan3_q_2 + + movsd xmm3,xmm2 ; y2 + mulsd xmm2,xmm2 ; y4 + + movlpd xmm9,qword ptr tan3_q_3 + mulsd xmm7,xmm3 ; q2 + + movsd xmm4,xmm3 ; y2 + mulsd xmm3,xmm2 ; y6 + + movlpd xmm8,qword ptr tan3_p_0 + + movsd xmm5,xmm2 ; y4 + mulsd xmm2,xmm2 ; y8 + + mulsd xmm9,xmm3 ; q6 + mulsd xmm3,qword ptr tan3_p_2 ; p6 + + mulsd xmm6,xmm5 ; q4 + mulsd xmm5,qword ptr tan3_p_1 ; p4 + + addsd xmm2,xmm9 ; y8+q6 + + mulsd xmm8,xmm4 ; p2 + + addsd xmm2,xmm6 ; y8+q6+q4 + + mulsd xmm0,xmm11 ; 1.25|1.5x_l + + addsd xmm3,xmm5 ; p6+p4 + addsd xmm2,xmm7 ; y8+q6+q4+q2 + + mulsd xmm14,xmm1 ; 0.5|sqrt 0.5*y + + addsd xmm3,xmm8 ; p6+p4+p2 + addsd xmm2,qword ptr tan3_q_0 ; y8+q6+q4+q2+q0 + + movsd xmm4,xmm3 ; p + addsd xmm4,xmm2 ; p+q + + mulsd xmm4,xmm14 ; 0.5|sqrt 0.5*y*(p+q) + + subsd xmm3,xmm4 ; p-sqrt 0.5*y*(p+q) + addsd xmm2,xmm4 ; q+sqrt 0.5*y*(p+q) + + divsd xmm3,xmm2 ; (p-y*(p+q))/(q+y*(p+q)) + + addsd xmm0,xmm12 + + mulsd xmm1,xmm3 ; y * (p-y*(p+q))/(q+y*(p+q)) + + mulsd xmm1,xmm13 ; 1.25|1.5*y*.. + + addsd xmm0,xmm1 + + addsd xmm0,xmm10 ; 0.5|sqrt 0.5+1.25|1.5*y+1.25|1.5*y * .. + + ret + +tan_real_0_5_p: + movlpd xmm1,qword ptr atan_0_5_53 + movlpd xmm2,qword ptr atan_0_5_53_l + movlpd xmm10,qword ptr real_50_bits + + subsd xmm1,xmm0 ; atan 0.5_h-x + addsd xmm2,xmm12 ; atan 0.5_l-n_x_l + andpd xmm10,xmm0 ; x_h + + movlpd xmm11,qword ptr real_1_25 + addsd xmm2,xmm1 ; y=x+atan 0.5 + subsd xmm0,xmm10 ; x_h_l + mulsd xmm10,xmm11 ; 1.25x_h + + movsd xmm1,xmm2 ; y + mulsd xmm2,xmm2 ; y2 + + subsd xmm0,xmm12 ; x_h_l-n_x_l + addsd xmm10,qword ptr real_0_5_m_1_25_atan_0_5_49 ; 1.25x+(0.5-1.25atan 0.5)=0.5+1.25y + + movlpd xmm12,qword ptr real_0_5_m_1_25_atan_0_5_49_l + movlpd xmm13,qword ptr real_m_1_25 + movlpd xmm14,qword ptr real_0_5 + jmp tan_real_0_5_a_s_0_5_3_pn + +tan_real_0_5_n: + movlpd xmm1,qword ptr atan_0_5_53 + movlpd xmm2,qword ptr atan_0_5_53_l + movlpd xmm10,qword ptr real_50_bits + + addsd xmm1,xmm0 ; x_h+atan 0.5_h + subsd xmm2,xmm12 ; -n_x_l+atan 0.5_l + andpd xmm10,xmm0 ; x_h + + movlpd xmm11,qword ptr real_1_25 + addsd xmm2,xmm1 ; y=x+atan 0.5 + subsd xmm0,xmm10 ; x_h_l + mulsd xmm10,xmm11 ; 1.25x_h + + movsd xmm1,xmm2 ; y + mulsd xmm2,xmm2 ; y2 + + subsd xmm0,xmm12 ; x_h_l-n_x_l + subsd xmm10,qword ptr real_0_5_m_1_25_atan_0_5_49 ; 1.25x-(0.5-1.25atan 0.5)=-0.5+1.25y + + movlpd xmm12,qword ptr real_1_25_atan_0_5_m_0_5_49_l + movlpd xmm13,qword ptr real_1_25 + movlpd xmm14,qword ptr real_0_5 + jmp tan_real_0_5_a_s_0_5_3_pn + + +sin_cos_or_tan_real_too_large: +sin_cos_or_tan_real_too_small_or_nan: + subsd xmm0,xmm0 + ret + +rem_36825084_pi: + movsd xmm1,xmm0 + divsd xmm0,qword ptr real_36825084_pi + + movq xmm4,qword ptr round_c + movq xmm2,xmm0 + psrlq xmm0,52 + psubq xmm4,xmm0 + movq xmm5,qword ptr mask_all_one + psllq xmm5,xmm4 + andpd xmm5,xmm2 + + movlpd xmm2,qword ptr real_36825084_pi_27 + movlpd xmm3,qword ptr real_36825084_pi_27_27 + movlpd xmm4,qword ptr real_36825084_pi_54_l + + movsd xmm0,xmm1 + + mulsd xmm2,xmm5 + mulsd xmm3,xmm5 + mulsd xmm4,xmm5 + + subsd xmm0,xmm2 + subsd xmm0,xmm3 + movsd xmm7,xmm0 + subsd xmm0,xmm4 + + subsd xmm7,xmm0 + subsd xmm7,xmm4 + + movlpd xmm1,qword ptr real_4_d_pi + + mulsd xmm1,xmm0 ; x*4/pi + + ucomisd xmm1,qword ptr real_3_0 + jae rem_36825084_pi_g3 + + ucomisd xmm1,qword ptr real_1_0 + jae rem_36825084_pi_g1 + + movlpd xmm1,qword ptr real_0_0 + movsd xmm5,xmm1 + movsd xmm6,xmm1 + ret + +rem_36825084_pi_g1: + movlpd xmm1,qword ptr real_2_0 + movlpd xmm5,qword ptr real_0_0 + movsd xmm6,xmm1 + ret + +rem_36825084_pi_g3: + addsd xmm1,qword ptr real_1_0 ; x*4/pi+1 + + movq xmm4,qword ptr round_even_c + movq xmm2,xmm1 + psrlq xmm1,52 + psubq xmm4,xmm1 + movq xmm1,qword ptr mask_all_one + psllq xmm1,xmm4 + andpd xmm1,xmm2 ; round_even (x*4/pi+1) + + movq xmm5,qword ptr mask_all_one_except_last + movq xmm6,qword ptr mask_all_one_except_second_last + psllq xmm5,xmm4 + psllq xmm6,xmm4 + ret + +rem_n_36825084_pi: + movsd xmm1,xmm0 + divsd xmm0,qword ptr real_36825084_pi + + movq xmm4,qword ptr m_round_c + movq xmm2,xmm0 + psrlq xmm0,52 + psubq xmm4,xmm0 + movq xmm5,qword ptr mask_all_one + psllq xmm5,xmm4 + andpd xmm5,xmm2 + + movlpd xmm2,qword ptr real_36825084_pi_27 + movlpd xmm3,qword ptr real_36825084_pi_27_27 + movlpd xmm4,qword ptr real_36825084_pi_54_l + + movsd xmm0,xmm1 + + mulsd xmm2,xmm5 + mulsd xmm3,xmm5 + mulsd xmm4,xmm5 + + subsd xmm0,xmm2 + subsd xmm0,xmm3 + movsd xmm7,xmm0 + subsd xmm0,xmm4 + + subsd xmm7,xmm0 + subsd xmm7,xmm4 + + movlpd xmm1,qword ptr real_4_d_pi + + mulsd xmm1,xmm0 ; x*4/pi + + ucomisd xmm1,qword ptr real_m_3_0 + jbe rem_n_36825084_pi_g3 + + ucomisd xmm1,qword ptr real_m_1_0 + jbe rem_n_36825084_pi_g1 + + movlpd xmm1,qword ptr real_0_0 + movsd xmm5,xmm1 + movsd xmm6,xmm1 + ret + +rem_n_36825084_pi_g1: + movlpd xmm1,qword ptr real_m_2_0 + movlpd xmm5,qword ptr real_0_0 + movsd xmm6,xmm1 + ret + +rem_n_36825084_pi_g3: + subsd xmm1,qword ptr real_1_0 ; x*4/pi-1 + + movq xmm4,qword ptr m_round_even_c + movq xmm2,xmm1 + psrlq xmm1,52 + psubq xmm4,xmm1 + movq xmm1,qword ptr mask_all_one + psllq xmm1,xmm4 + andpd xmm1,xmm2 ; round_even (x*4/pi-1) + + movq xmm5,qword ptr mask_all_one_except_last + movq xmm6,qword ptr mask_all_one_except_second_last + psllq xmm5,xmm4 + psllq xmm6,xmm4 + ret + + + public asin_real + +asin_real: + ucomisd xmm0,qword ptr real_0_4 + + lea rcx,asin_c + + ja asin_real_2 + + ucomisd xmm0,qword ptr real_m_0_4 + jb asin_real_3 ; x<0.55 | NAN + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + movlpd xmm6,qword ptr (asin_q_4-asin_c)[rcx] + movlpd xmm7,qword ptr (asin_q_3-asin_c)[rcx] + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + movlpd xmm8,qword ptr (asin_q_2-asin_c)[rcx] + movlpd xmm9,qword ptr (asin_q_1-asin_c)[rcx] + + movsd xmm4,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + movlpd xmm10,qword ptr (asin_p_1-asin_c)[rcx] + + movsd xmm3,xmm2 ; x2 + mulsd xmm3,xmm4 ; x6 + + mulsd xmm6,xmm0 ; q8 + movsd xmm5,xmm0 ; x8 + mulsd xmm0,xmm2 ; x10 + + mulsd xmm5,qword ptr (asin_p_4-asin_c)[rcx] ; p8 + + mulsd xmm7,xmm3 ; q6 + mulsd xmm3,qword ptr (asin_p_3-asin_c)[rcx] ; p6 + + addsd xmm0,xmm6 ; x10+q8 + + mulsd xmm8,xmm4 ; q4 + mulsd xmm4,qword ptr (asin_p_2-asin_c)[rcx] ; p4 + + addsd xmm0,xmm7 ; x10+q8+q6 + addsd xmm3,xmm5 ; p8+p6 + + mulsd xmm9,xmm2 ; q2 + mulsd xmm10,xmm2 ; p2 + + addsd xmm0,xmm8 ; x10+q8+q6+q4 + addsd xmm3,xmm4 ; p8+p6+p4 + + addsd xmm0,xmm9 ; x10+q8+q6+q4+q2 + addsd xmm3,xmm10 ; p8+p6+p4+p2 + + addsd xmm0,qword ptr (asin_q_0-asin_c)[rcx] ; x10+q8+q6+q4+q2+q0 + addsd xmm3,qword ptr (asin_p_0-asin_c)[rcx] ; p8+p6+p4+p2+p0 + + divsd xmm3,xmm0 ; p/q + + mulsd xmm2,xmm1 ; x3 + movsd xmm0,xmm1 ; x + + mulsd xmm2,xmm3 + addsd xmm0,xmm2 + + ret + +asin_real_2: + ucomisd xmm0,qword ptr real_0_675 + jb asin_real_0_54 + + movlpd xmm1,qword ptr real_1_0 + + ucomisd xmm0,xmm1 + subsd xmm1,xmm0 + + jae asin_real_1_or_e + + movlpd xmm11,qword ptr real_2_0 + + movsd xmm0,xmm1 ; x + mulsd xmm1,xmm1 ; x2 + + mulsd xmm11,xmm0 ; 2x + + movlpd xmm7,qword ptr (asin2_q_3-asin_c)[rcx] + + movsd xmm2,xmm1 ; x2 + mulsd xmm1,xmm1 ; x4 + + sqrtsd xmm12,xmm11 ; sqrt 2x + + movlpd xmm5,qword ptr (asin2_p_3-asin_c)[rcx] + movlpd xmm8,qword ptr (asin2_q_2-asin_c)[rcx] + + movsd xmm4,xmm1 ; x4 + + movlpd xmm9,qword ptr (asin2_q_1-asin_c)[rcx] + movlpd xmm10,qword ptr (asin2_p_1-asin_c)[rcx] + + movsd xmm3,xmm2 ; x2 + mulsd xmm3,xmm0 ; x3 + + mulsd xmm4,qword ptr (asin2_p_4-asin_c)[rcx] ; p4 + + mulsd xmm7,xmm3 ; q3 + mulsd xmm5,xmm3 ; p3 + + mulsd xmm8,xmm2 ; q2 + mulsd xmm2,qword ptr (asin2_p_2-asin_c)[rcx] ; p2 + + addsd xmm1,xmm7 ; x4+q3 + addsd xmm4,xmm5 ; p4+p3 + + mulsd xmm9,xmm0 ; q1 + mulsd xmm10,xmm0 ; p1 + + addsd xmm1,xmm8 ; x5+q4+q3+q2 + addsd xmm4,xmm2 ; p4+p3+p2 + + addsd xmm1,xmm9 ; x5+q4+q3+q2+q1 + addsd xmm4,xmm10 ; p4+p3+p2+p1 + + movlpd xmm13,qword ptr real_21_bits + + addsd xmm1,qword ptr (asin2_q_0-asin_c)[rcx] ; x5+q4+q3+q2+q1+q0 + addsd xmm4,qword ptr (asin2_p_0-asin_c)[rcx] ; p4+p3+p2+p1+p0 + + andpd xmm13,xmm12 ; s21 + + divsd xmm4,xmm1 ; p/q + + movsd xmm14,xmm13 ; s21 + movsd xmm15,xmm12 ; s + addsd xmm12,xmm13 ; s+s21 + + mulsd xmm13,xmm13 ; s21*s21 + subsd xmm11,xmm13 ; 2x-s21*s21 + divsd xmm11,xmm12 ; sl + + addsd xmm14,qword ptr real_m_pi_d_2 ; s21-pi_d_2 + mulsd xmm4,xmm0 ; x*p/q + + movlpd xmm0,qword ptr real_pi_d_2_l + subsd xmm0,xmm11 ; pi_d_2_l-sl + + mulsd xmm4,xmm15 ; s*x*p/q + + subsd xmm0,xmm4 ; pi_d_2_l-sl-s*x*p/q + subsd xmm0,xmm14 ; pi_d_2_l-sl-s*x*p/q-s21+pi_d_2 + + ret + +asin_real_3: + ucomisd xmm0,qword ptr real_m_0_675 + ja asin_real_m_0_54 + + movlpd xmm1,qword ptr real_m_1_0 + + ucomisd xmm0,xmm1 + jbe asin_real_m_1_or_e ; x<=-1 | NAN + + subsd xmm0,xmm1 + + movlpd xmm11,qword ptr real_2_0 + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + mulsd xmm11,xmm1 ; 2x + + movlpd xmm7,qword ptr (asin2_q_3-asin_c)[rcx] + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + sqrtsd xmm12,xmm11 ; sqrt 2x + + movlpd xmm5,qword ptr (asin2_p_3-asin_c)[rcx] + movlpd xmm8,qword ptr (asin2_q_2-asin_c)[rcx] + + movsd xmm4,xmm0 ; x4 + + movlpd xmm9,qword ptr (asin2_q_1-asin_c)[rcx] + movlpd xmm10,qword ptr (asin2_p_1-asin_c)[rcx] + + movsd xmm3,xmm2 ; x2 + mulsd xmm3,xmm1 ; x3 + + mulsd xmm4,qword ptr (asin2_p_4-asin_c)[rcx] ; p4 + + mulsd xmm7,xmm3 ; q3 + mulsd xmm5,xmm3 ; p3 + + mulsd xmm8,xmm2 ; q2 + mulsd xmm2,qword ptr (asin2_p_2-asin_c)[rcx] ; p2 + + addsd xmm0,xmm7 ; x4+q3 + addsd xmm4,xmm5 ; p4+p3 + + mulsd xmm9,xmm1 ; q1 + mulsd xmm10,xmm1 ; p1 + + addsd xmm0,xmm8 ; x5+q4+q3+q2 + addsd xmm4,xmm2 ; p4+p3+p2 + + addsd xmm0,xmm9 ; x5+q4+q3+q2+q1 + addsd xmm4,xmm10 ; p4+p3+p2+p1 + + movlpd xmm13,qword ptr real_21_bits + + addsd xmm0,qword ptr (asin2_q_0-asin_c)[rcx] ; x5+q4+q3+q2+q1+q0 + addsd xmm4,qword ptr (asin2_p_0-asin_c)[rcx] ; p4+p3+p2+p1+p0 + + andpd xmm13,xmm12 ; s21 + + divsd xmm4,xmm0 ; p/q + + movsd xmm14,xmm13 ; s21 + movsd xmm15,xmm12 ; s + addsd xmm12,xmm13 ; s+s21 + mulsd xmm13,xmm13 ; s21*s21 + subsd xmm11,xmm13 ; 2x-s21*s21 + divsd xmm11,xmm12 ; sl + + addsd xmm14,qword ptr real_m_pi_d_2 ; s21-pi_d_2 + mulsd xmm4,xmm1 ; x*p/q + + movlpd xmm0,qword ptr real_m_pi_d_2_l + addsd xmm0,xmm11 ; -pi_d_2_l+sl + + mulsd xmm4,xmm15 ; s*x*p/q + + addsd xmm0,xmm4 ; -pi_d_2_l+sl+s*x*p/q + addsd xmm0,xmm14 ; -pi_d_2_l+sl+s*x*p/q+s21-pi_d_2 + + ret + +asin_real_m_0_54: + movlpd xmm1,qword ptr real_m_0_54000000017867999524 + + ucomisd xmm0,xmm1 + subsd xmm0,xmm1 + + lea rcx,asin_p3_c + lea rdx,asin_p4_c + + cmova rcx,rdx + + jmp asin_real_pm_0_54 + +asin_real_0_54: + movlpd xmm1,qword ptr real_0_54000000017867999524 + + ucomisd xmm0,xmm1 + subsd xmm0,xmm1 + + lea rcx,asin_p1_c + lea rdx,asin_p2_c + + cmovb rcx,rdx + +asin_real_pm_0_54: + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + movlpd xmm7,qword ptr (asin_p1_4-asin_p1_c)[rcx] + movlpd xmm8,qword ptr (asin_p1_3-asin_p1_c)[rcx] + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + mulsd xmm7,xmm2 ; p4 + mulsd xmm8,xmm2 ; p3 + + movlpd xmm9,qword ptr (asin_p1_6-asin_p1_c)[rcx] + movlpd xmm10,qword ptr (asin_p1_5-asin_p1_c)[rcx] + + movsd xmm3,xmm2 ; x2 + mulsd xmm2,xmm0 ; x6 + + movsd xmm4,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + mulsd xmm9,xmm4 ; p6 + mulsd xmm10,xmm4 ; p5 + + movlpd xmm11,qword ptr (asin_p1_8-asin_p1_c)[rcx] + movlpd xmm12,qword ptr (asin_p1_10-asin_p1_c)[rcx] + + mulsd xmm4,xmm2 ; x10 + + movlpd xmm13,qword ptr (asin_p1_12-asin_p1_c)[rcx] + movlpd xmm14,qword ptr (asin_p1_14-asin_p1_c)[rcx] + + movsd xmm6,xmm2 ; x6 + mulsd xmm2,xmm2 ; x12 + + mulsd xmm11,xmm6 ; p8 + mulsd xmm6,qword ptr (asin_p1_7-asin_p1_c)[rcx] ; p7 + + mulsd xmm12,xmm0 ; p10 + mulsd xmm0,qword ptr (asin_p1_9-asin_p1_c)[rcx] ; p9 + + mulsd xmm13,xmm4 ; p12 + mulsd xmm4,qword ptr (asin_p1_11-asin_p1_c)[rcx] ; p11 + + mulsd xmm14,xmm2 ; p14 + mulsd xmm2,qword ptr (asin_p1_13-asin_p1_c)[rcx] ; p13 + + addsd xmm13,xmm14 ; p14+p12 + addsd xmm2,xmm4 ; p13+p11 + + movlpd xmm15,qword ptr (asin_p1_2-asin_p1_c)[rcx] + + addsd xmm12,xmm13 ; p14+p12+p10 + addsd xmm0,xmm2 ; p13+p11+p9 + + mulsd xmm15,xmm3 ; p2 + + addsd xmm11,xmm12 ; p14+p12+p10+p8 + addsd xmm0,xmm6 ; p13+p11+p9+p7 + + movlpd xmm2,qword ptr real_26_bits + movsd xmm4,xmm1 ; x + movlpd xmm6,qword ptr (asin_p1_1l-asin_p1_c)[rcx] + movlpd xmm5,qword ptr (asin_p1_1h-asin_p1_c)[rcx] + + addsd xmm9,xmm11 ; p14+p12+p10+p8+p6 + addsd xmm0,xmm10 ; p13+p11+p9+p7+p5 + + andpd xmm2,xmm1 ; x_h + mulsd xmm6,xmm1 ; x*c1l + movlpd xmm13,qword ptr (asin_p1_0h-asin_p1_c)[rcx] + + addsd xmm7,xmm9 ; p14+p12+p10+p8+p6+p4 + addsd xmm0,xmm8 ; p13+p11+p9+p7+p5+p3 + + subsd xmm4,xmm2 ; x_l + mulsd xmm2,xmm5 ; x_h*c1h + + mulsd xmm7,xmm3 ; (p14+p12+p10+p8+p6+p4)(*x2) + mulsd xmm0,xmm1 ; (p13+p11+p9+p7+p5+p3)(*x) + + movsd xmm14,xmm13 + addsd xmm13,xmm2 ; x_h*c1h+c0h + + addsd xmm0,xmm7 ; p14+p13+..+p3 + + subsd xmm14,xmm13 ; c0h-(x_h*c1h+c0h) + mulsd xmm4,xmm5 ; x_l*c1h + + addsd xmm0,xmm15 ; p14+p13+..+p3+p2 +; addsd xmm0,qword ptr (asin_p1_0l-asin_p1_c)[rcx] + + addsd xmm14,xmm2 ; (c0h-(x_h*c1h+c0h))+x_h*c1h + addsd xmm4,xmm6 ; x_l*c1h+x*c1l + + addsd xmm4,xmm14 ; (c0h-(x_h*c1h+c0h))+x_h*c1h+x_l*c1h+x*c1l + + addsd xmm0,xmm4 + addsd xmm0,xmm13 + ret + +asin_real_1_or_e: + jne asin_real_e + + movlpd xmm0,qword ptr real_pi_d_2 + ret + +asin_real_m_1_or_e: + jb asin_real_e ; NAN + + movlpd xmm0,qword ptr real_m_pi_d_2 + ret + +asin_real_e: + subsd xmm0,xmm0 + divsd xmm0,xmm0 + ret + + + public acos_real + +acos_real: +; ucomisd xmm0,qword ptr real_0_58 + ucomisd xmm0,qword ptr real_0_5 + ja acos_real_2 + ucomisd xmm0,qword ptr real_m_0_58 + jb acos_real_3 + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + movlpd xmm6,qword ptr acos_q_4 + movlpd xmm7,qword ptr acos_q_3 + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + movlpd xmm8,qword ptr acos_q_2 + movlpd xmm9,qword ptr acos_q_1 + + movsd xmm4,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + movlpd xmm10,qword ptr acos_p_1 + + movsd xmm3,xmm2 ; x2 + mulsd xmm3,xmm4 ; x6 + + mulsd xmm6,xmm0 ; q8 + movsd xmm5,xmm0 ; x8 + mulsd xmm0,xmm2 ; x10 + + mulsd xmm5,qword ptr acos_p_4 ; p8 + + mulsd xmm7,xmm3 ; q6 + mulsd xmm3,qword ptr acos_p_3 ; p6 + + addsd xmm0,xmm6 ; x10+q8 + + mulsd xmm8,xmm4 ; q4 + mulsd xmm4,qword ptr acos_p_2 ; p4 + + addsd xmm0,xmm7 ; x10+q8+q6 + addsd xmm3,xmm5 ; p8+p6 + + mulsd xmm9,xmm2 ; q2 + mulsd xmm10,xmm2 ; p2 + + addsd xmm0,xmm8 ; x10+q8+q6+q4 + addsd xmm3,xmm4 ; p8+p6+p4 + + movlpd xmm11,qword ptr real_21_bits + + addsd xmm0,xmm9 ; x10+q8+q6+q4+q2 + addsd xmm3,xmm10 ; p8+p6+p4+p2 + + andpd xmm11,xmm1 ; x21 + + addsd xmm0,qword ptr acos_q_0 ; x10+q8+q6+q4+q2+q0 + addsd xmm3,qword ptr acos_p_0 ; p8+p6+p4+p2+p0 + + mulsd xmm2,xmm1 ; x3 + + divsd xmm3,xmm0 ; p/q + +; ucomisd xmm1,qword ptr real_0_54 +; ja acos_real_1 + + movsd xmm0,qword ptr real_pi_d_2 ; pi_d_2 + + subsd xmm1,xmm11 ; x21_l + subsd xmm0,xmm11 ; pi_d_2-x21 + + mulsd xmm2,xmm3 ; x3*(p/q) + + addsd xmm2,qword ptr real_m_pi_d_2_l ; x3*(p/q)-pi_d_2_l + + addsd xmm1,xmm2 ; x21_l+x3*(p/q)-pi_d_2_l + + subsd xmm0,xmm1 ; pi_d_2-x21-x21_l-x3*(p/q)+pi_d_2_l + + ret + +;acos_real_1: +; movlpd xmm0,qword ptr real_pi_d_2_m_0_03125 + +; subsd xmm1,xmm11 ; x21_l +; subsd xmm0,xmm11 ; pi_d_2-0.03125-x21 + +; mulsd xmm2,xmm3 ; x3*(p/q) + +; addsd xmm1,qword ptr real_m_pi_d_2_l ; x21_l-pi_d_2_l + +; subsd xmm2,qword ptr real_0_03125 ; x3*(p/q)-0.03125 + +; addsd xmm1,xmm2 ; x21_l+x3*(p/q)-0.03125-pi_d_2_l + +; subsd xmm0,xmm1 ; pi_d_2-x21-x21_l-x3*(p/q)+pi_d_2_l + +; ret + +acos_real_2: + ucomisd xmm0,qword ptr real_0_75 + jb acos_real_0_65 + + movlpd xmm1,qword ptr real_1_0 + + ucomisd xmm0,xmm1 + + subsd xmm1,xmm0 + + jae acos_real_1_or_e + + movlpd xmm11,qword ptr real_2_0 + + movsd xmm0,xmm1 ; x + mulsd xmm1,xmm1 ; x2 + + mulsd xmm11,xmm0 ; 2x + + movlpd xmm7,qword ptr acos2_q_3 + + movsd xmm2,xmm1 ; x2 + mulsd xmm1,xmm1 ; x4 + + sqrtsd xmm12,xmm11 ; sqrt 2x + + movlpd xmm5,qword ptr acos2_p_3 + movlpd xmm8,qword ptr acos2_q_2 + + movsd xmm4,xmm1 ; x4 + + movlpd xmm9,qword ptr acos2_q_1 + movlpd xmm10,qword ptr acos2_p_1 + + movsd xmm3,xmm2 ; x2 + mulsd xmm3,xmm0 ; x3 + + mulsd xmm1,qword ptr acos2_p_4 ; p4 + + mulsd xmm7,xmm3 ; q3 + mulsd xmm5,xmm3 ; p3 + + mulsd xmm8,xmm2 ; q2 + mulsd xmm2,qword ptr acos2_p_2 ; p2 + + addsd xmm4,xmm7 ; x4+q3 + addsd xmm1,xmm5 ; p4+p3 + + mulsd xmm9,xmm0 ; q1 + mulsd xmm10,xmm0 ; p1 + + addsd xmm4,xmm8 ; x4+q3+q2 + addsd xmm1,xmm2 ; p4+p3+p2 + + addsd xmm4,xmm9 ; x4+q3+q2+q1 + addsd xmm1,xmm10 ; p4+p3+p2+p1 + + movlpd xmm13,qword ptr real_21_bits + + addsd xmm4,qword ptr acos2_q_0 ; x4+q3+q2+q1+q0 + addsd xmm1,qword ptr acos2_p_0 ; p4+p3+p2+p1+p0 + + andpd xmm13,xmm12 ; s21 + + divsd xmm1,xmm4 ; p/q + + movsd xmm14,xmm13 ; s21 + movsd xmm15,xmm12 ; s + addsd xmm12,xmm13 ; s+s21 + mulsd xmm13,xmm13 ; s21*s21 + subsd xmm11,xmm13 ; 2x-s21*s21 + divsd xmm11,xmm12 ; sl + + mulsd xmm0,xmm1 ; x*p/q + + mulsd xmm0,xmm15 ; s + addsd xmm0,xmm11 ; s*x*p/q+sl + addsd xmm0,xmm14 ; s*x*p/q+sl+s21 + + ret + +acos_real_0_65: + movlpd xmm1,qword ptr real_0_65000000004061742054 + + ucomisd xmm0,xmm1 + subsd xmm0,xmm1 + + lea rcx,acos_p1_c + lea rdx,acos_p2_c + + cmovb rcx,rdx + + jmp asin_real_pm_0_54 + +acos_real_3: + movlpd xmm1,qword ptr real_m_1_0 + + ucomisd xmm0,xmm1 + + subsd xmm0,xmm1 + + jbe acos_real_m_1_or_e + + movlpd xmm11,qword ptr real_2_0 + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + mulsd xmm11,xmm1 ; 2x + + movlpd xmm7,qword ptr acos2_q_3 + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + sqrtsd xmm12,xmm11 ; sqrt 2x + + movlpd xmm5,qword ptr acos2_p_3 + movlpd xmm8,qword ptr acos2_q_2 + + movsd xmm4,xmm0 ; x4 + + movlpd xmm9,qword ptr acos2_q_1 + movlpd xmm10,qword ptr acos2_p_1 + + movsd xmm3,xmm2 ; x2 + mulsd xmm3,xmm1 ; x3 + + mulsd xmm0,qword ptr acos2_p_4 ; p4 + + mulsd xmm7,xmm3 ; q3 + mulsd xmm5,xmm3 ; p3 + + mulsd xmm8,xmm2 ; q2 + mulsd xmm2,qword ptr acos2_p_2 ; p2 + + addsd xmm4,xmm7 ; x4+q3 + addsd xmm0,xmm5 ; p4+p3 + + mulsd xmm9,xmm1 ; q1 + mulsd xmm10,xmm1 ; p1 + + addsd xmm4,xmm8 ; x4+q3+q2 + addsd xmm0,xmm2 ; p4+p3+p2 + + addsd xmm4,xmm9 ; x4+q3+q2+q1 + addsd xmm0,xmm10 ; p4+p3+p2+p1 + + movlpd xmm13,qword ptr real_21_bits + + addsd xmm4,qword ptr acos2_q_0 ; x4+q3+q2+q1+q0 + addsd xmm0,qword ptr acos2_p_0 ; p4+p3+p2+p1+p0 + + andpd xmm13,xmm12 ; s21 + + divsd xmm0,xmm4 ; p/q + + movsd xmm14,xmm13 ; s21 + movsd xmm15,xmm12 ; s + addsd xmm12,xmm13 ; s+s21 + mulsd xmm13,xmm13 ; s21*s21 + subsd xmm11,xmm13 ; 2x-s21*s21 + divsd xmm11,xmm12 ; sl + + mulsd xmm1,xmm0 ; x*p/q + + mulsd xmm1,xmm15 ; s + movlpd xmm0,qword ptr real_pi + + subsd xmm11,qword ptr real_pi_l ; sl-pi_l + addsd xmm1,xmm11 ; s*x*p/q+sl-pi_l + + subsd xmm0,xmm14 ; pi-s21 + subsd xmm0,xmm1 ; pi-s21-(s*x*p/q+sl) + +; addsd xmm1,xmm14 ; s*x*p/q+sl+s21-pi_l +; subsd xmm0,xmm1 ; pi-(s*x*p/q+sl+s21) + + ret + +acos_real_1_or_e: + jne acos_real_e + + movlpd xmm0,qword ptr real_0_0 + ret + +acos_real_m_1_or_e: + jb acos_real_e ; NAN + + movlpd xmm0,qword ptr real_pi + ret + +acos_real_e: + subsd xmm0,xmm0 + divsd xmm0,xmm0 + ret + + public atan_real + +atan_real: + ucomisd xmm0,qword ptr real_m_0_26 + + movsd xmm1,xmm0 ; x + + jb atan_real_n ; x<-0.26 | NAN + + ucomisd xmm0,qword ptr real_1_0 + ja atan_real_g1 ; x>1.0 + + ucomisd xmm0,qword ptr real_0_70 + ja atan_real_2 + + ucomisd xmm0,qword ptr real_0_26 + ja atan_real_1 + + ucomisd xmm0,qword ptr real_0_0 + je atan_real_0_0 ; atan -0.0 = -0.0 + + mulsd xmm0,xmm0 ; x2 + + movlpd xmm5,qword ptr atan_p_9_1 + + movsd xmm6,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + movsd xmm14,xmm6 ; x2 + mulsd xmm5,xmm6 ; p2 + + mulsd xmm6,xmm0 ; x6 + + movlpd xmm9,qword ptr atan_p_9_2 + + movsd xmm10,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + mulsd xmm9,xmm10 ; p4 + + movlpd xmm7,qword ptr atan_p_9_3 + movlpd xmm12,qword ptr atan_p_9_4 + + mulsd xmm10,xmm6 ; x10 + + movsd xmm2,xmm6 ; x6 + mulsd xmm7,xmm6 ; p6 + mulsd xmm6,xmm6 ; x12 + + mulsd xmm2,xmm0 ; x14 + mulsd xmm12,xmm0 ; p8 + mulsd xmm0,xmm0 ; x16 + + mulsd xmm10,qword ptr atan_p_9_5 ; p10 + mulsd xmm6,qword ptr atan_p_9_6 ; p12 + mulsd xmm2,qword ptr atan_p_9_7 ; p14 + mulsd xmm0,qword ptr atan_p_9_8 ; p16 + + addsd xmm0,xmm2 ; p16+p14 + addsd xmm0,xmm6 ; p16+p14+p12 + addsd xmm0,xmm10 ; p16+p14+p12+p10 + addsd xmm0,xmm12 ; p16+p14+p12+p10+p8 + addsd xmm0,xmm7 ; p16+p14+p12+p10+p8+p6 + + mulsd xmm14,xmm1 ; x3 + + addsd xmm0,xmm9 ; p16+p14+p12+p10+p8+p6+p4 + addsd xmm0,xmm5 ; p16+p14+p12+p10+p8+p6+p4+p2 + addsd xmm0,qword ptr atan_p_9_0 ; p16+p14+p12+p10+p8+p6+p4+p2+p0 + + mulsd xmm0,xmm14 ; x3*p + + addsd xmm0,xmm1 ; x+x3*p + +atan_real_0_0: + ret + +atan_real_n: + ucomisd xmm0,qword ptr real_m_1_0 + jb atan_real_l_m1 ; x<-1.0 | NAN + + ucomisd xmm0,qword ptr real_m_0_70 + jb atan_real_2n + + movlpd xmm2,qword ptr real_m_2_0 + movlpd xmm3,qword ptr real_m_0_5 + + lea rdx,n_atan_0_5_52 + jmp atan_real_1pn + +atan_real_1: + movlpd xmm2,qword ptr real_2_0 + movlpd xmm3,qword ptr real_0_5 + + lea rdx,atan_0_5_52 + +atan_real_1pn: + addsd xmm0,xmm2 ; -2+x + subsd xmm3,xmm1 ; -0.5-x + + divsd xmm2,xmm0 ; 2/(2+x) = 1/(1+0.5x) + + movlpd xmm15,qword ptr real_26_bits + movsd xmm0,xmm3 ; 0.5-x + + lea rcx,atan_n_0_5_8_c + movsd xmm11,xmm3 ; (0.5-x) + andpd xmm15,xmm3 ; (0.5-x)_h + + subsd xmm11,xmm15 ; (0.5-x)_l + + mulsd xmm0,xmm2 ; y=(0.5-x)*(1/(1+0.5x)) + + movsd xmm4,xmm0 ; y + mulsd xmm0,xmm0 ; y2 + + movlpd xmm5,qword ptr (atan_n_0_5_8_1-atan_n_0_5_8_c)[rcx] + + movsd xmm6,xmm0 ; y2 + mulsd xmm0,xmm0 ; y4 + + movsd xmm14,xmm6 ; y2 + mulsd xmm5,xmm6 ; p2 + + movlpd xmm8,qword ptr real_27_bits + + mulsd xmm6,xmm0 ; y6 + + movlpd xmm9,qword ptr (atan_n_0_5_8_2-atan_n_0_5_8_c)[rcx] + + movsd xmm10,xmm0 ; y4 + mulsd xmm0,xmm0 ; y8 + + mulsd xmm9,xmm10 ; p4 + + movlpd xmm12,qword ptr (atan_n_0_5_8_4-atan_n_0_5_8_c)[rcx] + + mulsd xmm10,xmm6 ; y10 + + movsd xmm7,xmm6 ; x6 + mulsd xmm6,xmm6 ; x12 + + mulsd xmm12,xmm0 ; p8 + mulsd xmm0,xmm7 ; x14 + + andpd xmm8,xmm4 ; y_h + + mulsd xmm7,qword ptr (atan_n_0_5_8_3-atan_n_0_5_8_c)[rcx] ; p6 + mulsd xmm10,qword ptr (atan_n_0_5_8_5-atan_n_0_5_8_c)[rcx] ; p10 + mulsd xmm6,qword ptr (atan_n_0_5_8_6-atan_n_0_5_8_c)[rcx] ; p12 + mulsd xmm0,qword ptr (atan_n_0_5_8_7-atan_n_0_5_8_c)[rcx] ; p14 + + movlpd xmm13,qword ptr real_0_25 + movlpd xmm1,qword ptr (atan_0_5_real_0_5-atan_0_5_52)[rdx] + mulsd xmm13,xmm8 ; 0.25*y_h + mulsd xmm1,xmm8 ; 0.5*y_h + subsd xmm3,xmm8 ; (0.5-x)-y_h + + addsd xmm0,xmm6 ; p14+p12 + + subsd xmm3,xmm13 ; (0.5-x)-1.25*y_h + mulsd xmm15,xmm1 ; (0.5-x)_h*0.5*y_h + mulsd xmm11,xmm1 ; (0.5-x)_l*0.5*y_h + + addsd xmm0,xmm10 ; p14+p12+p10 + + addsd xmm3,xmm15 ; (0.5-x)-1.25*y_h+(0.5-x)_h*0.5*y_h + + addsd xmm0,xmm12 ; p14+p12+p10+p8 + + addsd xmm3,xmm11 ; (0.5-x)-1.25*y_h+(0.5-x)_h*0.5*y_h+(0.5-x)_l*0.5*y_h + + addsd xmm0,xmm7 ; p14+p12+p10+p8+p6 + + mulsd xmm14,xmm4 ; y3 + + mulsd xmm3,xmm2 ; c=((0.5-x)-1.25*y_h-(0.5-x)_h*0.5*y_h-(0.5-x)_l*0.5*y_h)*(1/(1+0.5x)) + + addsd xmm0,xmm9 ; p14+p12+p10+p8+p6+p4 + + movsd xmm11,xmm8 ; y_h + addsd xmm8,xmm3 ; y_h+c + + addsd xmm0,xmm5 ; p14+p12+p10+p8+p6+p4+p2 + + movlpd xmm7,qword ptr real_40_bits + movlpd xmm12,qword ptr real_abs_40_bits + andpd xmm7,xmm8 ; (y_h+c)_h + andpd xmm12,xmm8 + + addsd xmm0,qword ptr (atan_n_0_5_8_0-atan_n_0_5_8_c)[rcx] ; p14+p12+p10+p8+p6+p4+p2+p0 + + subsd xmm11,xmm7 ; y_h-(y_h+c)_h + addsd xmm3,xmm11 ; (y_h-(y_h+c)_h)+c + + mulsd xmm0,xmm14 ; y3*p/q + + movlpd xmm2,qword ptr (atan_0_5_52_l-atan_0_5_52)[rdx] + subsd xmm2,xmm0 ; atan_0_5_52_l-y3*p/q + movlpd xmm0,qword ptr (atan_0_5_52-atan_0_5_52)[rdx] + + ucomisd xmm12,qword ptr real_2_p_m_13 + jb atan_real_1_s + + subsd xmm0,xmm7 ; atan_0_5_52-(y_h+c)_h + subsd xmm2,xmm3 ; atan_0_5_52_l-y3*p/q-(y_h+c)_l + addsd xmm0,xmm2 ; atan 0_5-y3*p/q-(0.5-x)/(1+x) + + ret + +atan_real_1_s: + subsd xmm2,xmm3 ; atan_0_5_52_l-y3*p/q-(y_h+c)_l + subsd xmm2,xmm7 ; atan_0_5_52_l-y3*p/q-(y_h+c)_l-(y_h+c)_h + addsd xmm0,xmm2 ; atan 0_5-y3*p/q-(1-x)/(1+x) + ret + +atan_real_2n: + lea rcx,atan_n_8_c + +atan_real_2n_: + movlpd xmm2,qword ptr real_m_1_0 + movlpd xmm3,qword ptr real_m_1_0 + + addsd xmm0,xmm2 ; 1+x + subsd xmm3,xmm1 ; 1-x + + lea rdx,n_atan_1_53 + + divsd xmm2,xmm0 ; 1/(1+x) + + movlpd xmm15,qword ptr real_26_bits + movsd xmm0,xmm3 ; 1-x + + movsd xmm11,xmm3 ; (1-x) + andpd xmm15,xmm3 ; (1-x)_h + + subsd xmm11,xmm15 ; (1-x)_l + + mulsd xmm0,xmm2 ; y=(1-x)*(1/(1+x)) + + movsd xmm4,xmm0 ; y + mulsd xmm0,xmm0 ; y2 + + movlpd xmm5,qword ptr (atan_n_8_1-atan_n_8_c)[rcx] + + movsd xmm6,xmm0 ; y2 + mulsd xmm0,xmm0 ; y4 + + movsd xmm14,xmm6 ; y2 + mulsd xmm5,xmm6 ; p2 + + movlpd xmm8,qword ptr real_27_bits + + mulsd xmm6,xmm0 ; y6 + + movlpd xmm9,qword ptr (atan_n_8_2-atan_n_8_c)[rcx] + + movsd xmm10,xmm0 ; y4 + mulsd xmm0,xmm0 ; y8 + + mulsd xmm9,xmm10 ; p4 + + movlpd xmm12,qword ptr (atan_n_8_4-atan_n_8_c)[rcx] + + mulsd xmm10,xmm6 ; y10 + + movsd xmm7,xmm6 ; x6 + mulsd xmm6,xmm6 ; x12 + + mulsd xmm12,xmm0 ; p8 + mulsd xmm0,xmm7 ; x14 + + andpd xmm8,xmm4 ; y_h + + mulsd xmm7,qword ptr (atan_n_8_3-atan_n_8_c)[rcx] ; p6 + mulsd xmm10,qword ptr (atan_n_8_5-atan_n_8_c)[rcx] ; p10 + mulsd xmm6,qword ptr (atan_n_8_6-atan_n_8_c)[rcx] ; p12 + mulsd xmm0,qword ptr (atan_n_8_7-atan_n_8_c)[rcx] ; p14 + + movlpd xmm13,qword ptr real_2_0 + mulsd xmm13,xmm8 ; 2*y_h + mulsd xmm15,xmm8 ; (1-x)_h*y_h + + addsd xmm0,xmm6 ; p14+p12 + + subsd xmm3,xmm13 ; (1-x)-2*y_h + mulsd xmm11,xmm8 ; (1-x)_l*y_h + + addsd xmm0,xmm10 ; p14+p12+p10 + + subsd xmm3,xmm15 ; (1-x)-2*y_h-(1-x)_h*y_h + + addsd xmm0,xmm12 ; p14+p12+p10+p8 + + subsd xmm3,xmm11 ; (1-x)-2*y_h-(1-x)_h*y_h-(1-x)_h*y_l + jmp atan_real_2pn_ + +atan_real_2: + lea rcx,atan_n_8_c + +atan_real_2p_: + movlpd xmm2,qword ptr real_1_0 + movlpd xmm3,qword ptr real_1_0 + + addsd xmm0,xmm2 ; 1+x + subsd xmm3,xmm1 ; 1-x + + lea rdx,atan_1_53 + + divsd xmm2,xmm0 ; 1/(1+x) + + movlpd xmm15,qword ptr real_26_bits + movsd xmm0,xmm3 ; 1-x + + movsd xmm11,xmm3 ; (1-x) + andpd xmm15,xmm3 ; (1-x)_h + + subsd xmm11,xmm15 ; (1-x)_l + + mulsd xmm0,xmm2 ; y=(1-x)*(1/(1+x)) + + movsd xmm4,xmm0 ; y + mulsd xmm0,xmm0 ; y2 + + movlpd xmm5,qword ptr (atan_n_8_1-atan_n_8_c)[rcx] + + movsd xmm6,xmm0 ; y2 + mulsd xmm0,xmm0 ; y4 + + movsd xmm14,xmm6 ; y2 + mulsd xmm5,xmm6 ; p2 + + movlpd xmm8,qword ptr real_27_bits + + mulsd xmm6,xmm0 ; y6 + + movlpd xmm9,qword ptr (atan_n_8_2-atan_n_8_c)[rcx] + + movsd xmm10,xmm0 ; y4 + mulsd xmm0,xmm0 ; y8 + + mulsd xmm9,xmm10 ; p4 + + movlpd xmm12,qword ptr (atan_n_8_4-atan_n_8_c)[rcx] + + mulsd xmm10,xmm6 ; y10 + + movsd xmm7,xmm6 ; x6 + mulsd xmm6,xmm6 ; x12 + + mulsd xmm12,xmm0 ; p8 + mulsd xmm0,xmm7 ; x14 + + andpd xmm8,xmm4 ; y_h + + mulsd xmm7,qword ptr (atan_n_8_3-atan_n_8_c)[rcx] ; p6 + mulsd xmm10,qword ptr (atan_n_8_5-atan_n_8_c)[rcx] ; p10 + mulsd xmm6,qword ptr (atan_n_8_6-atan_n_8_c)[rcx] ; p12 + mulsd xmm0,qword ptr (atan_n_8_7-atan_n_8_c)[rcx] ; p14 + + movlpd xmm13,qword ptr real_2_0 + mulsd xmm13,xmm8 ; 2*y_h + mulsd xmm15,xmm8 ; (1-x)_h*y_h + + addsd xmm0,xmm6 ; p14+p12 + + subsd xmm3,xmm13 ; (1-x)-2*y_h + mulsd xmm11,xmm8 ; (1-x)_l*y_h + + addsd xmm0,xmm10 ; p14+p12+p10 + + addsd xmm3,xmm15 ; (1-x)-2*y_h+(1-x)_h*y_h + + addsd xmm0,xmm12 ; p14+p12+p10+p8 + + addsd xmm3,xmm11 ; (1-x)-2*y_h+(1-x)_h*y_h+(1-x)_h*y_l + +atan_real_2pn_: + addsd xmm0,xmm7 ; p14+p12+p10+p8+p6 + + mulsd xmm14,xmm4 ; y3 + + mulsd xmm3,xmm2 ; c=((1-x)-2*y_h-(1-x)_h*y_h-(1-x)_h*y_l)*(1/(1+x)) + + addsd xmm0,xmm9 ; p14+p12+p10+p8+p6+p4 + + movsd xmm11,xmm8 ; y_h + addsd xmm8,xmm3 ; y_h+c + + addsd xmm0,xmm5 ; p14+p12+p10+p8+p6+p4+p2 + + movlpd xmm7,qword ptr (atan_n_8_real_40_bits-atan_n_8_c)[rcx] + movlpd xmm12,qword ptr (atan_n_8_real_abs_40_bits-atan_n_8_c)[rcx] + andpd xmm7,xmm8 ; (y_h+c)_h + andpd xmm12,xmm8 + + addsd xmm0,qword ptr (atan_n_8_0-atan_n_8_c)[rcx] ; p14+p12+p10+p8+p6+p4+p2+p0 + + subsd xmm11,xmm7 ; y_h-(y_h+c)_h + addsd xmm3,xmm11 ; (y_h-(y_h+c)_h)+c + + mulsd xmm0,xmm14 ; y3*p/q + + movlpd xmm2,qword ptr (atan_1_53_l-atan_1_53)[rdx] + subsd xmm2,xmm0 ; pi_d_4_l-y3*p/q + movlpd xmm0,qword ptr (atan_1_53-atan_1_53)[rdx] + + ucomisd xmm12,qword ptr (atan_n_8_real_2_p_m_12-atan_n_8_c)[rcx] + jb atan_real_2_s + + subsd xmm0,xmm7 ; pi_d_4-(y_h+c)_h + subsd xmm2,xmm3 ; pi_d_4_l-y3*p/q-(y_h+c)_l + addsd xmm0,xmm2 ; pi/4-y3*p/q-(1-x)/(1+x) + + ret + +atan_real_2_s: + subsd xmm2,xmm3 ; pi_d_4_l-y3*p/q-(y_h+c)_l + subsd xmm2,xmm7 ; pi_d_4_l-y3*p/q-(y_h+c)_l-(y_h+c)_h + addsd xmm0,xmm2 ; pi/4-y3*p/q-(1-x)/(1+x) + ret + +atan_real_l_m1: + ucomisd xmm0,qword ptr real_m_4_0 + jb atan_real_4n ; x<4.0 | NAN + + ucomisd xmm0,qword ptr real_m_1_4 + jb atan_real_3n + + lea rcx,atan_p_8_c + + jmp atan_real_2n_ + +atan_real_g1: + ucomisd xmm0,qword ptr real_4_0 + ja atan_real_4 ; x>4.0 + + ucomisd xmm0,qword ptr real_1_4 + ja atan_real_3 + + lea rcx,atan_p_8_c + + jmp atan_real_2p_ + +atan_real_3n: + movlpd xmm2,qword ptr real_m_0_5 + movlpd xmm3,qword ptr real_m_2_0 + + lea rdx,n_atan_2_0 + jmp atan_real_3pn + +atan_real_3: + movlpd xmm2,qword ptr real_0_5 + movlpd xmm3,qword ptr real_2_0 + + lea rdx,atan_2_0 + +atan_real_3pn: + addsd xmm0,xmm2 ; 0.5+x + subsd xmm3,xmm1 ; 2-x + + divsd xmm2,xmm0 ; 0.5/(0.5+x) = 1/(1+2*x) + + movlpd xmm15,qword ptr real_26_bits + movsd xmm0,xmm3 ; 2-x + + movsd xmm11,xmm3 ; (2-x) + andpd xmm15,xmm3 ; (2-x)_h + + lea rcx,atan_n_2_8_c + subsd xmm11,xmm15 ; (2-x)_l + + mulsd xmm0,xmm2 ; y=(2-x)*(1/(1+0.5x)) + + movsd xmm4,xmm0 ; y + mulsd xmm0,xmm0 ; y2 + + movlpd xmm5,qword ptr (atan_n_2_8_1-atan_n_2_8_c)[rcx] + + movsd xmm6,xmm0 ; y2 + mulsd xmm0,xmm0 ; y4 + + movsd xmm14,xmm6 ; y2 + mulsd xmm5,xmm6 ; p2 + + movlpd xmm8,qword ptr real_27_bits + + mulsd xmm6,xmm0 ; y6 + + movlpd xmm9,qword ptr (atan_n_2_8_2-atan_n_2_8_c)[rcx] + + movsd xmm10,xmm0 ; y4 + mulsd xmm0,xmm0 ; y8 + + mulsd xmm9,xmm10 ; p4 + + movlpd xmm12,qword ptr (atan_n_2_8_4-atan_n_2_8_c)[rcx] + + mulsd xmm10,xmm6 ; y10 + + movsd xmm7,xmm6 ; x6 + mulsd xmm6,xmm6 ; x12 + + mulsd xmm12,xmm0 ; p8 + mulsd xmm0,xmm7 ; x14 + + andpd xmm8,xmm4 ; y_h + + mulsd xmm7,qword ptr (atan_n_2_8_3-atan_n_2_8_c)[rcx] ; p6 + mulsd xmm10,qword ptr (atan_n_2_8_5-atan_n_2_8_c)[rcx] ; p10 + mulsd xmm6,qword ptr (atan_n_2_8_6-atan_n_2_8_c)[rcx] ; p12 + mulsd xmm0,qword ptr (atan_n_2_8_7-atan_n_2_8_c)[rcx] ; p14 + + movlpd xmm13,qword ptr real_4_0 + movlpd xmm1,qword ptr (atan_2_0_real_2_0-atan_2_0)[rdx] + mulsd xmm13,xmm8 ; 4*y_h + mulsd xmm1,xmm8 ; 2*y_h + + addsd xmm0,xmm6 ; p14+p12 + + subsd xmm3,xmm13 ; (2-x)-4*y_h + mulsd xmm15,xmm1 ; (2-x)_h*2*y_h + mulsd xmm11,xmm1 ; (2-x)_l*2*y_h + subsd xmm3,xmm8 ; (2-x)-y_h + + addsd xmm0,xmm10 ; p14+p12+p10 + + addsd xmm3,xmm15 ; (2-x)-5*y_h+(2-x)_h*2*y_h + + addsd xmm0,xmm12 ; p14+p12+p10+p8 + + addsd xmm3,xmm11 ; (2-x)-5*y_h+(2-x)_h*2*y_h+(2-x)_l*2*y_h + + addsd xmm0,xmm7 ; p14+p12+p10+p8+p6 + + mulsd xmm14,xmm4 ; y3 + + mulsd xmm3,xmm2 ; c=((2-x)-5*y_h-(2-x)_h*2*y_h-(2-x)_l*2*y_h)*(1/(1+0.5x)) + + addsd xmm0,xmm9 ; p14+p12+p10+p8+p6+p4 + + movsd xmm11,xmm8 ; y_h + addsd xmm8,xmm3 ; y_h+c + + addsd xmm0,xmm5 ; p14+p12+p10+p8+p6+p4+p2 + + movlpd xmm7,qword ptr real_39_bits + movlpd xmm12,qword ptr real_abs_39_bits + andpd xmm7,xmm8 + andpd xmm12,xmm8 ; (y_h+c)_h + + addsd xmm0,qword ptr (atan_n_2_8_0-atan_n_2_8_c)[rcx] ; p14+p12+p10+p8+p6+p4+p2+p0 + + subsd xmm11,xmm7 ; y_h-(y_h+c)_h + addsd xmm3,xmm11 ; (y_h-(y_h+c)_h)+c + + mulsd xmm0,xmm14 ; y3*p/q + + movlpd xmm2,qword ptr (atan_2_0_l-atan_2_0)[rdx] + subsd xmm2,xmm0 ; atan_2_0_l-y3*p/q + movlpd xmm0,qword ptr (atan_2_0-atan_2_0)[rdx] + + ucomisd xmm12,qword ptr real_2_p_m_11 + jb atan_real_3_s + + subsd xmm0,xmm7 ; atan_2_0-(y_h+c)_h + subsd xmm2,xmm3 ; atan_2_0_l-y3*p/q-(y_h+c)_l + addsd xmm0,xmm2 ; atan 2_0-y3*p/q-(2-x)/(1+x) + + ret + +atan_real_3_s: + subsd xmm2,xmm3 ; atan_2_0_l-y3*p/q-(y_h+c)_l + subsd xmm2,xmm7 ; atan_2_0_l-y3*p/q-(y_h+c)_l-(y_h+c)_h + addsd xmm0,xmm2 ; atan 2_0-y3*p/q-(1-x)/(1+x) + ret + +atan_real_4n: + ucomisd xmm0,qword ptr real_atan_m_large + jb atan_real_m_large_or_nan ; x<-5805358775541310.0840 | NAN + + movlpd xmm2,qword ptr real_1_0 + mulsd xmm0,xmm0 ; x2 + + lea rdx,real_m_pi_d_2 + + jmp atan_real_4pn + +atan_real_4: + ucomisd xmm0,qword ptr real_atan_large + ja atan_real_large ; x>5805358775541310.0840 + + movlpd xmm2,qword ptr real_1_0 + mulsd xmm0,xmm0 ; x2 + + lea rdx,real_pi_d_2 + +atan_real_4pn: + divsd xmm2,xmm1 ; 1/x + + lea rcx,atan4_p_c + + movlpd xmm4,qword ptr (atan4_q_4-atan4_p_c)[rcx] + movlpd xmm3,qword ptr (atan4_p_3-atan4_p_c)[rcx] + + movsd xmm5,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + mulsd xmm4,xmm5 ; q2 + mulsd xmm3,xmm5 ; p2 + + movlpd xmm9,qword ptr (atan4_q_3-atan4_p_c)[rcx] + movlpd xmm8,qword ptr (atan4_p_2-atan4_p_c)[rcx] + + movsd xmm6,xmm0 ; x4 + mulsd xmm0,xmm5 ; x6 + + mulsd xmm9,xmm6 ; q4 + mulsd xmm8,xmm6 ; p4 + + movlpd xmm11,qword ptr (atan4_q_2-atan4_p_c)[rcx] + movlpd xmm10,qword ptr (atan4_p_1-atan4_p_c)[rcx] + + addsd xmm4,qword ptr real_1_0 ; 1+q2 + addsd xmm3,qword ptr (atan4_p_4-atan4_p_c)[rcx] ; p0+p2 + + movsd xmm7,xmm6 ; x4 + mulsd xmm6,xmm6 ; x8 + + mulsd xmm11,xmm0 ; q6 + mulsd xmm10,xmm0 ; p6 + + addsd xmm4,xmm9 ; 1+q2+q4 + addsd xmm3,xmm8 ; p0+p2+p4 + + mulsd xmm0,xmm7 ; x10 + + movlpd xmm9,qword ptr (atan4_q_1-atan4_p_c)[rcx] + movlpd xmm8,qword ptr (atan4_p_0-atan4_p_c)[rcx] + + addsd xmm4,xmm11 ; 1+q2+q4+q6 + addsd xmm3,xmm10 ; p0+p2+p4+p6 + + mulsd xmm9,xmm6 ; q8 + mulsd xmm8,xmm6 ; p8 + + mulsd xmm0,qword ptr (atan4_q_0-atan4_p_c)[rcx]; q10 + + movlpd xmm5,qword ptr real_26_bits + movsd xmm6,xmm1 ; x + movlpd xmm7,qword ptr real_26_bits + andpd xmm5,xmm1 ; x_h + subsd xmm6,xmm5 ; x_l + andpd xmm7,xmm2 ; (1/x)_h + + addsd xmm4,xmm9 ; 1+q2+q4+q6+q8 + addsd xmm3,xmm8 ; p0+p2+p4+p6+p8 + + movlpd xmm8,qword ptr real_1_0 + mulsd xmm5,xmm7 ; x_h*(1/x)_h + mulsd xmm6,xmm7 ; x_l*(1/x)_h + + addsd xmm4,xmm0 ; 1+q2+q4+q6+q8+q10 + + subsd xmm8,xmm5 ; 1-x_h*(1/x)_h + + subsd xmm8,xmm6 ; 1-x_h*(1/x)_h-x_l*(1/x)_h + + mulsd xmm8,xmm2 ; (1-x_h*(1/x)_h-x_l*(1/x)_h)*(1/x) + + divsd xmm3,xmm4 ; p/q + + movlpd xmm1,qword ptr (real_pi_d_2_l-real_pi_d_2)[rdx] + movlpd xmm0,qword ptr (real_pi_d_2-real_pi_d_2)[rdx] + + mulsd xmm3,xmm2 ; (p/q)*(1/x) + + subsd xmm1,xmm3 ; pi_d_2_l-(p/q)*(1/x) + subsd xmm0,xmm7 ; pi_d_2-(1/x)_h + subsd xmm1,xmm8 ; pi_d_2_l-(p/q)*(1/x)-(1/x)_l + addsd xmm0,xmm1 + ret + +atan_real_4poly: + movlpd xmm3,qword ptr real_1_0 + divsd xmm3,xmm0 ; 1/x + + movlpd xmm5,qword ptr real_26_bits + movsd xmm6,xmm0 ; x + movlpd xmm7,qword ptr real_26_bits + andpd xmm5,xmm0 ; x_h + + subsd xmm6,xmm5 ; x_l + + movsd xmm15,xmm3 ; x + mulsd xmm3,xmm3 ; x2 + + movlpd xmm1,qword ptr atan_p_9_1 + + movsd xmm11,xmm3 ; x2 + mulsd xmm3,xmm3 ; x4 + + movsd xmm14,xmm11 ; x2 + mulsd xmm1,xmm11 ; p2 + + mulsd xmm11,xmm3 ; x6 + + movlpd xmm9,qword ptr atan_p_9_2 + + movsd xmm10,xmm3 ; x4 + mulsd xmm3,xmm3 ; x8 + + mulsd xmm9,xmm10 ; p4 + + movlpd xmm4,qword ptr atan_p_9_3 + movlpd xmm12,qword ptr atan_p_9_4 + + mulsd xmm10,xmm11 ; x10 + + movsd xmm2,xmm11 ; x6 + mulsd xmm4,xmm11 ; p6 + mulsd xmm11,xmm11 ; x12 + + mulsd xmm2,xmm3 ; x14 + mulsd xmm12,xmm3 ; p8 + mulsd xmm3,xmm3 ; x16 + + mulsd xmm10,qword ptr atan_p_9_5 ; p10 + mulsd xmm11,qword ptr atan_p_9_6 ; p12 + mulsd xmm2,qword ptr atan_p_9_7 ; p14 + mulsd xmm3,qword ptr atan_p_9_8 ; p16 + + addsd xmm3,xmm2 ; p16+p14 + addsd xmm3,xmm11 ; p16+p14+p12 + addsd xmm3,xmm10 ; p16+p14+p12+p10 + + andpd xmm7,xmm15 ; (1/x)_h + + addsd xmm3,xmm12 ; p16+p14+p12+p10+p8 + + movlpd xmm8,qword ptr real_1_0 + mulsd xmm5,xmm7 ; x_h*(1/x)_h + mulsd xmm6,xmm7 ; x_l*(1/x)_h + + addsd xmm3,xmm4 ; p16+p14+p12+p10+p8+p6 + + mulsd xmm14,xmm15 ; x3 + + subsd xmm8,xmm5 ; 1-x_h*(1/x)_h + + addsd xmm3,xmm9 ; p16+p14+p12+p10+p8+p6+p4 + + subsd xmm8,xmm6 ; 1-x_h*(1/x)_h-x_l*(1/x)_h + + addsd xmm3,xmm1 ; p16+p14+p12+p10+p8+p6+p4+p2 + + mulsd xmm8,xmm15 ; (1-x_h*(1/x)_h-x_l*(1/x)_h)*(1/x) + + addsd xmm3,qword ptr atan_p_9_0 ; p16+p14+p12+p10+p8+p6+p4+p2+p0 + + movlpd xmm1,qword ptr real_pi_d_2_l + movlpd xmm0,qword ptr real_pi_d_2 + + mulsd xmm3,xmm14 ; x3*p + + subsd xmm1,xmm3 ; pi_d_2_l-(p/q)*(1/x) + subsd xmm0,xmm7 ; pi_d_2-(1/x)_h + subsd xmm1,xmm8 ; pi_d_2_l-(p/q)*(1/x)-(1/x)_l + addsd xmm0,xmm1 + ret + +atan_real_m_large_or_nan: + jp atan_real_nan + + movlpd xmm0,qword ptr real_m_pi_d_2 + ret + +atan_real_nan: + addsd xmm0,xmm0 + ret + +atan_real_large: + movlpd xmm0,qword ptr real_pi_d_2 + ret + + public exp_real + +exp_real: + ucomisd xmm0,qword ptr real_ln_2_t_0_5 + ja exp_real_2 ; x>0.3.4657359027997265471 + + ucomisd xmm0,qword ptr real_n_ln_2_t_0_5 + jb exp_real_3_n ; x<-0.34657359027997265471 | nan + + movlpd xmm1,qword ptr n_45_d_256 + movlpd xmm2,qword ptr n_m_45_d_256 + + ucomisd xmm0,xmm1 + ja exp_real_p1 + + ucomisd xmm0,xmm2 + jb exp_real_n1 + + ucomisd xmm0,qword ptr real_0_0 + + lea rcx,exp_p0_c + lea rdx,exp_m0_c + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + cmovb rcx,rdx + + movlpd xmm6,qword ptr (exp_p0_2-exp_p0_c)[rcx] + movlpd xmm7,qword ptr (exp_p0_4-exp_p0_c)[rcx] + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + mulsd xmm6,xmm2 ; p2 + + movsd xmm3,xmm1 ; x + mulsd xmm1,xmm2 ; x3 + + movlpd xmm8,qword ptr (exp_p0_3-exp_p0_c)[rcx] + mulsd xmm7,xmm0 ; p4 + + mulsd xmm8,xmm1 ; p3 + + movsd xmm4,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + movsd xmm5,xmm2 ; x2 + mulsd xmm2,xmm1 ; x5 + + mulsd xmm5,xmm4 ; x6 + mulsd xmm1,xmm4 ; x7 + mulsd xmm4,xmm2 ; x9 + + mulsd xmm0,qword ptr (exp_p0_8-exp_p0_c)[rcx] ; p8 + mulsd xmm2,qword ptr (exp_p0_5-exp_p0_c)[rcx] ; p5 + mulsd xmm5,qword ptr (exp_p0_6-exp_p0_c)[rcx] ; p6 + mulsd xmm1,qword ptr (exp_p0_7-exp_p0_c)[rcx] ; p7 + mulsd xmm4,qword ptr (exp_p0_9-exp_p0_c)[rcx] ; p9 + + addsd xmm0,xmm4 ; p9+p8 + + movlpd xmm9,qword ptr real_26_bits + movlpd xmm10,qword ptr real_1_0 + + addsd xmm0,xmm1 ; p9+p8+p7 + addsd xmm0,xmm5 ; p9+p8+p7+p6 + + andpd xmm9,xmm3 ; x_h + + addsd xmm0,xmm2 ; p9+p8+p7+p6+p5 + + addsd xmm9,xmm10 ; 1+x_h + + addsd xmm0,xmm7 ; p9+p8+p7+p6+p5+p4 + + subsd xmm10,xmm9 ; 1-(1+x_h) + + addsd xmm0,xmm8 ; p9+p8+p7+p6+p5+p4+p3 + + addsd xmm10,xmm3 ; (1-(1+x_h))+x + + addsd xmm0,xmm6 ; p9+p8+p7+p6+p5+p4+p3+p2 + + addsd xmm0,xmm10 + addsd xmm0,xmm9 + ret + +exp_real_n1: + subsd xmm0,xmm2 + + lea rcx,exp_m1_c + jmp exp_real_np1 + +exp_real_p1: + subsd xmm0,xmm1 + + lea rcx,exp_p1_c + +exp_real_np1: + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + movlpd xmm6,qword ptr (exp_p1_2-exp_p1_c)[rcx] + movlpd xmm7,qword ptr (exp_p1_4-exp_p1_c)[rcx] + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + mulsd xmm6,xmm2 ; p2 + + movsd xmm3,xmm1 ; x + mulsd xmm1,xmm2 ; x3 + + movlpd xmm8,qword ptr (exp_p1_3-exp_p1_c)[rcx] + mulsd xmm7,xmm0 ; p4 + + mulsd xmm8,xmm1 ; p3 + + movsd xmm4,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + movsd xmm5,xmm2 ; x2 + mulsd xmm2,xmm1 ; x5 + + mulsd xmm5,xmm4 ; x6 + mulsd xmm1,xmm4 ; x7 + mulsd xmm4,xmm2 ; x9 + + mulsd xmm0,qword ptr (exp_p1_8-exp_p1_c)[rcx] ; p8 + mulsd xmm2,qword ptr (exp_p1_5-exp_p1_c)[rcx] ; p5 + mulsd xmm5,qword ptr (exp_p1_6-exp_p1_c)[rcx] ; p6 + mulsd xmm1,qword ptr (exp_p1_7-exp_p1_c)[rcx] ; p7 + mulsd xmm4,qword ptr (exp_p1_9-exp_p1_c)[rcx] ; p9 + + addsd xmm0,xmm4 ; p9+p8 + + movlpd xmm9,qword ptr real_26_bits + + addsd xmm0,xmm1 ; p9+p8+p7 + + movsd xmm11,xmm3 ; x + andpd xmm9,xmm3 ; x_h + mulsd xmm3,qword ptr (exp_p1_1_l-exp_p1_c)[rcx] ; x*c1_l + + addsd xmm0,xmm5 ; p9+p8+p7+p6 + + subsd xmm11,xmm9 ; x_l + mulsd xmm9,qword ptr (exp_p1_1_h-exp_p1_c)[rcx] ; x_h*c1_h + + addsd xmm0,xmm2 ; p9+p8+p7+p6+p5 + + movlpd xmm10,qword ptr (exp_p1_0-exp_p1_c)[rcx] + mulsd xmm11,qword ptr (exp_p1_1_h-exp_p1_c)[rcx] ; x_l*c1_h + addsd xmm10,xmm9 ; x_h*c1_h+c0 + movlpd xmm12,qword ptr (exp_p1_0-exp_p1_c)[rcx] + + addsd xmm0,xmm7 ; p9+p8+p7+p6+p5+p4 + + addsd xmm3,xmm11 ; x*c1_l+x_l*c1_h + subsd xmm12,xmm10 ; c0-(x_h*c1_h+c0) + + addsd xmm0,xmm8 ; p9+p8+p7+p6+p5+p4+p3 + + addsd xmm12,xmm9 ; (c0-(x_h*c1_h+c0))+x_h*c1_h + + addsd xmm0,xmm6 ; p9+p8+p7+p6+p5+p4+p3+p2 + + addsd xmm3,xmm12 ; (c0-(x_h*c1_h+c0))+x_h*c1_h+x*c1_l+x_l*c1_h + + addsd xmm0,qword ptr (exp_p1_0_l-exp_p1_c)[rcx] + + addsd xmm0,xmm3 + addsd xmm0,xmm10 + ret + +exp_real_2: + ucomisd xmm0,qword ptr real_ln_2_t_1_5 + ja exp_real_3 + + subsd xmm0,qword ptr real_ln2_42 + movlpd xmm14,qword ptr real_ln2_42_l + + movsd xmm13,xmm0 + subsd xmm0,xmm14 + + movlpd xmm15,qword ptr real_2_0 + +exp_real_: + movlpd xmm1,qword ptr n_45_d_256 + movlpd xmm2,qword ptr n_m_45_d_256 + + ucomisd xmm0,xmm1 + ja exp_real_p1_ + + ucomisd xmm0,xmm2 + jb exp_real_n1_ + + ucomisd xmm0,qword ptr real_0_0 + + lea rcx,exp_p0_c + lea rdx,exp_m0_c + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + cmovb rcx,rdx + + movlpd xmm6,qword ptr (exp_p0_2-exp_p0_c)[rcx] + movlpd xmm7,qword ptr (exp_p0_4-exp_p0_c)[rcx] + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + mulsd xmm6,xmm2 ; p2 + + movsd xmm3,xmm1 ; x + mulsd xmm1,xmm2 ; x3 + + movlpd xmm8,qword ptr (exp_p0_3-exp_p0_c)[rcx] + mulsd xmm7,xmm0 ; p4 + + mulsd xmm8,xmm1 ; p3 + + movsd xmm4,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + movsd xmm5,xmm2 ; x2 + mulsd xmm2,xmm1 ; x5 + + mulsd xmm5,xmm4 ; x6 + mulsd xmm1,xmm4 ; x7 + mulsd xmm4,xmm2 ; x9 + + mulsd xmm0,qword ptr (exp_p0_8-exp_p0_c)[rcx] ; p8 + mulsd xmm2,qword ptr (exp_p0_5-exp_p0_c)[rcx] ; p5 + mulsd xmm5,qword ptr (exp_p0_6-exp_p0_c)[rcx] ; p6 + mulsd xmm1,qword ptr (exp_p0_7-exp_p0_c)[rcx] ; p7 + mulsd xmm4,qword ptr (exp_p0_9-exp_p0_c)[rcx] ; p9 + + addsd xmm0,xmm4 ; p9+p8 + + movlpd xmm9,qword ptr real_26_bits + movlpd xmm10,qword ptr real_1_0 + + addsd xmm0,xmm1 ; p9+p8+p7 + + andpd xmm9,xmm3 ; x_h + + addsd xmm0,xmm5 ; p9+p8+p7+p6 + + addsd xmm9,xmm10 ; 1+x_h + + addsd xmm0,xmm2 ; p9+p8+p7+p6+p5 + + subsd xmm10,xmm9 ; 1-(1+x_h) + + addsd xmm0,xmm7 ; p9+p8+p7+p6+p5+p4 + + addsd xmm10,xmm13 ; (1-(1+x_h))+xh + + addsd xmm0,xmm8 ; p9+p8+p7+p6+p5+p4+p3 + + subsd xmm10,xmm14 ; (1-(1+x_h))+xh-nxl + + addsd xmm0,xmm6 ; p9+p8+p7+p6+p5+p4+p3+p2 + + addsd xmm0,xmm10 + addsd xmm0,xmm9 + + mulsd xmm0,xmm15 + ret + +exp_real_n1_: + subsd xmm0,xmm2 + subsd xmm13,xmm2 + + lea rcx,exp_m1_c + jmp exp_real_np1_ + +exp_real_p1_: + subsd xmm0,xmm1 + subsd xmm13,xmm1 + + lea rcx,exp_p1_c + +exp_real_np1_: + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + movlpd xmm6,qword ptr (exp_p1_2-exp_p1_c)[rcx] + movlpd xmm7,qword ptr (exp_p1_4-exp_p1_c)[rcx] + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + mulsd xmm6,xmm2 ; p2 + + movsd xmm3,xmm1 ; x + mulsd xmm1,xmm2 ; x3 + + movlpd xmm8,qword ptr (exp_p1_3-exp_p1_c)[rcx] + mulsd xmm7,xmm0 ; p4 + + mulsd xmm8,xmm1 ; p3 + + movsd xmm4,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + movsd xmm5,xmm2 ; x2 + mulsd xmm2,xmm1 ; x5 + + mulsd xmm5,xmm4 ; x6 + mulsd xmm1,xmm4 ; x7 + mulsd xmm4,xmm2 ; x9 + + mulsd xmm0,qword ptr (exp_p1_8-exp_p1_c)[rcx] ; p8 + mulsd xmm2,qword ptr (exp_p1_5-exp_p1_c)[rcx] ; p5 + mulsd xmm5,qword ptr (exp_p1_6-exp_p1_c)[rcx] ; p6 + mulsd xmm1,qword ptr (exp_p1_7-exp_p1_c)[rcx] ; p7 + mulsd xmm4,qword ptr (exp_p1_9-exp_p1_c)[rcx] ; p9 + + movlpd xmm9,qword ptr real_26_bits + + addsd xmm0,xmm4 ; p9+p8 + + movsd xmm11,xmm13 ; xh + andpd xmm9,xmm3 ; x_h + mulsd xmm3,qword ptr (exp_p1_1_l-exp_p1_c)[rcx] ; x*c1_l + + addsd xmm0,xmm1 ; p9+p8+p7 + + subsd xmm11,xmm9 ; xh-x_h + + addsd xmm0,xmm5 ; p9+p8+p7+p6 + + subsd xmm11,xmm14 ; x_l=(xh-x_h)-nxl + + mulsd xmm9,qword ptr (exp_p1_1_h-exp_p1_c)[rcx] ; x_h*c1_h + + addsd xmm0,xmm2 ; p9+p8+p7+p6+p5 + + movlpd xmm10,qword ptr (exp_p1_0-exp_p1_c)[rcx] + mulsd xmm11,qword ptr (exp_p1_1_h-exp_p1_c)[rcx] ; x_l*c1_h + addsd xmm10,xmm9 ; x_h*c1_h+c0 + movlpd xmm12,qword ptr (exp_p1_0-exp_p1_c)[rcx] + + addsd xmm0,xmm7 ; p9+p8+p7+p6+p5+p4 + + addsd xmm3,xmm11 ; x*c1_l+x_l*c1_h + subsd xmm12,xmm10 ; c0-(x_h*c1_h+c0) + + addsd xmm0,xmm8 ; p9+p8+p7+p6+p5+p4+p3 + + addsd xmm12,xmm9 ; (c0-(x_h*c1_h+c0))+x_h*c1_h + + addsd xmm0,xmm6 ; p9+p8+p7+p6+p5+p4+p3+p2 + + addsd xmm3,xmm12 ; (c0-(x_h*c1_h+c0))+x_h*c1_h+x*c1_l+x_l*c1_h + + addsd xmm0,qword ptr (exp_p1_0_l-exp_p1_c)[rcx] + + addsd xmm0,xmm3 + addsd xmm0,xmm10 + + mulsd xmm0,xmm15 + ret + +exp_real_3_n: + movlpd xmm1,qword ptr real_1_d_ln2 + mulsd xmm1,xmm0 + movq xmm4,qword ptr m_round_c + subsd xmm1,qword ptr real_0_5 + + ucomisd xmm1,qword ptr real_m_1022 + jae exp_real_3_pn + + ucomisd xmm1,qword ptr real_m_1076 + jb exp_real_3_n_large + + movq xmm9,qword ptr qw_1078 + + call exp_real_3_pn_ + + mulsd xmm0,qword ptr real_2_p_m_55 + ret + +exp_real_3: + movlpd xmm1,qword ptr real_1_d_ln2 + mulsd xmm1,xmm0 + movq xmm4,qword ptr round_c + addsd xmm1,qword ptr real_0_5 + + ucomisd xmm1,qword ptr real_1024 + jae exp_real_3_large + +exp_real_3_pn: + movq xmm9,qword ptr qw_1023 + +exp_real_3_pn_: + movq xmm2,xmm1 + psrlq xmm1,52 + psubq xmm4,xmm1 + movq xmm1,qword ptr mask_all_one + psllq xmm1,xmm4 + andpd xmm1,xmm2 + + movlpd xmm13,qword ptr real_ln2_42 + movlpd xmm14,qword ptr real_ln2_42_l + + mulsd xmm13,xmm1 + mulsd xmm14,xmm1 + + cvtpd2dq xmm15,xmm1 + subsd xmm0,xmm13 + + movsd xmm13,xmm0 + subsd xmm0,xmm14 + + paddq xmm15,xmm9 + psllq xmm15,52 + jmp exp_real_ + +exp_real_3_large: + ucomisd xmm1,qword ptr real_1025 + jae exp_real_3_larger + + movq xmm9,qword ptr qw_1022 + + call exp_real_3_pn_ + + mulsd xmm0,qword ptr real_2_0 + ret + +exp_real_3_larger: + ucomisd xmm0,qword ptr real_max + ja exp_real_3_inf_or_nan + movlpd xmm0,qword ptr qword ptr real_2_p_1023 + mulsd xmm0,xmm0 +exp_real_3_inf_or_nan: + ret + +exp_real_3_n_large: + jp exp_real_3_inf_or_nan ; nan + movlpd xmm0,qword ptr real_0_0 + ret + + public ln_real + +ln_real: + ucomisd xmm0,qword ptr real_0_8243 + jb ln_real_small ; x<0.82436063535006407342 | nan + ucomisd xmm0,qword ptr real_1_6487 + ja ln_real_large ; x>1.6487212707001281468 + movlpd xmm2,qword ptr real_1_0 + + ucomisd xmm0,qword ptr real_7_d_6 + ja ln_real_a_7_d_6 + + ucomisd xmm0,xmm2 + + subsd xmm0,xmm2 + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + jae ln_real_0 + jmp ln_real_s + +ln_real_small: + ucomisd xmm0,qword ptr real_2_p_m_1022 + jae ln_real_ + + ucomisd xmm0,qword ptr real_0_0 + jbe ln_real_less_or_equal_0_or_nan + +; denormalized number + + mulsd xmm0,qword ptr real_2_p_55 + + movlpd xmm1,qword ptr mask_significand + andpd xmm1,xmm0 + psrlq xmm0,52 + + movlpd xmm2,qword ptr real_1_0 + movlpd xmm3,qword ptr real_0_5 + orpd xmm2,xmm1 + orpd xmm3,xmm1 + + ucomisd xmm2,qword ptr real_1_6487 + jbe ln_real_dn_g1 + + subsd xmm3,qword ptr real_1_0 + psubq xmm0,qword ptr qw_1077 + jmp ln_real_l1_ + +ln_real_dn_g1: + ucomisd xmm2,qword ptr real_7_d_6 + + subsd xmm2,qword ptr real_1_0 + psubq xmm0,qword ptr qw_1078 + + ja ln_real_g_7_d_6 + jmp ln_real_g1_ + +ln_real_large: + ucomisd xmm0,qword ptr real_max + ja ln_real_inf_or_nan + +ln_real_: + movlpd xmm1,qword ptr mask_significand + andpd xmm1,xmm0 + psrlq xmm0,52 + + movlpd xmm2,qword ptr real_1_0 + movlpd xmm3,qword ptr real_0_5 + orpd xmm2,xmm1 + orpd xmm3,xmm1 + + ucomisd xmm2,qword ptr real_1_6487 + jbe ln_real_g1 + jmp ln_real_l1 + +ln_real_0: + movlpd xmm3,qword ptr ln_b_q_1 + movlpd xmm2,qword ptr ln_b_p_1 + + mulsd xmm3,xmm1 ; q1 + mulsd xmm2,xmm1 ; p1 + movsd xmm7,xmm1 ; x + movlpd xmm5,qword ptr ln_b_q_2 + movlpd xmm4,qword ptr ln_b_p_2 + movsd xmm6,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + movsd xmm11,xmm1 ; x + mulsd xmm7,xmm6 ; x3 + + movlpd xmm9,qword ptr ln_b_q_3 + movlpd xmm8,qword ptr ln_b_p_3 + + mulsd xmm11,xmm0 ; x5 + + mulsd xmm5,xmm6 ; q2 + mulsd xmm4,xmm6 ; p2 + + movlpd xmm10,qword ptr ln_b_q_4 + + mulsd xmm9,xmm7 ; q3 + mulsd xmm8,xmm7 ; p3 + + mulsd xmm10,xmm0 ; q4 + mulsd xmm0,qword ptr ln_b_p_4 ; p4 + + addsd xmm10,xmm11 ; q4+x5 + + addsd xmm0,xmm8 ; p3+p4 + addsd xmm9,xmm10 ; q3+q4+x5 + + movlpd xmm6,qword ptr real_17_bits + + addsd xmm0,xmm4 ; p2+p3+p4 + addsd xmm5,xmm9 ; q2+q3+q4+x5 + + andpd xmm6,xmm1 ; x_17_h + movsd xmm8,xmm1 ; x + movlpd xmm4,qword ptr real_0_5 + + addsd xmm0,xmm2 ; p1+p2+p3+p4 + addsd xmm3,xmm5 ; q1+q2+q3+q4+x5 + + subsd xmm8,xmm6 ; x_17_l + mulsd xmm4,xmm6 ; 0.5*x_17_h + + addsd xmm0,qword ptr ln_b_p_0 ; p0+p1+p2+p3+p4 + addsd xmm3,qword ptr ln_b_q_0 ; q0+q1+q2+q3+q4+x5 + + mulsd xmm8,qword ptr real_0_5 ; 0.5*x_17_l + mulsd xmm4,xmm6 ; 0.5*x_17_h*x_17_h + addsd xmm6,xmm1 ; x+x_17_h + + ucomisd xmm1,qword ptr real_2_p_m_16 + jb ln_real_0_s + + divsd xmm0,xmm3 ; p/q + + subsd xmm1,xmm4 ; x-0.5*x_17_h*x_17_h + mulsd xmm6,xmm8 ; 0.5*x_17_l*(x+x_17_h) + + mulsd xmm0,xmm7 ; (p/q)*x3 + subsd xmm0,xmm6 ; (p/q)*x3-0.5x2_l + addsd xmm0,xmm1 ; (p/q)*x3-0.5x2+x + ret + +ln_real_0_s: + divsd xmm0,xmm3 ; p/q + + mulsd xmm6,xmm8 ; 0.5*x_17_l*(x+x_17_h) + + mulsd xmm0,xmm7 ; (p/q)*x3 + subsd xmm0,xmm6 ; (p/q)*x3-0.5x2_l + subsd xmm0,xmm4 ; (p/q)*x3-0.5x2 + addsd xmm0,xmm1 ; (p/q)*x3-0.5x2+x + ret + +ln_real_a_7_d_6: + subsd xmm0,xmm2 + + mulsd xmm0,qword ptr real_0_75 + movlpd xmm1,qword ptr real_0_25 + + lea rcx,ln_b_c + lea rdx,ln_s_c + + ucomisd xmm0,xmm1 + subsd xmm0,xmm1 + + cmovb rcx,rdx + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + movlpd xmm3,qword ptr (ln_b_q_1-ln_b_c)[rcx] + movlpd xmm2,qword ptr (ln_b_p_1-ln_b_c)[rcx] + + mulsd xmm3,xmm1 ; q1 + mulsd xmm2,xmm1 ; p1 + movsd xmm7,xmm1 ; x + movlpd xmm5,qword ptr (ln_b_q_2-ln_b_c)[rcx] + movlpd xmm4,qword ptr (ln_b_p_2-ln_b_c)[rcx] + movsd xmm6,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + movsd xmm11,xmm1 ; x + mulsd xmm7,xmm6 ; x3 + + movlpd xmm9,qword ptr (ln_b_q_3-ln_b_c)[rcx] + movlpd xmm8,qword ptr (ln_b_p_3-ln_b_c)[rcx] + + mulsd xmm11,xmm0 ; x5 + + mulsd xmm5,xmm6 ; q2 + mulsd xmm4,xmm6 ; p2 + + movlpd xmm6,qword ptr real_17_bits + movlpd xmm10,qword ptr (ln_b_q_4-ln_b_c)[rcx] + + mulsd xmm9,xmm7 ; q3 + mulsd xmm8,xmm7 ; p3 + + andpd xmm6,xmm1 ; x_17_h + + mulsd xmm10,xmm0 ; q4 + mulsd xmm0,qword ptr (ln_b_p_4-ln_b_c)[rcx] ; p4 + + addsd xmm10,xmm11 ; q4+x5 + + addsd xmm0,xmm8 ; p3+p4 + addsd xmm9,xmm10 ; q3+q4+x5 + + movsd xmm8,xmm1 ; x + + addsd xmm0,xmm4 ; p2+p3+p4 + addsd xmm5,xmm9 ; q2+q3+q4+x5 + + movlpd xmm4,qword ptr real_0_5 + subsd xmm8,xmm6 ; x_17_l + mulsd xmm4,xmm6 ; 0.5*x_17_h + + addsd xmm0,xmm2 ; p1+p2+p3+p4 + addsd xmm3,xmm5 ; q1+q2+q3+q4+x5 + + mulsd xmm8,qword ptr real_0_5 ; 0.5*x_17_l + mulsd xmm4,xmm6 ; 0.5*x_17_h*x_17_h + addsd xmm6,xmm1 ; x+x_17_h + + addsd xmm0,qword ptr (ln_b_p_0-ln_b_c)[rcx] ; p0+p1+p2+p3+p4 + addsd xmm3,qword ptr (ln_b_q_0-ln_b_c)[rcx] ; q0+q1+q2+q3+q4+x5 + + subsd xmm1,xmm4 ; x-0.5*x_17_h*x_17_h + mulsd xmm6,xmm8 ; 0.5*x_17_l*(x+x_17_h) + + divsd xmm0,xmm3 ; p/q + + movlpd xmm2,qword ptr ln_4_d_3_53 + movlpd xmm4,qword ptr ln_4_d_3_53_l + addsd xmm2,xmm1 + subsd xmm4,xmm6 + + movlpd xmm3,qword ptr ln_4_d_3_53 + subsd xmm3,xmm2 + + mulsd xmm0,xmm7 ; (p/q)*x3 + + addsd xmm3,xmm1 + addsd xmm3,xmm4 + + addsd xmm0,xmm3 + addsd xmm0,xmm2 + ret + +ln_real_g1: + ucomisd xmm2,qword ptr real_7_d_6 + + subsd xmm2,qword ptr real_1_0 + + psubq xmm0,qword ptr qw_1023 + + ja ln_real_g_7_d_6 + +ln_real_g1_: + movsd xmm1,xmm2 ; x + mulsd xmm2,xmm2 ; x2 + + movlpd xmm4,qword ptr ln_b_q_1 + movlpd xmm3,qword ptr ln_b_p_1 + mulsd xmm4,xmm1 ; q1 + mulsd xmm3,xmm1 ; p1 + movsd xmm8,xmm1 ; x + + cvtdq2pd xmm0,xmm0 + + movlpd xmm6,qword ptr ln_b_q_2 + movlpd xmm5,qword ptr ln_b_p_2 + movsd xmm7,xmm2 ; x2 + mulsd xmm2,xmm2 ; x4 + + movsd xmm12,xmm1 ; x + mulsd xmm8,xmm7 ; x3 + + movlpd xmm10,qword ptr ln_b_q_3 + movlpd xmm9,qword ptr ln_b_p_3 + + mulsd xmm12,xmm2 ; x5 + + mulsd xmm6,xmm7 ; q2 + mulsd xmm5,xmm7 ; p2 + + movlpd xmm11,qword ptr ln_b_p_4 + + mulsd xmm10,xmm8 ; q3 + mulsd xmm9,xmm8 ; p3 + + mulsd xmm11,xmm2 ; p4 + mulsd xmm2,qword ptr ln_b_q_4 ; q4 + + addsd xmm2,xmm12 ; q4+x5 + + addsd xmm2,xmm10 ; q3+q4+x5 + addsd xmm9,xmm11 ; p3+p4 + + movlpd xmm7,qword ptr real_17_bits + + addsd xmm2,xmm6 ; q2+q3+q4+x5 + addsd xmm5,xmm9 ; p2+p3+p4 + + andpd xmm7,xmm1 ; x_17_h + movsd xmm14,xmm1 ; x + movlpd xmm13,qword ptr real_0_5 + + movlpd xmm6,qword ptr real_ln2_42_l + + addsd xmm2,xmm4 ; q1+q2+q3+q4+x5 + addsd xmm3,xmm5 ; p1+p2+p3+p4 + + subsd xmm14,xmm7 ; x_17_l + mulsd xmm13,xmm7 ; 0.5*x_17_h + + mulsd xmm6,xmm0 + mulsd xmm0,qword ptr real_ln2_42 + + addsd xmm2,qword ptr ln_b_q_0 ; q0+q1+q2+q3+q4+x5 + addsd xmm3,qword ptr ln_b_p_0 ; p0+p1+p2+p3+p4 + + mulsd xmm14,qword ptr real_0_5; 0.5*x_17_l + mulsd xmm13,xmm7 ; 0.5*x_17_h*x_17_h + addsd xmm7,xmm1 ; x+x_17_h + + ucomisd xmm1,qword ptr real_2_p_m_16 + jb ln_real_g1_s + +ln_real_g1_l: + divsd xmm3,xmm2 ; p/q + + subsd xmm1,xmm13 ; x-0.5*x_17_h*x_17_h + mulsd xmm7,xmm14 ; 0.5*x_17_l*(x+x_17_h) + + mulsd xmm3,xmm8 ; (p/q)*x3 + subsd xmm3,xmm7 ; (p/q)*x3-0.5x2_l + addsd xmm3,xmm6 + + + movsd xmm2,xmm0 + addsd xmm0,xmm1 + subsd xmm2,xmm0 + addsd xmm2,xmm1 + addsd xmm2,xmm3 + addsd xmm0,xmm2 + + +; addsd xmm1,xmm3 ; (p/q)*x3-0.5x2+x +; addsd xmm0,xmm1 + ret + +ln_real_g1_s: + divsd xmm3,xmm2 ; p/q + + mulsd xmm7,xmm14 ; 0.5*x_17_l*(x+x_17_h) + + mulsd xmm3,xmm8 ; (p/q)*x3 + subsd xmm3,xmm7 ; (p/q)*x3-0.5x2_l + addsd xmm3,xmm6 + subsd xmm3,xmm13 ; (p/q)*x3-0.5x2 + addsd xmm1,xmm3 ; (p/q)*x3-0.5x2_l+x + addsd xmm0,xmm1 + ret + +ln_real_g_7_d_6: + mulsd xmm2,qword ptr real_0_75 + movlpd xmm1,qword ptr real_0_25 + + lea rcx,ln_b_c + lea rdx,ln_s_c + + ucomisd xmm2,xmm1 + subsd xmm2,xmm1 + + cmovb rcx,rdx + + movsd xmm1,xmm2 ; x + mulsd xmm2,xmm2 ; x2 + + movlpd xmm4,qword ptr (ln_b_q_1-ln_b_c)[rcx] + movlpd xmm3,qword ptr (ln_b_p_1-ln_b_c)[rcx] + mulsd xmm4,xmm1 ; q1 + mulsd xmm3,xmm1 ; p1 + movsd xmm8,xmm1 ; x + + cvtdq2pd xmm0,xmm0 + + movlpd xmm6,qword ptr (ln_b_q_2-ln_b_c)[rcx] + movlpd xmm5,qword ptr (ln_b_p_2-ln_b_c)[rcx] + movsd xmm7,xmm2 ; x2 + mulsd xmm2,xmm2 ; x4 + + movsd xmm12,xmm1 ; x + mulsd xmm8,xmm7 ; x3 + + movlpd xmm10,qword ptr (ln_b_q_3-ln_b_c)[rcx] + movlpd xmm9,qword ptr (ln_b_p_3-ln_b_c)[rcx] + + mulsd xmm12,xmm2 ; x5 + + mulsd xmm6,xmm7 ; q2 + mulsd xmm5,xmm7 ; p2 + + movlpd xmm11,qword ptr (ln_b_p_4-ln_b_c)[rcx] + + mulsd xmm10,xmm8 ; q3 + mulsd xmm9,xmm8 ; p3 + + mulsd xmm11,xmm2 ; p4 + mulsd xmm2,qword ptr (ln_b_q_4-ln_b_c)[rcx] ; q4 + + addsd xmm2,xmm12 ; q4+x5 + + addsd xmm2,xmm10 ; q3+q4+x5 + addsd xmm9,xmm11 ; p3+p4 + + movlpd xmm7,qword ptr real_17_bits + + addsd xmm2,xmm6 ; q2+q3+q4+x5 + addsd xmm5,xmm9 ; p2+p3+p4 + + andpd xmm7,xmm1 ; x_17_h + movsd xmm14,xmm1 ; x + movlpd xmm13,qword ptr real_0_5 + + movlpd xmm6,qword ptr real_ln2_42_l + + addsd xmm2,xmm4 ; q1+q2+q3+q4+x5 + addsd xmm3,xmm5 ; p1+p2+p3+p4 + + subsd xmm14,xmm7 ; x_17_l + mulsd xmm13,xmm7 ; 0.5*x_17_h + + mulsd xmm6,xmm0 + mulsd xmm0,qword ptr real_ln2_42 + + addsd xmm2,qword ptr (ln_b_q_0-ln_b_c)[rcx] ; q0+q1+q2+q3+q4+x5 + addsd xmm3,qword ptr (ln_b_p_0-ln_b_c)[rcx] ; p0+p1+p2+p3+p4 + + mulsd xmm14,qword ptr real_0_5; 0.5*x_17_l + mulsd xmm13,xmm7 ; 0.5*x_17_h*x_17_h + addsd xmm7,xmm1 ; x+x_17_h + + addsd xmm0,qword ptr ln_4_d_3_42 + addsd xmm6,qword ptr ln_4_d_3_42_l + jmp ln_real_g1_l + +ln_real_s: + movlpd xmm3,qword ptr ln_s_q_1 + movlpd xmm2,qword ptr ln_s_p_1 + + mulsd xmm3,xmm1 ; q1 + mulsd xmm2,xmm1 ; p1 + movsd xmm7,xmm1 ; x + movlpd xmm5,qword ptr ln_s_q_2 + movlpd xmm4,qword ptr ln_s_p_2 + movsd xmm6,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + movsd xmm11,xmm1 ; x + mulsd xmm7,xmm6 ; x3 + + movlpd xmm9,qword ptr ln_s_q_3 + movlpd xmm8,qword ptr ln_s_p_3 + + mulsd xmm11,xmm0 ; x5 + + mulsd xmm5,xmm6 ; q2 + mulsd xmm4,xmm6 ; p2 + + movlpd xmm10,qword ptr ln_s_q_4 + + mulsd xmm9,xmm7 ; q3 + mulsd xmm8,xmm7 ; p3 + + mulsd xmm10,xmm0 ; q4 + mulsd xmm0,qword ptr ln_s_p_4 ; p4 + + addsd xmm10,xmm11 ; q4+x5 + + addsd xmm0,xmm8 ; p3+p4 + addsd xmm9,xmm10 ; q3+q4+x5 + + movlpd xmm6,qword ptr real_17_bits + + addsd xmm0,xmm4 ; p2+p3+p4 + addsd xmm5,xmm9 ; q2+q3+q4+x5 + + andpd xmm6,xmm1 ; x_17_h + movsd xmm8,xmm1 ; x + movlpd xmm4,qword ptr real_0_5 + + addsd xmm0,xmm2 ; p1+p2+p3+p4 + addsd xmm3,xmm5 ; q1+q2+q3+q4+x5 + + subsd xmm8,xmm6 ; x_17_l + mulsd xmm4,xmm6 ; 0.5*x_17_h + + addsd xmm0,qword ptr ln_s_p_0 ; p0+p1+p2+p3+p4 + addsd xmm3,qword ptr ln_s_q_0 ; q0+q1+q2+q3+q4+x5 + + mulsd xmm8,qword ptr real_0_5; 0.5*x_17_l + mulsd xmm4,xmm6 ; 0.5*x_17_h*x_17_h + addsd xmm6,xmm1 ; x+x_17_h + + ucomisd xmm1,qword ptr real_m_2_p_m_16 + ja ln_real_s_s + + divsd xmm0,xmm3 ; p/q + + subsd xmm1,xmm4 ; x-0.5*x_17_h*x_17_h + mulsd xmm6,xmm8 ; 0.5*x_17_l*(x+x_17_h) + + mulsd xmm0,xmm7 ; (p/q)*x3 + subsd xmm0,xmm6 ; (p/q)*x3-0.5x2_l + addsd xmm0,xmm1 ; (p/q)*x3-0.5x2+x + ret + +ln_real_s_s: + divsd xmm0,xmm3 ; p/q + + mulsd xmm6,xmm8 ; 0.5*x_17_l*(x+x_17_h) + + mulsd xmm0,xmm7 ; (p/q)*x3 + subsd xmm0,xmm6 ; (p/q)*x3-0.5x2_l + subsd xmm0,xmm4 ; (p/q)*x3-0.5x2 + addsd xmm0,xmm1 ; (p/q)*x3-0.5x2+x + ret + + +ln_real_l1: + subsd xmm3,qword ptr real_1_0 + + psubq xmm0,qword ptr qw_1022 +ln_real_l1_: + movsd xmm1,xmm3 ; x + mulsd xmm3,xmm3 ; x2 + + movlpd xmm4,qword ptr ln_s_q_1 + movlpd xmm2,qword ptr ln_s_p_1 + mulsd xmm4,xmm1 ; q1 + mulsd xmm2,xmm1 ; p1 + movsd xmm8,xmm1 ; x + + cvtdq2pd xmm0,xmm0 + + movlpd xmm6,qword ptr ln_s_q_2 + movlpd xmm5,qword ptr ln_s_p_2 + movsd xmm7,xmm3 ; x2 + mulsd xmm3,xmm3 ; x4 + + movsd xmm12,xmm1 ; x + mulsd xmm8,xmm7 ; x3 + + movlpd xmm10,qword ptr ln_s_q_3 + movlpd xmm9,qword ptr ln_s_p_3 + + mulsd xmm12,xmm3 ; x5 + + mulsd xmm6,xmm7 ; q2 + mulsd xmm5,xmm7 ; p2 + + movlpd xmm11,qword ptr ln_s_p_4 + + mulsd xmm10,xmm8 ; q3 + mulsd xmm9,xmm8 ; p3 + + mulsd xmm11,xmm3 ; p4 + mulsd xmm3,qword ptr ln_s_q_4 ; q4 + + addsd xmm3,xmm12 ; q4+x5 + + addsd xmm3,xmm10 ; q3+q4+x5 + addsd xmm9,xmm11 ; p3+p4 + + movlpd xmm7,qword ptr real_17_bits + + addsd xmm3,xmm6 ; q2+q3+q4+x5 + addsd xmm5,xmm9 ; p2+p3+p4 + + andpd xmm7,xmm1 ; x_17_h + movsd xmm14,xmm1 ; x + movlpd xmm13,qword ptr real_0_5 + + movlpd xmm6,qword ptr real_ln2_42_l + + addsd xmm3,xmm4 ; q1+q2+q3+q4+x5 + addsd xmm2,xmm5 ; p1+p2+p3+p4 + + subsd xmm14,xmm7 ; x_17_l + mulsd xmm13,xmm7 ; 0.5*x_17_h + + mulsd xmm6,xmm0 + mulsd xmm0,qword ptr real_ln2_42 + + addsd xmm3,qword ptr ln_s_q_0 ; q0+q1+q2+q3+q4+x5 + addsd xmm2,qword ptr ln_s_p_0 ; p0+p1+p2+p3+p4 + + mulsd xmm14,qword ptr real_0_5; 0.5*x_17_l + mulsd xmm13,xmm7 ; 0.5*x_17_h*x_17_h + addsd xmm7,xmm1 ; x+x_17_h + + ucomisd xmm1,qword ptr real_m_2_p_m_16 + ja ln_real_l1_s + + divsd xmm2,xmm3 ; p/q + + subsd xmm1,xmm13 ; x-0.5*x_17_h*x_17_h + mulsd xmm7,xmm14 ; 0.5*x_17_l*(x+x_17_h) + + mulsd xmm2,xmm8 ; (p/q)*x3 + subsd xmm2,xmm7 ; (p/q)*x3-0.5x2_l + addsd xmm2,xmm6 + + + movsd xmm3,xmm0 + addsd xmm0,xmm1 + subsd xmm3,xmm0 + addsd xmm3,xmm1 + addsd xmm3,xmm2 + addsd xmm0,xmm3 + +; addsd xmm1,xmm2 ; (p/q)*x3-0.5x2+x +; addsd xmm0,xmm1 + ret + +ln_real_l1_s: + divsd xmm2,xmm3 ; p/q + + mulsd xmm7,xmm14 ; 0.5*x_17_l*(x+x_17_h) + + mulsd xmm2,xmm8 ; (p/q)*x3 + subsd xmm2,xmm7 ; (p/q)*x3-0.5x2_l + addsd xmm2,xmm6 + subsd xmm2,xmm13 ; (p/q)*x3-0.5x2 + addsd xmm1,xmm2 ; (p/q)*x3-0.5x2+x + addsd xmm0,xmm1 + ret + +ln_real_less_or_equal_0_or_nan: + jb ln_real_less_0_or_nan ; x<0.0 | nan + + movsd xmm0,qword ptr real_m_1_0 + divsd xmm0,qword ptr real_0_0 ; yield -inf + ret + +ln_real_less_0_or_nan: + jp ln_real_inf_or_nan ; nan + + movsd xmm0,qword ptr real_0_0 ; yield nan + divsd xmm0,xmm0 + +ln_real_inf_or_nan: + ret + + public log10_real + +log10_real: +; ucomisd xmm0,qword ptr real_0_7025 + ucomisd xmm0,qword ptr real_0_833 +; jb log10_real_small ; x<0.7025 | nan + jb log10_real_small ; x<0.833 | nan + ucomisd xmm0,qword ptr real_1_666 + ja log10_real_large ; x>1.666 + + movlpd xmm2,qword ptr real_1_0 + + ucomisd xmm0,qword ptr real_7_d_6 + ja log10_real_a_7_d_6 + + ucomisd xmm0,xmm2 + + subsd xmm0,xmm2 + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + jae log10_real_0 + jmp log10_real_s + +log10_real_small: + ucomisd xmm0,qword ptr real_2_p_m_1022 + jae log10_real_ + + ucomisd xmm0,qword ptr real_0_0 + jbe log10_real_less_or_equal_0_or_nan + +; denormalized number + + mulsd xmm0,qword ptr real_2_p_55 + + movlpd xmm1,qword ptr mask_significand + andpd xmm1,xmm0 + psrlq xmm0,52 + + movlpd xmm2,qword ptr real_1_0 + movlpd xmm3,qword ptr real_0_5 + orpd xmm2,xmm1 + orpd xmm3,xmm1 + +; ucomisd xmm2,qword ptr real_1_405 + ucomisd xmm2,qword ptr real_1_666 + jbe log10_real_dn_g1 + + subsd xmm3,qword ptr real_1_0 + psubq xmm0,qword ptr qw_1077 + jmp log10_real_l1_ + +log10_real_dn_g1: + ucomisd xmm2,qword ptr real_7_d_6 + + subsd xmm2,qword ptr real_1_0 + psubq xmm0,qword ptr qw_1078 + + ja log10_real_g_7_d_6 + jmp log10_real_g1_ + +log10_real_large: + ucomisd xmm0,qword ptr real_max + ja log10_real_inf_or_nan + +log10_real_: + movlpd xmm1,qword ptr mask_significand + andpd xmm1,xmm0 + psrlq xmm0,52 + + movlpd xmm2,qword ptr real_1_0 + movlpd xmm3,qword ptr real_0_5 + orpd xmm2,xmm1 + orpd xmm3,xmm1 + +; ucomisd xmm2,qword ptr real_1_405 + ucomisd xmm2,qword ptr real_1_666 + jbe log10_real_g1 + jmp log10_real_l1 + +log10_real_0: + movlpd xmm2,qword ptr log10_b_p_1 + movlpd xmm3,qword ptr log10_b_q_1 + mulsd xmm2,xmm1 ; p1 + mulsd xmm3,xmm1 ; q1 + movsd xmm7,xmm1 ; x + + movlpd xmm4,qword ptr log10_b_p_2 + movlpd xmm5,qword ptr log10_b_q_2 + mulsd xmm7,xmm0 ; x3 + movsd xmm6,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + movlpd xmm8,qword ptr log10_b_p_3 + movlpd xmm9,qword ptr log10_b_q_3 + + mulsd xmm4,xmm6 ; p2 + mulsd xmm5,xmm6 ; q2 + + movlpd xmm10,qword ptr log10_b_p_4 + + mulsd xmm8,xmm7 ; p3 + mulsd xmm9,xmm7 ; q3 + + movsd xmm11,xmm7 ; x3 + mulsd xmm7,xmm6 ; x5 + + mulsd xmm10,xmm0 ; p4 + mulsd xmm0,qword ptr log10_b_q_4 ; q4 + + addsd xmm0,xmm7 ; q4+x5 + + addsd xmm9,xmm0 ; q3+q4+x5 + addsd xmm8,xmm10 ; p3+p4 + + mulsd xmm6,qword ptr real_0_5 ; 0.5x2 + + addsd xmm9,xmm5 ; q2+q3+q4+x5 + addsd xmm4,xmm8 ; p2+p3+p4 + + addsd xmm9,xmm3 ; q1+q2+q3+q4+x5 + addsd xmm2,xmm4 ; p1+p2+p3+p4 + + movlpd xmm4,qword ptr real_26_bits + movsd xmm0,xmm1 ; x + + addsd xmm9,qword ptr log10_b_q_0 ; q0+q1+q2+q3+q4+x5 + addsd xmm2,qword ptr log10_b_p_0 ; p0+p1+p2+p3+p4 + + subsd xmm1,xmm6 ; x-0.5x2 + + divsd xmm2,xmm9 ; p/q + + andpd xmm4,xmm1 ; (x-0.5x2)_h + subsd xmm0,xmm4 ; x-(x-0.5x2)_h + subsd xmm0,xmm6 ; (x-0.5x2)_l + + mulsd xmm2,xmm11 ; (p/q)*x3 + + mulsd xmm1,qword ptr d1ln10_26_l ; (x-0.5x2) * (1/ln 10)_l + mulsd xmm0,qword ptr d1ln10_26 ; (x-0.5x2)_l * (1/ln 10)_h + mulsd xmm4,qword ptr d1ln10_26 ; (x-0.5x2)_h * (1/ln 10)_h + + addsd xmm0,xmm1 ; (x-0.5x2) * (1/ln 10)_l+(x-0.5x2)_l * (1/ln 10)_h + addsd xmm0,xmm2 + addsd xmm0,xmm4 ; (x-0.5x2)*(1/ln 10) + (p/q)*x3 + + ret + +;log10_real_0_: +; movlpd xmm2,qword ptr log10_b_p_1 +; movlpd xmm10,qword ptr log10_b_q_1 +; mulsd xmm2,xmm1 ; p1 +; mulsd xmm10,xmm1 ; q1 +; movsd xmm7,xmm1 ; x +; +; movlpd xmm11,qword ptr log10_b_p_2 +; movlpd xmm5,qword ptr log10_b_q_2 +; mulsd xmm7,xmm0 ; x3 +; movsd xmm6,xmm0 ; x2 +; mulsd xmm0,xmm0 ; x4 +; +; movlpd xmm8,qword ptr log10_b_p_3 +; movlpd xmm9,qword ptr log10_b_q_3 +; +;; mulsd xmm11,xmm6 ; p2 +; mulsd xmm5,xmm6 ; q2 +; +; movlpd xmm3,qword ptr log10_b_p_4 +; +; mulsd xmm8,xmm7 ; p3 +; mulsd xmm9,xmm7 ; q3 +; +; mulsd xmm6,xmm7 ; x5 +; +; mulsd xmm3,xmm0 ; p4 +; mulsd xmm0,qword ptr log10_b_q_4 ; q4 +; +; movsd xmm4,xmm1 ; x +; addsd xmm0,xmm6 ; q4+x5 +; movlpd xmm6,qword ptr real_m_0_5 +; +; addsd xmm9,xmm0 ; q3+q4+x5 +; addsd xmm8,xmm3 ; p3+p4 +; +; movlpd xmm0,qword ptr real_14_bits +; +; andpd xmm0,xmm1 ; x_h +; mulsd xmm6,xmm1 ; -0.5x +; +; addsd xmm9,xmm5 ; q2+q3+q4+x5 +; addsd xmm11,xmm8 ; p2+p3+p4 +; +; movsd xmm3,xmm1 ; x +; subsd xmm4,xmm0 ; x_l +; addsd xmm6,qword ptr real_1_0 ; 1-0.5x +; movlpd xmm5,qword ptr real_13_bits +; +; addsd xmm9,xmm10 ; q1+q2+q3+q4+x5 +; addsd xmm2,xmm11 ; p1+p2+p3+p4 +; +; andpd xmm5,xmm6 ; (1-0.5x)_h +; mulsd xmm3,xmm6 ; (1-0.5x)*x = x-0.5x2 +; +; addsd xmm9,qword ptr log10_b_q_0 ; q0+q1+q2+q3+q4+x5 +; addsd xmm2,qword ptr log10_b_p_0 ; p0+p1+p2+p3+p4 +; +; subsd xmm6,xmm5 ; (1-0.5x)_l +; mulsd xmm0,xmm5 ; (1-0.5x)_h*x_h = (x-0.5x2)_h +; mulsd xmm4,xmm5 ; (1-0.5x)_h*x_l +; +; divsd xmm2,xmm9 ; p/q +; +; mulsd xmm3,qword ptr d1ln10_26_l ; (x-0.5x2) * (1/ln 10)_l +; mulsd xmm6,xmm1 ; (1-0.5x)_l*x +; mulsd xmm0,qword ptr d1ln10_26 ; (x-0.5x2)_h * (1/ln 10)_h +; +; addsd xmm6,xmm4 ; (x-0.5x2)_l +; +; mulsd xmm6,qword ptr d1ln10_26 ; (x-0.5x2)_l * (1/ln 10)_h +; +; mulsd xmm2,xmm7 ; (p/q)*x3 +; +; addsd xmm6,xmm3 +; +; addsd xmm2,xmm6 +; +; addsd xmm0,xmm2 +; +; ret + +log10_real_a_7_d_6: + subsd xmm0,xmm2 + + mulsd xmm0,qword ptr real_0_75 + movlpd xmm1,qword ptr real_0_25 + + lea rcx,log10_b_c + lea rdx,log10_s_c + + ucomisd xmm0,xmm1 + subsd xmm0,xmm1 + + cmovb rcx,rdx + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + movlpd xmm2,qword ptr (log10_b_p_1-log10_b_c)[rcx] + movlpd xmm3,qword ptr (log10_b_q_1-log10_b_c)[rcx] + mulsd xmm2,xmm1 ; p1 + mulsd xmm3,xmm1 ; q1 + movsd xmm7,xmm1 ; x + + movlpd xmm4,qword ptr (log10_b_p_2-log10_b_c)[rcx] + movlpd xmm5,qword ptr (log10_b_q_2-log10_b_c)[rcx] + mulsd xmm7,xmm0 ; x3 + movsd xmm6,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + movlpd xmm8,qword ptr (log10_b_p_3-log10_b_c)[rcx] + movlpd xmm9,qword ptr (log10_b_q_3-log10_b_c)[rcx] + + mulsd xmm4,xmm6 ; p2 + mulsd xmm5,xmm6 ; q2 + + movlpd xmm10,qword ptr (log10_b_p_4-log10_b_c)[rcx] + + mulsd xmm8,xmm7 ; p3 + mulsd xmm9,xmm7 ; q3 + + movsd xmm11,xmm7 ; x3 + mulsd xmm7,xmm6 ; x5 + + mulsd xmm10,xmm0 ; p4 + mulsd xmm0,qword ptr (log10_b_q_4-log10_b_c)[rcx] ; q4 + + addsd xmm0,xmm7 ; q4+x5 + + addsd xmm9,xmm0 ; q3+q4+x5 + addsd xmm8,xmm10 ; p3+p4 + + mulsd xmm6,qword ptr real_0_5 ; 0.5x2 + + addsd xmm9,xmm5 ; q2+q3+q4+x5 + addsd xmm4,xmm8 ; p2+p3+p4 + + addsd xmm9,xmm3 ; q1+q2+q3+q4+x5 + addsd xmm2,xmm4 ; p1+p2+p3+p4 + + movlpd xmm4,qword ptr real_26_bits + movsd xmm0,xmm1 ; x + + addsd xmm9,qword ptr (log10_b_q_0-log10_b_c)[rcx] ; q0+q1+q2+q3+q4+x5 + addsd xmm2,qword ptr (log10_b_p_0-log10_b_c)[rcx] ; p0+p1+p2+p3+p4 + + subsd xmm1,xmm6 ; x-0.5x2 + + divsd xmm2,xmm9 ; p/q + + andpd xmm4,xmm1 ; (x-0.5x2)_h + subsd xmm0,xmm4 ; x-(x-0.5x2)_h + subsd xmm0,xmm6 ; (x-0.5x2)_l + + mulsd xmm2,xmm11 ; (p/q)*x3 + + mulsd xmm1,qword ptr d1ln10_26_l ; (x-0.5x2) * (1/ln 10)_l + mulsd xmm0,qword ptr d1ln10_26 ; (x-0.5x2)_l * (1/ln 10)_h + mulsd xmm4,qword ptr d1ln10_26 ; (x-0.5x2)_h * (1/ln 10)_h + + addsd xmm0,xmm1 ; (x-0.5x2) * (1/ln 10)_l+(x-0.5x2)_l * (1/ln 10)_h + + movlpd xmm3,qword ptr log10_4_d_3_53 + movlpd xmm5,qword ptr log10_4_d_3_53 + + addsd xmm3,xmm4 + addsd xmm0,qword ptr log10_4_d_3_53_l + + subsd xmm5,xmm3 + + addsd xmm5,xmm4 + + addsd xmm0,xmm5 + + addsd xmm0,xmm2 + addsd xmm0,xmm3 ; (x-0.5x2)*(1/ln 10) + (p/q)*x3 + ret + +log10_real_g1: + ucomisd xmm2,qword ptr real_7_d_6 + + subsd xmm2,qword ptr real_1_0 + + psubq xmm0,qword ptr qw_1023 + + ja log10_real_g_7_d_6 + +log10_real_g1_: + movsd xmm1,xmm2 ; x + mulsd xmm2,xmm2 ; x2 + + movlpd xmm11,qword ptr log10_b_p_1 + movlpd xmm10,qword ptr log10_b_q_1 + mulsd xmm11,xmm1 ; p1 + mulsd xmm10,xmm1 ; q1 + movsd xmm7,xmm1 ; x + + cvtdq2pd xmm12,xmm0 + + movlpd xmm0,qword ptr log10_b_p_2 + movlpd xmm5,qword ptr log10_b_q_2 + mulsd xmm7,xmm2 ; x3 + movsd xmm6,xmm2 ; x2 + mulsd xmm2,xmm2 ; x4 + + movlpd xmm8,qword ptr log10_b_p_3 + movlpd xmm9,qword ptr log10_b_q_3 + + mulsd xmm0,xmm6 ; p2 + mulsd xmm5,xmm6 ; q2 + + movlpd xmm3,qword ptr log10_b_p_4 + + mulsd xmm8,xmm7 ; p3 + mulsd xmm9,xmm7 ; q3 + + mulsd xmm6,xmm7 ; x5 + + mulsd xmm3,xmm2 ; p4 + mulsd xmm2,qword ptr log10_b_q_4 ; q4 + + movsd xmm4,xmm1 ; x + addsd xmm2,xmm6 ; q4+x5 + movlpd xmm6,qword ptr real_m_0_5 + + addsd xmm9,xmm2 ; q3+q4+x5 + addsd xmm8,xmm3 ; p3+p4 + + movlpd xmm13,qword ptr real_log2_10_42_l + movlpd xmm2,qword ptr real_14_bits + + andpd xmm2,xmm1 ; x_h + mulsd xmm6,xmm1 ; -0.5x + + addsd xmm9,xmm5 ; q2+q3+q4+x5 + addsd xmm0,xmm8 ; p2+p3+p4 + + mulsd xmm13,xmm12 + mulsd xmm12,qword ptr real_log2_10_42 + + movsd xmm3,xmm1 ; x + subsd xmm4,xmm2 ; x_l + addsd xmm6,qword ptr real_1_0 ; 1-0.5x + movlpd xmm5,qword ptr real_13_bits + + addsd xmm9,xmm10 ; q1+q2+q3+q4+x5 + addsd xmm0,xmm11 ; p1+p2+p3+p4 + + andpd xmm5,xmm6 ; (1-0.5x)_h + mulsd xmm3,xmm6 ; (1-0.5x)*x = x-0.5x2 + + addsd xmm9,qword ptr log10_b_q_0 ; q0+q1+q2+q3+q4+x5 + addsd xmm0,qword ptr log10_b_p_0 ; p0+p1+p2+p3+p4 + + subsd xmm6,xmm5 ; (1-0.5x)_l + mulsd xmm2,xmm5 ; (1-0.5x)_h*x_h = (x-0.5x2)_h + mulsd xmm4,xmm5 ; (1-0.5x)_h*x_l + + divsd xmm0,xmm9 ; p/q + + mulsd xmm3,qword ptr d1ln10_26_l ; (x-0.5x2) * (1/ln 10)_l + mulsd xmm6,xmm1 ; (1-0.5x)_l*x + mulsd xmm2,qword ptr d1ln10_26 ; (x-0.5x2)_h * (1/ln 10)_h + + addsd xmm6,xmm4 ; (x-0.5x2)_l + + mulsd xmm6,qword ptr d1ln10_26 ; (x-0.5x2)_l * (1/ln 10)_h + + mulsd xmm0,xmm7 ; (p/q)*x3 + + addsd xmm6,xmm3 + + addsd xmm0,xmm6 + + addsd xmm0,xmm13 + + movsd xmm3,xmm2 + addsd xmm2,xmm12 + subsd xmm12,xmm2 + addsd xmm12,xmm3 + addsd xmm0,xmm12 + addsd xmm0,xmm2 + +; addsd xmm0,xmm2 +; addsd xmm0,xmm12 + + ret + +log10_real_g_7_d_6: + mulsd xmm2,qword ptr real_0_75 + movlpd xmm1,qword ptr real_0_25 + + lea rcx,log10_b_c + lea rdx,log10_s_c + + ucomisd xmm2,xmm1 + subsd xmm2,xmm1 + + cmovb rcx,rdx + + movsd xmm1,xmm2 ; x + mulsd xmm2,xmm2 ; x2 + + movlpd xmm3,qword ptr (log10_b_p_1-log10_b_c)[rcx] + movlpd xmm4,qword ptr (log10_b_q_1-log10_b_c)[rcx] + mulsd xmm3,xmm1 ; p1 + mulsd xmm4,xmm1 ; q1 + movsd xmm8,xmm1 ; x + + cvtdq2pd xmm0,xmm0 + + movlpd xmm5,qword ptr (log10_b_p_2-log10_b_c)[rcx] + movlpd xmm6,qword ptr (log10_b_q_2-log10_b_c)[rcx] + mulsd xmm8,xmm2 ; x3 + movsd xmm7,xmm2 ; x2 + mulsd xmm2,xmm2 ; x4 + + movlpd xmm9,qword ptr (log10_b_p_3-log10_b_c)[rcx] + movlpd xmm10,qword ptr (log10_b_q_3-log10_b_c)[rcx] + + mulsd xmm5,xmm7 ; p2 + mulsd xmm6,xmm7 ; q2 + + movlpd xmm11,qword ptr (log10_b_p_4-log10_b_c)[rcx] + + mulsd xmm9,xmm8 ; p3 + mulsd xmm10,xmm8 ; q3 + + movsd xmm12,xmm8 ; x3 + mulsd xmm8,xmm7 ; x5 + + mulsd xmm11,xmm2 ; p4 + mulsd xmm2,qword ptr (log10_b_q_4-log10_b_c)[rcx] ; q4 + + addsd xmm2,xmm8 ; q4+x5 + + addsd xmm10,xmm2 ; q3+q4+x5 + addsd xmm9,xmm11 ; p3+p4 + + mulsd xmm7,qword ptr real_0_5 ; 0.5x2 + + addsd xmm10,xmm6 ; q2+q3+q4+x5 + addsd xmm5,xmm9 ; p2+p3+p4 + + movlpd xmm6,qword ptr real_log2_10_42_l + + addsd xmm10,xmm4 ; q1+q2+q3+q4+x5 + addsd xmm3,xmm5 ; p1+p2+p3+p4 + + movlpd xmm5,qword ptr real_26_bits + movsd xmm2,xmm1 ; x + + mulsd xmm6,xmm0 + mulsd xmm0,qword ptr real_log2_10_42 + + addsd xmm10,qword ptr (log10_b_q_0-log10_b_c)[rcx] ; q0+q1+q2+q3+q4+x5 + addsd xmm3,qword ptr (log10_b_p_0-log10_b_c)[rcx] ; p0+p1+p2+p3+p4 + + subsd xmm1,xmm7 ; x-0.5x2 + + addsd xmm6,qword ptr log10_4_d_3_42_l + addsd xmm0,qword ptr log10_4_d_3_42 + + divsd xmm3,xmm10 ; p/q + + andpd xmm5,xmm1 ; (x-0.5x2)_h + subsd xmm2,xmm5 ; x-(x-0.5x2)_h + subsd xmm2,xmm7 ; (x-0.5x2)_l + + mulsd xmm3,xmm12 ; (p/q)*x3 + + mulsd xmm1,qword ptr d1ln10_26_l ; (x-0.5x2) * (1/ln 10)_l + mulsd xmm2,qword ptr d1ln10_26 ; (x-0.5x2)_l * (1/ln 10)_h + mulsd xmm5,qword ptr d1ln10_26 ; (x-0.5x2)_h * (1/ln 10)_h + + addsd xmm2,xmm1 ; (x-0.5x2) * (1/ln 10)_l+(x-0.5x2)_l * (1/ln 10)_h + addsd xmm2,xmm3 + addsd xmm2,xmm6 + + movsd xmm3,xmm0 + addsd xmm0,xmm5 + subsd xmm3,xmm0 + addsd xmm3,xmm5 + addsd xmm3,xmm2 + addsd xmm0,xmm3 + +; addsd xmm2,xmm5 ; (x-0.5x2)*(1/ln 10) + (p/q)*x3 +; addsd xmm0,xmm2 + ret + +log10_real_s: + movlpd xmm2,qword ptr log10_s_p_1 + movlpd xmm3,qword ptr log10_s_q_1 + mulsd xmm2,xmm1 ; p1 + mulsd xmm3,xmm1 ; q1 + movsd xmm7,xmm1 ; x + + movlpd xmm4,qword ptr log10_s_p_2 + movlpd xmm5,qword ptr log10_s_q_2 + mulsd xmm7,xmm0 ; x3 + movsd xmm6,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + movlpd xmm8,qword ptr log10_s_p_3 + movlpd xmm9,qword ptr log10_s_q_3 + + mulsd xmm4,xmm6 ; p2 + mulsd xmm5,xmm6 ; q2 + + movlpd xmm10,qword ptr log10_s_p_4 + + mulsd xmm8,xmm7 ; p3 + mulsd xmm9,xmm7 ; q3 + + movsd xmm11,xmm7 ; x3 + mulsd xmm7,xmm6 ; x5 + + mulsd xmm10,xmm0 ; p4 + mulsd xmm0,qword ptr log10_s_q_4 ; q4 + + addsd xmm0,xmm7 ; q4+x5 + + addsd xmm9,xmm0 ; q3+q4+x5 + addsd xmm8,xmm10 ; p3+p4 + + mulsd xmm6,qword ptr real_0_5 ; 0.5x2 + + addsd xmm9,xmm5 ; q2+q3+q4+x5 + addsd xmm4,xmm8 ; p2+p3+p4 + + addsd xmm9,xmm3 ; q1+q2+q3+q4+x5 + addsd xmm2,xmm4 ; p1+p2+p3+p4 + + movlpd xmm4,qword ptr real_26_bits + movsd xmm0,xmm1 ; x + + addsd xmm9,qword ptr log10_s_q_0 ; q0+q1+q2+q3+q4+x5 + addsd xmm2,qword ptr log10_s_p_0 ; p0+p1+p2+p3+p4 + + subsd xmm1,xmm6 ; x-0.5x2 + + divsd xmm2,xmm9 ; p/q + + andpd xmm4,xmm1 ; (x-0.5x2)_h + subsd xmm0,xmm4 ; x-(x-0.5x2)_h + subsd xmm0,xmm6 ; (x-0.5x2)_l + + mulsd xmm2,xmm11 ; (p/q)*x3 + + mulsd xmm1,qword ptr d1ln10_26_l ; (x-0.5x2) * (1/ln 10)_l + mulsd xmm0,qword ptr d1ln10_26 ; (x-0.5x2)_l * (1/ln 10)_h + mulsd xmm4,qword ptr d1ln10_26 ; (x-0.5x2)_h * (1/ln 10)_h + + addsd xmm0,xmm1 ; (x-0.5x2) * (1/ln 10)_l+(x-0.5x2)_l * (1/ln 10)_h + addsd xmm0,xmm2 + addsd xmm0,xmm4 ; (x-0.5x2)*(1/ln 10) + (p/q)*x3 + + ret + +log10_real_l1: + subsd xmm3,qword ptr real_1_0 + + psubq xmm0,qword ptr qw_1022 +log10_real_l1_: + movsd xmm1,xmm3 ; x + mulsd xmm3,xmm3 ; x2 + + movlpd xmm2,qword ptr log10_s_p_1 + movlpd xmm4,qword ptr log10_s_q_1 + mulsd xmm2,xmm1 ; p1 + mulsd xmm4,xmm1 ; q1 + movsd xmm8,xmm1 ; x + + cvtdq2pd xmm0,xmm0 + + movlpd xmm5,qword ptr log10_s_p_2 + movlpd xmm6,qword ptr log10_s_q_2 + mulsd xmm8,xmm3 ; x3 + movsd xmm7,xmm3 ; x2 + mulsd xmm3,xmm3 ; x4 + + movlpd xmm9,qword ptr log10_s_p_3 + movlpd xmm10,qword ptr log10_s_q_3 + + mulsd xmm5,xmm7 ; p2 + mulsd xmm6,xmm7 ; q2 + + movlpd xmm11,qword ptr log10_s_p_4 + + mulsd xmm9,xmm8 ; p3 + mulsd xmm10,xmm8 ; q3 + + movsd xmm12,xmm8 ; x3 + mulsd xmm8,xmm7 ; x5 + + mulsd xmm11,xmm3 ; p4 + mulsd xmm3,qword ptr log10_s_q_4 ; q4 + + addsd xmm3,xmm8 ; q4+x5 + + addsd xmm10,xmm3 ; q3+q4+x5 + addsd xmm9,xmm11 ; p3+p4 + + mulsd xmm7,qword ptr real_0_5 ; 0.5x2 + + addsd xmm10,xmm6 ; q2+q3+q4+x5 + addsd xmm5,xmm9 ; p2+p3+p4 + + movlpd xmm6,qword ptr real_log2_10_42_l + + addsd xmm10,xmm4 ; q1+q2+q3+q4+x5 + addsd xmm2,xmm5 ; p1+p2+p3+p4 + + movlpd xmm5,qword ptr real_26_bits + movsd xmm3,xmm1 ; x + + mulsd xmm6,xmm0 + mulsd xmm0,qword ptr real_log2_10_42 + + addsd xmm10,qword ptr log10_s_q_0 ; q0+q1+q2+q3+q4+x5 + addsd xmm2,qword ptr log10_s_p_0 ; p0+p1+p2+p3+p4 + + subsd xmm1,xmm7 ; x-0.5x2 + + divsd xmm2,xmm10 ; p/q + + andpd xmm5,xmm1 ; (x-0.5x2)_h + subsd xmm3,xmm5 ; x-(x-0.5x2)_h + subsd xmm3,xmm7 ; (x-0.5x2)_l + + mulsd xmm2,xmm12 ; (p/q)*x3 + + mulsd xmm1,qword ptr d1ln10_26_l ; (x-0.5x2) * (1/ln 10)_l + mulsd xmm3,qword ptr d1ln10_26 ; (x-0.5x2)_l * (1/ln 10)_h + mulsd xmm5,qword ptr d1ln10_26 ; (x-0.5x2)_h * (1/ln 10)_h + + addsd xmm3,xmm1 ; (x-0.5x2) * (1/ln 10)_l+(x-0.5x2)_l * (1/ln 10)_h + addsd xmm3,xmm2 + addsd xmm3,xmm6 + + movsd xmm2,xmm0 + addsd xmm0,xmm5 + subsd xmm2,xmm0 + addsd xmm2,xmm5 + addsd xmm2,xmm3 + addsd xmm0,xmm2 + +; addsd xmm3,xmm5 ; (x-0.5x2)*(1/ln 10) + (p/q)*x3 +; addsd xmm0,xmm3 + ret + +log10_real_less_or_equal_0_or_nan: + jb log10_real_less_0_or_nan ; x<0.0 | nan + + movsd xmm0,qword ptr real_m_1_0 + divsd xmm0,qword ptr real_0_0 ; yield -inf + ret + +log10_real_less_0_or_nan: + jp log10_real_inf_or_nan ; nan + + movsd xmm0,qword ptr real_0_0 ; yield nan + divsd xmm0,xmm0 + +log10_real_inf_or_nan: + ret + + + public pow_real + +pow_real: + ucomisd xmm0,qword ptr real_0_0 + je pow_real_to_zero_or_nan ; y==0.0 | nan + + ucomisd xmm1,qword ptr real_0_83 + jb pow_real_small ; x<0.83 | nan +pow_real_not_small: + ucomisd xmm1,qword ptr real_1_66 + ja pow_real_large + + ucomisd xmm1,qword ptr real_7_d_6 + + movlpd xmm2,qword ptr real_1_0 + + ja pow_real_a_7_d_6 + +pow_real_between_0_83_and_7_d_6: + ucomisd xmm0,qword ptr real_power_exp_too_large + ja pow_real_exp_too_large + + ucomisd xmm0,qword ptr real_power_exp_too_small + jb pow_real_exp_too_large_m + + ucomisd xmm1,xmm2 + + subsd xmm1,xmm2 + + lea rcx,log2_b_c + lea rdx,log2_s_c + cmovb rcx,rdx + + movsd xmm5,xmm1 ; x + mulsd xmm1,xmm1 ; x2 + + movlpd xmm2,qword ptr (log2_b_p_1-log2_b_c)[rcx] + movlpd xmm4,qword ptr (log2_b_q_1-log2_b_c)[rcx] + mulsd xmm2,xmm5 ; p1 + mulsd xmm4,xmm5 ; q1 + movsd xmm8,xmm5 ; x + movlpd xmm3,qword ptr (log2_b_p_2-log2_b_c)[rcx] + movlpd xmm6,qword ptr (log2_b_q_2-log2_b_c)[rcx] + mulsd xmm8,xmm1 ; x3 + movsd xmm7,xmm1 ; x2 + mulsd xmm1,xmm1 ; x4 + + movlpd xmm9,qword ptr (log2_b_p_3-log2_b_c)[rcx] + movlpd xmm10,qword ptr (log2_b_q_3-log2_b_c)[rcx] + + mulsd xmm3,xmm7 ; p2 + mulsd xmm6,xmm7 ; q2 + + movlpd xmm11,qword ptr (log2_b_p_4-log2_b_c)[rcx] + + mulsd xmm9,xmm8 ; p3 + mulsd xmm10,xmm8 ; q3 + + mulsd xmm11,xmm1 ; p4 + + addsd xmm10,xmm1 ; q3+x4 + addsd xmm9,xmm11 ; p3+p4 + + mulsd xmm7,qword ptr real_0_5 ; 0.5x2 + + addsd xmm10,xmm6 ; q2+q3+x4 + addsd xmm3,xmm9 ; p2+p3+p4 + addsd xmm10,xmm4 ; q1+q2+q3+x4 + addsd xmm2,xmm3 ; p1+p2+p3+p4 + + movlpd xmm3,qword ptr real_26_bits + movsd xmm1,xmm5 ; x + + addsd xmm10,qword ptr (log2_b_q_0-log2_b_c)[rcx] ; q0+q1+q2+q3+x4 + addsd xmm2,qword ptr (log2_b_p_0-log2_b_c)[rcx] ; p0+p1+p2+p3+p4 + + subsd xmm5,xmm7 ; x-0.5x2 + + divsd xmm2,xmm10 ; p/q + + andpd xmm3,xmm5 ; (x-0.5x2)_h + subsd xmm1,xmm3 ; x-(x-0.5x2)_h + subsd xmm1,xmm7 ; (x-0.5x2)_l + + mulsd xmm2,xmm8 ; (p/q)*x3 + + mulsd xmm5,qword ptr d1ln2_26_l ; (x-0.5x2) * (1/ln 2)_l + mulsd xmm1,qword ptr d1ln2_26 ; (x-0.5x2)_l * (1/ln 2)_h + mulsd xmm3,qword ptr d1ln2_26 ; (x-0.5x2)_h * (1/ln 2)_h + + addsd xmm1,xmm5 ; (x-0.5x2) * (1/ln 2)_l+(x-0.5x2)_l * (1/ln 2)_h + + + movsd xmm5,xmm1 ; xl + addsd xmm1,xmm2 ; xl+r + movlpd xmm6,qword ptr real_26_bits + + addsd xmm1,xmm3 ; xh+xl+r + + andpd xmm1,xmm6 ; (log2 x)_h + andpd xmm6,xmm0 ; y_h + + subsd xmm3,xmm1 ; xh-(log2 x)_h + jmp pow_real_2 + +pow_real_a_7_d_6: + ucomisd xmm0,qword ptr real_4605_0 + jae pow_real_overflow ; because 1.1666666666666667407^4605>2^1024 + + ucomisd xmm0,qword ptr real_m_4834_0 + jbe pow_real_underflow ; because 1.1666666666666667407^-4834<2^-1075 + + subsd xmm1,xmm2 + + mulsd xmm1,qword ptr real_0_75 + lea rcx,log2_b_c + lea rdx,log2_s_c + + movlpd xmm2,qword ptr real_0_25 + + ucomisd xmm1,xmm2 + subsd xmm1,xmm2 + + cmovb rcx,rdx + + movsd xmm5,xmm1 ; x + mulsd xmm1,xmm1 ; x2 + + movlpd xmm2,qword ptr (log2_b_p_1-log2_b_c)[rcx] + movlpd xmm4,qword ptr (log2_b_q_1-log2_b_c)[rcx] + mulsd xmm2,xmm5 ; p1 + mulsd xmm4,xmm5 ; q1 + movsd xmm8,xmm5 ; x + movlpd xmm3,qword ptr (log2_b_p_2-log2_b_c)[rcx] + movlpd xmm6,qword ptr (log2_b_q_2-log2_b_c)[rcx] + mulsd xmm8,xmm1 ; x3 + movsd xmm7,xmm1 ; x2 + mulsd xmm1,xmm1 ; x4 + + movlpd xmm9,qword ptr (log2_b_p_3-log2_b_c)[rcx] + movlpd xmm10,qword ptr (log2_b_q_3-log2_b_c)[rcx] + + mulsd xmm3,xmm7 ; p2 + mulsd xmm6,xmm7 ; q2 + + movlpd xmm11,qword ptr (log2_b_p_4-log2_b_c)[rcx] + + mulsd xmm9,xmm8 ; p3 + mulsd xmm10,xmm8 ; q3 + + mulsd xmm11,xmm1 ; p4 + + addsd xmm10,xmm1 ; q3+x4 + addsd xmm9,xmm11 ; p3+p4 + + mulsd xmm7,qword ptr real_0_5 ; 0.5x2 + + addsd xmm10,xmm6 ; q2+q3+x4 + addsd xmm3,xmm9 ; p2+p3+p4 + addsd xmm10,xmm4 ; q1+q2+q3+x4 + addsd xmm2,xmm3 ; p1+p2+p3+p4 + + movlpd xmm3,qword ptr real_26_bits + movsd xmm1,xmm5 ; x + + addsd xmm10,qword ptr (log2_b_q_0-log2_b_c)[rcx] ; q0+q1+q2+q3+x4 + addsd xmm2,qword ptr (log2_b_p_0-log2_b_c)[rcx] ; p0+p1+p2+p3+p4 + + subsd xmm5,xmm7 ; x-0.5x2 + + divsd xmm2,xmm10 ; p/q + + andpd xmm3,xmm5 ; (x-0.5x2)_h + subsd xmm1,xmm3 ; x-(x-0.5x2)_h + subsd xmm1,xmm7 ; (x-0.5x2)_l + + mulsd xmm2,xmm8 ; (p/q)*x3 + + mulsd xmm5,qword ptr d1ln2_26_l ; (x-0.5x2) * (1/ln 2)_l + mulsd xmm1,qword ptr d1ln2_26 ; (x-0.5x2)_l * (1/ln 2)_h + mulsd xmm3,qword ptr d1ln2_26 ; (x-0.5x2)_h * (1/ln 2)_h + + + movlpd xmm6,qword ptr log2_4_d_3_53 + movsd xmm7,xmm3 ; xh + addsd xmm3,xmm6 ; xh+(log2 4/3)_h + + addsd xmm1,xmm5 ; (x-0.5x2) * (1/ln 2)_l+(x-0.5x2)_l * (1/ln 2)_h + + subsd xmm6,xmm3 ; (log2 4/3)_h-(xh+(log2 4/3)_h) + + addsd xmm6,xmm7 ; ((log2 4/3)_h-(xh+(log2 4/3)_h))+xh + addsd xmm1,qword ptr log2_4_d_3_53_l ; xl+(log2 4/3)_l + + addsd xmm1,xmm6 ; (x+log2 4/3)_l + + movsd xmm5,xmm1 ; xl + addsd xmm1,xmm2 ; xl+r + movlpd xmm6,qword ptr real_26_bits + + addsd xmm1,xmm3 ; xh+xl+r + + andpd xmm1,xmm6 ; (log2 x)_h + andpd xmm6,xmm0 ; y_h + + subsd xmm3,xmm1 ; xh-(log2 x)_h + jmp pow_real_2 + +pow_real_small: + ucomisd xmm1,qword ptr real_2_p_m_1022 + jb pow_real_negative_zero_denormalized_or_nan + +pow_real_small_: + ucomisd xmm0,qword ptr real_4000_0 + jae pow_real_underflow ; because 0.83^4000<2^-1075 + + ucomisd xmm0,qword ptr real_m_3810_0 + ja log2_real_ + jmp pow_real_overflow ; because 0.83^-3810>2^1024 + +pow_real_large: + ucomisd xmm1,qword ptr real_max + ja pow_real_inf + + ucomisd xmm0,qword ptr real_1401_0 + jae pow_real_overflow ; because 1.66^1401>2^1024 + + ucomisd xmm0,qword ptr real_m_1471_0 + jbe pow_real_underflow ; because 1.66^-1471<2^-1075 + +log2_real_: + movlpd xmm2,qword ptr mask_significand + andpd xmm2,xmm1 + psrlq xmm1,52 + +log2_real__: + movlpd xmm3,qword ptr real_1_0 + movlpd xmm4,qword ptr real_0_5 + orpd xmm3,xmm2 + orpd xmm4,xmm2 + + ucomisd xmm3,qword ptr real_1_66 + + movlpd xmm5,qword ptr real_1_0 + + ja log2_real_l1 + + ucomisd xmm3,qword ptr real_7_d_6 + ja pow_real_g_7_d_6 + +log2_real_g1: + subsd xmm3,xmm5 + + psubq xmm1,qword ptr qw_1023 + + movsd xmm6,xmm3 ; x + mulsd xmm3,xmm3 ; x2 + + movlpd xmm2,qword ptr log2_b_p_1 + movlpd xmm5,qword ptr log2_b_q_1 + mulsd xmm2,xmm6 ; p1 + mulsd xmm5,xmm6 ; q1 + movsd xmm9,xmm6 ; x + + cvtdq2pd xmm4,xmm1 + + movlpd xmm1,qword ptr log2_b_p_2 + movlpd xmm7,qword ptr log2_b_q_2 + mulsd xmm9,xmm3 ; x3 + movsd xmm8,xmm3 ; x2 + mulsd xmm3,xmm3 ; x4 + + movlpd xmm10,qword ptr log2_b_p_3 + movlpd xmm11,qword ptr log2_b_q_3 + + mulsd xmm1,xmm8 ; p2 + mulsd xmm7,xmm8 ; q2 + + movlpd xmm12,qword ptr log2_b_p_4 + + mulsd xmm10,xmm9 ; p3 + mulsd xmm11,xmm9 ; q3 + + mulsd xmm12,xmm3 ; p4 + + addsd xmm11,xmm3 ; q3+x4 + addsd xmm10,xmm12 ; p3+p4 + + mulsd xmm8,qword ptr real_0_5 ; 0.5x2 + + addsd xmm11,xmm7 ; q2+q3+x4 + addsd xmm1,xmm10 ; p2+p3+p4 + addsd xmm11,xmm5 ; q1+q2+q3+x4 + addsd xmm2,xmm1 ; p1+p2+p3+p4 + + movlpd xmm3,qword ptr real_26_bits + movsd xmm1,xmm6 ; x + + addsd xmm11,qword ptr log2_b_q_0 ; q0+q1+q2+q3+x4 + addsd xmm2,qword ptr log2_b_p_0 ; p0+p1+p2+p3+p4 + +log2_real_gl: + subsd xmm6,xmm8 ; x-0.5x2 + + divsd xmm2,xmm11 ; p/q + + andpd xmm3,xmm6 ; (x-0.5x2)_h + subsd xmm1,xmm3 ; x-(x-0.5x2)_h + subsd xmm1,xmm8 ; (x-0.5x2)_l + + mulsd xmm2,xmm9 ; (p/q)*x3 + + mulsd xmm6,qword ptr d1ln2_26_l ; (x-0.5x2) * (1/ln 2)_l + mulsd xmm1,qword ptr d1ln2_26 ; (x-0.5x2)_l * (1/ln 2)_h + mulsd xmm3,qword ptr d1ln2_26 ; (x-0.5x2)_h * (1/ln 2)_h + + addsd xmm1,xmm6 ; (x-0.5x2) * (1/ln 2)_l+(x-0.5x2)_l * (1/ln 2)_h + + movsd xmm5,xmm1 ; xl + addsd xmm1,xmm2 ; xl+r + movlpd xmm6,qword ptr real_26_bits + + addsd xmm1,xmm3 ; xh+xl+r + + addsd xmm1,xmm4 ; e+xh+xl+r + + andpd xmm1,xmm6 ; (log2 x)_h + andpd xmm6,xmm0 ; y_h + + subsd xmm4,xmm1 ; e-(log2 x)_h + + addsd xmm3,xmm4 ; e+xh-(log2 x)_h + jmp pow_real_2 + +log2_real_l1: + subsd xmm4,xmm5 + + psubq xmm1,qword ptr qw_1022 + + movsd xmm6,xmm4 ; x + mulsd xmm4,xmm4 ; x2 + + movlpd xmm2,qword ptr log2_s_p_1 + movlpd xmm5,qword ptr log2_s_q_1 + mulsd xmm2,xmm6 ; p1 + mulsd xmm5,xmm6 ; q1 + movsd xmm9,xmm6 ; x + + movlpd xmm3,qword ptr log2_s_p_2 + movlpd xmm7,qword ptr log2_s_q_2 + mulsd xmm9,xmm4 ; x3 + movsd xmm8,xmm4 ; x2 + mulsd xmm4,xmm4 ; x4 + + movlpd xmm10,qword ptr log2_s_p_3 + movlpd xmm11,qword ptr log2_s_q_3 + + mulsd xmm3,xmm8 ; p2 + mulsd xmm7,xmm8 ; q2 + + movlpd xmm12,qword ptr log2_s_p_4 + + mulsd xmm10,xmm9 ; p3 + mulsd xmm11,xmm9 ; q3 + + mulsd xmm12,xmm4 ; p4 + + addsd xmm11,xmm4 ; q3+x4 + addsd xmm10,xmm12 ; p3+p4 + + mulsd xmm8,qword ptr real_0_5 ; 0.5x2 + + cvtdq2pd xmm4,xmm1 + + addsd xmm11,xmm7 ; q2+q3+x4 + addsd xmm3,xmm10 ; p2+p3+p4 + addsd xmm11,xmm5 ; q1+q2+q3+x4 + addsd xmm2,xmm3 ; p1+p2+p3+p4 + + movlpd xmm3,qword ptr real_26_bits + movsd xmm1,xmm6 ; x + + addsd xmm11,qword ptr log2_s_q_0 ; q0+q1+q2+q3+x4 + addsd xmm2,qword ptr log2_s_p_0 ; p0+p1+p2+p3+p4 + + jmp log2_real_gl + +pow_real_to_zero_or_nan: + jp pow_real_to_nan + movlpd xmm0,qword ptr real_1_0 + ret + +pow_real_negative_zero_denormalized_or_nan: + ucomisd xmm1,qword ptr real_0_0 + jbe pow_real_zero_negative_or_nan + + ; denormalized > 0.0 + +pow_real_denormalized: + ucomisd xmm0,qword ptr real_1_052 + jae pow_real_underflow ; because (2^-1022)^1.052<2^-1075 + + ucomisd xmm0,qword ptr real_m_1_052 + jbe pow_real_overflow ; because (2^-1022)^-1.052>2^1075 + + mulsd xmm1,qword ptr real_2_p_55 + + movlpd xmm2,qword ptr mask_significand + andpd xmm2,xmm1 + + movq xmm5,qword ptr qw_55 + psrlq xmm1,52 + + psubq xmm1,xmm5 + jmp log2_real__ + +pow_real_zero_negative_or_nan: + je pow_real_zero_or_nan + + movlpd xmm2,qword ptr mask_all_except_sign + andpd xmm2,xmm0 ; |y| + + ucomisd xmm2,qword ptr real_2_p_53 + jae pow_real_negative_to_large_or_inf + + ucomisd xmm2,qword ptr real_1_0 + jb pow_real_negative_to_non_int + + movq xmm3,qword ptr round_c + psrlq xmm2,52 + psubq xmm3,xmm2 + + movq xmm4,qword ptr mask_all_one + movq xmm5,qword ptr mask_all_one_except_last + psllq xmm4,xmm3 + psllq xmm5,xmm3 + andpd xmm4,xmm0 + andpd xmm5,xmm0 ; 1 -> 2 and -1 -> -2 + + ucomisd xmm4,xmm0 + jne pow_real_negative_to_non_int + + ucomisd xmm5,xmm0 + je pow_real_negative_to_even_int + +pow_real_negative_to_odd_int: + call pow_real_negative_to_even_int + movlpd xmm1,qword ptr mask_sign + xorpd xmm0,xmm1 + ret + +pow_real_negative_to_even_int: + movlpd xmm2,qword ptr mask_all_except_sign + andpd xmm1,xmm2 ; |x| + ucomisd xmm1,qword ptr real_0_83 ; x>=0.83 + jae pow_real_not_small + + ucomisd xmm1,qword ptr real_2_p_m_1022 + jae pow_real_small_ + jmp pow_real_denormalized + +pow_real_negative_to_large_or_inf: + movlpd xmm2,qword ptr mask_all_except_sign + andpd xmm1,xmm2 ; |x| + ucomisd xmm1,qword ptr real_0_83 + jb pow_real_small_to_large_or_inf ; because 0.83^(2^53) too large or small + ucomisd xmm1,qword ptr real_7_d_6 + + movlpd xmm2,qword ptr real_1_0 + + ja pow_real_large_to_large_or_inf ; because 1.16^(2^53) too large or small + + jmp pow_real_between_0_83_and_7_d_6 + +pow_real_negative_to_non_int: + ucomisd xmm1,qword ptr real_m_max + jb pow_real_m_inf_to_non_int ; x==-inf + movlpd xmm0,qword ptr real_0_0 + divsd xmm0,xmm0 + ret + +pow_real_zero_or_nan: + jp pow_real_nan_to_non_zero +pow_real_zero: + movlpd xmm2,qword ptr real_1_0 + orpd xmm2,xmm1 ; 0.0 -> 1.0 and -0.0 -> -1.0 + ucomisd xmm2,qword ptr real_0_0 + jb pow_real_m_zero + +pow_real_small_to_large_or_inf: +pow_real_m_zero_to_non_odd_int: + ucomisd xmm0,qword ptr real_0_0 + jb pow_real_overflow + +pow_real_inf_to_negative: +pow_real_underflow: + movlpd xmm0,qword ptr real_0_0 + ret + +pow_real_m_inf_to_non_int: +pow_real_large_to_large_or_inf: + ucomisd xmm0,qword ptr real_0_0 + jb pow_real_underflow + +pow_real_overflow: + movlpd xmm0,qword ptr real_1_0 + divsd xmm0,qword ptr real_0_0 ; inf + ret + +pow_real_m_zero: + movlpd xmm2,qword ptr mask_all_except_sign + andpd xmm2,xmm0 ; |y| + + ucomisd xmm2,qword ptr real_2_p_53 + jae pow_real_m_zero_to_non_odd_int + + ucomisd xmm2,qword ptr real_m_1_0 + jb pow_real_m_zero_to_non_odd_int + + movq xmm4,qword ptr round_c + psrlq xmm2,52 + psubq xmm4,xmm2 + + movq xmm5,qword ptr mask_all_one_except_last + psllq xmm5,xmm4 + andpd xmm5,xmm0 ; 1 -> 2 and -1 -> -2 + + ucomisd xmm5,xmm0 + je pow_real_m_zero_to_non_odd_int + + ucomisd xmm0,xmm3 + jb pow_real_m_overflow + + movsd xmm0,xmm1 ; -0.0 + ret + +pow_real_m_overflow: + movlpd xmm0,qword ptr real_m_1_0 + divsd xmm0,qword ptr real_0_0 ; -inf + ret + +pow_real_nan_to_non_zero: +pow_real_to_nan: + addsd xmm0,xmm1 + ret + +pow_real_inf: + ucomisd xmm0,qword ptr real_0_0 + jb pow_real_inf_to_negative + movsd xmm0,xmm1 + ret + +pow_real_exp_too_large: + ucomisd xmm1,xmm2 + je power_one_to_large_or_inf + ja pow_real_overflow + jmp pow_real_underflow + +pow_real_exp_too_large_m: + ucomisd xmm1,xmm2 + je power_one_to_large_or_inf_m + jb pow_real_overflow + jmp pow_real_underflow + +power_one_to_large_or_inf: + ucomisd xmm0,qword ptr real_max + ja power_one_to_inf + movsd xmm0,xmm1 + ret + +power_one_to_large_or_inf_m: + ucomisd xmm0,qword ptr real_m_max + jb power_one_to_inf_m + movsd xmm0,xmm1 + ret + +power_one_to_inf_m: +power_one_to_inf: + subsd xmm0,xmm0 + ret + + +pow_real_g_7_d_6: + subsd xmm3,xmm5 + + mulsd xmm3,qword ptr real_0_75 + lea rcx,log2_b_c + lea rdx,log2_s_c + + movlpd xmm4,qword ptr real_0_25 + + ucomisd xmm3,xmm4 + subsd xmm3,xmm4 + + cmovb rcx,rdx + psubq xmm1,qword ptr qw_1023 + + movsd xmm6,xmm3 ; x + mulsd xmm3,xmm3 ; x2 + + movlpd xmm2,qword ptr (log2_b_p_1-log2_b_c)[rcx] + movlpd xmm5,qword ptr (log2_b_q_1-log2_b_c)[rcx] + mulsd xmm2,xmm6 ; p1 + mulsd xmm5,xmm6 ; q1 + movsd xmm9,xmm6 ; x + + cvtdq2pd xmm4,xmm1 + + movlpd xmm1,qword ptr (log2_b_p_2-log2_b_c)[rcx] + movlpd xmm7,qword ptr (log2_b_q_2-log2_b_c)[rcx] + mulsd xmm9,xmm3 ; x3 + movsd xmm8,xmm3 ; x2 + mulsd xmm3,xmm3 ; x4 + + movlpd xmm10,qword ptr (log2_b_p_3-log2_b_c)[rcx] + movlpd xmm11,qword ptr (log2_b_q_3-log2_b_c)[rcx] + + mulsd xmm1,xmm8 ; p2 + mulsd xmm7,xmm8 ; q2 + + movlpd xmm12,qword ptr (log2_b_p_4-log2_b_c)[rcx] + + mulsd xmm10,xmm9 ; p3 + mulsd xmm11,xmm9 ; q3 + + mulsd xmm12,xmm3 ; p4 + + addsd xmm11,xmm3 ; q3+x4 + addsd xmm10,xmm12 ; p3+p4 + + mulsd xmm8,qword ptr real_0_5 ; 0.5x2 + + addsd xmm11,xmm7 ; q2+q3+x4 + addsd xmm1,xmm10 ; p2+p3+p4 + addsd xmm11,xmm5 ; q1+q2+q3+x4 + addsd xmm2,xmm1 ; p1+p2+p3+p4 + + movlpd xmm3,qword ptr real_26_bits + movsd xmm1,xmm6 ; x + + addsd xmm11,qword ptr (log2_b_q_0-log2_b_c)[rcx] ; q0+q1+q2+q3+x4 + addsd xmm2,qword ptr (log2_b_p_0-log2_b_c)[rcx] ; p0+p1+p2+p3+p4 + + subsd xmm6,xmm8 ; x-0.5x2 + + addsd xmm4,qword ptr log2_4_d_3_42 ; e+(log2 4/3)_h + + divsd xmm2,xmm11 ; p/q + + andpd xmm3,xmm6 ; (x-0.5x2)_h + subsd xmm1,xmm3 ; x-(x-0.5x2)_h + subsd xmm1,xmm8 ; (x-0.5x2)_l + + mulsd xmm2,xmm9 ; (p/q)*x3 + + mulsd xmm6,qword ptr d1ln2_26_l ; (x-0.5x2) * (1/ln 2)_l + mulsd xmm1,qword ptr d1ln2_26 ; (x-0.5x2)_l * (1/ln 2)_h + mulsd xmm3,qword ptr d1ln2_26 ; (x-0.5x2)_h * (1/ln 2)_h + + movsd xmm7,xmm3 ; xh + addsd xmm3,xmm4 ; xh+e+(log2 4/3)_h + + addsd xmm1,xmm6 ; (x-0.5x2) * (1/ln 2)_l+(x-0.5x2)_l * (1/ln 2)_h + + subsd xmm4,xmm3 ; e+(log2 4/3)_h-(xh+e+(log2 4/3)_h) + + addsd xmm4,xmm7 ; (e+(log2 4/3)_h-(xh+e+(log2 4/3)_h))+xh + addsd xmm1,qword ptr log2_4_d_3_42_l ; xl+(log2 4/3)_l + + addsd xmm1,xmm4 ; (x+log2 4/3)_l + + movsd xmm5,xmm1 ; xl + addsd xmm1,xmm2 ; xl+r + movlpd xmm6,qword ptr real_26_bits + + addsd xmm1,xmm3 ; e+xh+xl+r + + andpd xmm1,xmm6 ; (log2 x)_h + andpd xmm6,xmm0 ; y_h + + subsd xmm4,xmm1 ; e-(log2 x)_h + + addsd xmm3,xmm4 ; e+xh-(log2 x)_h +; jmp pow_real_2 + + +pow_real_2: +; xmm0 = y +; xmm1 = (log2 x)_h +; xmm2 = r +; xmm3 = (e+)xh-(log2 x)_h +; xmm5 = xl +; xmm6 = y_h + movsd xmm7,xmm0 ; y + subsd xmm0,xmm6 ; y_l + mulsd xmm6,xmm1 ; p_h = y_h*(log2 x)_h + + addsd xmm3,xmm2 ; xh+r-(log2 x)_h + mulsd xmm0,xmm1 ; y_l*(log2 x)_h + + addsd xmm3,xmm5 ; (log2 x)_l + + mulsd xmm3,xmm7 ; y*(log2 x)_l + + addsd xmm0,xmm3 ; p_l + + movsd xmm7,xmm0 ; p_l + addsd xmm0,xmm6 ; p + +exp2: + ucomisd xmm0,qword ptr real_m_0_5 + jb exp2_l_n + ucomisd xmm0,qword ptr real_0_5 + ja exp2_l +exp2_l_: + ucomisd xmm0,qword ptr real_m_0_25 + jbe exp2_l_m_0_25 + ucomisd xmm0,qword ptr real_0_25 + jae exp2_g_0_25 + + ucomisd xmm0,qword ptr real_0_0 + + lea rcx,exp2_p0_c + lea rdx,exp2_m0_c + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + + cmovb rcx,rdx +exp2_: + movlpd xmm13,qword ptr (exp2_p0_2-exp2_p0_c)[rcx] + movlpd xmm14,qword ptr (exp2_p0_4-exp2_p0_c)[rcx] + + movsd xmm2,xmm0 ; x2 + mulsd xmm0,xmm0 ; x4 + + mulsd xmm13,xmm2 ; p2 + + movsd xmm3,xmm1 ; x + mulsd xmm1,xmm2 ; x3 + + movlpd xmm15,qword ptr (exp2_p0_3-exp2_p0_c)[rcx] + mulsd xmm14,xmm0 ; p4 + + mulsd xmm15,xmm1 ; p3 + + movsd xmm4,xmm0 ; x4 + mulsd xmm0,xmm0 ; x8 + + movsd xmm5,xmm2 ; x2 + mulsd xmm2,xmm1 ; x5 + + mulsd xmm5,xmm4 ; x6 + mulsd xmm1,xmm4 ; x7 + mulsd xmm4,xmm2 ; x9 + + mulsd xmm0,qword ptr (exp2_p0_8-exp2_p0_c)[rcx] ; p8 + mulsd xmm2,qword ptr (exp2_p0_5-exp2_p0_c)[rcx] ; p5 + mulsd xmm5,qword ptr (exp2_p0_6-exp2_p0_c)[rcx] ; p6 + mulsd xmm1,qword ptr (exp2_p0_7-exp2_p0_c)[rcx] ; p7 + mulsd xmm4,qword ptr (exp2_p0_9-exp2_p0_c)[rcx] ; p9 + + addsd xmm0,xmm4 ; p9+p8 + + movlpd xmm9,qword ptr real_26_bits + andpd xmm9,xmm6 ; xh_h + mulsd xmm3,qword ptr (exp2_p0_1l-exp2_p0_c)[rcx] ; x*c1l + + addsd xmm0,xmm1 ; p9+p8+p7 + + subsd xmm6,xmm9 ; xh_l + mulsd xmm9,qword ptr (exp2_p0_1h-exp2_p0_c)[rcx] ; p1h=xh_h*c1h + + addsd xmm0,xmm5 ; p9+p8+p7+p6 + + movlpd xmm1,qword ptr (exp2_p0_0h-exp2_p0_c)[rcx] + addsd xmm6,xmm7 ; xh_l+x_l + movsd xmm4,xmm9 ; p1h + addsd xmm9,xmm1 ; p1h+c0h + + addsd xmm0,xmm2 ; p9+p8+p7+p6+p5 + + mulsd xmm6,qword ptr (exp2_p0_1h-exp2_p0_c)[rcx] ; (xh_l+x_l)*c1h + subsd xmm1,xmm9 ; c0h-(p1h+c0h) + + addsd xmm0,xmm14 ; p9+p8+p7+p6+p5+p4 + + addsd xmm3,xmm6 ; (xh_l+x_l)*c1h+x*c1l + addsd xmm1,xmm4 ; (c0h-(p1h+c0h))+p1h + + addsd xmm0,xmm15 ; p9+p8+p7+p6+p5+p4+p3 + + addsd xmm1,xmm3 + + addsd xmm0,xmm13 ; p9+p8+p7+p6+p5+p4+p3+p2 + + addsd xmm0,qword ptr (exp2_p0_0l-exp2_p0_c)[rcx] + + addsd xmm0,xmm1 + addsd xmm0,xmm9 + ret + +exp2_l_m_0_25: + movlpd xmm1,qword ptr real_0_25 + addsd xmm0,xmm1 + addsd xmm6,xmm1 + + lea rcx,exp2_m0_25_c + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + jmp exp2_ + +exp2_g_0_25: + movlpd xmm1,qword ptr real_0_25 + subsd xmm0,xmm1 + subsd xmm6,xmm1 + + lea rcx,exp2_p0_25_c + + movsd xmm1,xmm0 ; x + mulsd xmm0,xmm0 ; x2 + jmp exp2_ + +exp2_l_n: + movlpd xmm1,qword ptr real_m_0_5 + movq xmm4,qword ptr m_round_c + jmp exp2_l_pn + +exp2_l: + movlpd xmm1,qword ptr real_0_5 + movq xmm4,qword ptr round_c + +exp2_l_pn: + addsd xmm1,xmm0 + + movq xmm2,xmm1 + psrlq xmm1,52 + psubq xmm4,xmm1 + movq xmm1,qword ptr mask_all_one + psllq xmm1,xmm4 + andpd xmm1,xmm2 + + subsd xmm6,xmm1 + movsd xmm0,xmm7 + + cvtpd2dq xmm8,xmm1 + + ucomisd xmm1,qword ptr qword ptr real_1023 + ja exp2_overflow0 + ucomisd xmm1,qword ptr qword ptr real_m_1022 + jb exp2_underflow0 + + movq xmm9,qword ptr qw_1023 + + addsd xmm0,xmm6 + + paddq xmm8,xmm9 + + psllq xmm8,52 + + call exp2_l_ + + mulsd xmm0,xmm8 + ret + +exp2_overflow0: + ucomisd xmm1,qword ptr qword ptr real_1025 + ja exp2_overflow + + movq xmm9,qword ptr qw_1021 + + addsd xmm0,xmm6 + + paddq xmm8,xmm9 + + psllq xmm8,52 + + call exp2_l_ + + mulsd xmm0,xmm8 + mulsd xmm0,qword ptr real_4_0 + ret + +exp2_overflow: + movlpd xmm0,qword ptr qword ptr real_2_p_1023 + mulsd xmm0,xmm0 + ret + +exp2_underflow0: + ucomisd xmm1,qword ptr qword ptr real_m_1076 + jbe exp2_underflow + + movq xmm9,qword ptr qw_1078 + + addsd xmm0,xmm6 + + paddq xmm8,xmm9 + + psllq xmm8,52 + + call exp2_l_ + + mulsd xmm0,xmm8 + mulsd xmm0,qword ptr real_2_p_m_55 + ret + +exp2_underflow: + movlpd xmm0,qword ptr qword ptr real_0_0 + ret + +_TEXT ends + + _DATA segment + +real_13_bits: + dq 0ffffff0000000000h +real_14_bits: + dq 0ffffff8000000000h +real_17_bits: + dq 0fffffff000000000h +real_18_bits: + dq 0fffffff800000000h +real_21_bits: + dq 0ffffffff00000000h +real_25_bits: + dq 0fffffffff0000000h +real_26_bits: + dq 0fffffffff8000000h +real_27_bits: + dq 0fffffffffc000000h +real_34_bits: + dq 0fffffffffff80000h +real_39_bits: + dq 0ffffffffffffc000h +real_40_bits: + dq 0ffffffffffffe000h +real_47_bits: + dq 0ffffffffffffffc0h +real_48_bits: + dq 0ffffffffffffffe0h +real_49_bits: + dq 0fffffffffffffff0h +real_50_bits: + dq 0fffffffffffffff8h +real_51_bits: + dq 0fffffffffffffffch + +real_abs_40_bits: + dq 07fffffffffffe000h +real_abs_39_bits: + dq 07fffffffffffc000h + +real_0_0: + dq 0.0 +real_0_25: + dq 0.25 +real_m_0_25: + dq -0.25 +real_0_5: + dq 0.5 +real_m_0_5: + dq -0.5 +real_1_0: + dq 1.0 +real_m_1_0: + dq -1.0 +real_1_25: + dq 1.25 +real_m_1_25: + dq -1.25 +real_1_5: + dq 1.5 +real_m_1_5: + dq -1.5 +real_2_0: + dq 2.0 +real_m_2_0: + dq -2.0 +real_3_0: + dq 3.0 +real_m_3_0: + dq -3.0 +real_4_0: + dq 4.0 +real_m_4_0: + dq -4.0 +real_5_0: + dq 5.0 +real_m_5_0: + dq -5.0 + +real_2_p_m_11: + dq 4.8828125E-4 +real_2_p_m_12: + dq 2.44140625E-4 +real_m_2_p_m_12: + dq -2.44140625E-4 +real_2_p_m_13: + dq 1.220703125E-4 +real_2_p_m_16: + dq 1.52587890625E-5 +real_m_2_p_m_16: + dq -1.52587890625E-5 +real_2_p_m_18: + dq 3.814697265625E-6 +real_2_p_m_31: + dq 4.656612873077392578125E-10 + +real_0_4: + dq 0.4 +real_m_0_4: + dq -0.4 +real_0_125: + dq 0.125 + +real_0_675: + dq 0.675 +real_m_0_675: + dq -0.675 +real_0_9920: + dq 0.9920 +real_0_54000000017867999524: + dq 0.54000000017867999524 +real_m_0_54000000017867999524: + dq -0.54000000017867999524 +real_0_03125: + dq 0.03125 +real_pi_d_2_m_0_03125: + dq 1.5395463267948965579 + +real_0_58: + dq 0.58 +real_m_0_58: + dq -0.58 +real_0_54: + dq 0.54 +real_0_76: + dq 0.76 +real_0_65000000004061742054: + dq 0.65000000004061742054 + +real_0_26: + dq 0.26 +real_m_0_26: + dq -0.26 +real_0_70: + dq 0.70 +real_m_0_70: + dq -0.70 +real_1_4: + dq 1.4 +real_m_1_4: + dq -1.4 + +;real_0_7025: +; dq 0.7025 +;real_1_405: +; dq 1.405 +real_0_8243: + dq 0.82436063535006407342 +real_1_6487: + dq 1.6487212707001281468 +real_0_833: + dq 0.833 +real_1_666: + dq 1.666 +real_7_d_6: + dq 1.1666666666666667407 +real_0_75: + dq 0.75 + +ln_4_d_3_53: + dq 2.8768207245178090137E-1 +ln_4_d_3_53_l: + dq 2.6071606164425639761E-17 +ln_4_d_3_42: + dq 2.8768207245173016417E-1 +ln_4_d_3_42_l: + dq 5.0763263831534079404E-14 + +log10_4_d_3_53: + dq 1.2493873660829994676E-1 +log10_4_d_3_53_l: + dq 6.3704258509422005489E-18 +log10_4_d_3_42: + dq 1.2493873660829990513E-1 +log10_4_d_3_42_l: + dq 4.8003789274385573126E-17 + +log2_4_d_3_53: + dq 4.1503749927884381332E-1 +log2_4_d_3_53_l: + dq 5.2244900613901090572E-18 +log2_4_d_3_42: + dq 4.1503749927881017356E-1 +log2_4_d_3_42_l: + dq 3.3644982136203633607E-14 + +mask_significand: + dq 0000fffffffffffffh + +real_1_66: + dq 1.66 +real_0_83: + dq 0.83 + +real_pi: + dq 3.1415926535897931160 +real_m_pi: + dq -3.1415926535897931160 +real_pi_l: + dq 1.2246467991473532072E-16 +real_m_pi_l: + dq -1.2246467991473532072E-16 + +real_pi_d_2: + dq 1.5707963267948965579 +real_pi_d_2_l: + dq 6.1232339957367660359E-17 + +real_m_pi_d_2: + dq -1.5707963267948965579 +real_m_pi_d_2_l: + dq -6.1232339957367660359E-17 + +real_pi_m_1_d_2: + dq 1.07079632679489655800 +real_pi_d_4: + dq 7.8539816339744827900E-1 +real_m_pi_d_4: + dq -7.8539816339744827900E-1 +real_pi_d_4_l: + dq 3.0616169978683830179E-17 +real_m_pi_d_4_l: + dq -3.0616169978683830179E-17 +real_pi_p_0_375_d_4: + dq 8.7914816339744830962E-1 +real_pi_p_0_875_d_4: + dq 1.0041481633974482790 +real_pi_p_1_5_d_4: + dq 1.1603981633974483096 +real_3_pi_d_4: + dq 2.3561944901923449288 +real_m_3_pi_d_4: + dq -2.3561944901923449288 +real_5_pi_d_4: + dq 3.9269908169872413950 +real_m_5_pi_d_4: + dq -3.9269908169872413950 +real_7_pi_d_4: + dq 5.4977871437821379530 +real_m_7_pi_d_4: + dq -5.4977871437821379530 +real_9_pi_d_4: + dq 7.0685834705770345110 +real_m_9_pi_d_4: + dq -7.0685834705770345110 +real_3_pi_d_2: + dq 4.7123889803846896740 +real_m_3_pi_d_2: + dq -4.7123889803846896740 +real_3_pi_d_2_l: + dq 1.8369701987210296875E-16 +real_m_3_pi_d_2_l: + dq -1.8369701987210296875E-16 +real_2_pi: + dq 6.2831853071795862320 +real_2_pi_l: + dq 2.4492935982947064143E-16 +real_m_2_pi_l: + dq -2.4492935982947064143E-16 + +real_4_d_pi: + dq 1.2732395447351627649 +real_pi_d_4_26: + dq 7.8539815545082092285E-1 +real_pi_d_4_26_26: + dq 7.9466273561479283671E-9 +real_pi_d_4_52_l: + dq 3.0616169978683830179E-17 + +real_36825084_pi: + dq 115689413.36222703755 +real_m_36825084_pi: + dq -115689413.36222703755 +real_36825084_pi_27: + dq 115689413.0 +real_36825084_pi_27_27: + dq 3.6222703754901885986E-1 +real_36825084_pi_54_l: + dq 1.3588030639188803060E-17 + +real_pi_d_2_m_1_0_52: + dq 5.7079632679489655800E-1 +real_1_0_m_pi_d_2_52: + dq -5.7079632679489655800E-1 +real_pi_d_2_m_1_0_52_l: + dq 6.1232339957367660359E-17 +real_m_pi_d_2_m_1_0_52_l: + dq -6.1232339957367660359E-17 +real_pi_d_2_p_1_0: + dq 2.57079632679489655800 +real_pi_d_2_p_1_0_l: + dq 6.1232339957367660359E-17 +real_m_pi_d_2_p_1_0_l: + dq -6.1232339957367660359E-17 + +real_0_338: + dq 0.338 +real_m_0_338: + dq -0.338 +real_0_542: + dq 0.542 +real_m_0_542: + dq -0.542 +real_0_699: + dq 0.699 +real_m_0_699: + dq -0.699 +real_0_89: + dq 0.89 +real_m_0_89: + dq -0.89 +real_1_04: + dq 1.04 +real_m_1_04: + dq -1.04 +real_1_18: + dq 1.18 +real_m_1_18: + dq -1.18 + +real_0_5_pi_m_1_18: + dq 3.9079632679489667568E-1 +real_1_18_m_0_5_pi: + dq -3.9079632679489667568E-1 +real_0_5_pi_m_1_04: + dq 5.3079632679489663349E-1 +real_1_04_m_0_5_pi: + dq -5.3079632679489663349E-1 +real_0_5_pi_m_0_89: + dq 6.8079632679489665570E-1 +real_0_89_m_0_5_pi: + dq -6.8079632679489665570E-1 + +real_pi_m_1_18: + dq 1.9615926535897934002 +real_n_pi_m_1_18: + dq -1.9615926535897934002 +real_pi_m_1_04: + dq 2.1015926535897930805 +real_n_pi_m_1_04: + dq -2.1015926535897930805 +real_pi_m_0_89: + dq 2.2515926535897934357 +real_n_pi_m_0_89: + dq -2.2515926535897934357 +real_pi_m_0_699: + dq 2.4425926535897932723 +real_n_pi_m_0_699: + dq -2.4425926535897932723 +real_pi_m_0_542: + dq 2.5995926535897933007 +real_n_pi_m_0_542: + dq -2.5995926535897933007 +real_pi_m_0_338: + dq 2.8035926535897930378 +real_n_pi_m_0_338: + dq -2.8035926535897930378 + +real_pi_p_0_338: + dq 3.4795926535897931942 +real_n_pi_p_0_338: + dq -3.4795926535897931942 +real_pi_p_0_542: + dq 3.6835926535897933753 +real_n_pi_p_0_542: + dq -3.6835926535897933753 +real_pi_p_0_699: + dq 3.8405926535897934038 +real_n_pi_p_0_699: + dq -3.8405926535897934038 +real_pi_p_0_89: + dq 4.0315926535897936844 +real_n_pi_p_0_89: + dq -4.0315926535897936844 +real_pi_p_1_04: + dq 4.1815926535897931515 +real_n_pi_p_1_04: + dq -4.1815926535897931515 +real_pi_p_1_18: + dq 4.3215926535897928318 +real_n_pi_p_1_18: + dq -4.3215926535897928318 + +real_2pi_m_1_18: + dq 5.1031853071795865162 +real_n_2pi_m_1_18: + dq -5.1031853071795865162 +real_2pi_m_1_04: + dq 5.2431853071795861965 +real_n_2pi_m_1_04: + dq -5.2431853071795861965 +real_2pi_m_0_89: + dq 5.3931853071795865517 +real_n_2pi_m_0_89: + dq -5.3931853071795865517 +real_2pi_m_0_699: + dq 5.5841853071795863883 +real_n_2pi_m_0_699: + dq -5.5841853071795863883 +real_2pi_m_0_542: + dq 5.7411853071795864167 +real_n_2pi_m_0_542: + dq -5.7411853071795864167 +real_2pi_m_0_338: + dq 5.9451853071795861538 +real_n_2pi_m_0_338: + dq -5.9451853071795861538 + +real_2pi_p_0_338: + dq 6.6211853071795863102 +real_n_2pi_p_0_338: + dq -6.6211853071795863102 +real_2pi_p_0_542: + dq 6.8251853071795869354 +real_n_2pi_p_0_542: + dq -6.8251853071795869354 +real_2pi_p_0_699: + dq 6.9821853071795860757 +real_n_2pi_p_0_699: + dq -6.9821853071795860757 +real_2pi_p_0_89: + dq 7.1731853071795868004 +real_n_2pi_p_0_89: + dq -7.1731853071795868004 + +atan_0_5_53: + dq 4.6364760900080609352E-1 +m_atan_0_5_53: + dq -4.6364760900080609352E-1 +atan_0_5_53_l: + dq 2.2698777452961687092E-17 + +atan_sqrt_0_5: + dq 6.1547970867038737097E-1 +m_atan_sqrt_0_5: + dq -6.1547970867038737097E-1 +atan_sqrt_0_5_l: + dq -2.9904856561351187768E-17 + +real_h_pi_m_atan_s_2_53: + dq 6.1547970867038737097E-1 +real_h_pi_m_atan_s_2_53_l: + dq -2.9904856561351187768E-17 + +real_sqrt_2_p_1_5_pi_m_3_atan_sqrt_2_53: + dq 3.2606526883842570363 +real_sqrt_2_p_1_5_pi_m_3_atan_sqrt_2_53_l: + dq 3.5657102106448616432E-17 +real_3_atan_sqrt_2_m_sqrt_2_m_1_5_pi_m_53_l: + dq -3.5657102106448616432E-17 + +atan_sqrt_2: + dq 9.5531661812450929805E-1 +m_atan_sqrt_2: + dq -9.5531661812450929805E-1 +atan_sqrt_2_l: + dq -1.9885105943796805915E-17 + +real_h_pi_m_atan_2_52: + dq 4.6364760900080603800E-1 +real_h_pi_m_atan_2_52_l: + dq 7.8209928684219507951E-17 +real_2_p_2_5_pi_m_5_atan_2_53: + dq 4.3182380450040307451 +real_2_p_2_5_pi_m_5_atan_2_53_l: + dq -1.6406186889148070581E-16 +real_5_atan_2_m_2_m_2_5_pi_53_l: + dq 1.6406186889148070581E-16 + +atan_2_53: + dq 1.1071487177940904090 +m_atan_2_53: + dq -1.1071487177940904090 +atan_2_53_l: + dq 9.4044713735663794124E-17 +real_n_2_m_5_atan_2_53: + dq -3.5357435889704524890 +real_n_2_m_5_atan_2_53_l: + dq -2.6134358828256379104E-17 + +real_5_atan_2_m_2_53: + dq 3.5357435889704524890 +real_5_atan_2_m_2_53_l: + dq 2.6134358828256379104E-17 + +real_ln_2_t_0_5: + dq 3.4657359027997265471E-1 +real_n_ln_2_t_0_5: + dq -3.4657359027997265471E-1 +real_ln_2_t_1_5: + dq 1.0397207708399179641 +real_ln2_42: + dq 0.69314718055989033019 +real_ln2_42_l: + dq 5.4979230187083711552E-14 +real_1_d_ln2: + dq 1.4426950408889634074 + +real_log2_10_42: + dq 0.30102999566395283182 +real_log2_10_42_l: + dq 2.8363394551044964154E-14 + +;d1ln10: +; dq 4.3429448190325181667E-1 +d1ln10_26: + dq 4.3429447710514068603E-1 +d1ln10_26_l: + dq 4.7981111416159728067E-9 + +;d1ln2: +; dq 1.4426950408889633870 +d1ln2_26: + dq 1.4426950216293334961 +d1ln2_26_l: + dq 1.9259629911266174689E-8 + + align 16 +round_c: + dq 3ffh+52 + dq 3ffh+52 +m_round_c: + dq 0bffh+52 + dq 0bffh+52 +round_even_c: + dq 3ffh+53 + dq 3ffh+53 +m_round_even_c: + dq 0bffh+53 + dq 0bffh+53 +mask_all_one: + dq -1 + dq -1 +mask_all_one_except_last: + dq -2 + dq -2 +mask_all_one_except_second_last: + dq -3 + dq -3 +qw_1023: + dq 3ffh + dq 3ffh +qw_1022: + dq 3feh + dq 3feh +qw_1021: + dq 3fdh + dq 3fdh +qw_1077: + dq 3ffh+54 + dq 3ffh+54 +qw_1078: + dq 3ffh+55 + dq 3ffh+55 +qw_55: + dq 55 + dq 55 +mask_sign: + dq 08000000000000000h + dq 08000000000000000h +mask_all_except_sign: + dq 07fffffffffffffffh + dq 07fffffffffffffffh + +real_0_43540000008249979402: + dq 0.43540000008249979402 +real_m_0_43540000008249979402: + dq -0.43540000008249979402 +real_0_600000000082499762577: + dq 0.600000000082499762577 +real_m_0_600000000082499762577: + dq -0.600000000082499762577 + +;sin_p_0: +; dq -1.6666666666666629659E-1 +;sin_p_1: +; dq 8.3333333333220592498E-3 +;sin_p_2: +; dq -1.9841269829591994520E-4 +;sin_p_3: +; dq 2.7557313627980839565E-6 +;sin_p_4: +; dq -2.5050749232606622552E-8 +;sin_p_5: +; dq 1.5896334589820396677E-10 + +sin_p_0: + dq -1.6666666666666635210E-1 +sin_p_1: + dq 8.3333333333230012047E-3 +sin_p_2: + dq -1.9841269830204560616E-4 +sin_p_3: + dq 2.7557313816586650493E-6 +sin_p_4: + dq -2.5050776321203382309E-8 +sin_p_5: + dq 1.5897788850050641142E-10 + +sin_p1_c: +sin_p1_0h: + dq 5.6464247346312534948E-1 +sin_p1_0l: + dq -6.06241788103829245082E-24 +sin_p1_1h: + dq 8.2533560693264007568E-1 +sin_p1_1l: + dq 7.9304552924597260244E-9 +sin_p1_2: + dq -2.8232123673155168353E-1 +sin_p1_3: + dq -1.3755593581121927649E-1 +sin_p1_4: + dq 2.3526769749636338575E-2 +sin_p1_5: + dq 6.8777964033410682668E-3 +sin_p1_6: + dq -7.8422158064252829243E-4 +sin_p1_7: + dq -1.6378316139497952112E-4 +sin_p1_8: + dq 1.4102652890564176127E-5 +sin_p1_9: + dq 2.0754701007995074451E-6 + +sin_p2_c: +sin_p2_0h: + dq 5.6464247346312534948E-1 +sin_p2_0l: + dq -6.06241788103829245082E-24 +sin_p2_1h: + dq 8.2533560693264007568E-1 +sin_p2_1l: + dq 7.9304554034820284869E-9 +sin_p2_2: + dq -2.8232123673155273824E-1 +sin_p2_3: + dq -1.3755593580986152924E-1 +sin_p2_4: + dq 2.3526769748731638648E-2 +sin_p2_5: + dq 6.8777971733520841535E-3 +sin_p2_6: + dq -7.8422151328288352071E-4 +sin_p2_7: + dq -1.6373002515216467253E-4 +sin_p2_8: + dq 1.4106512050855138886E-5 +sin_p2_9: + dq 2.4764422854631738044E-6 + +sin_p3_c: +sin_p3_0h: + dq -5.6464247346312534948E-1 +sin_p3_0l: + dq 6.06241788103829245082E-24 +sin_p3_1h: + dq 8.2533560693264007568E-1 +sin_p3_1l: + dq 7.9304552924597260244E-9 +sin_p3_2: + dq 2.8232123673155168353E-1 +sin_p3_3: + dq -1.3755593581121927649E-1 +sin_p3_4: + dq -2.3526769749636338575E-2 +sin_p3_5: + dq 6.8777964033410682668E-3 +sin_p3_6: + dq 7.8422158064252829243E-4 +sin_p3_7: + dq -1.6378316139497952112E-4 +sin_p3_8: + dq -1.4102652890564176127E-5 +sin_p3_9: + dq 2.0754701007995074451E-6 + +sin_p4_c: +sin_p4_0h: + dq -5.6464247346312534948E-1 +sin_p4_0l: + dq 6.06241788103829245082E-24 +sin_p4_1h: + dq 8.2533560693264007568E-1 +sin_p4_1l: + dq 7.9304554034820284869E-9 +sin_p4_2: + dq 2.8232123673155273824E-1 +sin_p4_3: + dq -1.3755593580986152924E-1 +sin_p4_4: + dq -2.3526769748731638648E-2 +sin_p4_5: + dq 6.8777971733520841535E-3 +sin_p4_6: + dq 7.8422151328288352071E-4 +sin_p4_7: + dq -1.6373002515216467253E-4 +sin_p4_8: + dq -1.4106512050855138886E-5 +sin_p4_9: + dq 2.4764422854631738044E-6 + +cos_p_0: + dq 4.1666666666666588026E-2 +cos_p_1: + dq -1.3888888888872778175E-3 +cos_p_2: + dq 2.4801587288764459412E-5 +cos_p_3: + dq -2.7557314167050702998E-7 +cos_p_4: + dq 2.0875701408714520036E-9 +cos_p_5: + dq -1.1358718309736171193E-11 + +; .. .5854 +;tan_p_0: +; dq -18086151.600729089230 +;tan_p_1: +; dq 1161461.5827075217385 +;tan_p_2: +; dq -13169.960960193349820 +;tan_q_0: +; dq -54258454.802187263966 +;tan_q_1: +; dq 25187766.668997306377 +;tan_q_2: +; dq -1329914.3444088697433 +;tan_q_3: +; dq 13760.338151945812569 + +; .. .338 +tan_p_0: + dq -18191117.789276178926 +tan_p_1: + dq 1167963.0645372841973 +tan_p_2: + dq -13234.676172752202547 +tan_q_0: + dq -54573353.367828540504 +tan_q_1: + dq 25333230.540743269026 +tan_q_2: + dq -1337310.4614476819988 +tan_q_3: + dq 13827.503083158084337 + +; ..7854 +;tan2_p_0: +; dq 3.3283674370620949801E-2 +;tan2_p_1: +; dq 2.5663601402049946582E-2 +;tan2_p_2: +; dq -3.1180502523212879186E-4 +;tan2_p_3: +; dq 4.9814468378033982921E-7 +;tan2_q_0: +; dq -1.3338299229604572149E-1 +;tan2_q_1: +; dq 3.4248261922569253959E-3 +;tan2_q_2: +; dq -1.7860673544716858919E-5 + +; ..3678 +;tan2_p_0: +; dq 3.3322645703933846673E-2 +;tan2_p_1: +; dq 2.5645883816593488536E-2 +;tan2_p_2: +; dq -3.1101629629724883994E-4 +;tan2_p_3: +; dq 4.9436497805178155231E-7 +;tan2_q_0: +; dq -1.3334402096273281768E-1 +;tan2_q_1: +; dq 3.4200990512379442383E-3 +;tan2_q_2: +; dq -1.7781628650750523380E-5 + +; ..3908 +tan2_p_0: + dq 3.3321283446731200795E-2 +tan2_p_1: + dq 2.5646503068216856824E-2 +tan2_p_2: + dq -3.1104383115385493899E-4 +tan2_p_3: + dq 4.9449499280323978810E-7 +tan2_q_0: + dq -1.3334538321993547050E-1 +tan2_q_1: + dq 3.4202642171272572627E-3 +tan2_q_2: + dq -1.7784380596478880932E-5 + +; .. .2 +tan3_p_0: + dq -18224747.034562580287 +tan3_p_1: + dq 1170032.8518652219791 +tan3_p_2: + dq -13254.922404240271135 +tan3_q_0: + dq -54674241.103687740862 +tan3_q_1: + dq 25379794.997070763260 +tan3_q_2: + dq -1339662.7778249811381 +tan3_q_3: + dq 13848.512058865804647 + +tan_0_5_t: + dq 1.25 + dq 0.5 +real_0_5_m_1_25_atan_0_5_49_l: + dq -1.8102913770216112547E-16 +real_0_5_m_1_25_atan_0_5_49: + dq -7.9559511251007464239E-2 + +tan_n_0_5_t: + dq 1.25 + dq -0.5 +real_1_25_atan_0_5_m_0_5_49_l: + dq 1.8102913770216112547E-16 +real_1_25_atan_0_5_m_0_5_49: + dq 7.9559511251007464239E-2 + +tan_s_0_5_t: + dq 1.5 +sqrt_0_5: + dq 7.07106781186547572737E-1 +sqrtn_0_5_m_1_5_atann_sqrt_0_5_l: + dq -3.4791817252377832918E-18 +sqrtn_0_5_m_1_5_atann_sqrt_0_5: + dq -2.1611278181903348372E-1 + +tan_n_s_0_5_t: + dq 1.5 +n_sqrt_0_5: + dq -7.07106781186547572737E-1 +n_sqrtn_0_5_m_1_5_atann_sqrt_0_5_l: + dq 3.4791817252377832918E-18 +n_sqrtn_0_5_m_1_5_atann_sqrt_0_5: + dq 2.1611278181903348372E-1 + +tan_s_2_t: + dq 3.0 +sqrt_2_0: + dq 1.4142135623730951455 +sqrt_2_m_3_atan_sqrt_2_l: + dq 7.4004687159376949604E-17 +sqrt_2_m_3_atan_sqrt_2: + dq -1.4517362920004328597 + +tan_n_s_2_t: + dq 3.0 +n_sqrt_2_0: + dq -1.4142135623730951455 +n_sqrt_2_m_3_atan_sqrt_2_l: + dq -7.4004687159376949604E-17 +n_sqrt_2_m_3_atan_sqrt_2: + dq 1.4517362920004328597 + +; .. 0.55 +;asin_p_0: +; dq -25.316696852169688014 +;asin_p_1: +; dq 53.530200010422156254 +;asin_p_2: +; dq -37.683203270692622766 +;asin_p_3: +; dq 9.8280386103977175338 +;asin_p_4: +; dq -0.6933246588625101570 +;asin_q_0: +; dq -151.90018111301861836 +;asin_q_1: +; dq 389.53628156345331490 +;asin_q_2: +; dq -360.70299781814912876 +;asin_q_3: +; dq 144.63464250990605819 +;asin_q_4: +; dq -23.247871426450686272 + +asin_p_0: + dq -31.133659782158286333 +asin_p_1: + dq 63.858157457633225818 +asin_p_2: + dq -43.244454939408448979 +asin_p_3: + dq 10.711904434851501122 +asin_p_4: + dq -0.7023102565817557208 +asin_q_0: + dq -186.80195869294971089 +asin_q_1: + dq 467.20982615762636669 +asin_q_2: + dq -419.67491247177241576 +asin_q_3: + dq 162.03208845920067915 +asin_q_4: + dq -24.808857438965841169 + +asin_c: + +asin2_p_0: + dq 31.367022265271895520 +asin2_p_1: + dq -27.553457288163915706 +asin2_p_2: + dq 7.3142287109234631615 +asin2_p_3: + dq -0.5695539268055010984 +asin2_p_4: + dq 2.7732700457810590539E-3 +asin2_q_0: + dq 376.40426718326244782 +asin2_q_1: + dq -415.33244757417799065 +asin2_q_2: + dq 156.01490234281396852 +asin2_q_3: + dq -22.702479601946876642 + +; 0.55 .. +;asin2_p_0: +; dq 29.355358314463529723 +;asin2_p_1: +; dq -26.147018538045006864 +;asin2_p_2: +; dq 7.0703500716163327766 +;asin2_p_3: +; dq -0.5652641176899680930 +;asin2_p_4: +; dq 2.9079909341710704143E-3 +;asin2_q_0: +; dq 352.26429977355559231 +;asin2_q_1: +; dq -393.02368990519767067 +;asin2_q_2: +; dq 149.68540386246363028 +;asin2_q_3: +; dq -22.170690309691252651 + +asin_p1_c: +asin_p1_0h: + dq 5.7043710961221538724E-1 +asin_p1_0l: + dq 4.9248428721475757358E-23 +asin_p1_1h: + dq 1.1881211400032043457 +asin_p1_1l: + dq 1.4630145983574038837E-9 +asin_p1_2: + dq 4.5284120326143617596E-1 +asin_p1_3: + dq 6.2472394124586794195E-1 +asin_p1_4: + dq 8.0835086833083236169E-1 +asin_p1_5: + dq 1.2595104015172415846 +asin_p1_6: + dq 2.0488537552293428767 +asin_p1_7: + dq 3.5089140995443472981 +asin_p1_8: + dq 6.2851334414813333495 +asin_p1_9: + dq 10.128040933414240499 +asin_p1_10: + dq 33.046781180882994988 +asin_p1_11: + dq -52.817309641779630169 +asin_p1_12: + dq 540.99494117159986217 +asin_p1_13: + dq -1326.1434641099594955 +asin_p1_14: + dq 2612.6799241572512074 + +asin_p2_c: +asin_p2_0h: + dq 5.7043710961221538724E-1 +asin_p2_0l: + dq 4.9248428721475757358E-23 +asin_p2_1h: + dq 1.1881211400032043457 +asin_p2_1l: + dq 1.4630165967588482090E-9 +asin_p2_2: + dq 4.5284120325997734291E-1 +asin_p2_3: + dq 6.2472394155362398482E-1 +asin_p2_4: + dq 8.0835082941011759949E-1 +asin_p2_5: + dq 1.2595128937378745615 +asin_p2_6: + dq 2.0487338667125807312 +asin_p2_7: + dq 3.5123184925937764866 +asin_p2_8: + dq 6.2076105483454178113 +asin_p2_9: + dq 11.227381892153145415 +asin_p2_10: + dq 20.429661082626292767 +asin_p2_11: + dq 35.926476241524127886 +asin_p2_12: + dq 55.782391042293575367 +asin_p2_13: + dq 64.653236450484357078 +asin_p2_14: + dq 39.681910714502151905 + +asin_p3_c: +asin_p3_0h: + dq -5.7043710961221538724E-1 +asin_p3_0l: + dq -4.9248428721475757358E-23 +asin_p3_1h: + dq 1.1881211400032043457 +asin_p3_1l: + dq 1.4630145983574038837E-9 +asin_p3_2: + dq -4.5284120326143617596E-1 +asin_p3_3: + dq 6.2472394124586794195E-1 +asin_p3_4: + dq -8.0835086833083236169E-1 +asin_p3_5: + dq 1.2595104015172415846 +asin_p3_6: + dq -2.0488537552293428767 +asin_p3_7: + dq 3.5089140995443472981 +asin_p3_8: + dq -6.2851334414813333495 +asin_p3_9: + dq 10.128040933414240499 +asin_p3_10: + dq -33.046781180882994988 +asin_p3_11: + dq -52.817309641779630169 +asin_p3_12: + dq -540.99494117159986217 +asin_p3_13: + dq -1326.1434641099594955 +asin_p3_14: + dq -2612.6799241572512074 + +asin_p4_c: +asin_p4_0h: + dq -5.7043710961221538724E-1 +asin_p4_0l: + dq -4.9248428721475757358E-23 +asin_p4_1h: + dq 1.1881211400032043457 +asin_p4_1l: + dq 1.4630165967588482090E-9 +asin_p4_2: + dq -4.5284120325997734291E-1 +asin_p4_3: + dq 6.2472394155362398482E-1 +asin_p4_4: + dq -8.0835082941011759949E-1 +asin_p4_5: + dq 1.2595128937378745615 +asin_p4_6: + dq -2.0487338667125807312 +asin_p4_7: + dq 3.5123184925937764866 +asin_p4_8: + dq -6.2076105483454178113 +asin_p4_9: + dq 11.227381892153145415 +asin_p4_10: + dq -20.429661082626292767 +asin_p4_11: + dq 35.926476241524127886 +asin_p4_12: + dq -55.782391042293575367 +asin_p4_13: + dq 64.653236450484357078 +asin_p4_14: + dq -39.681910714502151905 + +acos_p_0: + dq -23.490891740111308650 +acos_p_1: + dq 50.216364730997767651 +acos_p_2: + dq -35.846130541173899076 +acos_p_3: + dq 9.5237685361261430472 +acos_p_4: + dq -0.68995264971619463257 +acos_q_0: + dq -140.94535044067245622 +acos_q_1: + dq 364.72359608470605963 +acos_q_2: + dq -341.44918263146718118 +acos_q_3: + dq 138.79408611688072028 +acos_q_4: + dq -22.704016182082593645 + +acos2_p_0: + dq 30.187145498002834643 +acos2_p_1: + dq -26.731562531992352660 +acos2_p_2: + dq 7.1724615825161839311 +acos2_p_3: + dq -0.56708755287485912433 +acos2_p_4: + dq 2.8497262016782816223E-3 +acos2_q_0: + dq 362.24574597603304937 +acos2_q_1: + dq -402.28404322843209684 +acos2_q_2: + dq 152.32592108178161538 +acos2_q_3: + dq -22.394016829865698526 + +acos_p1_c: +acos_p1_0h: + dq 8.6321189001609244240E-1 +acos_p1_0l: + dq -2.7467628254551864260E-23 +acos_p1_1h: + dq -1.3159033656120300293 +acos_p1_1l: + dq -2.4367664774871400368E-8 +acos_p1_2: + dq -7.4055169144604560127E-1 +acos_p1_3: + dq -1.2132914821382745352 +acos_p1_4: + dq -2.1344587603015683364 +acos_p1_5: + dq -4.3088049195660635959 +acos_p1_6: + dq -9.2462207583022237856 +acos_p1_7: + dq -20.778559358953092584 +acos_p1_8: + dq -48.776431616826357640 +acos_p1_9: + dq -105.97079800530472937 +acos_p1_10: + dq -413.00216737064670269 +acos_p1_11: + dq 662.354234414432198719 +acos_p1_12: + dq -11016.701631003812508 +acos_p1_13: + dq 35318.9338646810210776 +acos_p1_14: + dq -97099.956120653485414 + +acos_p2_c: +acos_p2_0h: + dq 8.6321189001609244240E-1 +acos_p2_0l: + dq -2.7467628254551864260E-23 +acos_p2_1h: + dq -1.3159033656120300293 +acos_p2_1l: + dq -2.4367664108737585593E-8 +acos_p2_2: + dq -7.4055169144296173478E-1 +acos_p2_3: + dq -1.2132914822347449224 +acos_p2_4: + dq -2.1344586500282272112 +acos_p2_5: + dq -4.3088086958273930094 +acos_p2_6: + dq -9.2457168210006930309 +acos_p2_7: + dq -20.790839559740305731 +acos_p2_8: + dq -48.251128736941033992 +acos_p2_9: + dq -114.02209884122218853 +acos_p2_10: + dq -267.05630398433208939 +acos_p2_11: + dq -584.65850073182002689 +acos_p2_12: + dq -1076.6291620946751664 +acos_p2_13: + dq -1407.9468675552657260 +acos_p2_14: + dq -936.98633843723951031 + +atan4_p_c: +atan4_p_0: + dq -51.285593469956815227 +atan4_p_1: + dq -100.64117630107490697 +atan4_p_2: + dq -64.297908354955467303 +atan4_p_3: + dq -14.727705326536764119 +atan4_p_4: + dq -0.8688437904180191795 +atan4_q_0: + dq 153.85678040987045279 +atan4_q_1: + dq 394.23759714914689312 +atan4_q_2: + dq 363.49766317870364674 +atan4_q_3: + dq 144.60833714965690433 +atan4_q_4: + dq 23.038413151078877661 + +n_45_d_256: + dq 0.175781250000 +n_m_45_d_256: + dq -0.175781250000 + +atan_p_9_0: + dq -3.3333333333333309279E-1 +atan_p_9_1: + dq 1.9999999999984593990E-1 +atan_p_9_2: + dq -1.4285714282482467330E-1 +atan_p_9_3: + dq 1.1111110782523182794E-1 +atan_p_9_4: + dq -9.0908902574698829957E-2 +atan_p_9_5: + dq 7.6916554867419328900E-2 +atan_p_9_6: + dq -6.6526935532345926605E-2 +atan_p_9_7: + dq 5.6999867343679795628E-2 +atan_p_9_8: + dq -3.9093313704495452621E-2 + +atan_0_5_52: + dq 4.6364760900080603800E-1 +atan_0_5_52_l: + dq 7.8209928684219507951E-17 +atan_0_5_real_0_5: + dq 0.5 + +n_atan_0_5_52: + dq -4.6364760900080603800E-1 +n_atan_0_5_52_l: + dq -7.8209928684219507951E-17 +n_atan_0_5_real_0_5: + dq -0.5 + +atan_n_0_5_8_c: +atan_n_0_5_8_0: + dq -3.3333333333333192705E-1 +atan_n_0_5_8_1: + dq 1.9999999999920992089E-1 +atan_n_0_5_8_2: + dq -1.4285714269165267210E-1 +atan_n_0_5_8_3: + dq 1.1111109349119581424E-1 +atan_n_0_5_8_4: + dq -9.0908019792184269203E-2 +atan_n_0_5_8_5: + dq 7.6884259191928067123E-2 +atan_n_0_5_8_6: + dq -6.5833773159939656949E-2 +atan_n_0_5_8_7: + dq 4.8945313616423499758E-2 + +atan_1_53: + dq 7.8539816339744827900E-1 +atan_1_53_l: + dq 3.0616169978683830179E-17 + +n_atan_1_53: + dq -7.8539816339744827900E-1 +n_atan_1_53_l: + dq -3.0616169978683830179E-17 + +atan_n_8_c: +atan_n_8_0: + dq -3.3333333333333325932E-1 +atan_n_8_1: + dq 1.9999999999993750555E-1 +atan_n_8_2: + dq -1.4285714283792697032E-1 +atan_n_8_3: + dq 1.1111110814149251225E-1 +atan_n_8_4: + dq -9.0908830368634924168E-2 +atan_n_8_5: + dq 7.6909493951295496150E-2 +atan_n_8_6: + dq -6.6248652556378059830E-2 +atan_n_8_7: + dq 5.1752788427847688790E-2 +atan_n_8_real_40_bits: + dq 0ffffffffffffe000h +atan_n_8_real_abs_40_bits: + dq 07fffffffffffe000h +atan_n_8_real_2_p_m_12: + dq 2.44140625E-4 + +atan_p_8_c: +atan_p_8_0: + dq -3.3333333333333331483E-1 +atan_p_8_1: + dq 1.9999999999997875033E-1 +atan_p_8_2: + dq -1.4285714284904510452E-1 +atan_p_8_3: + dq 1.1111110961868993219E-1 +atan_p_8_4: + dq -9.0908937814301260527E-2 +atan_p_8_5: + dq 7.6913854250452912131E-2 +atan_p_8_6: + dq -6.6341308897488418528E-2 +atan_p_8_7: + dq 5.2556144706942850564E-2 +atan_p_8_real_39_bits: + dq 0ffffffffffffc000h +atan_p_8_abs_real_39_bits: + dq 07fffffffffffc000h +atan_p_8_real_2_p_m_12: + dq 2.44140625E-4 + +atan_2_0: + dq 1.1071487177940904090 +atan_2_0_l: + dq 9.4044713735663794124E-17 +atan_2_0_real_2_0: + dq 2.0 + +n_atan_2_0: + dq -1.1071487177940904090 +n_atan_2_0_l: + dq -9.4044713735663794124E-17 +n_atan_2_0_real_2_0: + dq -2.0 + +atan_n_2_8_c: +atan_n_2_8_0: + dq -3.3333333333333042825E-1 +atan_n_2_8_1: + dq 1.9999999999849707444E-1 +atan_n_2_8_2: + dq -1.4285714256949089140E-1 +atan_n_2_8_3: + dq 1.1111108323968375833E-1 +atan_n_2_8_4: + dq -9.0907550811429177484E-2 +atan_n_2_8_5: + dq 7.6872320463257509671E-2 +atan_n_2_8_6: + dq -6.5674898157514843833E-2 +atan_n_2_8_7: + dq 4.8083662211730243685E-2 + +real_atan_large: + dq 5805358775541310.0840 +real_atan_m_large: + dq -5805358775541310.0840 + +exp_p0_c: +exp_p0_2: + dq 4.9999999999999900080E-1 +exp_p0_3: + dq 1.6666666666678625619E-1 +exp_p0_4: + dq 4.1666666661027668139E-2 +exp_p0_5: + dq 8.3333334724719175524E-3 +exp_p0_6: + dq 1.3888868951434380893E-3 +exp_p0_7: + dq 1.9842988288729944998E-4 +exp_p0_8: + dq 2.4713876429938641863E-5 +exp_p0_9: + dq 2.9988651596576767477E-6 + +exp_p1_c: +exp_p1_0: + dq 1.1921772413532716328 +exp_p1_0_l: + dq -5.3111925243256501606E-17 +exp_p1_1_h: + dq 1.1921772360801696777 +exp_p1_1_l: + dq 5.2731019550833480025E-9 +exp_p1_2: + dq 5.9608862067662515827E-1 +exp_p1_3: + dq 1.9869620689294639759E-1 +exp_p1_4: + dq 4.9674051698174313818E-2 +exp_p1_5: + dq 9.9348108199627475218E-3 +exp_p1_6: + dq 1.6557962681130399766E-3 +exp_p1_7: + dq 2.3658136938083061391E-4 +exp_p1_8: + dq 2.9408132193586159414E-5 +exp_p1_9: + dq 3.6463907908503166658E-6 + +exp_m0_c: +exp_m0_2: + dq 4.9999999999999916733E-1 +exp_m0_3: + dq 1.6666666666656548834E-1 +exp_m0_4: + dq 4.1666666661841822439E-2 +exp_m0_5: + dq 8.3333332132295139666E-3 +exp_m0_6: + dq 1.3888871537291139647E-3 +exp_m0_7: + dq 1.9839759941175428605E-4 +exp_m0_8: + dq 2.4723414228338120148E-5 +exp_m0_9: + dq 2.5328445339119633100E-6 + +exp_m1_c: +exp_m1_0: + dq 8.3880145108698256351E-1 +exp_m1_0_l: + dq -3.1258096785010882408E-17 +exp_m1_1_h: + dq 8.3880144357681274414E-1 +exp_m1_1_l: + dq 7.5101698193691390770E-9 +exp_m1_2: + dq 4.1940072554349638878E-1 +exp_m1_3: + dq 1.3980024184811054577E-1 +exp_m1_4: + dq 3.4950060469065312441E-2 +exp_m1_5: + dq 6.9900121811488523035E-3 +exp_m1_6: + dq 1.1650024396098284090E-3 +exp_m1_7: + dq 1.6642701498218752582E-4 +exp_m1_8: + dq 2.0771521593253968396E-5 +exp_m1_9: + dq 2.1676257763527338661E-6 + +; ln < 1 + +;ln_s_c: +;ln_s_p_0: +; dq 9.1503481690678860616 +;ln_s_p_1: +; dq 20.941485866336655874 +;ln_s_p_2: +; dq 16.487417954606193859 +;ln_s_p_3: +; dq 5.1186080224958212526 +;ln_s_p_4: +; dq 4.9845734945458103349E-1 +;ln_s_q_0: +; dq 27.451044507203782530 +;ln_s_q_1: +; dq 83.412740979424398802 +;ln_s_q_2: +; dq 95.551182894484938402 +;ln_s_q_3: +; dq 50.697088912299392405 +;ln_s_q_4: +; dq 12.129116214794825268 + +; ln .83 .. 1 + +;ln_s_c: +;ln_s_p_0: +; dq 10.602228952834687803 +;ln_s_p_1: +; dq 23.654147261303222649 +;ln_s_p_2: +; dq 18.048399385285609497 +;ln_s_p_3: +; dq 5.3866317747411187611 +;ln_s_p_4: +; dq 4.9866367203621170257E-1 +;ln_s_q_0: +; dq 31.806686858504065185 +;ln_s_q_1: +; dq 94.817456927787816312 +;ln_s_q_2: +; dq 106.17427873659880788 +;ln_s_q_3: +; dq 54.803473649357279385 +;ln_s_q_4: +; dq 12.671320252177885379 + +; ln .8243 .. 1 + +ln_s_c: +ln_s_p_0: + dq 10.533214407052481576 +ln_s_p_1: + dq 23.526643885226203423 +ln_s_p_2: + dq 17.976077060886193948 +ln_s_p_3: + dq 5.3744490269565492468 +ln_s_p_4: + dq 4.9865516811442134326E-1 +ln_s_q_0: + dq 31.599643221157446504 +ln_s_q_1: + dq 94.279664071546818604 +ln_s_q_2: + dq 105.67819330362900132 +ln_s_q_3: + dq 54.614015226380423940 +ln_s_q_4: + dq 12.646688742839442554 + +; ln >= 1 + +;ln_b_c: +;ln_b_p_0: +; dq 17.467871503051810578 +;ln_b_p_1: +; dq 35.785852544901331385 +;ln_b_p_2: +; dq 24.552006690337957906 +;ln_b_p_3: +; dq 6.4047236758045062999 +;ln_b_p_4: +; dq 4.9917096570160635061E-1 +;ln_b_q_0: +; dq 52.403614509155588053 +;ln_b_q_1: +; dq 146.66026851655587393 +;ln_b_q_2: +; dq 152.20905275348258101 +;ln_b_q_3: +; dq 71.576606726420877180 +;ln_b_q_4: +; dq 14.725978745938864023 + +; ln 1.0 .. 1.25 + +ln_b_c: +ln_b_p_0: + dq 15.580409683056638315 +ln_b_p_1: + dq 32.543914666072645048 +ln_b_p_2: + dq 22.877901706403754645 +ln_b_p_3: + dq 6.1556714513765760088 +ln_b_p_4: + dq 4.9907618814155391140E-1 +ln_b_q_0: + dq 46.741229049169916721 +ln_b_q_1: + dq 132.68766578509504939 +ln_b_q_2: + dq 140.10471702854880505 +ln_b_q_3: + dq 67.303567178530471438 +ln_b_q_4: + dq 14.223951326720150945 + +; log10 < 1 + +;log10_s_c: +;log10_s_p_0: +; dq 3.9766162055986344903 +;log10_s_p_1: +; dq 9.0998450829915000782 +;log10_s_p_2: +; dq 7.1633761863796170388 +;log10_s_p_3: +; dq 2.2235094671281157019 +;log10_s_p_4: +; dq 2.1647774010462134120E-1 +;log10_s_q_0: +; dq 27.469491586710010012 +;log10_s_q_1: +; dq 83.461621599998238707 +;log10_s_q_2: +; dq 95.597370915186246521 +;log10_s_q_3: +; dq 50.715260287037992271 +;log10_s_q_4: +; dq 12.131569554734877414 + +; log10 .83 .. 1 + +log10_s_c: +log10_s_p_0: + dq 4.6028186381430433727 +log10_s_p_1: + dq 10.269763424759014825 +log10_s_p_2: + dq 7.8365495824134949743 +log10_s_p_3: + dq 2.3390837249823710486 +log10_s_p_4: + dq 2.1656666260147883207E-1 +log10_s_q_0: + dq 31.795144745829979627 +log10_s_q_1: + dq 94.787371070649314220 +log10_s_q_2: + dq 106.14640820241447727 +log10_s_q_3: + dq 54.792773831672434426 +log10_s_q_4: + dq 12.669919891359308295 + +; log10 >= 1 + +;log10_b_c: +;log10_b_p_0: +; dq 7.5811637929542987635 +;log10_b_p_1: +; dq 15.533033113504695066 +;log10_b_p_2: +; dq 10.658434759740712749 +;log10_b_p_3: +; dq 2.7808975967872808788 +;log10_b_p_4: +; dq 2.1678697192356721768E-1 +;log10_b_q_0: +; dq 52.368824211608433927 +;log10_b_q_1: +; dq 146.57500964710882840 +;log10_b_q_2: +; dq 152.13582168617784873 +;log10_b_q_3: +; dq 71.551032626191883423 +;log10_b_q_4: +; dq 14.723015954370795910 + +; log10 1 .. 1.25 + +log10_b_c: +log10_b_p_0: + dq 6.7674014091633534207 +log10_b_p_1: + dq 14.135207984866871911 +log10_b_p_2: + dq 9.9365500005391176330 +log10_b_p_3: + dq 2.6734926843772655047 +log10_b_p_4: + dq 2.1674607755999492076E-1 +log10_b_q_0: + dq 46.747552809139307328 +log10_b_q_1: + dq 132.70322218382881374 +log10_b_q_2: + dq 140.11814067349982338 +log10_b_q_3: + dq 67.308281802680511419 +log10_b_q_4: + dq 14.224501421540916013 + +log2_b_c: +log2_b_p_0: + dq 5.7248655744376097942 +log2_b_p_1: + dq 9.7037982066316619267 +log2_b_p_2: + dq 4.9251104233553251177 +log2_b_p_3: + dq 0.71604182547154882066 +log2_b_p_4: + dq 0.00024384785289470863262 +log2_b_q_0: + dq 11.904523296020823153 +log2_b_q_1: + dq 29.106873574779058345 +log2_b_q_2: + dq 24.928920420570964467 +log2_b_q_3: + dq 8.6737948511229703286 + +log2_s_c: +log2_s_p_0: + dq 3.6543174401668601092 +log2_s_p_1: + dq 6.9236821167562956347 +log2_s_p_2: + dq 4.0552858971538414679 +log2_s_p_3: + dq 0.71265600724817212974 +log2_s_p_4: + dq 0.00061552202164347354606 +log2_s_q_0: + dq 7.5989394915663739383 +log2_s_q_1: + dq 20.096596833512705871 +log2_s_q_2: + dq 18.945813884202145516 +log2_s_q_3: + dq 7.4327985038948378715 + +exp2_p0_25_c: +exp2_p0_25_0h: + dq 1.1892071150027210269 +exp2_p0_25_0l: + dq 3.9820152314656461110E-17 +exp2_p0_25_1h: + dq 8.2429555058479309082E-1 +exp2_p0_25_1l: + dq 8.2811696389128996998E-9 +exp2_p0_25_2: + dq 2.8567907128801478533E-1 +exp2_p0_25_3: + dq 6.6005880936045882579E-2 +exp2_p0_25_4: + dq 1.1437947568180147420E-2 +exp2_p0_25_5: + dq 1.5856362256660922264E-3 +exp2_p0_25_6: + dq 1.8317976935970924383E-4 +exp2_p0_25_7: + dq 1.8139623479154579359E-5 +exp2_p0_25_8: + dq 1.5673360359583023396E-6 +exp2_p0_25_9: + dq 1.3055968895300254492E-7 + +exp2_p0_c: +exp2_p0_0h: + dq 1.0 +exp2_p0_0l: + dq 0.0 +exp2_p0_1h: + dq 6.9314716756343841553E-1 +exp2_p0_1l: + dq 1.2996506870699420233E-8 +exp2_p0_2: + dq 2.4022650695910330310E-1 +exp2_p0_3: + dq 5.5504108664725972100E-2 +exp2_p0_4: + dq 9.6181291092419882865E-3 +exp2_p0_5: + dq 1.3333558019987959767E-3 +exp2_p0_6: + dq 1.5403532681856270284E-4 +exp2_p0_7: + dq 1.5253065510864060166E-5 +exp2_p0_8: + dq 1.3190300302967161470E-6 +exp2_p0_9: + dq 1.0881074348847176580E-7 + +exp2_m0_c: +exp2_m0_0h: + dq 1.0 +exp2_m0_0l: + dq 0.0 +exp2_m0_1h: + dq 6.9314716756343841553E-1 +exp2_m0_1l: + dq 1.2996506870699420233E-8 +exp2_m0_2: + dq 2.4022650695909780749E-1 +exp2_m0_3: + dq 5.5504108664691832742E-2 +exp2_m0_4: + dq 9.6181291047027026725E-3 +exp2_m0_5: + dq 1.3333557764085299593E-3 +exp2_m0_6: + dq 1.5403499520940549562E-4 +exp2_m0_7: + dq 1.5251161994200753343E-5 +exp2_m0_8: + dq 1.3166061357593046239E-6 +exp2_m0_9: + dq 9.2942318847941285694E-8 + +exp2_m0_25_c: +exp2_m0_25_0h: + dq 8.4089641525371450204E-1 +exp2_m0_25_0l: + dq 4.0995050102907482601E-17 +exp2_m0_25_1h: + dq 5.8286496996879577637E-1 +exp2_m0_25_1l: + dq 9.4072813983103742430E-9 +exp2_m0_25_2: + dq 2.0200560855082275169E-1 +exp2_m0_25_3: + dq 4.6673206007799013240E-2 +exp2_m0_25_4: + dq 8.0878502812528896282E-3 +exp2_m0_25_5: + dq 1.1212140390502213245E-3 +exp2_m0_25_6: + dq 1.2952709156943405071E-4 +exp2_m0_25_7: + dq 1.2823060087120729985E-5 +exp2_m0_25_8: + dq 1.1036110895925728151E-6 +exp2_m0_25_9: + dq 7.4921899653437894396E-8 + +real_m_1022: + dq -1022.0 +real_1023: + dq 1023.0 +real_1024: + dq 1024.0 +real_1025: + dq 1025.0 +real_m_1076: + dq -1076.0 +real_2_p_m_1022: + dq 00010000000000000h +real_2_p_m_55: + dq 03C80000000000000h +real_2_p_53: + dq 04340000000000000h +real_m_2_p_53: + dq 0C340000000000000h +real_2_p_55: + dq 04360000000000000h +real_2_p_1023: + dq 07fe0000000000000h +real_max: + dq 07fefffffffffffffh +real_m_max: + dq 0ffefffffffffffffh + +real_4000_0: + dq 4000.0 +real_m_3810_0: + dq -3810.0 +real_1401_0: + dq 1401.0 +real_m_1471_0: + dq -1471.0 +real_4605_0: + dq 4605.0 +real_m_4834_0: + dq -4834.0 +real_1_052: + dq 1.052 +real_m_1_052: + dq -1.052 +real_power_exp_too_large: + dq 6711563375777760768.0 +real_power_exp_too_small: + dq -6393154322601327104.0 + +_DATA ends + +; end + |