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

```asm
<accept_loop>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  lea    -0x4000(%rsp),%r11
L35:
  sub    $0x1000,%rsp
  orq    $0x0,(%rsp)
  cmp    %r11,%rsp
  jne    L35
  sub    $0x138,%rsp
  mov    $0x1fe,%ecx
  pxor   %xmm0,%xmm0
  mov    %fs:0x28,%rax
  mov    %rax,0x4128(%rsp)
  xor    %eax,%eax
  mov    %edi,%ebx
  lea    0x130(%rsp),%rdi
  movaps %xmm0,0x120(%rsp)
  movaps %xmm0,0x1120(%rsp)
  movaps %xmm0,0x2120(%rsp)
  movaps %xmm0,0x3120(%rsp)
  rep stos %rax,%es:(%rdi)
  lea    0x1130(%rsp),%rdi
  mov    $0x1fe,%ecx
  rep stos %rax,%es:(%rdi)
  lea    0x2130(%rsp),%rdi
  mov    $0x1fe,%ecx
  rep stos %rax,%es:(%rdi)
  lea    0x3130(%rsp),%rdi
  mov    $0x1fe,%ecx
  rep stos %rax,%es:(%rdi)
  lea    0x10(%rsp),%rax
  mov    %rax,(%rsp)
  lea    0x18(%rsp),%rax
  mov    %rax,0x8(%rsp)
  jmp    L5
  nop
L25:
  mov    0x1c(%rsp),%edi
  lea    0x20(%rsp),%r12
  lea    0x2120(%rsp),%r13
  lea    0xa0(%rsp),%r15
  call   <inet_ntoa@plt>
  mov    0x18(%rsp),%edi
  mov    %rax,%rbp
  call   <ntohs@plt>
  mov    %rbp,%rsi
  lea    D83(%rip),%rdi
  lea    0x120(%rsp),%rbp
  mov    %eax,%edx
  xor    %eax,%eax
  call   <printf@plt>
  xor    %esi,%esi
  mov    %rbp,%rdi
  mov    $0x1000,%edx
  call   <memset@plt>
  xor    %ecx,%ecx
  mov    %rbp,%rsi
  mov    $0x1000,%edx
  mov    %r14d,%edi
  call   <recv@plt>
  lea    D192(%rip),%rdi
  call   <puts@plt>
  mov    %rbp,%rdi
  lea    0x3120(%rsp),%rbp
  call   <puts@plt>
  lea    D39(%rip),%rdi
  call   <puts@plt>
  xor    %edi,%edi
  call   <time@plt>
  lea    0x14(%rsp),%rdi
  mov    %eax,0x14(%rsp)
  call   <gmtime@plt>
  lea    D105(%rip),%rdx
  mov    %r12,%rdi
  mov    $0x80,%esi
  mov    %rax,%rcx
  call   <strftime@plt>
  lea    D81(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcpy@plt>
  lea    D20(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcat@plt>
  lea    D141(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcat@plt>
  lea    D176(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcat@plt>
  lea    D82(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcat@plt>
  lea    D181(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcat@plt>
  mov    %r12,%rsi
  mov    %rbp,%rdi
  lea    D45(%rip),%r12
  call   <strcat@plt>
  mov    %r12,%rsi
  mov    %rbp,%rdi
  call   <strcat@plt>
  lea    D19(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcat@plt>
  lea    D77(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcat@plt>
  lea    D144(%rip),%rsi
  mov    %r13,%rdi
  call   <strcpy@plt>
  lea    D175(%rip),%rsi
  mov    %r13,%rdi
  call   <strcat@plt>
  mov    %rbp,%rdi
  call   <strlen@plt>
  mov    %r15,%rdi
  lea    D56(%rip),%rsi
  mov    %eax,%edx
  call   <sprintf@plt>
  mov    %r15,%rsi
  mov    %r13,%rdi
  lea    0x1120(%rsp),%r15
  call   <strcat@plt>
  mov    %r12,%rsi
  mov    %r13,%rdi
  call   <strcat@plt>
  lea    D127(%rip),%rsi
  mov    %r13,%rdi
  call   <strcat@plt>
  lea    D84(%rip),%rsi
  mov    %r13,%rdi
  call   <strcat@plt>
  lea    D38(%rip),%rsi
  mov    %r13,%rdi
  call   <strcat@plt>
  mov    %r13,%rsi
  mov    %r15,%rdi
  call   <strcpy@plt>
  mov    %r12,%rsi
  mov    %r15,%rdi
  call   <strcat@plt>
  mov    %rbp,%rsi
  mov    %r15,%rdi
  call   <strcat@plt>
  mov    %r15,%rdi
  call   <strlen@plt>
  mov    %r14d,%edi
  xor    %ecx,%ecx
  mov    %r15,%rsi
  mov    %eax,%edx
  call   <send@plt>
  mov    %r14d,%edi
  call   <close@plt>
L5:
  mov    (%rsp),%rdx
  mov    0x8(%rsp),%rsi
  mov    %ebx,%edi
  movl   $0x8,0x10(%rsp)
  call   <accept@plt>
  mov    %eax,%r14d
  test   %eax,%eax
  jns    L25
  lea    D87(%rip),%rdi
  call   <perror@plt>
  mov    0x4128(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L6
  add    $0x4138,%rsp
  mov    $0xffffffff,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L6:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: data_tag: D83
datatype: string
name: unpack_data
arguments: data_tag: D192
datatype: string
name: unpack_data
arguments: data_tag: D39
datatype: string
name: unpack_data
arguments: data_tag: D105
datatype: string
name: unpack_data
arguments: data_tag: D81
datatype: string
name: unpack_data
arguments: data_tag: D20
datatype: string
name: unpack_data
arguments: data_tag: D141
datatype: string
name: unpack_data
arguments: data_tag: D176
datatype: string
name: unpack_data
arguments: data_tag: D82
datatype: string
name: unpack_data
arguments: data_tag: D181
datatype: string
name: unpack_data
arguments: data_tag: D45
datatype: string
name: unpack_data
arguments: data_tag: D19
datatype: string
name: unpack_data
arguments: data_tag: D77
datatype: string
name: unpack_data
arguments: data_tag: D144
datatype: string
name: unpack_data
arguments: data_tag: D175
datatype: string
name: unpack_data
arguments: data_tag: D56
datatype: string
name: unpack_data
arguments: data_tag: D127
datatype: string
name: unpack_data
arguments: data_tag: D84
datatype: string
name: unpack_data
arguments: data_tag: D38
datatype: string
name: unpack_data
arguments: data_tag: D87
datatype: string

tool: D83: accept!(IPAddress = %s, Port = %hu)


tool: D192: ----- recv begin -----

tool: D39: ----- recv end -----

tool: D105: %Y/%m/%d %H:%M:%S %Z

tool: D81: <html>


tool: D20:   <head>


tool: D141:     <title>Content-Type</title>


tool: D176:   </head>


tool: D82:   <body>


tool: D181:     

tool: D45: 


tool: D19:   </body>


tool: D77: </html>


tool: D144: HTTP/1.0 200 OK


tool: D175: Content-Length: 

tool: D56: %d

tool: D127: Content-Type: text/html


tool: D84: Set-Cookie: key1=value1


tool: D38: Set-Cookie: key2=value2


tool: D87: accept

assistant: ```c
int accept_loop(int soc) {
  struct sockaddr_in client_addr;
  int client_addr_len;
  int acc;
  char *client_ip_addr_str;
  u_short client_port;
  int ret = 0;
  char recv_buf[4096] = {0};
  char send_buf[4096] = {0};
  char response_header[4096] = {0};
  char response_body[4096] = {0};
  time_t t;
  struct tm *tm_ptr;
  char time_str[128];
  int content_length = 0;
  char content_length_str[128];
  while (1) {
    client_addr_len = sizeof(client_addr);
    acc = accept(soc, (struct sockaddr *)&client_addr, &client_addr_len);
    if (acc < 0) {
      perror("accept");
      ret = -1;
      break;
    }
    client_ip_addr_str = inet_ntoa(client_addr.sin_addr);
    client_port = ntohs(client_addr.sin_port);
    printf("accept!(IPAddress = %s, Port = %hu)\n", client_ip_addr_str, client_port);
    memset(recv_buf, 0, sizeof(char) * 4096);
    recv(acc, recv_buf, sizeof(recv_buf), 0);
    printf("----- recv begin -----\n");
    printf("%s\n", recv_buf);
    printf("----- recv end -----\n");
    t = time(NULL);
    tm_ptr = gmtime(&t);
    strftime(time_str, sizeof(time_str), "%Y/%m/%d %H:%M:%S %Z", tm_ptr);
    strcpy(response_body, "<html>\r\n");
    strcat(response_body, "  <head>\r\n");
    strcat(response_body, "    <title>Content-Type</title>\r\n");
    strcat(response_body, "  </head>\r\n");
    strcat(response_body, "  <body>\r\n");
    strcat(response_body, "    ");
    strcat(response_body, time_str);
    strcat(response_body, "\r\n");
    strcat(response_body, "  </body>\r\n");
    strcat(response_body, "</html>\r\n");
    strcpy(response_header, "HTTP/1.0 200 OK\r\n");
    strcat(response_header, "Content-Length: ");
    content_length = strlen(response_body);
    sprintf(content_length_str, "%d", content_length);
    strcat(response_header, content_length_str);
    strcat(response_header, "\r\n");
    strcat(response_header, "Content-Type: text/html\r\n");
    strcat(response_header, "Set-Cookie: key1=value1\r\n");
    strcat(response_header, "Set-Cookie: key2=value2\r\n");
    strcpy(send_buf, response_header);
    strcat(send_buf, "\r\n");
    strcat(send_buf, response_body);
    send(acc, send_buf, strlen(send_buf), 0);
    close(acc);
  }
  return ret;
}
```