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

```asm
<kff_synthese_einzelpunkt_s>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x70,%rsp
  movsd  %xmm0,-0x28(%rbp)
  mov    %edi,%eax
  mov    %rsi,-0x38(%rbp)
  mov    %edx,-0x30(%rbp)
  mov    %ecx,-0x3c(%rbp)
  mov    %r8,-0x48(%rbp)
  mov    %r9,-0x50(%rbp)
  mov    %al,-0x2c(%rbp)
  mov    0x10(%rbp),%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x30(%rbp),%eax
  mov    $0x0,%edx
  test   %eax,%eax
  cmovs  %edx,%eax
  mov    %eax,-0x30(%rbp)
  cmpb   $0x41,-0x2c(%rbp)
  jne    L8
  movsd  -0x28(%rbp),%xmm1
  movsd  D12(%rip),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x28(%rbp)
L8:
  mov    -0x30(%rbp),%eax
  and    $0x1,%eax
  test   %eax,%eax
  jne    L9
  movl   $0xffffffff,-0xc(%rbp)
  jmp    L70
L9:
  movl   $0x1,-0xc(%rbp)
L70:
  mov    -0x30(%rbp),%eax
  mov    %eax,-0x18(%rbp)
  jmp    L53
L90:
  negl   -0xc(%rbp)
  mov    -0xc(%rbp),%eax
  mov    %eax,-0x10(%rbp)
  cmpl   $0xffffffff,-0x10(%rbp)
  jne    L48
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movsd  (%rax),%xmm0
  movq   D9(%rip),%xmm1
  xorpd  %xmm0,%xmm1
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movsd  (%rax),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  jmp    L78
L48:
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movsd  (%rax),%xmm1
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movsd  (%rax),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
L78:
  movl   $0x1,-0x14(%rbp)
  jmp    L29
L17:
  negl   -0x10(%rbp)
  cmpl   $0xffffffff,-0x10(%rbp)
  jne    L76
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x14(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm2
  movsd  %xmm2,-0x58(%rbp)
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x14(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm5
  movsd  %xmm5,-0x60(%rbp)
  pxor   %xmm0,%xmm0
  cvtsi2sdl -0x14(%rbp),%xmm0
  mulsd  -0x28(%rbp),%xmm0
  cvttsd2si %xmm0,%eax
  mov    %eax,%edi
  call   <cos@plt>
  mulsd  -0x60(%rbp),%xmm0
  movsd  %xmm0,-0x60(%rbp)
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x14(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm6
  movsd  %xmm6,-0x68(%rbp)
  pxor   %xmm0,%xmm0
  cvtsi2sdl -0x14(%rbp),%xmm0
  mulsd  -0x28(%rbp),%xmm0
  cvttsd2si %xmm0,%eax
  mov    %eax,%edi
  call   <sin@plt>
  mulsd  -0x68(%rbp),%xmm0
  addsd  -0x60(%rbp),%xmm0
  movsd  -0x58(%rbp),%xmm1
  mulsd  %xmm0,%xmm1
  movsd  -0x8(%rbp),%xmm0
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  jmp    L96
L76:
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x38(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x14(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm7
  movsd  %xmm7,-0x58(%rbp)
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x14(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm2
  movsd  %xmm2,-0x60(%rbp)
  pxor   %xmm0,%xmm0
  cvtsi2sdl -0x14(%rbp),%xmm0
  mulsd  -0x28(%rbp),%xmm0
  cvttsd2si %xmm0,%eax
  mov    %eax,%edi
  call   <cos@plt>
  mulsd  -0x60(%rbp),%xmm0
  movsd  %xmm0,-0x60(%rbp)
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x14(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm3
  movsd  %xmm3,-0x68(%rbp)
  pxor   %xmm0,%xmm0
  cvtsi2sdl -0x14(%rbp),%xmm0
  mulsd  -0x28(%rbp),%xmm0
  cvttsd2si %xmm0,%eax
  mov    %eax,%edi
  call   <sin@plt>
  mulsd  -0x68(%rbp),%xmm0
  addsd  -0x60(%rbp),%xmm0
  mulsd  -0x58(%rbp),%xmm0
  movsd  -0x8(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
L96:
  addl   $0x1,-0x14(%rbp)
L29:
  mov    -0x14(%rbp),%eax
  cmp    -0x18(%rbp),%eax
  jle    L17
  mov    0x10(%rbp),%rax
  movsd  (%rax),%xmm0
  addsd  -0x8(%rbp),%xmm0
  mov    0x10(%rbp),%rax
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x18(%rbp)
L53:
  mov    -0x18(%rbp),%eax
  cmp    -0x3c(%rbp),%eax
  jle    L90
  mov    $0x0,%eax
  leave
  ret
```

tool_calls: name: retrieve_data
arguments: data_tag: D12
type: byte[8]
name: retrieve_data
arguments: data_tag: D9
type: f32[2]

tool: {"D12": [0x39,0x9d,0x52,0xa2,0x46,0xdf,0x91,0x3f]}

tool: {"D9": [0.0,-0.0]}

assistant: ```c
int kff_synthese_einzelpunkt_s(double lambda, char winkelmass, double **leg_func, int mindeg, int maxdeg, double **c_lm, double **s_lm, double *f) {
  double fzw;
  int l;
  int m;
  int sig_alt;
  int sig_alt_st;
  *f = 0.;
  mindeg = (mindeg < 0) ? 0 : mindeg;
  if (winkelmass == 'A')
    lambda *= (3.141592653589793 / 180.0);
  if (mindeg % 2 == 0)
    sig_alt_st = -1;
  else
    sig_alt_st = 1;
  for (l = mindeg; l <= maxdeg; l++) {
    sig_alt_st = -sig_alt_st;
    sig_alt = sig_alt_st;
    if (sig_alt == -1) {
      fzw = -leg_func[l][0] * c_lm[l][0];
    } else {
      fzw = leg_func[l][0] * c_lm[l][0];
    }
    for (m = 1; m <= l; m++) {
      sig_alt = -sig_alt;
      if (sig_alt == -1) {
        fzw -= (leg_func[l][m] * (c_lm[l][m] * cos(m * lambda) + s_lm[l][m] * sin(m * lambda)));
      } else {
        fzw += (leg_func[l][m] * (c_lm[l][m] * cos(m * lambda) + s_lm[l][m] * sin(m * lambda)));
      }
    }
    *f += fzw;
  }
  return 0;
}
```