user: Translate the below assembly code into C programming language:

```asm
<fisica_regla8>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x88,%rsp
  mov    %rdi,%r14
  mov    %rdi,0x8(%rsp)
  mov    %esi,%r13d
  mov    %fs:0x28,%rax
  mov    %rax,0x78(%rsp)
  xor    %eax,%eax
  movq   $0x0,0x18(%rsp)
  call   <strlen@plt>
  mov    %eax,%ebx
  mov    %r14,%rdi
  call   <strdupa@plt>
  mov    %rax,0x18(%rsp)
  movslq %ebx,%rdx
  add    $0x1,%rdx
  mov    $0x0,%esi
  mov    %r14,%rdi
  call   <memset@plt>
  mov    $0x0,%ebp
  lea    0x20(%rsp),%rbx
  lea    D108(%rip),%r12
L112:
  lea    0x18(%rsp),%rdi
  mov    %r12,%rsi
  call   <strsep@plt>
  mov    %rax,(%rbx)
  test   %rax,%rax
  je     L141
  lea    0x8(%rbx),%rdx
  cmpb   $0x0,(%rax)
  cmovne %rdx,%rbx
  add    $0x1,%ebp
  lea    0x68(%rsp),%rax
  cmp    %rax,%rbx
  jb     L112
L141:
  movq   $0x0,(%rbx)
  test   %ebp,%ebp
  jle    L137
  lea    0x20(%rsp),%rbx
  lea    -0x1(%rbp),%eax
  lea    0x28(%rsp,%rax,8),%r15
  mov    $0x0,%r12d
  lea    D135(%rip),%r14
  jmp    L170
L66:
  lea    D101(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L125
  lea    D43(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L125
  lea    D86(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L125
  lea    D29(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L125
  lea    D76(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L125
  lea    D103(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L125
  lea    D12(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L125
  lea    D51(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L125
  lea    D68(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L125
  lea    D5(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L125
  mov    0x8(%rsp),%rdi
  call   <strlen@plt>
  test   %eax,%eax
  jne    L154
L183:
  mov    %rbp,%rdi
  call   <strlen@plt>
  mov    %eax,%edx
  mov    %rbp,%rsi
  mov    0x8(%rsp),%rdi
  call   <strncat@plt>
L175:
  add    $0x8,%rbx
  cmp    %r15,%rbx
  je     L199
L170:
  mov    (%rbx),%rbp
  mov    %r14,%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  jne    L66
L125:
  mov    $0x1,%r12d
  test   %r13d,%r13d
  je     L175
  mov    %rbp,%rsi
  lea    D137(%rip),%rdi
  call   <printf@plt>
  jmp    L175
L154:
  mov    $0x1,%edx
  lea    D66(%rip),%rsi
  mov    0x8(%rsp),%rdi
  call   <strncat@plt>
  jmp    L183
L137:
  mov    $0x0,%r12d
L199:
  mov    0x78(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L75
  mov    %r12d,%eax
  add    $0x88,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L75:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: data_label: D108
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D135
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D101
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D43
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D86
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D29
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D76
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D103
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D12
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D51
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D68
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D5
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D137
type_guessed: string
name: extract_symbolic_data
arguments: data_label: D66
type_guessed: string

tool: D108:  	


tool: D135: DE

tool: D101: DEL

tool: D43: LA

tool: D86: LAS

tool: D29: LOS

tool: D76: MC

tool: D103: MAC

tool: D12: MI

tool: D51: VAN

tool: D68: VON

tool: D5: Y

tool: D137: Eliminando la palabra "%s".


tool: D66:  

assistant: ```c
int fisica_regla8(char *palabra, int debug) {
  int excluded = 0;
  char **ap = NULL;
  char *word[10];
  int counter = 0;
  int i = 0;
  size_t len = 0;
  char *copy = NULL;
  int applied = 0;
  len = strlen(palabra);
  copy = strdupa(palabra);
  memset(palabra, 0, len + 1);
  for (ap = word; ap < &word[9] && (*ap = strsep(&copy, " \t\n")) != NULL;) {
    if (**ap != '\0') {
      ap++;
    }
    counter++;
  }
  *ap = NULL;
  for (i = 0; i < counter; i++) {
    excluded = 0;
    if (strcmp(word[i], "DE") == 0)
      excluded = 1;
    else if (strcmp(word[i], "DEL") == 0)
      excluded = 1;
    else if (strcmp(word[i], "LA") == 0)
      excluded = 1;
    else if (strcmp(word[i], "LAS") == 0)
      excluded = 1;
    else if (strcmp(word[i], "LOS") == 0)
      excluded = 1;
    else if (strcmp(word[i], "MC") == 0)
      excluded = 1;
    else if (strcmp(word[i], "MAC") == 0)
      excluded = 1;
    else if (strcmp(word[i], "MI") == 0)
      excluded = 1;
    else if (strcmp(word[i], "VAN") == 0)
      excluded = 1;
    else if (strcmp(word[i], "VON") == 0)
      excluded = 1;
    else if (strcmp(word[i], "Y") == 0)
      excluded = 1;
    else {
      if (strlen(palabra))
        strncat(palabra, " ", 1);
      strncat(palabra, word[i], strlen(word[i]));
    }
    if (excluded) {
      if (debug)
        printf("Eliminando la palabra \"%s\".\n", word[i]);
      applied = 1;
    }
  }
  return applied;
}
```