user: Demonstrate the C code that generates the assembly output below:

```asm
<text2morse>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x28,%rsp
  mov    %rdi,%r13
  mov    %rsi,%rbp
  mov    %fs:0x28,%rax
  mov    %rax,0x18(%rsp)
  xor    %eax,%eax
  movq   $0x0,0x10(%rsp)
  mov    %rsi,%rdi
  call   <strlen@plt>
  mov    %rax,%rbx
  lea    0x1(%rax),%edi
  call   <malloc@plt>
  mov    %rax,%r12
  lea    (%rbx,%rbx,2),%eax
  lea    0x1(%rax,%rax,1),%edi
  call   <malloc@plt>
  mov    %rax,0x0(%r13)
  mov    $0x6,%edi
  call   <malloc@plt>
  mov    %rax,0x10(%rsp)
  lea    D9(%rip),%rsi
  mov    0x0(%r13),%rdi
  call   <strcpy@plt>
  test   %ebx,%ebx
  jle    L60
  mov    %rbp,%rdx
  lea    -0x1(%rbx),%eax
  lea    0x1(%rbp,%rax,1),%rdi
  mov    $0x0,%ecx
  movabs $0x7fffffe03ff0001,%r8
  jmp    L118
L72:
  lea    -0x20(%rax),%esi
  cmp    $0x3a,%sil
  ja     L124
  bt     %rsi,%r8
  jae    L124
L6:
  movslq %ecx,%rsi
  mov    %al,(%r12,%rsi,1)
  lea    0x1(%rcx),%ecx
L124:
  add    $0x1,%rdx
  cmp    %rdi,%rdx
  je     L107
L118:
  movzbl (%rdx),%eax
  lea    -0x61(%rax),%esi
  cmp    $0x19,%sil
  ja     L72
  sub    $0x20,%eax
  jmp    L6
L60:
  mov    $0x0,%ecx
L107:
  movslq %ecx,%rcx
  movb   $0x0,(%r12,%rcx,1)
  mov    %r12,%rdi
  call   <strlen@plt>
  test   %eax,%eax
  jle    L61
  mov    %r12,%rbp
  lea    -0x1(%rax),%eax
  lea    0x1(%r12,%rax,1),%r15
  lea    0x10(%rsp),%rax
  mov    %rax,0x8(%rsp)
  lea    D23(%rip),%r14
  jmp    L100
L78:
  lea    D18(%rip),%rsi
  mov    0x10(%rsp),%rdi
  call   <strcpy@plt>
L24:
  mov    0x0(%r13),%rbx
  mov    %rbx,%rdi
  call   <strlen@plt>
  cltq
  lea    (%rbx,%rax,1),%rdi
  mov    0x10(%rsp),%rdx
  mov    %r14,%rsi
  call   <sprintf@plt>
  add    $0x1,%rbp
  cmp    %r15,%rbp
  je     L61
L100:
  movzbl 0x0(%rbp),%esi
  cmp    $0x20,%sil
  je     L78
  movsbl %sil,%esi
  mov    0x8(%rsp),%rdi
  call   <ascii2word@plt>
  jmp    L24
L61:
  mov    %r12,%rdi
  call   <free@plt>
  mov    0x10(%rsp),%rdi
  test   %rdi,%rdi
  je     L139
  call   <free@plt>
L139:
  mov    0x18(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L37
  add    $0x28,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L37:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: tag: D9
type_infered: string
name: extract_symbolic_data
arguments: tag: D23
type_infered: string
name: extract_symbolic_data
arguments: tag: D18
type_infered: string

tool: 

tool: D23: %s 

tool: D18: /

assistant: ```c
void text2morse(char **morse, char *text) {
  int rc = 0, counter = 0, total = 0, i = 0, l = 0;
  size_t length = 0;
  char chr;
  char *clean_text = NULL, *word = NULL;
  length = strlen(text);
  clean_text = malloc(sizeof(char) * length + 1);
  *morse = malloc(sizeof(char) * (6 * length) + 1);
  word = malloc(sizeof(char) * 5 + 1);
  strcpy(*morse, "");
  for (i = 0, l = (int)length; i < l; i++) {
    chr = text[i];
    if ((chr >= 'a' && chr <= 'z')) {
      chr -= 0x20;
    }
    if ((chr >= 'A' && chr <= 'Z') || (chr >= '0' && chr <= '9') || chr == ' ') {
      clean_text[counter++] = chr;
    }
  }
  clean_text[counter] = '\0';
  length = strlen(clean_text);
  for (i = 0, l = (int)length; i < l; i++) {
    if (clean_text[i] == ' ') {
      strcpy(word, "/");
    } else {
      ascii2word(&word, clean_text[i]);
    }
    total = (int)strlen(*morse);
    sprintf(*morse + total, "%s ", word);
  }
  if (clean_text) {
    free(clean_text);
  }
  if (word) {
    free(word);
  }
  if (rc) {
    exit(EXIT_FAILURE);
  }
}
```