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

```asm
<create>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  lea    -0x6000(%rsp),%r11
L90:
  sub    $0x1000,%rsp
  orq    $0x0,(%rsp)
  cmp    %r11,%rsp
  jne    L90
  sub    $0x38,%rsp
  lea    D62(%rip),%rdi
  mov    %fs:0x28,%rax
  mov    %rax,0x6028(%rsp)
  xor    %eax,%eax
  call   <puts@plt>
  lea    0x1c(%rsp),%rsi
  lea    D49(%rip),%rdi
  call   <scanf@plt>
  movslq 0x1c(%rsp),%rbx
  movl   $0x0,0x20(%rsp)
  movl   $0x0,0x1820(%rsp)
  movl   $0x0,0x3020(%rsp)
  movl   $0x0,0x4820(%rsp)
  test   %ebx,%ebx
  jle    L51
  xor    %eax,%eax
  xor    %edi,%edi
  xor    %r10d,%r10d
  xor    %r9d,%r9d
  xor    %r8d,%r8d
  lea    0x20(%rsp),%r15
  lea    0x1820(%rsp),%r13
  lea    0x3020(%rsp),%r12
  lea    0x4820(%rsp),%rbp
  nopl   0x0(%rax,%rax,1)
L73:
  mov    %r8d,%ecx
  mov    %eax,%esi
  xor    $0x1,%ecx
  test   $0x7,%al
  jne    L89
L122:
  mov    %r8d,%edx
  mov    %ecx,%r8d
  mov    %edx,%ecx
L89:
  mov    %r9d,%edx
  xor    $0x1,%edx
  test   $0x3,%sil
  jne    L23
  mov    %r9d,%r11d
  mov    %edx,%r9d
  mov    %r11d,%edx
L23:
  mov    %r10d,%r11d
  xor    $0x1,%r11d
  and    $0x1,%esi
  mov    %edi,%esi
  jne    L184
  mov    %ecx,(%r15,%rax,4)
  xor    $0x1,%esi
  mov    %edx,0x0(%r13,%rax,4)
  mov    %r10d,(%r12,%rax,4)
  mov    %edi,0x0(%rbp,%rax,4)
  add    $0x1,%rax
  cmp    %rax,%rbx
  je     L51
  mov    %r8d,%ecx
  mov    %esi,%edi
  mov    %r11d,%r10d
  mov    %eax,%esi
  xor    $0x1,%ecx
  test   $0x7,%al
  jne    L89
  jmp    L122
  nopw   0x0(%rax,%rax,1)
L184:
  mov    %ecx,(%r15,%rax,4)
  xor    $0x1,%esi
  mov    %edx,0x0(%r13,%rax,4)
  mov    %r11d,(%r12,%rax,4)
  mov    %edi,0x0(%rbp,%rax,4)
  add    $0x1,%rax
  cmp    %rax,%rbx
  je     L51
  mov    %esi,%edi
  jmp    L73
  nopl   0x0(%rax)
L51:
  lea    D15(%rip),%rdi
  call   <puts@plt>
  lea    D58(%rip),%rdi
  call   <puts@plt>
  lea    D122(%rip),%rdi
  call   <puts@plt>
  mov    0x1c(%rsp),%edx
  test   %edx,%edx
  jle    L101
  xor    %ebx,%ebx
  lea    0x20(%rsp),%r15
  lea    0x1820(%rsp),%r13
  lea    0x3020(%rsp),%r12
  lea    0x4820(%rsp),%rbp
  lea    D6(%rip),%r14
  nopw   0x0(%rax,%rax,1)
L112:
  mov    (%r12,%rbx,4),%ecx
  mov    0x0(%r13,%rbx,4),%edx
  mov    %r14,%rdi
  xor    %eax,%eax
  mov    (%r15,%rbx,4),%esi
  mov    0x0(%rbp,%rbx,4),%r8d
  add    $0x1,%rbx
  call   <printf@plt>
  cmp    %ebx,0x1c(%rsp)
  jg     L112
L101:
  lea    D11(%rip),%rdi
  call   <puts@plt>
  lea    D129(%rip),%rsi
  lea    D27(%rip),%rdi
  call   <fopen@plt>
  mov    %rax,%r10
  test   %rax,%rax
  je     L92
L110:
  mov    %r10,%rdi
  lea    D85(%rip),%rsi
  xor    %eax,%eax
  mov    %r10,0x8(%rsp)
  call   <fprintf@plt>
  mov    0x8(%rsp),%rdi
  lea    D36(%rip),%rsi
  xor    %eax,%eax
  call   <fprintf@plt>
  mov    0x8(%rsp),%rdi
  xor    %eax,%eax
  lea    D64(%rip),%rsi
  call   <fprintf@plt>
  mov    0x1c(%rsp),%eax
  mov    0x8(%rsp),%r10
  test   %eax,%eax
  jle    L61
  xor    %ebx,%ebx
  lea    0x20(%rsp),%r15
  lea    0x1820(%rsp),%r13
  lea    0x3020(%rsp),%r12
  lea    0x4820(%rsp),%rbp
  lea    D6(%rip),%r14
L115:
  mov    0x0(%r13,%rbx,4),%ecx
  mov    (%r15,%rbx,4),%edx
  mov    %r10,%rdi
  xor    %eax,%eax
  mov    0x0(%rbp,%rbx,4),%r9d
  mov    (%r12,%rbx,4),%r8d
  mov    %r14,%rsi
  mov    %r10,0x8(%rsp)
  add    $0x1,%rbx
  call   <fprintf@plt>
  cmp    %ebx,0x1c(%rsp)
  mov    0x8(%rsp),%r10
  jg     L115
L61:
  mov    %r10,%rdi
  xor    %eax,%eax
  mov    %r10,0x8(%rsp)
  lea    D19(%rip),%rsi
  call   <fprintf@plt>
  mov    0x8(%rsp),%r10
  test   %rax,%rax
  jne    L136
L123:
  mov    0x6028(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L179
  add    $0x6038,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax,%rax,1)
L136:
  mov    %r10,%rdi
  call   <fclose@plt>
  jmp    L123
  nopw   0x0(%rax,%rax,1)
L92:
  mov    $0x1,%edi
  mov    %rax,0x8(%rsp)
  call   <exit@plt>
  mov    0x8(%rsp),%r10
  jmp    L110
L179:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: retrieve_data
arguments: tag: D62
type_guessed: string
name: retrieve_data
arguments: tag: D49
type_guessed: string
name: retrieve_data
arguments: tag: D15
type_guessed: string
name: retrieve_data
arguments: tag: D58
type_guessed: string
name: retrieve_data
arguments: tag: D122
type_guessed: string
name: retrieve_data
arguments: tag: D6
type_guessed: string
name: retrieve_data
arguments: tag: D11
type_guessed: string
name: retrieve_data
arguments: tag: D129
type_guessed: string
name: retrieve_data
arguments: tag: D27
type_guessed: string
name: retrieve_data
arguments: tag: D85
type_guessed: string
name: retrieve_data
arguments: tag: D36
type_guessed: string
name: retrieve_data
arguments: tag: D64
type_guessed: string
name: retrieve_data
arguments: tag: D19
type_guessed: string

tool: D62: Number of columns has a table?

tool: D49: %d

tool: D15:  
  List Table with rows
 +---+---+---+---+-------+

tool: D58:  | A | B | C | D |   S   |

tool: D122:  +---+---+---+---+-------+

tool: D6:  | %i | %i | %i | %i |       | 


tool: D11:  +-----------------------+

tool: D129: a

tool: D27: table.txt

tool: D85:  
 List Table with rows
 +---+---+---+---+-------+


tool: D36:  | A | B | C | D |   S   |


tool: D64:  +---+---+---+---+-------+


tool: D19:  +-----------------------+


assistant: ```c
void create() {
  int a[1536], b[1536], c[1536], d[1536], i, cont = 0, choice;
  printf("Number of columns has a table?\x0a");
  scanf("%d", &choice);
  int aa = 0, bb = 0, cc = 0, dd = 0;
  a[0] = 0;
  b[0] = 0;
  c[0] = 0;
  d[0] = 0;
  for (i = 0; i < choice; ++i) {
    if (!(i % 8))
      aa = !aa;
    if (!(i % 4))
      bb = !bb;
    if (!(i % 2))
      cc = !cc;
    dd = !dd;
    a[i] = aa ? 0 : 1;
    b[i] = bb ? 0 : 1;
    c[i] = cc ? 0 : 1;
    d[i] = dd ? 0 : 1;
  }
  printf(" \x0a  List Table with rows\x0a +---+---+---+---+-------+\x0a");
  printf(" | A | B | C | D |   S   |\x0a");
  printf(" +---+---+---+---+-------+\x0a");
  for (i = 0; i < choice; i++)
    printf(" | %i | %i | %i | %i |       | \x0a", a[i], b[i], c[i], d[i]);
  printf(" +-----------------------+\x0a");
  FILE *arq;
  arq = fopen("table.txt", "a");
  if (!arq)
    exit(1);
  fprintf(arq, " \x0a List Table with rows\x0a +---+---+---+---+-------+\x0a");
  fprintf(arq, " | A | B | C | D |   S   |\x0a");
  fprintf(arq, " +---+---+---+---+-------+\x0a");
  for (i = 0; i < choice; i++)
    fprintf(arq, " | %i | %i | %i | %i |       | \x0a", a[i], b[i], c[i], d[i]);
  fprintf(arq, " +-----------------------+\x0a") && fclose(arq);
}
```