user: 下面的汇编指令对应的C源代码是什么：

```asm
<levnsn>:
  endbr64
  push   %r15
  mov    %rsi,%r9
  push   %r14
  mov    %edi,%r14d
  push   %r13
  mov    %rdx,%r13
  push   %r12
  push   %rbp
  mov    %r8,%rbp
  push   %rbx
  mov    %rcx,%rbx
  sub    $0x28,%rsp
  test   %edi,%edi
  jle    L30
  movslq %edi,%rdi
  lea    0x0(,%rdi,8),%r12
  lea    (%r8,%r12,1),%rsi
  lea    (%rbx,%r12,1),%rax
  cmp    %rsi,%rbx
  lea    (%rdx,%r12,1),%rcx
  setae  %dl
  cmp    %rax,%r8
  setae  %r8b
  or     %r8d,%edx
  cmp    %rax,%r13
  setae  %al
  cmp    %rcx,%rbx
  setae  %r8b
  or     %r8d,%eax
  test   %al,%dl
  je     L117
  cmp    %rsi,%r13
  setae  %al
  cmp    %rcx,%rbp
  setae  %dl
  or     %dl,%al
  je     L117
  mov    %r12,%rdx
  xor    %esi,%esi
  mov    %r13,%rdi
  mov    %r9,0x8(%rsp)
  call   <memset@plt>
  mov    %r12,%rdx
  xor    %esi,%esi
  mov    %rbx,%rdi
  call   <memset@plt>
  mov    %r12,%rdx
  xor    %esi,%esi
  mov    %rbp,%rdi
  call   <memset@plt>
  mov    0x8(%rsp),%r9
L115:
  mov    %r14d,0x8(%rsp)
L166:
  movsd  (%r9),%xmm1
  movq   D29(%rip),%xmm5
  movsd  D1(%rip),%xmm6
  movsd  D22(%rip),%xmm7
  movsd  %xmm1,(%rbx)
  movsd  0x8(%r9),%xmm0
  movapd %xmm6,%xmm3
  xorpd  %xmm5,%xmm0
  divsd  %xmm1,%xmm0
  movapd %xmm0,%xmm2
  mulsd  %xmm0,%xmm2
  subsd  %xmm2,%xmm3
  mulsd  %xmm1,%xmm3
  comisd %xmm3,%xmm7
  movsd  %xmm3,0x8(%rbx)
  movsd  %xmm0,0x8(%r13)
  movsd  %xmm0,0x8(%rbp)
  ja     L88
  cmp    $0x2,%r14d
  jle    L88
  lea    0x18(%r13),%rcx
  movslq %r14d,%rax
  lea    0x10(%r13),%r15
  mov    %r9,%rsi
  mov    %rcx,0x18(%rsp)
  lea    0x8(%r13),%r12
  mov    %r15,%r8
  pxor   %xmm4,%xmm4
  mov    %rax,0x10(%rsp)
  mov    $0x1,%edi
  mov    $0x2,%eax
  cs nopw 0x0(%rax,%rax,1)
L3:
  mov    %rsi,%r13
  add    $0x8,%rsi
  mov    %eax,%r11d
  mov    %eax,%r10d
  mov    %rsi,%rdx
  cmp    $0x2,%rax
  je     L12
  mov    %edi,%ecx
  mov    %r12,%rdx
  movapd %xmm4,%xmm0
  shr    %ecx
  lea    -0x1(%rcx),%r9d
  mov    %r13,%rcx
  shl    $0x4,%r9
  add    0x18(%rsp),%r9
  nopl   (%rax)
L111:
  movupd (%rcx),%xmm1
  movupd (%rdx),%xmm2
  add    $0x10,%rdx
  sub    $0x10,%rcx
  shufpd $0x1,%xmm1,%xmm1
  mulpd  %xmm1,%xmm2
  addsd  %xmm2,%xmm0
  unpckhpd %xmm2,%xmm2
  addsd  %xmm2,%xmm0
  cmp    %r9,%rdx
  jne    L111
  mov    %edi,%r14d
  mov    %rsi,%rdx
  and    $0xfffffffe,%r14d
  mov    %r14d,%r9d
  shl    $0x3,%r9
  lea    (%r12,%r9,1),%rcx
  sub    %r9,%rdx
  cmp    %edi,%r14d
  je     L2
L39:
  movsd  (%rcx),%xmm1
  mulsd  (%rdx),%xmm1
  addsd  %xmm1,%xmm0
L2:
  addsd  0x10(%r13),%xmm0
  sub    0x8(%rsp),%r11d
  sar    %r10d
  mov    %r12,%rdx
  lea    -0x1(%r11),%ecx
  lea    (%r12,%rcx,8),%r9
  lea    -0x1(%r10),%ecx
  xorpd  %xmm5,%xmm0
  lea    (%r15,%rcx,8),%r10
  mov    %r8,%rcx
  divsd  %xmm3,%xmm0
  movsd  %xmm0,0x0(%rbp,%rax,8)
  nopl   (%rax)
L114:
  movsd  -0x8(%rcx),%xmm8
  movapd %xmm0,%xmm2
  movsd  (%rdx),%xmm1
  mulsd  %xmm8,%xmm2
  addsd  %xmm1,%xmm2
  movsd  %xmm2,(%rdx)
  cmp    %r9,%rdx
  je     L122
  mulsd  %xmm0,%xmm1
  add    $0x8,%rdx
  sub    $0x8,%rcx
  addsd  %xmm8,%xmm1
  movsd  %xmm1,(%rcx)
  cmp    %r10,%rdx
  jne    L114
L122:
  movsd  %xmm0,(%r8)
  mulsd  %xmm0,%xmm0
  movapd %xmm6,%xmm1
  subsd  %xmm0,%xmm1
  mulsd  %xmm1,%xmm3
  comisd %xmm3,%xmm4
  movsd  %xmm3,(%rbx,%rax,8)
  jbe    L169
  xorpd  %xmm5,%xmm3
L169:
  comisd %xmm3,%xmm7
  ja     L88
  add    $0x1,%rax
  add    $0x8,%r8
  add    $0x1,%edi
  cmp    0x10(%rsp),%rax
  jne    L3
L88:
  add    $0x28,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax,%rax,1)
L12:
  mov    %r12,%rcx
  movapd %xmm4,%xmm0
  jmp    L39
L30:
  movl   $0x0,0x8(%rsp)
  jmp    L166
L117:
  xor    %eax,%eax
  nopl   0x0(%rax,%rax,1)
L98:
  movq   $0x0,0x0(%r13,%rax,8)
  movq   $0x0,(%rbx,%rax,8)
  movq   $0x0,0x0(%rbp,%rax,8)
  add    $0x1,%rax
  cmp    %rax,%rdi
  jne    L98
  jmp    L115
```

tool_calls: name: disassemble_data
arguments: data_tag: D29
data_type: f32[2]
name: disassemble_data
arguments: data_tag: D1
data_type: f64
name: disassemble_data
arguments: data_tag: D22
data_type: byte[8]

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

tool: D1: 1

tool: {"D22": [0x7b,0x14,0xae,0x47,0xe1,0x7a,0x84,0x3f]}

assistant: ```c
int levnsn(n, r, a, e, refl)
int n;
double r[], a[], e[], refl[];
{
  int k, km1, i, kmi, j;
  double ai, akk, err, err1, r0, t, akmi;
  double *pa, *pr;
  for (i = 0; i < n; i++) {
    a[i] = 0.0;
    e[i] = 0.0;
    refl[i] = 0.0;
  }
  r0 = r[0];
  e[0] = r0;
  err = r0;
  akk = -r[1] / err;
  err = (1.0 - akk * akk) * err;
  e[1] = err;
  a[1] = akk;
  refl[1] = akk;
  if (err < 1.0e-2)
    return 0;
  for (k = 2; k < n; k++) {
    t = 0.0;
    pa = &a[1];
    pr = &r[k - 1];
    for (j = 1; j < k; j++)
      t += *pa++ * *pr--;
    akk = -(r[k] + t) / err;
    refl[k] = akk;
    km1 = k / 2;
    for (j = 1; j <= km1; j++) {
      kmi = k - j;
      ai = a[j];
      akmi = a[kmi];
      a[j] = ai + akk * akmi;
      if (i == kmi)
        goto nxtk;
      a[kmi] = akmi + akk * ai;
    }
  nxtk:
    a[k] = akk;
    err1 = (1.0 - akk * akk) * err;
    e[k] = err1;
    if (err1 < 0)
      err1 = -err1;
    if (err1 < 1.0e-2)
      return 0;
    err = err1;
  }
  return 0;
}
```