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

```asm
<qroot>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x90,%rsp
  mov    %rdi,-0x68(%rbp)
  mov    %esi,-0x6c(%rbp)
  mov    %rdx,-0x78(%rbp)
  mov    %rcx,-0x80(%rbp)
  movss  %xmm0,-0x70(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  mov    -0x6c(%rbp),%eax
  mov    %eax,%esi
  mov    $0x0,%edi
  call   <vector@plt>
  mov    %rax,-0x30(%rbp)
  mov    -0x6c(%rbp),%eax
  mov    %eax,%esi
  mov    $0x0,%edi
  call   <vector@plt>
  mov    %rax,-0x28(%rbp)
  mov    -0x6c(%rbp),%eax
  mov    %eax,%esi
  mov    $0x0,%edi
  call   <vector@plt>
  mov    %rax,-0x20(%rbp)
  movss  D42(%rip),%xmm0
  movss  %xmm0,-0xc(%rbp)
  movl   $0x1,-0x58(%rbp)
  jmp    L35
L31:
  mov    -0x78(%rbp),%rax
  movss  (%rax),%xmm0
  movss  %xmm0,-0x10(%rbp)
  mov    -0x80(%rbp),%rax
  movss  (%rax),%xmm0
  movss  %xmm0,-0x14(%rbp)
  mov    -0x20(%rbp),%rdi
  mov    -0x30(%rbp),%rcx
  lea    -0x14(%rbp),%rdx
  mov    -0x6c(%rbp),%esi
  mov    -0x68(%rbp),%rax
  mov    %rdi,%r9
  mov    %rcx,%r8
  mov    $0x2,%ecx
  mov    %rax,%rdi
  call   <poldiv@plt>
  mov    -0x20(%rbp),%rax
  movss  (%rax),%xmm0
  movss  %xmm0,-0x54(%rbp)
  mov    -0x20(%rbp),%rax
  movss  0x4(%rax),%xmm0
  movss  %xmm0,-0x50(%rbp)
  mov    -0x6c(%rbp),%eax
  lea    -0x1(%rax),%esi
  mov    -0x20(%rbp),%rdi
  mov    -0x28(%rbp),%rcx
  lea    -0x14(%rbp),%rdx
  mov    -0x30(%rbp),%rax
  mov    %rdi,%r9
  mov    %rcx,%r8
  mov    $0x2,%ecx
  mov    %rax,%rdi
  call   <poldiv@plt>
  mov    -0x80(%rbp),%rax
  movss  (%rax),%xmm0
  movss  D9(%rip),%xmm1
  xorps  %xmm0,%xmm1
  mov    -0x20(%rbp),%rax
  add    $0x4,%rax
  movss  (%rax),%xmm0
  movss  D9(%rip),%xmm2
  xorps  %xmm2,%xmm0
  movss  %xmm0,-0x4c(%rbp)
  movss  -0x4c(%rbp),%xmm0
  mulss  %xmm1,%xmm0
  movss  %xmm0,-0x48(%rbp)
  mov    -0x78(%rbp),%rax
  movss  (%rax),%xmm0
  movss  D9(%rip),%xmm1
  xorps  %xmm1,%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x4c(%rbp),%xmm1
  mov    -0x20(%rbp),%rax
  movss  (%rax),%xmm0
  movss  D9(%rip),%xmm2
  xorps  %xmm2,%xmm0
  movss  %xmm0,-0x44(%rbp)
  movss  -0x44(%rbp),%xmm0
  addss  %xmm1,%xmm0
  movss  %xmm0,-0x40(%rbp)
  movss  -0x48(%rbp),%xmm0
  mulss  -0x4c(%rbp),%xmm0
  movss  -0x44(%rbp),%xmm1
  movaps %xmm1,%xmm2
  mulss  -0x40(%rbp),%xmm2
  movaps %xmm0,%xmm1
  subss  %xmm2,%xmm1
  movss  D42(%rip),%xmm0
  divss  %xmm1,%xmm0
  movss  %xmm0,-0x3c(%rbp)
  movss  -0x50(%rbp),%xmm0
  mulss  -0x44(%rbp),%xmm0
  movss  -0x54(%rbp),%xmm1
  mulss  -0x4c(%rbp),%xmm1
  subss  %xmm1,%xmm0
  movss  -0x3c(%rbp),%xmm1
  mulss  %xmm1,%xmm0
  movss  %xmm0,-0x38(%rbp)
  movss  -0x50(%rbp),%xmm0
  movss  D9(%rip),%xmm1
  xorps  %xmm1,%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x48(%rbp),%xmm1
  movss  -0x54(%rbp),%xmm0
  mulss  -0x40(%rbp),%xmm0
  addss  %xmm1,%xmm0
  movss  -0x3c(%rbp),%xmm1
  mulss  %xmm1,%xmm0
  movss  %xmm0,-0x34(%rbp)
  movss  -0x50(%rbp),%xmm0
  mulss  -0x44(%rbp),%xmm0
  movss  -0x54(%rbp),%xmm1
  mulss  -0x4c(%rbp),%xmm1
  subss  %xmm1,%xmm0
  movss  -0x3c(%rbp),%xmm1
  mulss  %xmm1,%xmm0
  movss  %xmm0,-0x38(%rbp)
  movss  -0x38(%rbp),%xmm1
  mov    -0x78(%rbp),%rax
  movss  (%rax),%xmm0
  addss  %xmm1,%xmm0
  mov    -0x78(%rbp),%rax
  movss  %xmm0,(%rax)
  movss  -0x50(%rbp),%xmm0
  movss  D9(%rip),%xmm1
  xorps  %xmm1,%xmm0
  movaps %xmm0,%xmm1
  mulss  -0x48(%rbp),%xmm1
  movss  -0x54(%rbp),%xmm0
  mulss  -0x40(%rbp),%xmm0
  addss  %xmm1,%xmm0
  movss  -0x3c(%rbp),%xmm1
  mulss  %xmm1,%xmm0
  movss  %xmm0,-0x34(%rbp)
  movss  -0x34(%rbp),%xmm1
  mov    -0x80(%rbp),%rax
  movss  (%rax),%xmm0
  addss  %xmm1,%xmm0
  mov    -0x80(%rbp),%rax
  movss  %xmm0,(%rax)
  mov    -0x38(%rbp),%eax
  movd   %eax,%xmm0
  call   <fabs@plt>
  movsd  %xmm0,-0x88(%rbp)
  pxor   %xmm3,%xmm3
  cvtss2sd -0x70(%rbp),%xmm3
  movsd  %xmm3,-0x90(%rbp)
  mov    -0x78(%rbp),%rax
  mov    (%rax),%eax
  movd   %eax,%xmm0
  call   <fabs@plt>
  mulsd  -0x90(%rbp),%xmm0
  comisd -0x88(%rbp),%xmm0
  jae    L48
  mov    -0x78(%rbp),%rax
  mov    (%rax),%eax
  movd   %eax,%xmm0
  call   <fabs@plt>
  movsd  D73(%rip),%xmm1
  comisd %xmm0,%xmm1
  jbe    L33
L48:
  mov    -0x34(%rbp),%eax
  movd   %eax,%xmm0
  call   <fabs@plt>
  movsd  %xmm0,-0x88(%rbp)
  pxor   %xmm5,%xmm5
  cvtss2sd -0x70(%rbp),%xmm5
  movsd  %xmm5,-0x90(%rbp)
  mov    -0x80(%rbp),%rax
  mov    (%rax),%eax
  movd   %eax,%xmm0
  call   <fabs@plt>
  mulsd  -0x90(%rbp),%xmm0
  comisd -0x88(%rbp),%xmm0
  jae    L17
  mov    -0x80(%rbp),%rax
  mov    (%rax),%eax
  movd   %eax,%xmm0
  call   <fabs@plt>
  movsd  D73(%rip),%xmm1
  comisd %xmm0,%xmm1
  jbe    L33
L17:
  mov    -0x6c(%rbp),%edx
  mov    -0x20(%rbp),%rax
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <free_vector@plt>
  mov    -0x6c(%rbp),%edx
  mov    -0x28(%rbp),%rax
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <free_vector@plt>
  mov    -0x6c(%rbp),%edx
  mov    -0x30(%rbp),%rax
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <free_vector@plt>
  jmp    L32
L33:
  addl   $0x1,-0x58(%rbp)
L35:
  cmpl   $0x14,-0x58(%rbp)
  jle    L31
  lea    D76(%rip),%rax
  mov    %rax,%rdi
  call   <nrerror@plt>
L32:
  mov    -0x8(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L45
  call   <__stack_chk_fail@plt>
L45:
  leave
  ret
```

tool_calls: name: read_data
arguments: data_tag: D42
type_infered: f32
name: read_data
arguments: data_tag: D9
type_infered: byte[4]
name: read_data
arguments: data_tag: D73
type_infered: byte[8]
name: read_data
arguments: data_tag: D76
type_infered: string

tool: D42: 1

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

tool: {"D73": [0x8d,0xed,0xb5,0xa0,0xf7,0xc6,0xb0,0x3e]}

tool: D76: Too many iterations in routine qroot

assistant: ```c
void qroot(float p[], int n, float *b, float *c, float eps) {
  void poldiv(float u[], int n, float v[], int nv, float q[], float r[]);
  int iter;
  float sc, sb, s, rc, rb, r, dv, delc, delb;
  float *q, *qq, *rem;
  float d[3];
  q = vector(0, n);
  qq = vector(0, n);
  rem = vector(0, n);
  d[2] = 1.0;
  for (iter = 1; iter <= 20; iter++) {
    d[1] = (*b);
    d[0] = (*c);
    poldiv(p, n, d, 2, q, rem);
    s = rem[0];
    r = rem[1];
    poldiv(q, (n - 1), d, 2, qq, rem);
    sb = -(*c) * (rc = -rem[1]);
    rb = -(*b) * rc + (sc = -rem[0]);
    dv = 1.0 / (sb * rc - sc * rb);
    delb = (r * sc - s * rc) * dv;
    delc = (-r * sb + s * rb) * dv;
    *b += (delb = (r * sc - s * rc) * dv);
    *c += (delc = (-r * sb + s * rb) * dv);
    if ((fabs(delb) <= eps * fabs(*b) || fabs(*b) < 1.0e-6) && (fabs(delc) <= eps * fabs(*c) || fabs(*c) < 1.0e-6)) {
      free_vector(rem, 0, n);
      free_vector(qq, 0, n);
      free_vector(q, 0, n);
      return;
    }
  }
  nrerror("Too many iterations in routine qroot");
}
```