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

```asm
<francis_iter>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  movslq %esi,%r13
  mov    %r13d,%r15d
  push   %r12
  imul   $0x1e,%r13d,%eax
  mov    %rdx,%r12
  push   %rbp
  imul   %r13d,%r15d
  mov    %rdi,%rbp
  mov    %r13,%r14
  push   %rbx
  lea    -0x1(%r13),%ebx
  lea    0x0(,%r15,8),%edi
  sub    $0x48,%rsp
  mov    %eax,0x14(%rsp)
  call   <malloc@plt>
  movslq %r15d,%rdx
  mov    %rax,0x8(%rsp)
  xor    %eax,%eax
  test   %r15d,%r15d
  je     L228
  nopl   (%rax)
L160:
  movsd  0x0(%rbp,%rax,8),%xmm0
  movsd  %xmm0,(%r12,%rax,8)
  add    $0x1,%rax
  cmp    %rax,%rdx
  jne    L160
L228:
  mov    %r14d,%esi
  mov    %r12,%rdi
  mov    %r14d,%r15d
  call   <hessenberg@plt>
  lea    0x0(,%r13,8),%rax
  pxor   %xmm1,%xmm1
  movl   $0x0,0x10(%rsp)
  mov    %rax,0x18(%rsp)
  add    $0x8,%rax
  mov    %rax,(%rsp)
  mov    %r14d,%eax
  not    %eax
  cltq
  shl    $0x3,%rax
  mov    %rax,0x20(%rsp)
L73:
  mov    0x14(%rsp),%edi
  cmp    %edi,0x10(%rsp)
  lea    0x1(%r15),%edx
  setl   %sil
  nopl   0x0(%rax)
L43:
  cmp    $0x1,%ebx
  jle    L99
  test   %sil,%sil
  jne    L37
  jmp    L99
  nopl   0x0(%rax)
L213:
  mov    %r15d,%eax
  imul   %ebp,%eax
  add    %ebx,%eax
  cltq
  ucomisd -0x10(%r12,%rax,8),%xmm1
  jp     L196
  jne    L196
  sub    $0x2,%ebx
  cmp    $0x1,%ebx
  jle    L261
L37:
  mov    %ebx,%eax
  lea    -0x1(%rbx),%ebp
  imul   %edx,%eax
  cltq
  ucomisd -0x8(%r12,%rax,8),%xmm1
  jp     L213
  jne    L213
  mov    %ebp,%ebx
  cmp    $0x1,%ebx
  jg     L37
L261:
  test   %ebx,%ebx
  je     L43
  mov    $0x1,%ebx
L193:
  mov    %ebx,%eax
  xor    %ebp,%ebp
  jmp    L76
L99:
  mov    0x8(%rsp),%rdi
  call   <free@plt>
  mov    0x14(%rsp),%edi
  xor    %eax,%eax
  cmp    %edi,0x10(%rsp)
  setne  %al
  add    $0x48,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  cs nopw 0x0(%rax,%rax,1)
L196:
  imul   %ebp,%edx
  mov    0x20(%rsp),%r13
  movslq %edx,%rax
  lea    -0x8(%r12,%rax,8),%r14
  jmp    L208
  nopw   0x0(%rax,%rax,1)
L30:
  add    %r13,%r14
  sub    $0x1,%ebp
  je     L193
L208:
  movsd  (%r14),%xmm0
  call   <fabs@plt>
  test   %eax,%eax
  jne    L30
  mov    %ebx,%eax
  sub    %ebp,%eax
  cmp    %ebx,%ebp
  jg     L103
L76:
  lea    0x1(%rax),%ecx
  mov    %ebp,%eax
  mov    0x8(%rsp),%r11
  mov    0x18(%rsp),%r13
  imul   %r15d,%eax
  movslq %ecx,%r9
  mov    %ebp,%edi
  movslq %ebp,%r10
  shl    $0x3,%r9
  mov    %r11,%r8
  cltq
  lea    (%r12,%rax,8),%r14
  mov    %r14,%rsi
  nopl   (%rax)
L106:
  mov    %r11,%rdx
  mov    %r10,%rax
  xchg   %ax,%ax
L67:
  movsd  (%rsi,%rax,8),%xmm0
  add    $0x1,%rax
  add    $0x8,%rdx
  movsd  %xmm0,-0x8(%rdx)
  cmp    %eax,%ebx
  jge    L67
  add    $0x1,%edi
  add    %r9,%r11
  add    %r13,%rsi
  cmp    %edi,%ebx
  jge    L106
  mov    0x8(%rsp),%rdi
  mov    %ecx,%esi
  mov    %r10,0x38(%rsp)
  mov    %r8,0x30(%rsp)
  mov    %r9,0x28(%rsp)
  call   <francisQR@plt>
  mov    0x18(%rsp),%rcx
  mov    %ebp,%esi
  pxor   %xmm1,%xmm1
  mov    0x28(%rsp),%r9
  mov    0x30(%rsp),%r8
  mov    0x38(%rsp),%r10
  nopl   0x0(%rax,%rax,1)
L16:
  mov    %r8,%rdx
  mov    %r10,%rax
  cs nopw 0x0(%rax,%rax,1)
L46:
  movsd  (%rdx),%xmm0
  add    $0x8,%rdx
  movsd  %xmm0,(%r14,%rax,8)
  add    $0x1,%rax
  cmp    %eax,%ebx
  jge    L46
  add    $0x1,%esi
  add    %r9,%r8
  add    %rcx,%r14
  cmp    %esi,%ebx
  jge    L16
L254:
  cmp    %ebx,%ebp
  jge    L49
  lea    0x1(%rbp),%esi
  movslq %ebp,%rdx
  mov    %r15d,0x28(%rsp)
  mov    %esi,%eax
  mov    %r12,0x30(%rsp)
  imul   %r15d,%eax
  movslq %eax,%rdi
  sub    %r15d,%eax
  mov    %esi,%r15d
  add    %rdi,%rdx
  movslq %eax,%r14
  lea    (%r12,%rdx,8),%r13
  sub    %rdi,%r14
  mov    %r13,%r12
  jmp    L75
  nopl   0x0(%rax)
L264:
  add    $0x1,%r15d
L75:
  movsd  (%r12),%xmm0
  call   <fabs@plt>
  movsd  (%r12,%r14,8),%xmm0
  mov    %eax,%r13d
  call   <fabs@plt>
  movsd  0x8(%r12),%xmm0
  mov    %eax,%ebp
  call   <fabs@plt>
  pxor   %xmm0,%xmm0
  pxor   %xmm2,%xmm2
  pxor   %xmm1,%xmm1
  add    %eax,%ebp
  cvtsi2sd %r13d,%xmm2
  cvtsi2sd %ebp,%xmm0
  mulsd  D9(%rip),%xmm0
  comisd %xmm2,%xmm0
  jb     L62
  movsd  %xmm1,(%r12)
L62:
  add    (%rsp),%r12
  cmp    %ebx,%r15d
  jne    L264
  mov    0x28(%rsp),%r15d
  mov    0x30(%rsp),%r12
L49:
  addl   $0x1,0x10(%rsp)
  jmp    L73
L103:
  mov    0x8(%rsp),%rdi
  lea    0x1(%rax),%esi
  call   <francisQR@plt>
  pxor   %xmm1,%xmm1
  jmp    L254
```

tool_calls: name: extract_symbolic_data
arguments: data_tag: D9
type: byte[8]

tool: {"D9": [0x11,0xea,0x2d,0x81,0x99,0x97,0x71,0x3d]}

assistant: ```c
int francis_iter(double *A, int N, double *H) {
  int success, brkpoint;
  int i, j, it, p, q, t, u;
  double *temp;
  success = 0;
  brkpoint = 30 * N;
  it = 0;
  p = N - 1;
  temp = (double *)malloc(sizeof(double) * N * N);
  for (i = 0; i < N * N; ++i) {
    H[i] = A[i];
  }
  hessenberg(H, N);
  while (p > 1 && it < brkpoint) {
    while (p > 1 && (H[N * p + p - 1] == 0 || H[N * (p - 1) + p - 2] == 0)) {
      if (H[N * p + p - 1] == 0) {
        p--;
      } else if (H[N * (p - 1) + p - 2] == 0) {
        p = p - 2;
      }
    }
    if (p > 0) {
      q = p - 1;
      while (q > 0 && fabs(H[N * q + q - 1]) != 0) {
        q--;
      }
      for (i = q; i <= p; i++) {
        t = i * N;
        u = (i - q) * (p - q + 1);
        for (j = q; j <= p; j++) {
          temp[u + j - q] = H[t + j];
        }
      }
      francisQR(temp, p - q + 1);
      for (i = q; i <= p; i++) {
        t = i * N;
        u = (i - q) * (p - q + 1);
        for (j = q; j <= p; j++) {
          H[t + j] = temp[u + j - q];
        }
      }
      for (i = q; i <= p - 1; ++i) {
        if (fabs(H[(i + 1) * N + i]) <= 1e-12 * (fabs(H[i * N + i]) + fabs(H[(i + 1) * N + i + 1]))) {
          H[(i + 1) * N + i] = 0.;
        }
      }
      it++;
    }
  }
  if (it == brkpoint) {
    success = 0;
  } else {
    success = 1;
  }
  free(temp);
  return success;
}
```