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

```asm
<a_article_search>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  mov    %rdi,%rbx
  sub    $0x8c8,%rsp
  mov    %rsi,0x8(%rsp)
  lea    0x4b0(%rsp),%rbp
  mov    %rdi,%rsi
  mov    %rdx,0x10(%rsp)
  mov    %rbp,%rdi
  mov    %fs:0x28,%rax
  mov    %rax,0x8b8(%rsp)
  movabs $0x73656d614e2e2f,%rax
  mov    %rax,0x38(%rsp)
  call   <strcpy@plt>
  lea    0x38(%rsp),%rsi
  mov    %rbp,%rdi
  call   <strcat@plt>
  lea    D70(%rip),%rsi
  mov    %rbp,%rdi
  call   <fopen@plt>
  test   %rax,%rax
  je     L140
  mov    %rax,%rbp
  lea    D127(%rip),%r13
  lea    D42(%rip),%r15
L56:
  mov    %rbp,%rdi
  call   <feof@plt>
  test   %eax,%eax
  jne    L188
L3:
  lea    0x2b0(%rsp),%r12
  mov    $0x50,%esi
  lea    0x1b0(%rsp),%r14
  mov    %r12,%rdi
  call   <bzero@plt>
  mov    %rbx,%rsi
  mov    %r12,%rdi
  call   <strcpy@plt>
  mov    %rbp,%rdx
  mov    $0x80,%esi
  mov    %r14,%rdi
  call   <fgets@plt>
  mov    $0x5,%edx
  mov    %r13,%rsi
  mov    %r14,%rdi
  call   <strncmp@plt>
  test   %rax,%rax
  je     L28
  mov    %rbp,%rdi
  movb   $0x0,0x1b0(%rsp)
  call   <feof@plt>
  test   %eax,%eax
  je     L3
L188:
  mov    %rbp,%rdi
  call   <fclose@plt>
L140:
  mov    0x8b8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L10
  add    $0x8c8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax)
L28:
  lea    0x230(%rsp),%r14
  mov    $0x80,%esi
  mov    %rbp,%rdx
  mov    %r14,%rdi
  call   <fgets@plt>
  lea    0x1db(%rsp),%rdi
  mov    %r15,%rsi
  mov    %rdi,(%rsp)
  call   <strstr@plt>
  test   %rax,%rax
  jne    L56
  mov    (%rsp),%rdi
  lea    D91(%rip),%rsi
  call   <strstr@plt>
  test   %rax,%rax
  jne    L56
  lea    0x1b5(%rsp),%rax
  lea    D118(%rip),%rsi
  mov    %rax,%rdi
  mov    %rax,(%rsp)
  call   <strstr@plt>
  test   %rax,%rax
  jne    L56
  mov    $0x5,%edx
  lea    D109(%rip),%rsi
  mov    %r14,%rdi
  call   <strncmp@plt>
  lea    0x160(%rsp),%rcx
  mov    %rcx,0x18(%rsp)
  test   %rax,%rax
  je     L186
L106:
  lea    D79(%rip),%rsi
  mov    %r12,%rdi
  call   <strcat@plt>
  mov    0x18(%rsp),%rsi
  mov    %r12,%rdi
  call   <strcat@plt>
  mov    %r12,%rdi
  call   <strlen@plt>
  mov    %r12,%rdi
  lea    0x34(%rsp),%rsi
  sub    $0x1,%eax
  cltq
  movb   $0x0,0x2b0(%rsp,%rax,1)
  call   <lstat@plt>
  mov    0x34(%rsp),%edi
  call   <S_ISDIR@plt>
  test   %rax,%rax
  jne    L175
  mov    0x34(%rsp),%edi
  call   <S_ISREG@plt>
  test   %rax,%rax
  je     L56
  lea    0xe0(%rsp),%r12
  mov    $0x40,%esi
  lea    0x120(%rsp),%r14
  mov    %r12,%rdi
  call   <bzero@plt>
  mov    (%rsp),%rsi
  mov    $0x26,%edx
  mov    %r12,%rdi
  call   <strncpy@plt>
  mov    %r12,%rsi
  mov    %r14,%rdi
  call   <strcpy@plt>
  lea    0xa0(%rsp),%r8
  mov    0x8(%rsp),%rsi
  mov    %r8,%rdi
  mov    %r8,(%rsp)
  call   <strcpy@plt>
  mov    %r14,%rdi
  call   <toupper@plt>
  mov    (%rsp),%rdi
  call   <toupper@plt>
  mov    (%rsp),%rsi
  mov    %r14,%rdi
  call   <strstr@plt>
  test   %rax,%rax
  je     L86
  lea    0x40(%rsp),%r14
  mov    %rbp,%rdx
  mov    $0x14,%esi
  mov    %r14,%rdi
  call   <fgets@plt>
  mov    $0x5,%edx
  lea    D117(%rip),%rsi
  mov    %r14,%rdi
  call   <strncmp@plt>
  test   %rax,%rax
  je     L19
L44:
  lea    0x80(%rsp),%r9
  mov    0x10(%rsp),%rdx
  lea    0x45(%rsp),%rcx
  mov    %r9,%rdi
  lea    D100(%rip),%rsi
  mov    %r9,0x28(%rsp)
  call   <sprintf@plt>
  mov    %r12,%rdi
  call   <strlen@plt>
  lea    0x3b0(%rsp),%rdx
  lea    0x2c3(%rsp),%rsi
  sub    $0x7,%eax
  mov    %rdx,%rdi
  mov    %rdx,(%rsp)
  cltq
  movb   $0x0,0xe0(%rsp,%rax,1)
  call   <strcpy@plt>
  mov    (%rsp),%rdi
  mov    $0x2f,%esi
  call   <strrchr@plt>
  lea    0x60(%rsp),%rcx
  mov    %rcx,%rdi
  mov    %rax,%rsi
  mov    %rcx,0x18(%rsp)
  mov    %rax,0x20(%rsp)
  call   <strcpy@plt>
  mov    (%rsp),%rdi
  call   <strlen@plt>
  mov    0x20(%rsp),%rdi
  mov    %eax,%r14d
  call   <strlen@plt>
  mov    %r12,%rdi
  sub    %eax,%r14d
  movslq %r14d,%r14
  movb   $0x0,0x3b0(%rsp,%r14,1)
  call   <strlen@plt>
  mov    0x18(%rsp),%rcx
  mov    (%rsp),%rdx
  mov    %r12,%r8
  sub    $0x1,%eax
  mov    0x28(%rsp),%rsi
  lea    D11(%rip),%rdi
  cltq
  movb   $0x0,0xe0(%rsp,%rax,1)
  call   <printf@plt>
  jmp    L56
L175:
  lea    0x120(%rsp),%r14
  mov    %rbp,%rdx
  mov    $0x14,%esi
  mov    %r14,%rdi
  call   <fgets@plt>
  mov    $0x5,%edx
  lea    D117(%rip),%rsi
  mov    %r14,%rdi
  call   <strncmp@plt>
  test   %rax,%rax
  je     L57
L169:
  mov    0x10(%rsp),%rdx
  lea    0x3b0(%rsp),%r14
  lea    0x125(%rsp),%rcx
  mov    %r14,%rdi
  lea    D56(%rip),%rsi
  call   <sprintf@plt>
  mov    0x8(%rsp),%rsi
  mov    %r14,%rdx
  mov    %r12,%rdi
  call   <a_article_search>
  jmp    L56
L186:
  mov    $0x7,%edx
  lea    D62(%rip),%rsi
  mov    %r14,%rdi
  call   <strncmp@plt>
  test   %rax,%rax
  jne    L151
  mov    0x18(%rsp),%rdi
  lea    0x237(%rsp),%rsi
  mov    $0x50,%edx
  call   <strncpy@plt>
L180:
  movb   $0x0,0x1af(%rsp)
  jmp    L106
L57:
  mov    %r14,%rdi
  call   <strlen@plt>
  sub    $0x1,%eax
  cltq
  movb   $0x0,0x120(%rsp,%rax,1)
  jmp    L169
L151:
  mov    0x18(%rsp),%rdi
  lea    0x235(%rsp),%rsi
  mov    $0x50,%edx
  call   <strncpy@plt>
  jmp    L180
L86:
  movb   $0x0,0x1b0(%rsp)
  movb   $0x0,0x230(%rsp)
  jmp    L56
L19:
  mov    %r14,%rdi
  call   <strlen@plt>
  sub    $0x1,%eax
  cltq
  movb   $0x0,0x40(%rsp,%rax,1)
  jmp    L44
L10:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: disassemble_data
arguments: tag: D70
type_guessed: string
name: disassemble_data
arguments: tag: D127
type_guessed: string
name: disassemble_data
arguments: tag: D42
type_guessed: string
name: disassemble_data
arguments: tag: D91
type_guessed: string
name: disassemble_data
arguments: tag: D118
type_guessed: string
name: disassemble_data
arguments: tag: D109
type_guessed: string
name: disassemble_data
arguments: tag: D79
type_guessed: string
name: disassemble_data
arguments: tag: D117
type_guessed: string
name: disassemble_data
arguments: tag: D100
type_guessed: string
name: disassemble_data
arguments: tag: D11
type_guessed: string
name: disassemble_data
arguments: tag: D56
type_guessed: string
name: disassemble_data
arguments: tag: D62
type_guessed: string

tool: D70: r

tool: D127: Name=

tool: D42: (BM: BMS)

tool: D91: (BM: SYSOPS)

tool: D118: <HIDE>

tool: D109: Path=

tool: D79: /

tool: D117: Numb=

tool: D100: %s%s

tool: D11: %s,%s,%s,%s 


tool: D56: %s%s-

tool: D62: Path=~/

assistant: ```c
void a_article_search(char *path, char *key, char *location) {
  FILE *fp;
  struct stat buf;
  char index_file[] = "/.Names";
  char titlebuf[128];
  char pathbuf[128];
  char index_path[1024];
  char filename[256];
  strcpy(index_path, path);
  strcat(index_path, index_file);
  if ((fp = fopen(index_path, "r")) == NULL) {
    return;
  }
  while (!feof(fp)) {
    bzero(filename, 80);
    strcpy(filename, path);
    fgets(titlebuf, 128, fp);
    if (strncmp(titlebuf, "Name=", 5) == 0) {
      fgets(pathbuf, 128, fp);
      if (strstr(titlebuf + 43, "(BM: BMS)") || strstr(titlebuf + 43, "(BM: SYSOPS)") || strstr(titlebuf + 5, "<HIDE>"))
        continue;
      char temppath[80];
      if (strncmp(pathbuf, "Path=", 5) == 0) {
        if (strncmp(pathbuf, "Path=~/", 7) == 0)
          strncpy(temppath, pathbuf + 7, 80);
        else
          strncpy(temppath, pathbuf + 5, 80);
        temppath[79] = '\0';
      }
      strcat(filename, "/");
      strcat(filename, temppath);
      filename[strlen(filename) - 1] = '\0';
      lstat(filename, &buf);
      if (S_ISDIR(buf.st_mode)) {
        char linebuf[20];
        fgets(linebuf, 20, fp);
        if (strncmp(linebuf, "Numb=", 5) == 0)
          linebuf[strlen(linebuf) - 1] = '\0';
        char nextlocate[20];
        sprintf(nextlocate, "%s%s-", location, linebuf + 5);
        a_article_search(filename, key, nextlocate);
      } else if (S_ISREG(buf.st_mode)) {
        char temptitle[64];
        bzero(temptitle, sizeof(temptitle));
        strncpy(temptitle, titlebuf + 5, 38);
        char tempupper[64];
        strcpy(tempupper, temptitle);
        char keyupper[50];
        strcpy(keyupper, key);
        toupper(tempupper);
        toupper(keyupper);
        if (strstr(tempupper, keyupper) != NULL) {
          char linebuf[20];
          fgets(linebuf, 20, fp);
          if (strncmp(linebuf, "Numb=", 5) == 0)
            linebuf[strlen(linebuf) - 1] = '\0';
          char nextlocate[32];
          sprintf(nextlocate, "%s%s", location, linebuf + 5);
          temptitle[strlen(temptitle) - 7] = '\0';
          char *filenamenum;
          char tempresult[256];
          strcpy(tempresult, filename + 19);
          filenamenum = strrchr(tempresult, '/');
          char temptitleresult[30];
          strcpy(temptitleresult, filenamenum);
          tempresult[strlen(tempresult) - strlen(filenamenum)] = '\0';
          temptitle[strlen(temptitle) - 1] = '\0';
          printf("%s,%s,%s,%s \n", nextlocate, tempresult, temptitleresult, temptitle);
        } else {
          titlebuf[0] = '\0';
          pathbuf[0] = '\0';
        }
      } else {
        continue;
      }
    } else
      titlebuf[0] = '\0';
  }
  fclose(fp);
  return;
}
```