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

```asm
<morse2text>:
  endbr64
  push   %r15
  push   %r14
  mov    %rdi,%r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  mov    %rsi,%rbx
  sub    $0x28,%rsp
  mov    %rdi,0x10(%rsp)
  mov    %rsi,%rdi
  call   <strlen@plt>
  lea    0x1(%rax),%r13d
  mov    %rax,%rbp
  mov    %r13d,%edi
  call   <malloc@plt>
  mov    $0x6,%edi
  mov    %rax,%r12
  call   <malloc@plt>
  mov    %r13d,%edi
  mov    %rax,%r15
  call   <malloc@plt>
  lea    D16(%rip),%rsi
  mov    %rax,(%r14)
  mov    %rax,%rdi
  call   <strcpy@plt>
  test   %ebp,%ebp
  jle    L155
  lea    -0x1(%rbp),%eax
  mov    %rbx,%rsi
  xor    %edx,%edx
  lea    0x1(%rbx,%rax,1),%rdi
  nopl   0x0(%rax,%rax,1)
L97:
  movzbl (%rsi),%eax
  lea    -0x2d(%rax),%ecx
  cmp    $0x2,%cl
  jbe    L17
  cmp    $0x20,%al
  jne    L29
L17:
  movslq %edx,%rcx
  add    $0x1,%edx
  mov    %al,(%r12,%rcx,1)
L29:
  add    $0x1,%rsi
  cmp    %rsi,%rdi
  jne    L97
  movslq %edx,%rdx
  add    %r12,%rdx
L119:
  movb   $0x0,(%rdx)
  mov    %r12,%rdi
  call   <strlen@plt>
  test   %eax,%eax
  jle    L53
  lea    -0x1(%rax),%ebp
  lea    0x1(%r12),%rax
  xor    %r13d,%r13d
  xor    %esi,%esi
  mov    %rax,0x18(%rsp)
  lea    D17(%rip),%r14
  jmp    L146
  xchg   %ax,%ax
L108:
  lea    0x1(%r13),%rax
  cmp    %r13,%rbp
  je     L53
L161:
  mov    %rax,%r13
L146:
  mov    %r13d,%edx
  lea    0x1(%r13),%ebx
  testb  $0xdf,0x1(%r12,%r13,1)
  jne    L108
  cmp    %r13d,%esi
  jg     L163
  movslq %esi,%rdi
  sub    %esi,%edx
  xor    %esi,%esi
  lea    (%r12,%rdi,1),%rax
  add    0x18(%rsp),%rdi
  add    %rdx,%rdi
  nopl   0x0(%rax,%rax,1)
L168:
  movzbl (%rax),%edx
  test   $0xdf,%dl
  je     L89
  movslq %esi,%r10
  add    $0x1,%esi
  mov    %dl,(%r15,%r10,1)
L89:
  add    $0x1,%rax
  cmp    %rdi,%rax
  jne    L168
  movslq %esi,%rsi
  add    %r15,%rsi
L127:
  movb   $0x0,(%rsi)
  mov    %r15,%rdi
  mov    %r14,%rsi
  call   <strcmp@plt>
  mov    $0x20,%edx
  test   %rax,%rax
  jne    L156
L147:
  mov    0x10(%rsp),%rax
  mov    %edx,0xc(%rsp)
  mov    (%rax),%rdi
  mov    %rdi,(%rsp)
  call   <strlen@plt>
  mov    (%rsp),%rdi
  mov    0xc(%rsp),%edx
  lea    D8(%rip),%rsi
  add    %rax,%rdi
  call   <sprintf@plt>
  mov    %ebx,%esi
  lea    0x1(%r13),%rax
  cmp    %r13,%rbp
  jne    L161
L53:
  mov    %r12,%rdi
  call   <free@plt>
  test   %r15,%r15
  je     L117
  add    $0x28,%rsp
  mov    %r15,%rdi
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    10b0 <free@plt>
  nopw   0x0(%rax,%rax,1)
L156:
  mov    %r15,%rdi
  call   <word2ascii@plt>
  movsbl %al,%edx
  jmp    L147
  nopl   (%rax)
L117:
  add    $0x28,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nop
L163:
  mov    %r15,%rsi
  jmp    L127
L155:
  mov    %r12,%rdx
  jmp    L119
```

tool_calls: name: extract_symbolic_data
arguments: label: D16
type_infered: string
name: extract_symbolic_data
arguments: label: D17
type_infered: string
name: extract_symbolic_data
arguments: label: D8
type_infered: string

tool: 

tool: D17: /

tool: D8: %c

assistant: ```c
void morse2text(char **text, char *morse) {
  int rc = 0, counter = 0, start = 0, finish = 0, i = 0, j = 0, k = 0, l = 0;
  size_t length = 0, total = 0;
  char chr, ascii;
  char *clean_morse = NULL, *word = NULL;
  length = strlen(morse);
  clean_morse = malloc(sizeof(char) * length + 1);
  word = malloc(sizeof(char) * 5 + 1);
  *text = malloc(sizeof(char) * length + 1);
  strcpy(*text, "");
  for (i = 0, l = (int)length; i < l; i++) {
    chr = morse[i];
    if (chr == '.' || chr == '-' || chr == ' ' || chr == '/') {
      clean_morse[counter++] = chr;
    }
  }
  clean_morse[counter] = '\0';
  length = strlen(clean_morse);
  counter = 0;
  start = 0;
  finish = 0;
  for (i = 0, j = (int)length; i < j; i++) {
    if (clean_morse[i + 1] != ' ' && clean_morse[i + 1] != '\0') {
      finish++;
    } else {
      counter = 0;
      for (k = start, l = finish + 1; k < l; k++) {
        if (clean_morse[k] != ' ' && clean_morse[k] != '\0') {
          word[counter++] = clean_morse[k];
        }
      }
      word[counter] = '\0';
      if (strcmp(word, "/") == 0) {
        ascii = ' ';
      } else {
        ascii = word2ascii(word);
      }
      total = strlen(*text);
      sprintf(*text + total, "%c", ascii);
      start = finish + 1;
      finish = start;
    }
  }
  if (clean_morse) {
    free(clean_morse);
  }
  if (word) {
    free(word);
  }
  if (rc) {
    exit(EXIT_FAILURE);
  }
}
```