user: What is the c source code of the assembly code below?

```asm
<binaryStarOrbit>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0xb0,%rsp
  movsd  %xmm0,-0x58(%rbp)
  movsd  %xmm1,-0x60(%rbp)
  movsd  %xmm2,-0x68(%rbp)
  movsd  %xmm3,-0x70(%rbp)
  movsd  %xmm4,-0x78(%rbp)
  movsd  %xmm5,-0x80(%rbp)
  movsd  %xmm6,-0x88(%rbp)
  movsd  %xmm7,-0x90(%rbp)
  mov    %rdi,-0x98(%rbp)
  mov    %rsi,-0xa0(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movsd  D3(%rip),%xmm0
  movapd %xmm0,%xmm1
  divsd  -0x90(%rbp),%xmm1
  movsd  -0x58(%rbp),%xmm0
  subsd  -0x60(%rbp),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x48(%rbp)
  mov    D3(%rip),%rdx
  lea    -0x48(%rbp),%rax
  movq   %rdx,%xmm0
  mov    %rax,%rdi
  mov    $0x1,%eax
  call   <range@plt>
  mov    -0x48(%rbp),%rax
  movsd  -0x68(%rbp),%xmm0
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  mov    $0x2,%eax
  call   <solveKepler@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  movsd  %xmm0,-0x28(%rbp)
  mov    -0x28(%rbp),%rax
  movq   %rax,%xmm0
  call   <cos@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x20(%rbp)
  movsd  -0x20(%rbp),%xmm0
  subsd  -0x68(%rbp),%xmm0
  movsd  -0x68(%rbp),%xmm1
  movapd %xmm1,%xmm2
  mulsd  -0x20(%rbp),%xmm2
  movsd  D130(%rip),%xmm1
  subsd  %xmm2,%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movsd  -0x68(%rbp),%xmm0
  movapd %xmm0,%xmm1
  mulsd  %xmm0,%xmm1
  movsd  D130(%rip),%xmm0
  subsd  %xmm1,%xmm0
  mulsd  -0x88(%rbp),%xmm0
  movsd  -0x68(%rbp),%xmm1
  movapd %xmm1,%xmm2
  mulsd  -0x18(%rbp),%xmm2
  movsd  D130(%rip),%xmm1
  addsd  %xmm2,%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  mov    -0x18(%rbp),%rax
  movq   %rax,%xmm0
  call   <acos@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x38(%rbp)
  movsd  -0x28(%rbp),%xmm0
  comisd D62(%rip),%xmm0
  jbe    L29
  movsd  -0x38(%rbp),%xmm0
  movq   D32(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  movsd  %xmm0,-0x38(%rbp)
L29:
  movsd  -0x70(%rbp),%xmm1
  movsd  D62(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  D127(%rip),%xmm1
  divsd  %xmm1,%xmm0
  addsd  -0x38(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <tan@plt>
  movsd  %xmm0,-0xa8(%rbp)
  movsd  -0x80(%rbp),%xmm1
  movsd  D62(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  D127(%rip),%xmm1
  movapd %xmm0,%xmm4
  divsd  %xmm1,%xmm4
  movq   %xmm4,%rax
  movq   %rax,%xmm0
  call   <cos@plt>
  movapd %xmm0,%xmm5
  mulsd  -0xa8(%rbp),%xmm5
  movq   %xmm5,%rax
  movq   %rax,%xmm0
  call   <atan@plt>
  movsd  -0x78(%rbp),%xmm2
  movsd  D62(%rip),%xmm1
  mulsd  %xmm2,%xmm1
  movsd  D127(%rip),%xmm2
  divsd  %xmm2,%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x40(%rbp)
  movsd  -0x70(%rbp),%xmm1
  movsd  D62(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  D127(%rip),%xmm1
  divsd  %xmm1,%xmm0
  addsd  -0x38(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <cos@plt>
  movq   %xmm0,%rax
  movq   %rax,%xmm3
  mulsd  -0x10(%rbp),%xmm3
  movsd  %xmm3,-0xa8(%rbp)
  movsd  -0x40(%rbp),%xmm0
  movsd  -0x78(%rbp),%xmm2
  movsd  D62(%rip),%xmm1
  mulsd  %xmm2,%xmm1
  movsd  D127(%rip),%xmm2
  divsd  %xmm2,%xmm1
  movapd %xmm0,%xmm6
  subsd  %xmm1,%xmm6
  movq   %xmm6,%rax
  movq   %rax,%xmm0
  call   <cos@plt>
  movapd %xmm0,%xmm1
  movsd  -0xa8(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x30(%rbp)
  pxor   %xmm0,%xmm0
  comisd -0x30(%rbp),%xmm0
  jbe    L1
  movsd  -0x40(%rbp),%xmm1
  movsd  D62(%rip),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x40(%rbp)
  movsd  -0x30(%rbp),%xmm0
  movq   D32(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  movsd  %xmm0,-0x30(%rbp)
L1:
  mov    D3(%rip),%rdx
  lea    -0x40(%rbp),%rax
  movq   %rdx,%xmm0
  mov    %rax,%rdi
  mov    $0x1,%eax
  call   <range@plt>
  movsd  -0x40(%rbp),%xmm0
  mov    -0x98(%rbp),%rax
  movsd  %xmm0,(%rax)
  mov    -0xa0(%rbp),%rax
  movsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  nop
  mov    -0x8(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L26
  call   <__stack_chk_fail@plt>
L26:
  leave
  ret
```

tool_calls: name: unpack_data
arguments: data_label: D3
type_guessed: byte[8]
name: unpack_data
arguments: data_label: D130
type_guessed: f64
name: unpack_data
arguments: data_label: D62
type_guessed: f64[2]
name: unpack_data
arguments: data_label: D32
type_guessed: byte[8]
name: unpack_data
arguments: data_label: D127
type_guessed: f64

tool: {"D3": [0x18,0x2d,0x44,0x54,0xfb,0x21,0x19,0x40]}

tool: D130: 1

tool: {"D62": [3.141592653589793,0.0]}

tool: {"D32": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80]}

tool: D127: 180

assistant: ```c
void binaryStarOrbit(double t, double T, double e, double o, double O, double i, double a, double P, double *thetap, double *rhop) {
  double M, E, cosE, nu, cosnu, r, rho, theta;
  M = 2 * 3.141592653589793 / P * (t - T);
  range(&M, 2 * 3.141592653589793);
  E = solveKepler(M, e);
  cosE = cos(E);
  cosnu = (cosE - e) / (1.0 - e * cosE);
  r = a * (1.0 - e * e) / (1.0 + e * cosnu);
  nu = acos(cosnu);
  if (E > 3.141592653589793)
    nu = -nu;
  theta = atan(tan(nu + ((o)*3.141592653589793 / 180.)) * cos(((i)*3.141592653589793 / 180.))) + ((O)*3.141592653589793 / 180.);
  rho = r * cos(nu + ((o)*3.141592653589793 / 180.)) / cos(theta - ((O)*3.141592653589793 / 180.));
  if (rho < 0) {
    theta += 3.141592653589793;
    rho = -rho;
  }
  range(&theta, 2 * 3.141592653589793);
  *thetap = theta;
  *rhop = rho;
}
```