user: What would the C source look like for the assembly code provided here:

```asm
<lmpar>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0xc0,%rsp
  mov    %rdi,-0x98(%rbp)
  mov    %esi,-0x9c(%rbp)
  mov    %edx,-0xa0(%rbp)
  mov    %rcx,-0xa8(%rbp)
  mov    %r8,-0xb0(%rbp)
  mov    %r9,-0xb8(%rbp)
  movsd  %xmm0,-0xc0(%rbp)
  mov    -0xa0(%rbp),%eax
  cltq
  shl    $0x3,%eax
  mov    %eax,%edi
  call   <malloc@plt>
  mov    %rax,-0x50(%rbp)
  mov    -0xa0(%rbp),%eax
  cltq
  shl    $0x3,%eax
  mov    %eax,%edi
  call   <malloc@plt>
  mov    %rax,-0x48(%rbp)
  movsd  D29(%rip),%xmm0
  movsd  %xmm0,-0x40(%rbp)
  movsd  D23(%rip),%xmm0
  movsd  %xmm0,-0x38(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x30(%rbp)
  movsd  D27(%rip),%xmm0
  movsd  %xmm0,-0x28(%rbp)
  mov    -0xa0(%rbp),%eax
  mov    %eax,-0x80(%rbp)
  movl   $0x1,-0x88(%rbp)
  jmp    L259
L136:
  mov    -0x88(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0xb8(%rbp),%rax
  add    %rax,%rdx
  mov    -0x88(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rcx
  mov    -0x50(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rdx),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x88(%rbp),%eax
  sub    $0x1,%eax
  imul   -0xa0(%rbp),%eax
  mov    %eax,%edx
  mov    -0x88(%rbp),%eax
  add    %edx,%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  ucomisd -0x30(%rbp),%xmm0
  jp     L407
  ucomisd -0x30(%rbp),%xmm0
  jne    L407
  mov    -0x80(%rbp),%eax
  cmp    -0xa0(%rbp),%eax
  jne    L407
  mov    -0x88(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0x80(%rbp)
L407:
  mov    -0x80(%rbp),%eax
  cmp    -0xa0(%rbp),%eax
  jge    L318
  mov    -0x88(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,(%rax)
L318:
  addl   $0x1,-0x88(%rbp)
L259:
  mov    -0x88(%rbp),%eax
  cmp    -0xa0(%rbp),%eax
  jle    L136
  cmpl   $0x0,-0x80(%rbp)
  jle    L145
  movl   $0x1,-0x84(%rbp)
  jmp    L314
L73:
  mov    -0x80(%rbp),%eax
  sub    -0x84(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x88(%rbp)
  mov    -0x88(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x88(%rbp),%eax
  sub    $0x1,%eax
  imul   -0xa0(%rbp),%eax
  mov    %eax,%edx
  mov    -0x88(%rbp),%eax
  add    %edx,%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x88(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  divsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x88(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  mov    -0x88(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0x7c(%rbp)
  cmpl   $0x0,-0x7c(%rbp)
  jle    L242
  movl   $0x1,-0x90(%rbp)
  jmp    L175
L225:
  mov    -0x90(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x90(%rbp),%eax
  sub    $0x1,%eax
  imul   -0xa0(%rbp),%eax
  mov    %eax,%edx
  mov    -0x88(%rbp),%eax
  add    %edx,%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mulsd  -0x20(%rbp),%xmm1
  mov    -0x90(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    -0x8(%rax),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x90(%rbp)
L175:
  mov    -0x90(%rbp),%eax
  cmp    -0x7c(%rbp),%eax
  jle    L225
L242:
  addl   $0x1,-0x84(%rbp)
L314:
  mov    -0x84(%rbp),%eax
  cmp    -0x80(%rbp),%eax
  jle    L73
L145:
  movl   $0x0,-0x88(%rbp)
  jmp    L405
L189:
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%eax
  mov    %eax,-0x78(%rbp)
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rax,%rdx
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    0x18(%rbp),%rax
  add    %rcx,%rax
  movsd  (%rdx),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x88(%rbp)
L405:
  mov    -0x88(%rbp),%eax
  cmp    -0xa0(%rbp),%eax
  jl     L189
  movl   $0x0,-0x8c(%rbp)
  movl   $0x0,-0x88(%rbp)
  jmp    L325
L470:
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xb0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    0x18(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x88(%rbp)
L325:
  mov    -0x88(%rbp),%eax
  cmp    -0xa0(%rbp),%eax
  jl     L470
  mov    -0xa0(%rbp),%edx
  mov    -0x48(%rbp),%rax
  mov    %edx,%esi
  mov    %rax,%rdi
  call   <enorm@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x18(%rbp)
  movsd  -0x18(%rbp),%xmm0
  subsd  -0xc0(%rbp),%xmm0
  movsd  %xmm0,-0x70(%rbp)
  movsd  -0x40(%rbp),%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0xc0(%rbp),%xmm1
  movsd  -0x70(%rbp),%xmm0
  comisd %xmm1,%xmm0
  jbe    L345
  movsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,-0x68(%rbp)
  mov    -0x80(%rbp),%eax
  cmp    -0xa0(%rbp),%eax
  jl     L452
  movl   $0x0,-0x88(%rbp)
  jmp    L300
L397:
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%eax
  mov    %eax,-0x78(%rbp)
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xb0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  divsd  -0x18(%rbp),%xmm0
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x88(%rbp)
L300:
  mov    -0x88(%rbp),%eax
  cmp    -0xa0(%rbp),%eax
  jl     L397
  movl   $0x0,-0x88(%rbp)
  jmp    L515
L94:
  movsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,-0x58(%rbp)
  mov    -0x88(%rbp),%eax
  sub    $0x1,%eax
  mov    %eax,-0x7c(%rbp)
  cmpl   $0x0,-0x7c(%rbp)
  js     L198
  movl   $0x0,-0x90(%rbp)
  jmp    L125
L266:
  mov    -0x90(%rbp),%eax
  imul   -0xa0(%rbp),%eax
  mov    %eax,%edx
  mov    -0x88(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x90(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  -0x58(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x58(%rbp)
  addl   $0x1,-0x90(%rbp)
L125:
  mov    -0x90(%rbp),%eax
  cmp    -0x7c(%rbp),%eax
  jle    L266
L198:
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  subsd  -0x58(%rbp),%xmm0
  mov    -0x88(%rbp),%eax
  imul   -0xa0(%rbp),%eax
  mov    %eax,%edx
  mov    -0x88(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  divsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x88(%rbp)
L515:
  mov    -0x88(%rbp),%eax
  cmp    -0xa0(%rbp),%eax
  jl     L94
  mov    -0xa0(%rbp),%edx
  mov    -0x50(%rbp),%rax
  mov    %edx,%esi
  mov    %rax,%rdi
  call   <enorm@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x20(%rbp)
  movsd  -0x70(%rbp),%xmm0
  divsd  -0xc0(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x68(%rbp)
L452:
  movl   $0x0,-0x88(%rbp)
  jmp    L274
L104:
  movsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,-0x58(%rbp)
  movl   $0x0,-0x90(%rbp)
  jmp    L451
L91:
  mov    -0x90(%rbp),%eax
  imul   -0xa0(%rbp),%eax
  mov    %eax,%edx
  mov    -0x88(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x90(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xb8(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  -0x58(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x58(%rbp)
  addl   $0x1,-0x90(%rbp)
L451:
  mov    -0x90(%rbp),%eax
  cmp    -0x88(%rbp),%eax
  jle    L91
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%eax
  mov    %eax,-0x78(%rbp)
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xb0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x58(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x88(%rbp)
L274:
  mov    -0x88(%rbp),%eax
  cmp    -0xa0(%rbp),%eax
  jl     L104
  mov    -0xa0(%rbp),%edx
  mov    -0x50(%rbp),%rax
  mov    %edx,%esi
  mov    %rax,%rdi
  call   <enorm@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x10(%rbp)
  movsd  -0x10(%rbp),%xmm0
  divsd  -0xc0(%rbp),%xmm0
  movsd  %xmm0,-0x60(%rbp)
  movsd  -0x60(%rbp),%xmm0
  ucomisd -0x30(%rbp),%xmm0
  jp     L110
  movsd  -0x60(%rbp),%xmm0
  ucomisd -0x30(%rbp),%xmm0
  jne    L110
  movsd  -0x40(%rbp),%xmm0
  mov    -0xc0(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pmin@plt>
  movapd %xmm0,%xmm1
  movsd  -0x28(%rbp),%xmm0
  divsd  %xmm1,%xmm0
  movsd  %xmm0,-0x60(%rbp)
L110:
  mov    0x10(%rbp),%rax
  mov    (%rax),%rax
  movsd  -0x68(%rbp),%xmm0
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pmax@plt>
  movq   %xmm0,%rax
  mov    0x10(%rbp),%rdx
  mov    %rax,(%rdx)
  mov    0x10(%rbp),%rax
  mov    (%rax),%rax
  movsd  -0x60(%rbp),%xmm0
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pmin@plt>
  movq   %xmm0,%rax
  mov    0x10(%rbp),%rdx
  mov    %rax,(%rdx)
  mov    0x10(%rbp),%rax
  movsd  (%rax),%xmm0
  ucomisd -0x30(%rbp),%xmm0
  jp     L298
  ucomisd -0x30(%rbp),%xmm0
  jne    L298
  movsd  -0x10(%rbp),%xmm0
  divsd  -0x18(%rbp),%xmm0
  mov    0x10(%rbp),%rax
  movsd  %xmm0,(%rax)
L298:
  addl   $0x1,-0x8c(%rbp)
  mov    0x10(%rbp),%rax
  movsd  (%rax),%xmm0
  ucomisd -0x30(%rbp),%xmm0
  jp     L336
  ucomisd -0x30(%rbp),%xmm0
  jne    L336
  movsd  -0x38(%rbp),%xmm0
  mulsd  -0x60(%rbp),%xmm0
  mov    -0x28(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pmax@plt>
  movq   %xmm0,%rax
  mov    0x10(%rbp),%rdx
  mov    %rax,(%rdx)
L336:
  mov    0x10(%rbp),%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x20(%rbp)
  movl   $0x0,-0x88(%rbp)
  jmp    L74
L57:
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xb0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  mulsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x88(%rbp)
L74:
  mov    -0x88(%rbp),%eax
  cmp    -0xa0(%rbp),%eax
  jl     L57
  mov    -0xb8(%rbp),%r8
  mov    -0x50(%rbp),%rdi
  mov    -0xa8(%rbp),%rcx
  mov    -0xa0(%rbp),%edx
  mov    -0x9c(%rbp),%esi
  mov    -0x98(%rbp),%rax
  push   0x20(%rbp)
  push   0x18(%rbp)
  mov    %r8,%r9
  mov    %rdi,%r8
  mov    %rax,%rdi
  call   <qrsolv@plt>
  add    $0x10,%rsp
  movl   $0x0,-0x88(%rbp)
  jmp    L199
L71:
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xb0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    0x18(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x88(%rbp)
L199:
  mov    -0x88(%rbp),%eax
  cmp    -0xa0(%rbp),%eax
  jl     L71
  mov    -0xa0(%rbp),%edx
  mov    -0x48(%rbp),%rax
  mov    %edx,%esi
  mov    %rax,%rdi
  call   <enorm@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x18(%rbp)
  movsd  -0x70(%rbp),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x18(%rbp),%xmm0
  subsd  -0xc0(%rbp),%xmm0
  movsd  %xmm0,-0x70(%rbp)
  movsd  -0x70(%rbp),%xmm0
  movq   D3(%rip),%xmm1
  andpd  %xmm0,%xmm1
  movsd  -0x40(%rbp),%xmm0
  mulsd  -0xc0(%rbp),%xmm0
  comisd %xmm1,%xmm0
  jae    L70
  cmpl   $0xa,-0x8c(%rbp)
  je     L471
  movsd  -0x68(%rbp),%xmm0
  ucomisd -0x30(%rbp),%xmm0
  jp     L392
  movsd  -0x68(%rbp),%xmm0
  ucomisd -0x30(%rbp),%xmm0
  jne    L392
  movsd  -0x20(%rbp),%xmm0
  comisd -0x70(%rbp),%xmm0
  jb     L392
  movsd  -0x30(%rbp),%xmm0
  comisd -0x20(%rbp),%xmm0
  ja     L153
L392:
  movl   $0x0,-0x88(%rbp)
  jmp    L432
L364:
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0xa8(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%eax
  mov    %eax,-0x78(%rbp)
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0xb0(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x78(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  divsd  -0x18(%rbp),%xmm0
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x88(%rbp)
L432:
  mov    -0x88(%rbp),%eax
  cmp    -0xa0(%rbp),%eax
  jl     L364
  movl   $0x0,-0x88(%rbp)
  jmp    L439
L177:
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    0x20(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  divsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x88(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x20(%rbp)
  mov    -0x88(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x74(%rbp)
  mov    -0x74(%rbp),%eax
  cmp    -0xa0(%rbp),%eax
  jge    L553
  mov    -0x74(%rbp),%eax
  mov    %eax,-0x90(%rbp)
  jmp    L235
L479:
  mov    -0x90(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0x90(%rbp),%eax
  imul   -0xa0(%rbp),%eax
  mov    %eax,%edx
  mov    -0x88(%rbp),%eax
  add    %edx,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x98(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mulsd  -0x20(%rbp),%xmm1
  mov    -0x90(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x50(%rbp),%rax
  add    %rdx,%rax
  subsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x90(%rbp)
L235:
  mov    -0x90(%rbp),%eax
  cmp    -0xa0(%rbp),%eax
  jl     L479
L553:
  addl   $0x1,-0x88(%rbp)
L439:
  mov    -0x88(%rbp),%eax
  cmp    -0xa0(%rbp),%eax
  jl     L177
  mov    -0xa0(%rbp),%edx
  mov    -0x50(%rbp),%rax
  mov    %edx,%esi
  mov    %rax,%rdi
  call   <enorm@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x20(%rbp)
  movsd  -0x70(%rbp),%xmm0
  divsd  -0xc0(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movsd  -0x70(%rbp),%xmm0
  comisd -0x30(%rbp),%xmm0
  jbe    L295
  mov    0x10(%rbp),%rax
  movsd  (%rax),%xmm0
  mov    -0x68(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pmax@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x68(%rbp)
L295:
  movsd  -0x30(%rbp),%xmm0
  comisd -0x70(%rbp),%xmm0
  jbe    L127
  mov    0x10(%rbp),%rax
  movsd  (%rax),%xmm0
  mov    -0x60(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pmin@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x60(%rbp)
L127:
  mov    0x10(%rbp),%rax
  movsd  (%rax),%xmm0
  addsd  -0x8(%rbp),%xmm0
  mov    -0x68(%rbp),%rax
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <pmax@plt>
  movq   %xmm0,%rax
  mov    0x10(%rbp),%rdx
  mov    %rax,(%rdx)
  jmp    L298
L70:
  nop
  jmp    L345
L471:
  nop
  jmp    L345
L153:
  nop
L345:
  cmpl   $0x0,-0x8c(%rbp)
  jne    L429
  mov    0x10(%rbp),%rax
  movsd  -0x30(%rbp),%xmm0
  movsd  %xmm0,(%rax)
L429:
  mov    -0x50(%rbp),%rax
  mov    %rax,%rdi
  call   <free@plt>
  mov    -0x48(%rbp),%rax
  mov    %rax,%rdi
  call   <free@plt>
  nop
  leave
  ret
```

tool_calls: name: unpack_data
arguments: label: D29
type_infered: byte[8]
name: unpack_data
arguments: label: D23
type_infered: byte[8]
name: unpack_data
arguments: label: D27
type_infered: byte[8]
name: unpack_data
arguments: label: D3
type_infered: qword

tool: {"D29": [0x9a,0x99,0x99,0x99,0x99,0x99,0xb9,0x3f]}

tool: {"D23": [0xfc,0xa9,0xf1,0xd2,0x4d,0x62,0x50,0x3f]}

tool: {"D27": [0x31,0x65,0x00,0x00,0x00,0x00,0x10,0x00]}

tool: D3: 9223372036854775807

assistant: ```c
void lmpar(double *r, int ldr, int N, int *ipvt, double *diag, double *qtb, double delta, double *par, double *x, double *sdiag) {
  int i, iter, j, jm1, jp1, k, l, nsing;
  double dxnorm, dwarf, fp, gnorm, parc, parl, paru, p1, p001, sum, temp, zero;
  double *wa1, *wa2;
  wa1 = (double *)malloc(sizeof(double) * N);
  wa2 = (double *)malloc(sizeof(double) * N);
  p1 = 1.0e-01;
  p001 = 1.0e-03;
  zero = 0.0;
  dwarf = 2.22507385852e-308;
  nsing = N;
  for (j = 1; j <= N; ++j) {
    wa1[j - 1] = qtb[j - 1];
    if (r[(j - 1) * N + j - 1] == zero && nsing == N) {
      nsing = j - 1;
    }
    if (nsing < N) {
      wa1[j - 1] = zero;
    }
  }
  if (nsing >= 1) {
    for (k = 1; k <= nsing; ++k) {
      j = nsing - k + 1;
      wa1[j - 1] = wa1[j - 1] / r[(j - 1) * N + j - 1];
      temp = wa1[j - 1];
      jm1 = j - 1;
      if (jm1 >= 1) {
        for (i = 1; i <= jm1; ++i) {
          wa1[i - 1] = wa1[i - 1] - r[(i - 1) * N + j - 1] * temp;
        }
      }
    }
  }
  for (j = 0; j < N; ++j) {
    l = ipvt[j];
    x[l] = wa1[j];
  }
  iter = 0;
  for (j = 0; j < N; ++j) {
    wa2[j] = diag[j] * x[j];
  }
  dxnorm = enorm(wa2, N);
  fp = dxnorm - delta;
  if (fp > p1 * delta) {
    parl = zero;
    if (nsing >= N) {
      for (j = 0; j < N; ++j) {
        l = ipvt[j];
        wa1[j] = diag[l] * (wa2[l] / dxnorm);
      }
      for (j = 0; j < N; ++j) {
        sum = zero;
        jm1 = j - 1;
        if (jm1 >= 0) {
          for (i = 0; i <= jm1; ++i) {
            sum = sum + r[i * N + j] * wa1[i];
          }
        }
        wa1[j] = (wa1[j] - sum) / r[j * N + j];
      }
      temp = enorm(wa1, N);
      parl = ((fp / delta) / temp) / temp;
    }
    for (j = 0; j < N; ++j) {
      sum = zero;
      for (i = 0; i <= j; ++i) {
        sum = sum + r[i * N + j] * qtb[i];
      }
      l = ipvt[j];
      wa1[j] = sum / diag[l];
    }
    gnorm = enorm(wa1, N);
    paru = gnorm / delta;
    if (paru == zero) {
      paru = dwarf / pmin(delta, p1);
    }
    *par = pmax(*par, parl);
    *par = pmin(*par, paru);
    if (*par == zero) {
      *par = gnorm / dxnorm;
    }
    while (1) {
      iter++;
      if (*par == zero) {
        *par = pmax(dwarf, p001 * paru);
      }
      temp = sqrt(*par);
      for (j = 0; j < N; ++j) {
        wa1[j] = temp * diag[j];
      }
      qrsolv(r, ldr, N, ipvt, wa1, qtb, x, sdiag);
      for (j = 0; j < N; ++j) {
        wa2[j] = diag[j] * x[j];
      }
      dxnorm = enorm(wa2, N);
      temp = fp;
      fp = dxnorm - delta;
      if (fabs(fp) <= p1 * delta) {
        break;
      }
      if (iter == 10) {
        break;
      }
      if (parl == zero && fp <= temp && temp < zero) {
        break;
      }
      for (j = 0; j < N; ++j) {
        l = ipvt[j];
        wa1[j] = diag[l] * (wa2[l] / dxnorm);
      }
      for (j = 0; j < N; ++j) {
        wa1[j] = wa1[j] / sdiag[j];
        temp = wa1[j];
        jp1 = j + 1;
        if (N >= jp1 + 1) {
          for (i = jp1; i < N; ++i) {
            wa1[i] = wa1[i] - r[i * N + j] * temp;
          }
        }
      }
      temp = enorm(wa1, N);
      parc = ((fp / delta) / temp) / temp;
      if (fp > zero) {
        parl = pmax(parl, *par);
      }
      if (fp < zero) {
        paru = pmin(paru, *par);
      }
      *par = pmax(parl, *par + parc);
    }
  }
  if (iter == 0) {
    *par = zero;
  }
  free(wa1);
  free(wa2);
}
```