user: 请从给定的汇编指令推导出C源代码:

```asm
<cffti1>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %rbx
  sub    $0x98,%rsp
  mov    %edi,-0x84(%rbp)
  mov    %rsi,-0x90(%rbp)
  mov    %rdx,-0x98(%rbp)
  mov    -0x84(%rbp),%eax
  mov    %eax,-0x58(%rbp)
  movl   $0x0,-0x5c(%rbp)
  movl   $0x0,-0x70(%rbp)
L10:
  addl   $0x1,-0x70(%rbp)
  cmpl   $0x4,-0x70(%rbp)
  jg     L55
  mov    -0x70(%rbp),%eax
  sub    $0x1,%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  lea    D4(%rip),%rax
  mov    (%rdx,%rax,1),%eax
  mov    %eax,-0x78(%rbp)
  jmp    L159
L55:
  addl   $0x2,-0x78(%rbp)
L159:
  mov    -0x58(%rbp),%eax
  cltd
  idivl  -0x78(%rbp)
  mov    %eax,-0x54(%rbp)
  mov    -0x78(%rbp),%eax
  imul   -0x54(%rbp),%eax
  mov    %eax,%edx
  mov    -0x58(%rbp),%eax
  sub    %edx,%eax
  mov    %eax,-0x50(%rbp)
  cmpl   $0x0,-0x50(%rbp)
  je     L31
  jmp    L10
L31:
  addl   $0x1,-0x5c(%rbp)
  mov    -0x5c(%rbp),%eax
  cltq
  add    $0x1,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x98(%rbp),%rax
  add    %rax,%rdx
  mov    -0x78(%rbp),%eax
  mov    %eax,(%rdx)
  mov    -0x54(%rbp),%eax
  mov    %eax,-0x58(%rbp)
  cmpl   $0x2,-0x78(%rbp)
  jne    L87
  cmpl   $0x1,-0x5c(%rbp)
  je     L87
  movl   $0x2,-0x74(%rbp)
  jmp    L119
L128:
  mov    -0x5c(%rbp),%eax
  sub    -0x74(%rbp),%eax
  add    $0x2,%eax
  mov    %eax,-0x4c(%rbp)
  mov    -0x4c(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  mov    -0x4c(%rbp),%edx
  movslq %edx,%rdx
  add    $0x1,%rdx
  lea    0x0(,%rdx,4),%rcx
  mov    -0x98(%rbp),%rdx
  add    %rcx,%rdx
  mov    (%rax),%eax
  mov    %eax,(%rdx)
  addl   $0x1,-0x74(%rbp)
L119:
  mov    -0x74(%rbp),%eax
  cmp    -0x5c(%rbp),%eax
  jle    L128
  mov    -0x98(%rbp),%rax
  add    $0x8,%rax
  movl   $0x2,(%rax)
L87:
  cmpl   $0x1,-0x58(%rbp)
  jne    L159
  mov    -0x98(%rbp),%rax
  mov    -0x84(%rbp),%edx
  mov    %edx,(%rax)
  mov    -0x98(%rbp),%rax
  lea    0x4(%rax),%rdx
  mov    -0x5c(%rbp),%eax
  mov    %eax,(%rdx)
  movsd  D22(%rip),%xmm0
  pxor   %xmm1,%xmm1
  cvtsi2sdl -0x84(%rbp),%xmm1
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movl   $0x1,-0x74(%rbp)
  movl   $0x1,-0x68(%rbp)
  movl   $0x1,-0x6c(%rbp)
  jmp    L60
L154:
  mov    -0x6c(%rbp),%eax
  cltq
  add    $0x1,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%eax
  mov    %eax,-0x48(%rbp)
  movl   $0x0,-0x64(%rbp)
  mov    -0x68(%rbp),%eax
  imul   -0x48(%rbp),%eax
  mov    %eax,-0x44(%rbp)
  mov    -0x84(%rbp),%eax
  cltd
  idivl  -0x44(%rbp)
  mov    %eax,-0x40(%rbp)
  mov    -0x40(%rbp),%eax
  add    $0x1,%eax
  add    %eax,%eax
  mov    %eax,-0x3c(%rbp)
  mov    -0x48(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0x38(%rbp)
  movl   $0x1,-0x70(%rbp)
  jmp    L67
L118:
  mov    -0x74(%rbp),%eax
  mov    %eax,-0x34(%rbp)
  mov    -0x74(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  movsd  D10(%rip),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x74(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rdx,%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x68(%rbp),%eax
  add    %eax,-0x64(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x30(%rbp)
  pxor   %xmm0,%xmm0
  cvtsi2sdl -0x64(%rbp),%xmm0
  movsd  -0x28(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movl   $0x4,-0x60(%rbp)
  jmp    L98
L0:
  addl   $0x2,-0x74(%rbp)
  movsd  -0x30(%rbp),%xmm1
  movsd  D10(%rip),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  -0x30(%rbp),%xmm0
  mulsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x18(%rbp)
  mov    -0x74(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x90(%rbp),%rax
  lea    (%rdx,%rax,1),%rbx
  mov    -0x18(%rbp),%rax
  movq   %rax,%xmm0
  call   <cos@plt>
  movq   %xmm0,%rax
  mov    %rax,(%rbx)
  mov    -0x74(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  lea    (%rdx,%rax,1),%rbx
  mov    -0x18(%rbp),%rax
  movq   %rax,%xmm0
  call   <sin@plt>
  movq   %xmm0,%rax
  mov    %rax,(%rbx)
  addl   $0x2,-0x60(%rbp)
L98:
  mov    -0x60(%rbp),%eax
  cmp    -0x3c(%rbp),%eax
  jle    L0
  cmpl   $0x5,-0x48(%rbp)
  jle    L135
  mov    -0x74(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x90(%rbp),%rax
  add    %rax,%rdx
  mov    -0x34(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rcx
  mov    -0x90(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rdx),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x74(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x90(%rbp),%rax
  add    %rax,%rdx
  mov    -0x34(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x90(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rdx),%xmm0
  movsd  %xmm0,(%rax)
L135:
  addl   $0x1,-0x70(%rbp)
L67:
  mov    -0x70(%rbp),%eax
  cmp    -0x38(%rbp),%eax
  jle    L118
  mov    -0x44(%rbp),%eax
  mov    %eax,-0x68(%rbp)
  addl   $0x1,-0x6c(%rbp)
L60:
  mov    -0x6c(%rbp),%eax
  cmp    -0x5c(%rbp),%eax
  jle    L154
  nop
  nop
  mov    -0x8(%rbp),%rbx
  leave
  ret
```

tool_calls: name: parse_data
arguments: data_tag: D4
datatype: string
name: parse_data
arguments: data_tag: D22
datatype: f64
name: parse_data
arguments: data_tag: D10
datatype: byte[8]

tool: D4: 

tool: D22: 6.28318530717959

tool: {"D10": [0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x3f]}

assistant: ```c
void cffti1(int n, double wa[], int ifac[]) {
  static const int ntryh[4] = {3, 4, 2, 5};
  static const double twopi = 6.28318530717959;
  double argh;
  int idot, ntry, i, j;
  double argld;
  int i1, k1, l1, l2, ib;
  double fi;
  int ld, ii, nf, ip, nl, nq, nr;
  double arg;
  int ido, ipm;
  nl = n;
  nf = 0;
  j = 0;
startloop:
  j++;
  if (j <= 4)
    ntry = ntryh[j - 1];
  else
    ntry += 2;
  do {
    nq = nl / ntry;
    nr = nl - ntry * nq;
    if (nr != 0)
      goto startloop;
    nf++;
    ifac[nf + 1] = ntry;
    nl = nq;
    if (ntry == 2 && nf != 1) {
      for (i = 2; i <= nf; i++) {
        ib = nf - i + 2;
        ifac[ib + 1] = ifac[ib];
      }
      ifac[2] = 2;
    }
  } while (nl != 1);
  ifac[0] = n;
  ifac[1] = nf;
  argh = twopi / (double)n;
  i = 1;
  l1 = 1;
  for (k1 = 1; k1 <= nf; k1++) {
    ip = ifac[k1 + 1];
    ld = 0;
    l2 = l1 * ip;
    ido = n / l2;
    idot = ido + ido + 2;
    ipm = ip - 1;
    for (j = 1; j <= ipm; j++) {
      i1 = i;
      wa[i - 1] = 1;
      wa[i] = 0;
      ld += l1;
      fi = 0;
      argld = ld * argh;
      for (ii = 4; ii <= idot; ii += 2) {
        i += 2;
        fi += 1;
        arg = fi * argld;
        wa[i - 1] = cos(arg);
        wa[i] = sin(arg);
      }
      if (ip > 5) {
        wa[i1 - 1] = wa[i - 1];
        wa[i1] = wa[i];
      }
    }
    l1 = l2;
  }
}
```