user: 请将以下的汇编代码转换成C语言代码：

```asm
<Moon>:
  endbr64
  push   %r15
  movapd %xmm0,%xmm6
  movapd %xmm1,%xmm7
  push   %r14
  mulsd  %xmm2,%xmm7
  mov    %rdi,%r14
  push   %r13
  push   %r12
  mov    %rsi,%r12
  push   %rbp
  mov    %r9,%rbp
  push   %rbx
  mov    %r8,%rbx
  sub    $0x78,%rsp
  movsd  D131(%rip),%xmm0
  movsd  %xmm5,0x58(%rsp)
  lea    0x68(%rsp),%r15
  lea    0x60(%rsp),%r13
  movsd  D310(%rip),%xmm5
  mulsd  %xmm1,%xmm0
  movsd  %xmm3,0x10(%rsp)
  movapd %xmm7,%xmm3
  divsd  D237(%rip),%xmm3
  mulsd  %xmm2,%xmm5
  addsd  D254(%rip),%xmm0
  mov    %rcx,0x50(%rsp)
  movsd  %xmm4,0x18(%rsp)
  movsd  %xmm1,0x38(%rsp)
  movsd  %xmm2,0x30(%rsp)
  movsd  %xmm7,0x20(%rsp)
  subsd  %xmm5,%xmm0
  movapd %xmm7,%xmm5
  divsd  D20(%rip),%xmm5
  movsd  %xmm6,0x8(%rsp)
  subsd  %xmm5,%xmm0
  movsd  D208(%rip),%xmm5
  mulsd  %xmm1,%xmm5
  mulsd  %xmm6,%xmm0
  movsd  %xmm0,(%rdi)
  movsd  D158(%rip),%xmm0
  mov    %r15,%rdi
  mulsd  %xmm1,%xmm0
  addsd  D166(%rip),%xmm0
  mulsd  %xmm6,%xmm0
  movsd  %xmm0,(%rsi)
  movsd  D257(%rip),%xmm0
  mov    %r13,%rsi
  subsd  %xmm5,%xmm0
  movsd  D201(%rip),%xmm5
  mulsd  %xmm2,%xmm5
  addsd  %xmm5,%xmm0
  movapd %xmm2,%xmm5
  mulsd  D99(%rip),%xmm5
  addsd  %xmm3,%xmm0
  movapd %xmm7,%xmm3
  divsd  D322(%rip),%xmm3
  mulsd  %xmm6,%xmm0
  movsd  %xmm0,(%rdx)
  movapd %xmm1,%xmm0
  mulsd  D77(%rip),%xmm0
  addsd  D221(%rip),%xmm0
  addsd  %xmm5,%xmm0
  addsd  %xmm3,%xmm0
  mulsd  %xmm6,%xmm0
  movsd  %xmm0,(%rsp)
  call   <sincos@plt>
  movsd  0x38(%rsp),%xmm1
  mov    %r13,%rsi
  movsd  0x30(%rsp),%xmm2
  movsd  0x20(%rsp),%xmm7
  mulsd  D290(%rip),%xmm1
  divsd  D5(%rip),%xmm7
  mov    %r15,%rdi
  mulsd  D70(%rip),%xmm2
  movsd  D141(%rip),%xmm0
  movsd  0x8(%rsp),%xmm6
  movsd  0x68(%rsp),%xmm3
  movsd  0x60(%rsp),%xmm4
  movsd  %xmm3,0x48(%rsp)
  addsd  %xmm1,%xmm0
  movsd  %xmm4,0x28(%rsp)
  movsd  %xmm6,0x40(%rsp)
  subsd  %xmm2,%xmm0
  addsd  %xmm7,%xmm0
  addsd  %xmm0,%xmm0
  movapd %xmm0,%xmm1
  mulsd  %xmm6,%xmm1
  movapd %xmm1,%xmm0
  movsd  %xmm1,0x20(%rsp)
  call   <sincos@plt>
  movsd  0x20(%rsp),%xmm1
  mov    %r13,%rsi
  mov    %r15,%rdi
  movsd  0x60(%rsp),%xmm2
  movsd  0x68(%rsp),%xmm7
  movapd %xmm1,%xmm6
  subsd  (%rsp),%xmm6
  movsd  %xmm1,0x30(%rsp)
  movsd  %xmm2,0x8(%rsp)
  movsd  %xmm7,0x38(%rsp)
  movapd %xmm6,%xmm0
  call   <sincos@plt>
  movsd  0x28(%rsp),%xmm4
  movsd  D151(%rip),%xmm0
  mulsd  D285(%rip),%xmm4
  movsd  0x8(%rsp),%xmm2
  mulsd  0x60(%rsp),%xmm0
  mulsd  D82(%rip),%xmm2
  subsd  %xmm0,%xmm4
  subsd  %xmm2,%xmm4
  addsd  D209(%rip),%xmm4
  movsd  %xmm4,0x0(%rbp)
  movsd  (%r14),%xmm7
  movapd %xmm7,%xmm0
  movsd  %xmm7,0x8(%rsp)
  call   <sin@plt>
  movsd  0x8(%rsp),%xmm7
  addsd  (%rsp),%xmm7
  movsd  %xmm0,0x28(%rsp)
  movapd %xmm7,%xmm0
  call   <sin@plt>
  movsd  %xmm0,0x20(%rsp)
  movsd  (%rsp),%xmm0
  subsd  0x8(%rsp),%xmm0
  call   <sin@plt>
  movsd  0x30(%rsp),%xmm1
  subsd  0x8(%rsp),%xmm1
  movq   %xmm0,%r15
  movapd %xmm1,%xmm0
  call   <sin@plt>
  movsd  0x28(%rsp),%xmm2
  movsd  0x20(%rsp),%xmm4
  movq   %r15,%xmm6
  mulsd  D179(%rip),%xmm2
  movapd %xmm0,%xmm8
  movsd  (%rsp),%xmm0
  mulsd  D255(%rip),%xmm4
  mulsd  D163(%rip),%xmm6
  addsd  %xmm0,%xmm0
  mulsd  D169(%rip),%xmm8
  movapd %xmm2,%xmm1
  addsd  %xmm4,%xmm1
  addsd  %xmm6,%xmm1
  addsd  %xmm8,%xmm1
  movsd  %xmm1,(%rbx)
  call   <sin@plt>
  movsd  0x58(%rsp),%xmm5
  movsd  %xmm0,(%rsp)
  movapd %xmm5,%xmm0
  call   <sin@plt>
  movq   %xmm0,%r15
  movsd  (%r14),%xmm0
  addsd  %xmm0,%xmm0
  call   <sin@plt>
  movsd  0x48(%rsp),%xmm3
  movsd  D60(%rip),%xmm1
  movapd %xmm0,%xmm4
  movsd  D248(%rip),%xmm0
  movsd  0x38(%rsp),%xmm7
  mulsd  %xmm3,%xmm1
  movsd  (%rsp),%xmm2
  movsd  0x40(%rsp),%xmm6
  mulsd  0x68(%rsp),%xmm0
  mov    0x50(%rsp),%rax
  mulsd  D193(%rip),%xmm7
  movsd  %xmm6,(%rsp)
  mulsd  D168(%rip),%xmm2
  addsd  %xmm0,%xmm1
  movq   %r15,%xmm0
  mulsd  D197(%rip),%xmm0
  addsd  %xmm7,%xmm1
  addsd  %xmm2,%xmm1
  subsd  %xmm0,%xmm1
  movsd  D52(%rip),%xmm0
  mulsd  %xmm4,%xmm0
  subsd  %xmm0,%xmm1
  mulsd  %xmm6,%xmm1
  addsd  (%r12),%xmm1
  movsd  %xmm1,(%rax)
  movsd  (%rbx),%xmm0
  movsd  0x0(%rbp),%xmm2
  divsd  0x18(%rsp),%xmm2
  movsd  %xmm1,0x20(%rsp)
  movsd  %xmm2,0x8(%rsp)
  call   <cos@plt>
  movsd  (%rsp),%xmm6
  movsd  0x20(%rsp),%xmm1
  movq   %xmm0,%rbp
  movsd  0x10(%rsp),%xmm0
  mulsd  %xmm6,%xmm0
  subsd  %xmm1,%xmm0
  call   <sin@plt>
  movsd  0x8(%rsp),%xmm2
  movq   %rbp,%xmm4
  movsd  (%rsp),%xmm6
  movapd %xmm0,%xmm1
  mov    0xb0(%rsp),%rax
  mulsd  %xmm2,%xmm4
  movapd %xmm4,%xmm0
  mulsd  %xmm1,%xmm0
  movsd  0x10(%rsp),%xmm1
  addsd  D327(%rip),%xmm1
  divsd  %xmm6,%xmm0
  addsd  %xmm1,%xmm0
  mulsd  %xmm6,%xmm0
  movsd  %xmm0,(%rax)
  mulsd  (%rbx),%xmm2
  mov    0xb8(%rsp),%rax
  mulsd  %xmm6,%xmm2
  movsd  %xmm2,(%rax)
  add    $0x78,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

tool_calls: name: unpack_data
arguments: tag: D131
data_type: byte[8]
name: unpack_data
arguments: tag: D310
data_type: byte[8]
name: unpack_data
arguments: tag: D237
data_type: byte[8]
name: unpack_data
arguments: tag: D254
data_type: f64
name: unpack_data
arguments: tag: D20
data_type: byte[8]
name: unpack_data
arguments: tag: D208
data_type: f64
name: unpack_data
arguments: tag: D158
data_type: f64
name: unpack_data
arguments: tag: D166
data_type: f64
name: unpack_data
arguments: tag: D257
data_type: f64
name: unpack_data
arguments: tag: D201
data_type: byte[8]
name: unpack_data
arguments: tag: D99
data_type: byte[8]
name: unpack_data
arguments: tag: D322
data_type: byte[8]
name: unpack_data
arguments: tag: D77
data_type: byte[8]
name: unpack_data
arguments: tag: D221
data_type: f64
name: unpack_data
arguments: tag: D290
data_type: byte[8]
name: unpack_data
arguments: tag: D5
data_type: byte[8]
name: unpack_data
arguments: tag: D70
data_type: byte[8]
name: unpack_data
arguments: tag: D141
data_type: f64
name: unpack_data
arguments: tag: D151
data_type: byte[8]
name: unpack_data
arguments: tag: D285
data_type: byte[8]
name: unpack_data
arguments: tag: D82
data_type: byte[8]
name: unpack_data
arguments: tag: D209
data_type: byte[8]
name: unpack_data
arguments: tag: D179
data_type: f64
name: unpack_data
arguments: tag: D255
data_type: byte[8]
name: unpack_data
arguments: tag: D163
data_type: byte[8]
name: unpack_data
arguments: tag: D169
data_type: byte[8]
name: unpack_data
arguments: tag: D60
data_type: f64
name: unpack_data
arguments: tag: D248
data_type: f64
name: unpack_data
arguments: tag: D193
data_type: byte[8]
name: unpack_data
arguments: tag: D168
data_type: byte[8]
name: unpack_data
arguments: tag: D197
data_type: byte[8]
name: unpack_data
arguments: tag: D52
data_type: byte[8]
name: unpack_data
arguments: tag: D327
data_type: byte[8]

tool: {"D131": [0x00,0x00,0x00,0x00,0x08,0x7e,0x1d,0x41]}

tool: {"D310": [0x99,0x4b,0xaa,0xb6,0x9b,0xe0,0x6b,0x3f]}

tool: {"D237": [0x00,0x00,0x00,0x00,0x40,0x77,0x1b,0x41]}

tool: D254: 93.2721

tool: {"D20": [0x00,0x00,0x00,0x00,0xb8,0xe6,0x4a,0x41]}

tool: D208: 1934.14

tool: D158: 481268

tool: D166: 218.316

tool: D257: 125.045

tool: {"D201": [0x98,0xf8,0xa3,0xa8,0x33,0xf7,0x60,0x3f]}

tool: {"D99": [0x2d,0xce,0x18,0xe6,0x04,0x6d,0x82,0x3f]}

tool: {"D322": [0x00,0x00,0x00,0x00,0x40,0x04,0xf1,0x40]}

tool: {"D77": [0x00,0x00,0x00,0x00,0x3c,0x20,0x1d,0x41]}

tool: D221: 134.963

tool: {"D290": [0x00,0x00,0x00,0x00,0x4c,0x2d,0x1b,0x41]}

tool: {"D5": [0x00,0x00,0x00,0x00,0xd8,0xa8,0x20,0x41]}

tool: {"D70": [0xa2,0x97,0x51,0x2c,0xb7,0xb4,0x5a,0x3f]}

tool: D141: 297.85

tool: {"D151": [0x00,0x00,0x00,0x00,0x00,0xe6,0xac,0x40]}

tool: {"D285": [0x00,0x00,0x00,0x00,0x80,0x76,0xd4,0xc0]}

tool: {"D82": [0x00,0x00,0x00,0x00,0x00,0x18,0xa7,0x40]}

tool: {"D209": [0x00,0x00,0x00,0x00,0xa0,0x7f,0x17,0x41]}

tool: D179: 5.128

tool: {"D255": [0x85,0x7c,0xd0,0xb3,0x59,0xf5,0xd1,0x3f]}

tool: {"D163": [0x4b,0x59,0x86,0x38,0xd6,0xc5,0xd1,0x3f]}

tool: {"D169": [0xcf,0x66,0xd5,0xe7,0x6a,0x2b,0xc6,0x3f]}

tool: D60: 6.289

tool: D248: 1.274

tool: {"D193": [0x1b,0x9e,0x5e,0x29,0xcb,0x10,0xe5,0x3f]}

tool: {"D168": [0x10,0x7a,0x36,0xab,0x3e,0x57,0xcb,0x3f]}

tool: {"D197": [0x36,0xab,0x3e,0x57,0x5b,0xb1,0xc7,0x3f]}

tool: {"D52": [0xfb,0xcb,0xee,0xc9,0xc3,0x42,0xbd,0x3f]}

tool: {"D327": [0x00,0x00,0x00,0x00,0x00,0x80,0x66,0x40]}

assistant: ```c
void Moon(double RAD, double T, double T2, double LAM0, double R, double M, double *F, double *L1, double *OM, double *LAM, double *B, double *DR, double *LAMH, double *BH) {
  double T3, M1, D2, SUMR, SUML, DIST;
  T3 = T * T2;
  *F = (93.2721 + 483202 * T - .003403 * T2 - T3 / 3526000) * RAD;
  *L1 = (218.316 + 481268. * T) * RAD;
  *OM = (125.045 - 1934.14 * T + .002071 * T2 + T3 / 450000) * RAD;
  M1 = (134.963 + 477199 * T + .008997 * T2 + T3 / 69700) * RAD;
  D2 = (297.85 + 445267 * T - .00163 * T2 + T3 / 545900) * 2 * RAD;
  SUMR = -20954 * cos(M1) - 3699 * cos(D2 - M1) - 2956 * cos(D2);
  *DR = 385000 + SUMR;
  *B = 5.128 * sin(*F) + .2806 * sin(M1 + *F) + .2777 * sin(M1 - *F) + .1732 * sin(D2 - *F);
  SUML = 6.289 * sin(M1) + 1.274 * sin(D2 - M1) + .6583 * sin(D2) + .2136 * sin(2 * M1) - .1851 * sin(M) - .1143 * sin(2 * *F);
  *LAM = *L1 + SUML * RAD;
  DIST = *DR / R;
  *LAMH = (LAM0 + 180 + DIST * cos(*B) * sin(LAM0 * RAD - *LAM) / RAD) * RAD;
  *BH = DIST * *B * RAD;
}
```