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

```asm
<fftkey>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x78,%rsp
  mov    (%rsi),%r15d
  mov    %rdi,0x8(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x68(%rsp)
  xor    %eax,%eax
  test   %r15d,%r15d
  jg     L115
  mov    %rdi,%r13
  mov    %rsi,%rbx
  call   <strlen@plt>
  mov    $0x8,%edx
  cmp    %rdx,%rax
  cmovbe %rax,%rdx
  mov    %rdx,%r12
  test   %rax,%rax
  je     L115
  xor    %ebp,%ebp
  xor    %r14d,%r14d
  jmp    L31
  nopl   0x0(%rax)
L104:
  sub    $0x2d,%eax
  cmp    $0x32,%al
  ja     L167
  movabs $0xfffbc000000fe006,%rcx
  bt     %rax,%rcx
  jae    L159
  nopw   0x0(%rax,%rax,1)
L167:
  cmpb   $0x20,0x0(%r13)
  jne    L87
  mov    $0x1,%ebp
L173:
  add    $0x1,%r14
  add    $0x1,%r13
  cmp    %r14,%r12
  jbe    L115
L31:
  movzbl 0x0(%r13),%eax
  test   %r15d,%r15d
  je     L104
  movsbl %al,%edi
  call   <toupper@plt>
  mov    (%rbx),%r15d
  jmp    L104
  nopl   0x0(%rax)
L159:
  test   %ebp,%ebp
  je     L173
  test   %r15d,%r15d
  je     L135
L112:
  movl   $0xcf,(%rbx)
  mov    $0xcf,%r15d
L115:
  mov    0x68(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L139
  add    $0x78,%rsp
  mov    %r15d,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L135:
  lea    0x10(%rsp),%rbp
  mov    0x8(%rsp),%rcx
  lea    D37(%rip),%rdx
  xor    %eax,%eax
  mov    %rbp,%rdi
  mov    $0x51,%esi
  call   <snprintf@plt>
  mov    %rbp,%rdi
  call   <ffpmsg@plt>
  jmp    L112
L87:
  test   %r15d,%r15d
  jne    L112
  mov    0x8(%rsp),%r8
  lea    0x10(%rsp),%rbp
  lea    0x1(%r14),%ecx
  xor    %eax,%eax
  lea    D12(%rip),%rdx
  mov    $0x51,%esi
  mov    %rbp,%rdi
  call   <snprintf@plt>
  mov    %rbp,%rdi
  call   <ffpmsg@plt>
  movzbl 0x0(%r13),%eax
  test   %al,%al
  je     L163
  cmp    $0x9,%al
  jne    L112
  lea    D33(%rip),%rdi
  call   <ffpmsg@plt>
  jmp    L112
L163:
  lea    D39(%rip),%rdi
  call   <ffpmsg@plt>
  jmp    L112
L139:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: parse_data
arguments: label: D37
datatype: string
name: parse_data
arguments: label: D12
datatype: string
name: parse_data
arguments: label: D33
datatype: string
name: parse_data
arguments: label: D39
datatype: string

tool: D37: Keyword name contains embedded space(s): %.8s

tool: D12: Character %d in this keyword is illegal: %.8s

tool: D33:  (This an ASCII TAB (9) character).

tool: D39:  (This a NULL (0) character).

assistant: ```c
int fftkey(const char *keyword, int *status) {
  size_t maxchr, ii;
  int spaces = 0;
  char msg[81], testchar;
  if (*status > 0)
    return (*status);
  maxchr = strlen(keyword);
  if (maxchr > 8)
    maxchr = 8;
  for (ii = 0; ii < maxchr; ii++) {
    if (*status == 0)
      testchar = keyword[ii];
    else
      testchar = toupper(keyword[ii]);
    if ((testchar >= 'A' && testchar <= 'Z') || (testchar >= '0' && testchar <= '9') || testchar == '-' || testchar == '_') {
      if (spaces) {
        if (*status == 0) {
          snprintf(msg, 81, "Keyword name contains embedded space(s): %.8s", keyword);
          ffpmsg(msg);
        }
        return (*status = 207);
      }
    } else if (keyword[ii] == ' ')
      spaces = 1;
    else {
      if (*status == 0) {
        snprintf(msg, 81, "Character %d in this keyword is illegal: %.8s", (int)(ii + 1), keyword);
        ffpmsg(msg);
        if (keyword[ii] == 0)
          ffpmsg(" (This a NULL (0) character).");
        else if (keyword[ii] == 9)
          ffpmsg(" (This an ASCII TAB (9) character).");
      }
      return (*status = 207);
    }
  }
  return (*status);
}
```