user: Please show me the C implementation that matches the assembly code listed below:

```asm
<libbf_naive_interpreter_char>:
  endbr64
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  lea    -0x48000(%rsp),%r11
L124:
  sub    $0x1000,%rsp
  orq    $0x0,(%rsp)
  cmp    %r11,%rsp
  jne    L124
  sub    $0x18,%rsp
  pxor   %xmm0,%xmm0
  mov    $0x7ff0,%edx
  xor    %esi,%esi
  xor    %r12d,%r12d
  lea    D4(%rip),%rbp
  mov    %fs:0x28,%rax
  mov    %rax,0x48008(%rsp)
  xor    %eax,%eax
  mov    %rdi,%rbx
  lea    0x40010(%rsp),%rdi
  mov    %rsp,%r13
  movaps %xmm0,0x40000(%rsp)
  call   <memset@plt>
  nopw   0x0(%rax,%rax,1)
L33:
  movzbl (%rbx),%eax
  test   %al,%al
  je     L145
L150:
  sub    $0x2b,%eax
  cmp    $0x32,%al
  ja     L4
  movzbl %al,%eax
  movslq 0x0(%rbp,%rax,4),%rax
  add    %rbp,%rax
  notrack jmp *%rax
  nopl   0x0(%rax)
  addb   $0x1,0x40000(%rsp,%r12,1)
  nopl   0x0(%rax)
L4:
  movzbl 0x1(%rbx),%eax
  add    $0x1,%rbx
  test   %al,%al
  jne    L150
L145:
  mov    0x48008(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L131
  add    $0x48018,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  ret
  nopl   0x0(%rax)
  mov    -0x8(%r13),%rbx
  sub    $0x8,%r13
  jmp    L33
  nopw   0x0(%rax,%rax,1)
  cmpb   $0x0,0x40000(%rsp,%r12,1)
  je     L50
  mov    %rbx,0x0(%r13)
  add    $0x1,%rbx
  add    $0x8,%r13
  jmp    L33
  nopl   0x0(%rax)
  add    $0x1,%r12
  add    $0x1,%rbx
  jmp    L33
  nopl   (%rax)
  sub    $0x1,%r12
  add    $0x1,%rbx
  jmp    L33
  nopl   (%rax)
  movzbl 0x40000(%rsp,%r12,1),%edi
  add    $0x1,%rbx
  call   <putchar@plt>
  jmp    L33
  nop
  subb   $0x1,0x40000(%rsp,%r12,1)
  add    $0x1,%rbx
  jmp    L33
  nopw   0x0(%rax,%rax,1)
  xor    %eax,%eax
  add    $0x1,%rbx
  call   <getchar@plt>
  mov    %al,0x40000(%rsp,%r12,1)
  jmp    L33
L50:
  mov    $0x1,%ecx
  jmp    L128
  nopw   0x0(%rax,%rax,1)
L143:
  cmp    $0x5d,%al
  je     L154
L114:
  mov    %rdx,%rbx
L128:
  movzbl 0x1(%rbx),%eax
  lea    0x1(%rbx),%rdx
  cmp    $0x5b,%al
  jne    L143
  add    $0x1,%ecx
  jmp    L114
  nopl   0x0(%rax,%rax,1)
L154:
  sub    $0x1,%ecx
  jne    L114
  add    $0x2,%rbx
  jmp    L33
L131:
  call   <__stack_chk_fail@plt>
```

assistant: ```c
void libbf_naive_interpreter_char(const char *code) {
  char *code_ptr = (char *)code;
  unsigned char data[32768] = {0};
  long data_indice = 0;
  char *stack[32768];
  char **p_stack = stack;
  int level;
  while (1) {
    switch (*code_ptr) {
    case 0:
      return;
      break;
    case '+':
      data[data_indice]++;
      break;
    case '-':
      data[data_indice]--;
      break;
    case '>':
      data_indice++;
      break;
    case '<':
      data_indice--;
      break;
    case '.':
      putchar(data[data_indice]);
      break;
    case ',':
      data[data_indice] = getchar();
      break;
    case '[': {
      if (data[data_indice] != 0)
        *(p_stack++) = code_ptr;
      else {
        level = 1;
        do {
          code_ptr++;
          if (*code_ptr == '[')
            level++;
          else if (*code_ptr == ']')
            level--;
        } while (level);
      }
    } break;
    case ']':
      code_ptr = *(--p_stack) - 1;
      break;
    default:
      break;
    }
    code_ptr++;
  }
}
```