user: What is the c source code of the assembly code below?

```asm
<quaddobl_track>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbx
  sub    $0x38,%rsp
  mov    %edi,%r12d
  mov    %rsi,%r13
  mov    %edx,%r14d
  mov    %fs:0x28,%rax
  mov    %rax,-0x38(%rbp)
  xor    %eax,%eax
  call   <read_quaddobl_target_system@plt>
  mov    %eax,-0x44(%rbp)
  mov    $0x0,%eax
  call   <read_quaddobl_start_system@plt>
  mov    %eax,-0x44(%rbp)
  mov    $0x0,%eax
  call   <copy_quaddobl_start_solutions_to_container@plt>
  mov    %eax,-0x44(%rbp)
  lea    -0x40(%rbp),%rdi
  call   <solcon_number_of_quaddobl_solutions@plt>
  mov    %eax,-0x44(%rbp)
  mov    -0x40(%rbp),%esi
  lea    D15(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  lea    -0x3c(%rbp),%rdi
  call   <syscon_number_of_symbols@plt>
  mov    %eax,-0x44(%rbp)
  mov    -0x3c(%rbp),%edi
  call   <padcon_prompt_for_multi_homogenization@plt>
  mov    %eax,%ebx
  cmp    $0x1,%eax
  jg     L6
  je     L11
  test   %r12d,%r12d
  jg     L89
  sub    $0x8,%rsp
  lea    -0x44(%rbp),%rax
  push   %rax
  mov    $0x0,%r9d
  mov    %ebx,%r8d
  mov    %r14d,%ecx
  mov    $0x0,%edx
  mov    %r13,%rsi
  mov    %r12d,%edi
  call   <padcon_quaddobl_track@plt>
  mov    %eax,-0x44(%rbp)
  add    $0x10,%rsp
  jmp    L70
L6:
  mov    %rsp,-0x58(%rbp)
  mov    -0x3c(%rbp),%esi
  movslq %esi,%rax
  lea    0xf(,%rax,4),%rax
  mov    %rax,%rcx
  and    $0xfffffffffffffff0,%rcx
  and    $0xfffffffffffff000,%rax
  mov    %rsp,%rdx
  sub    %rax,%rdx
L33:
  cmp    %rdx,%rsp
  je     L100
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L33
L100:
  mov    %rcx,%rax
  and    $0xfff,%eax
  sub    %rax,%rsp
  test   %rax,%rax
  je     L19
  orq    $0x0,-0x8(%rsp,%rax,1)
L19:
  mov    %rsp,%r15
  mov    %r15,%rdx
  mov    %ebx,%edi
  call   <padcon_define_partition@plt>
  mov    %r15,%rdx
  mov    %ebx,%esi
  mov    -0x3c(%rbp),%edi
  call   <padcon_quaddobl_multi_projective_transformation@plt>
  test   %r12d,%r12d
  jle    L64
  mov    %r13,%rsi
  lea    D21(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
L64:
  mov    -0x3c(%rbp),%r9d
  sub    $0x8,%rsp
  push   %r15
  mov    %ebx,%r8d
  mov    %r14d,%ecx
  mov    $0x0,%edx
  mov    %r13,%rsi
  mov    %r12d,%edi
  call   <padcon_quaddobl_track@plt>
  mov    %eax,-0x44(%rbp)
  mov    %r15,%rdx
  mov    %ebx,%esi
  mov    -0x3c(%rbp),%edi
  call   <solcon_quaddobl_multi_affinization@plt>
  mov    %eax,-0x44(%rbp)
  mov    $0x0,%eax
  call   <copy_quaddobl_target_system_to_container@plt>
  mov    %eax,-0x44(%rbp)
  mov    %ebx,%edi
  call   <syscon_quaddobl_multi_affinization@plt>
  mov    %eax,-0x44(%rbp)
  mov    -0x58(%rbp),%rsp
L70:
  mov    $0x0,%eax
  call   <syscon_write_quaddobl_system@plt>
  mov    %eax,-0x44(%rbp)
  test   %r12d,%r12d
  jne    L75
L72:
  mov    $0x0,%eax
  call   <solcon_write_quaddobl_solutions@plt>
  mov    -0x38(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L47
  lea    -0x28(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  pop    %rbp
  ret
L11:
  mov    $0x0,%eax
  call   <padcon_quaddobl_projective_transformation@plt>
  test   %r12d,%r12d
  jg     L44
  sub    $0x8,%rsp
  lea    -0x44(%rbp),%rax
  push   %rax
  mov    $0x0,%r9d
  mov    $0x1,%r8d
  mov    %r14d,%ecx
  mov    $0x0,%edx
  mov    %r13,%rsi
  mov    %r12d,%edi
  call   <padcon_quaddobl_track@plt>
  mov    %eax,-0x44(%rbp)
  add    $0x10,%rsp
L10:
  mov    $0x0,%eax
  call   <solcon_quaddobl_one_affinization@plt>
  mov    %eax,-0x44(%rbp)
  mov    $0x0,%eax
  call   <copy_quaddobl_target_system_to_container@plt>
  mov    %eax,-0x44(%rbp)
  mov    $0x0,%eax
  call   <syscon_quaddobl_one_affinization@plt>
  mov    %eax,-0x44(%rbp)
  jmp    L70
L44:
  mov    %r13,%rsi
  lea    D21(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  sub    $0x8,%rsp
  lea    -0x44(%rbp),%rax
  push   %rax
  mov    $0x0,%r9d
  mov    %ebx,%r8d
  mov    %r14d,%ecx
  mov    $0x0,%edx
  mov    %r13,%rsi
  mov    %r12d,%edi
  call   <padcon_quaddobl_track@plt>
  mov    %eax,-0x44(%rbp)
  add    $0x10,%rsp
  jmp    L10
L89:
  mov    %r13,%rsi
  lea    D21(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  sub    $0x8,%rsp
  lea    -0x44(%rbp),%rax
  push   %rax
  mov    $0x0,%r9d
  mov    %ebx,%r8d
  mov    %r14d,%ecx
  mov    $0x0,%edx
  mov    %r13,%rsi
  mov    %r12d,%edi
  call   <padcon_quaddobl_track@plt>
  mov    %eax,-0x44(%rbp)
  mov    $0x0,%eax
  call   <syscon_write_quaddobl_system@plt>
  mov    %eax,-0x44(%rbp)
  add    $0x10,%rsp
L75:
  mov    $0x0,%eax
  call   <solcon_write_solution_banner_to_defined_output_file@plt>
  mov    %eax,-0x44(%rbp)
  jmp    L72
L47:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: data_label: D15
type: string
name: extract_symbolic_data
arguments: data_label: D21
type: string

tool: D15: Read %d start solutions.


tool: D21: 
See the output file %s ...


assistant: ```c
void quaddobl_track(int nbc, char *name, int verbose) {
  int fail, length, mhom, dim;
  fail = read_quaddobl_target_system();
  fail = read_quaddobl_start_system();
  fail = copy_quaddobl_start_solutions_to_container();
  fail = solcon_number_of_quaddobl_solutions(&length);
  printf("Read %d start solutions.\n", length);
  fail = syscon_number_of_symbols(&dim);
  mhom = padcon_prompt_for_multi_homogenization(dim);
  if (mhom > 1) {
    int idz[dim];
    padcon_define_partition(mhom, dim, idz);
    padcon_quaddobl_multi_projective_transformation(dim, mhom, idz);
    if (nbc > 0)
      printf("\nSee the output file %s ...\n", name);
    fail = padcon_quaddobl_track(nbc, name, 0, verbose, mhom, dim, idz);
    fail = solcon_quaddobl_multi_affinization(dim, mhom, idz);
    fail = copy_quaddobl_target_system_to_container();
    fail = syscon_quaddobl_multi_affinization(mhom);
  } else {
    if (mhom == 1)
      padcon_quaddobl_projective_transformation();
    if (nbc > 0)
      printf("\nSee the output file %s ...\n", name);
    fail = padcon_quaddobl_track(nbc, name, 0, verbose, mhom, 0, &fail);
    if (mhom == 1) {
      fail = solcon_quaddobl_one_affinization();
      fail = copy_quaddobl_target_system_to_container();
      fail = syscon_quaddobl_one_affinization();
    }
  }
  fail = syscon_write_quaddobl_system();
  if (nbc != 0)
    fail = solcon_write_solution_banner_to_defined_output_file();
  fail = solcon_write_quaddobl_solutions();
}
```