// File: jkingan[P]ladyheather/heathmsc.cpp
// Function: moon_position(double, double)
double moon_position(double jd, double ls)
{
double ms,l,mm,n,ev,sms,ae,ec;
int i;

    jd -= 2444238.5;

    /* ls = sun_position(jd) */
    ms = 0.985647332099*jd - 3.762863;
    if(ms < 0) ms += 360.0;
    l = 13.176396*jd + 64.975464;
    i = (int) (l / 360.0);
    l = l - (360.0*(double) i);
    if(l < 0) l += 360.0;
    mm = l - 0.1114041*jd - 349.383063;
    i = (int) (mm / 360.0);
    mm -= 360.0 * (double) i;
    n = 151.950429 - 0.0529539*jd;
    i = (int) (n / 360.0);
    n -= 360.0 * (double) i;
    ev = 1.2739 * sin((2*(l-ls)-mm)*DEG_TO_RAD);
    sms = sin(ms*DEG_TO_RAD);
    ae = 0.1858 * sms;
    mm += ev - ae - 0.37*sms;
    ec = 6.2886 * sin(mm*DEG_TO_RAD);
    l += ev + ec - ae + 0.214*sin(2.0*mm*DEG_TO_RAD);
    l= 0.6583 * sin(2*(l-ls)*DEG_TO_RAD)+l;

    return l;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x60, %rsp
movsd %xmm0, -0x8(%rbp)
movsd %xmm1, -0x10(%rbp)
movsd -0x8(%rbp), %xmm0
movsd 0x545b9(%rip), %xmm1    # 0x18e748
subsd %xmm1, %xmm0
movsd %xmm0, -0x8(%rbp)
movsd -0x8(%rbp), %xmm0
movsd 0x545b3(%rip), %xmm1    # 0x18e758
mulsd %xmm1, %xmm0
movsd 0x545af(%rip), %xmm1    # 0x18e760
addsd %xmm1, %xmm0
movsd %xmm0, -0x18(%rbp)
xorps %xmm0, %xmm0
ucomisd -0x18(%rbp), %xmm0
jbe 0x13a1d6
movsd 0x48964(%rip), %xmm0    # 0x182b30
addsd -0x18(%rbp), %xmm0
movsd %xmm0, -0x18(%rbp)
movsd -0x8(%rbp), %xmm0
movsd 0x54585(%rip), %xmm1    # 0x18e768
mulsd %xmm1, %xmm0
movsd 0x54581(%rip), %xmm1    # 0x18e770
addsd %xmm1, %xmm0
movsd %xmm0, -0x20(%rbp)
movsd -0x20(%rbp), %xmm0
movsd 0x4892b(%rip), %xmm1    # 0x182b30
divsd %xmm1, %xmm0
cvttsd2si %xmm0, %eax
movl %eax, -0x54(%rbp)
movsd -0x20(%rbp), %xmm1
cvtsi2sdl -0x54(%rbp), %xmm0
movsd 0x54516(%rip), %xmm2    # 0x18e738
mulsd %xmm2, %xmm0
addsd %xmm1, %xmm0
movsd %xmm0, -0x20(%rbp)
xorps %xmm0, %xmm0
ucomisd -0x20(%rbp), %xmm0
jbe 0x13a24b
movsd 0x488ef(%rip), %xmm0    # 0x182b30
addsd -0x20(%rbp), %xmm0
movsd %xmm0, -0x20(%rbp)
movsd -0x20(%rbp), %xmm1
movsd -0x8(%rbp), %xmm0
movsd 0x54563(%rip), %xmm2    # 0x18e7c0
mulsd %xmm2, %xmm0
addsd %xmm1, %xmm0
movsd 0x5454b(%rip), %xmm1    # 0x18e7b8
subsd %xmm1, %xmm0
movsd %xmm0, -0x28(%rbp)
movsd -0x28(%rbp), %xmm0
movsd 0x488ad(%rip), %xmm1    # 0x182b30
divsd %xmm1, %xmm0
cvttsd2si %xmm0, %eax
movl %eax, -0x54(%rbp)
cvtsi2sdl -0x54(%rbp), %xmm0
movsd -0x28(%rbp), %xmm1
movsd 0x54498(%rip), %xmm2    # 0x18e738
mulsd %xmm2, %xmm0
addsd %xmm1, %xmm0
movsd %xmm0, -0x28(%rbp)
movsd -0x8(%rbp), %xmm0
movsd 0x544ee(%rip), %xmm1    # 0x18e7a8
mulsd %xmm1, %xmm0
movsd 0x544ea(%rip), %xmm1    # 0x18e7b0
addsd %xmm1, %xmm0
movsd %xmm0, -0x30(%rbp)
movsd -0x30(%rbp), %xmm0
movsd 0x48854(%rip), %xmm1    # 0x182b30
divsd %xmm1, %xmm0
cvttsd2si %xmm0, %eax
movl %eax, -0x54(%rbp)
cvtsi2sdl -0x54(%rbp), %xmm0
movsd -0x30(%rbp), %xmm1
movsd 0x5443f(%rip), %xmm2    # 0x18e738
mulsd %xmm2, %xmm0
addsd %xmm1, %xmm0
movsd %xmm0, -0x30(%rbp)
movsd -0x20(%rbp), %xmm0
subsd -0x10(%rbp), %xmm0
movsd -0x28(%rbp), %xmm1
movq %xmm1, %rax
movabsq $-0x8000000000000000, %rcx # imm = 0x8000000000000000
xorq %rcx, %rax
movq %rax, %xmm1
addsd %xmm0, %xmm0
addsd %xmm1, %xmm0
movsd 0x37354(%rip), %xmm1    # 0x171690
mulsd %xmm1, %xmm0
callq 0x9080
movaps %xmm0, %xmm1
movsd 0x54450(%rip), %xmm0    # 0x18e7a0
mulsd %xmm1, %xmm0
movsd %xmm0, -0x38(%rbp)
movsd 0x3732f(%rip), %xmm0    # 0x171690
mulsd -0x18(%rbp), %xmm0
callq 0x9080
movsd %xmm0, -0x40(%rbp)
movsd 0x54420(%rip), %xmm0    # 0x18e798
mulsd -0x40(%rbp), %xmm0
movsd %xmm0, -0x48(%rbp)
movsd -0x38(%rbp), %xmm1
subsd -0x48(%rbp), %xmm1
movsd -0x40(%rbp), %xmm0
movsd 0x543f7(%rip), %xmm2    # 0x18e790
mulsd %xmm2, %xmm0
addsd %xmm1, %xmm0
addsd -0x28(%rbp), %xmm0
movsd %xmm0, -0x28(%rbp)
movsd 0x372dd(%rip), %xmm0    # 0x171690
mulsd -0x28(%rbp), %xmm0
callq 0x9080
movaps %xmm0, %xmm1
movsd 0x543c0(%rip), %xmm0    # 0x18e788
mulsd %xmm1, %xmm0
movsd %xmm0, -0x50(%rbp)
movsd -0x38(%rbp), %xmm0
addsd -0x50(%rbp), %xmm0
subsd -0x48(%rbp), %xmm0
movsd %xmm0, -0x60(%rbp)
movsd 0x34d63(%rip), %xmm0    # 0x16f150
mulsd -0x28(%rbp), %xmm0
movsd 0x37296(%rip), %xmm1    # 0x171690
mulsd %xmm1, %xmm0
callq 0x9080
movsd -0x60(%rbp), %xmm1
movsd 0x54370(%rip), %xmm2    # 0x18e780
mulsd %xmm2, %xmm0
addsd %xmm1, %xmm0
addsd -0x20(%rbp), %xmm0
movsd %xmm0, -0x20(%rbp)
movsd -0x20(%rbp), %xmm1
subsd -0x10(%rbp), %xmm1
movsd 0x34d1c(%rip), %xmm0    # 0x16f150
mulsd %xmm1, %xmm0
movsd 0x37250(%rip), %xmm1    # 0x171690
mulsd %xmm1, %xmm0
callq 0x9080
movsd -0x20(%rbp), %xmm1
movsd 0x54322(%rip), %xmm2    # 0x18e778
mulsd %xmm2, %xmm0
addsd %xmm1, %xmm0
movsd %xmm0, -0x20(%rbp)
movsd -0x20(%rbp), %xmm0
addq $0x60, %rsp
popq %rbp
retq
nop