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

```asm
<main>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x28,%rsp
  mov    0x8(%rsi),%rdi
  call   <atoi@plt>
  lea    D180(%rip),%rdi
  mov    %eax,%r14d
  add    %eax,%eax
  mov    %eax,0x1c(%rsp)
  mov    %eax,%ebx
  mov    %eax,%ecx
  mov    %r14d,%edx
  mov    %r14d,%esi
  xor    %eax,%eax
  call   <printf@plt>
  mov    %ebx,%eax
  sub    $0x1,%eax
  mov    %eax,0xc(%rsp)
  cmp    $0x1,%eax
  jle    L195
  lea    -0x1(%r14),%eax
  mov    $0x1,%r15d
  mov    %r14d,%r13d
  mov    %eax,0x10(%rsp)
  mov    %r14d,%eax
  shr    $0x2,%eax
  mov    %eax,0x18(%rsp)
  mov    %r14d,%eax
  and    $0xfffffffc,%eax
  mov    %eax,0x14(%rsp)
  nopl   0x0(%rax,%rax,1)
L218:
  xor    %eax,%eax
  mov    %r15d,%esi
  lea    D107(%rip),%rdi
  call   <printf@plt>
  test   %r13d,%r13d
  movdqa D46(%rip),%xmm5
  movdqa D93(%rip),%xmm6
  jle    L5
  cmpl   $0x2,0x10(%rsp)
  jbe    L151
  movd   %r15d,%xmm7
  mov    0x18(%rsp),%ecx
  xor    %edx,%edx
  pxor   %xmm2,%xmm2
  movdqa D53(%rip),%xmm8
  movdqa %xmm6,%xmm9
  pshufd $0x0,%xmm7,%xmm7
  nop
L171:
  movdqa %xmm8,%xmm3
  pxor   %xmm1,%xmm1
  paddd  %xmm9,%xmm8
  xor    %eax,%eax
L99:
  movdqa %xmm1,%xmm0
  movdqa %xmm1,%xmm4
  paddd  %xmm5,%xmm1
  add    $0x1,%eax
  paddd  %xmm3,%xmm0
  pcmpgtd %xmm3,%xmm4
  pcmpeqd %xmm7,%xmm0
  pand   %xmm4,%xmm0
  psubd  %xmm0,%xmm2
  cmp    %eax,%r13d
  jne    L99
  add    $0x1,%edx
  cmp    %ecx,%edx
  jne    L171
  movdqa %xmm2,%xmm0
  mov    0x14(%rsp),%esi
  psrldq $0x8,%xmm0
  paddd  %xmm0,%xmm2
  movdqa %xmm2,%xmm0
  psrldq $0x4,%xmm0
  paddd  %xmm0,%xmm2
  movd   %xmm2,%edi
  cmp    %esi,%r13d
  je     L394
  cs nopw 0x0(%rax,%rax,1)
L24:
  xor    %eax,%eax
  jmp    L355
  nopl   0x0(%rax)
L220:
  mov    %edx,%eax
L355:
  cmp    %eax,%esi
  je     L190
  lea    (%rax,%rsi,1),%edx
  cmp    %r15d,%edx
  jne    L190
  cmp    %eax,%esi
  setle  %dl
  cmp    $0x1,%dl
  sbb    $0xffffffff,%edi
L190:
  lea    0x1(%rax),%edx
  cmp    %edx,%r13d
  jne    L220
  lea    0x1(%rsi),%edx
  cmp    %eax,%esi
  jge    L394
  mov    %edx,%esi
  jmp    L24
  nopl   0x0(%rax)
L394:
  cmp    $0x2,%edi
  jle    L29
  xor    %r8d,%r8d
  xor    %r12d,%r12d
  lea    D21(%rip),%r14
  lea    D157(%rip),%rbp
  nopl   (%rax)
L400:
  xor    %ebx,%ebx
  jmp    L255
  nopl   0x0(%rax)
L184:
  mov    %eax,%ebx
L255:
  cmp    %ebx,%r12d
  je     L250
  lea    (%rbx,%r12,1),%eax
  cmp    %r15d,%eax
  jne    L250
  cmp    %ebx,%r12d
  jle    L213
L250:
  lea    0x1(%rbx),%eax
  cmp    %eax,%r13d
  jne    L184
  lea    0x1(%r12),%eax
  cmp    %ebx,%r12d
  je     L378
  mov    %eax,%r12d
  jmp    L400
L213:
  test   %r8d,%r8d
  jne    L81
  mov    %ebx,%edx
  mov    %r12d,%esi
  mov    %rbp,%rdi
  xor    %eax,%eax
  call   <printf@plt>
  mov    $0x1,%r8d
  jmp    L250
  nopl   0x0(%rax)
L81:
  mov    %ebx,%edx
  mov    %r12d,%esi
  mov    %r14,%rdi
  xor    %eax,%eax
  mov    %r8d,0x8(%rsp)
  call   <printf@plt>
  mov    0x8(%rsp),%r8d
  jmp    L250
  nopl   0x0(%rax,%rax,1)
L228:
  cmp    %r12d,%r13d
  mov    %r12d,%esi
  mov    $0x1,%ecx
  cmovle %r13d,%esi
  test   %esi,%esi
  cmovg  %esi,%ecx
  cmp    $0x3,%esi
  jle    L2
  mov    %ecx,%edx
  movdqa D53(%rip),%xmm1
  xor    %eax,%eax
  shr    $0x2,%edx
  nopl   0x0(%rax)
L138:
  movdqa %xmm1,%xmm0
  add    $0x1,%eax
  paddd  %xmm6,%xmm1
  paddd  %xmm5,%xmm0
  cmp    %eax,%edx
  jne    L138
  mov    %ecx,%eax
  pshufd $0xff,%xmm0,%xmm0
  and    $0xfffffffc,%eax
  and    $0x3,%ecx
  movd   %xmm0,%ebx
  je     L333
L307:
  lea    0x1(%rax),%ebx
  cmp    %ebx,%esi
  jle    L333
  lea    0x2(%rax),%ebx
  add    $0x3,%eax
  cmp    %esi,%ebx
  cmovl  %eax,%ebx
L333:
  cmp    %ebx,%r13d
  jg     L325
  nopl   0x0(%rax)
L337:
  add    $0x1,%r12d
  cmp    %r12d,%r13d
  jne    L131
L5:
  mov    %r15d,%esi
  lea    D34(%rip),%rdi
  xor    %eax,%eax
  add    $0x1,%r15d
  call   <printf@plt>
  cmp    0xc(%rsp),%r15d
  jne    L218
L195:
  mov    0xc(%rsp),%esi
  lea    D104(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  mov    0x1c(%rsp),%esi
  lea    D152(%rip),%rdi
  xor    %eax,%eax
  mov    %esi,%r8d
  mov    %esi,%ecx
  mov    %esi,%edx
  call   <printf@plt>
  add    $0x28,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L378:
  xor    %eax,%eax
  lea    D45(%rip),%rdi
  call   <printf@plt>
  test   $0x1,%r15b
  jne    L5
  mov    %r15d,%esi
  lea    D156(%rip),%rdi
  xor    %eax,%eax
  sar    %esi
  mov    %esi,%edx
  call   <printf@plt>
  jmp    L5
L29:
  xor    %r12d,%r12d
  lea    D105(%rip),%r14
  nopl   0x0(%rax)
L131:
  test   %r12d,%r12d
  jne    L228
  xor    %ebx,%ebx
L325:
  lea    D156(%rip),%rbp
  jmp    L235
  nopl   0x0(%rax)
L127:
  add    $0x1,%ebx
  cmp    %ebx,%r13d
  jle    L337
L235:
  lea    (%r12,%rbx,1),%eax
  cmp    %r15d,%eax
  jne    L127
  cmp    %ebx,%r12d
  je     L159
  mov    %ebx,%edx
  mov    %r12d,%esi
  mov    %r14,%rdi
  xor    %eax,%eax
  call   <printf@plt>
  movdqa D93(%rip),%xmm6
  movdqa D46(%rip),%xmm5
  jmp    L127
  nopl   0x0(%rax,%rax,1)
L159:
  mov    %r12d,%edx
  mov    %r12d,%esi
  mov    %rbp,%rdi
  xor    %eax,%eax
  call   <printf@plt>
  movdqa D46(%rip),%xmm5
  movdqa D93(%rip),%xmm6
  jmp    L127
L2:
  xor    %eax,%eax
  jmp    L307
L151:
  xor    %edi,%edi
  xor    %esi,%esi
  jmp    L24
```

tool_calls: name: unpack_data
arguments: data_tag: D180
type: string
name: unpack_data
arguments: data_tag: D107
type: string
name: unpack_data
arguments: data_tag: D46
type: byte[16]
name: unpack_data
arguments: data_tag: D93
type: byte[16]
name: unpack_data
arguments: data_tag: D53
type: byte[16]
name: unpack_data
arguments: data_tag: D21
type: string
name: unpack_data
arguments: data_tag: D157
type: string
name: unpack_data
arguments: data_tag: D34
type: string
name: unpack_data
arguments: data_tag: D104
type: string
name: unpack_data
arguments: data_tag: D152
type: string
name: unpack_data
arguments: data_tag: D45
type: string
name: unpack_data
arguments: data_tag: D156
type: string
name: unpack_data
arguments: data_tag: D105
type: string

tool: D180: #define TFM_DEFINES
#include "fp_sqr_comba.c"

#ifdef TFM_SQR%d
void fp_sqr_comba%d(fp_int *A, fp_int *B)
{
   fp_digit *a, b[%d], c0, c1, c2, sc0, sc1, sc2;
#ifdef TFM_ISO
   fp_word tt;
#endif

   a = A->dp;
   COMBA_START; 

   /* clear carries */
   CLEAR_CARRY;

   /* output 0 */
   SQRADD(a[0],a[0]);
   COMBA_STORE(b[0]);


tool: D107: 
   /* output %d */
   CARRY_FORWARD;
   

tool: {"D46": [0x01,0x00,0x00,0x00,0x01,0x00,0x00,0x00,0x01,0x00,0x00,0x00,0x01,0x00,0x00,0x00]}

tool: {"D93": [0x04,0x00,0x00,0x00,0x04,0x00,0x00,0x00,0x04,0x00,0x00,0x00,0x04,0x00,0x00,0x00]}

tool: {"D53": [0x00,0x00,0x00,0x00,0x01,0x00,0x00,0x00,0x02,0x00,0x00,0x00,0x03,0x00,0x00,0x00]}

tool: D21: SQRADDAC(a[%d], a[%d]); 

tool: D157: SQRADDSC(a[%d], a[%d]); 

tool: D34: 
   COMBA_STORE(b[%d]);


tool: D104:    COMBA_STORE2(b[%d]);


tool: D152:    COMBA_FINI;

   B->used = %d;
   B->sign = FP_ZPOS;
   memcpy(B->dp, b, %d * sizeof(fp_digit));
   memset(B->dp + %d, 0, (FP_SIZE - %d) * sizeof(fp_digit));
   fp_clamp(B);
}
#endif




tool: D45: SQRADDDB; 

tool: D156: SQRADD(a[%d], a[%d]); 

tool: D105: SQRADD2(a[%d], a[%d]); 

assistant: ```c
int main(int argc, char **argv) {
  int x, y, z, N, f;
  N = atoi(argv[1]);
  printf("#define TFM_DEFINES\n"
         "#include \"fp_sqr_comba.c\"\n"
         "\n"
         "#ifdef TFM_SQR%d\n"
         "void fp_sqr_comba%d(fp_int *A, fp_int *B)\n"
         "{\n"
         "   fp_digit *a, b[%d], c0, c1, c2, sc0, sc1, sc2;\n"
         "#ifdef TFM_ISO\n"
         "   fp_word tt;\n"
         "#endif\n"
         "\n"
         "   a = A->dp;\n"
         "   COMBA_START; \n"
         "\n"
         "   /* clear carries */\n"
         "   CLEAR_CARRY;\n"
         "\n"
         "   /* output 0 */\n"
         "   SQRADD(a[0],a[0]);\n"
         "   COMBA_STORE(b[0]);\n",
         N, N, N + N);
  for (x = 1; x < N + N - 1; x++) {
    printf("\n   /* output %d */\n"
           "   CARRY_FORWARD;\n   ",
           x);
    for (f = y = 0; y < N; y++) {
      for (z = 0; z < N; z++) {
        if (z != y && z + y == x && y <= z) {
          ++f;
        }
      }
    }
    if (f <= 2) {
      for (y = 0; y < N; y++) {
        for (z = 0; z < N; z++) {
          if (y <= z && (y + z) == x) {
            if (y == z) {
              printf("SQRADD(a[%d], a[%d]); ", y, y);
            } else {
              printf("SQRADD2(a[%d], a[%d]); ", y, z);
            }
          }
        }
      }
    } else {
      f = 0;
      for (y = 0; y < N; y++) {
        for (z = 0; z < N; z++) {
          if (z != y && z + y == x && y <= z) {
            if (f == 0) {
              printf("SQRADDSC(a[%d], a[%d]); ", y, z);
              f = 1;
            } else {
              printf("SQRADDAC(a[%d], a[%d]); ", y, z);
            }
          }
        }
      }
      printf("SQRADDDB; ");
      if ((x & 1) == 0) {
        printf("SQRADD(a[%d], a[%d]); ", x / 2, x / 2);
      }
    }
    printf("\n   COMBA_STORE(b[%d]);\n", x);
  }
  printf("   COMBA_STORE2(b[%d]);\n", N + N - 1);
  printf("   COMBA_FINI;\n"
         "\n"
         "   B->used = %d;\n"
         "   B->sign = FP_ZPOS;\n"
         "   memcpy(B->dp, b, %d * sizeof(fp_digit));\n"
         "   memset(B->dp + %d, 0, (FP_SIZE - %d) * sizeof(fp_digit));\n"
         "   fp_clamp(B);\n"
         "}\n#endif\n\n\n",
         N + N, N + N, N + N, N + N);
  return 0;
}
```