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

```asm
<__sccl>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  mov    %rdi,%rbx
  sub    $0x18,%rsp
  movzbl (%rsi),%ebp
  cmp    $0x5e,%ebp
  je     L98
  lea    0x1(%rsi),%r12
  xor    %eax,%eax
  xor    %r8d,%r8d
L34:
  movabs $0x101010101010101,%rdi
  movzbl %al,%ecx
  mov    %rcx,%rax
  mov    %rcx,%rsi
  mul    %rdi
  imul   %rdi,%rsi
  mov    %rax,(%rbx)
  mov    %rcx,%rax
  add    %rdx,%rsi
  mul    %rdi
  mov    %rsi,0x8(%rbx)
  mov    %rsi,0x18(%rbx)
  mov    %rax,0x10(%rbx)
  mov    %rcx,%rax
  mul    %rdi
  mov    %rsi,0x28(%rbx)
  mov    %rsi,0x38(%rbx)
  mov    %rsi,0x48(%rbx)
  mov    %rax,0x20(%rbx)
  mov    %rcx,%rax
  mul    %rdi
  mov    %rsi,0x58(%rbx)
  mov    %rsi,0x68(%rbx)
  mov    %rsi,0x78(%rbx)
  mov    %rax,0x30(%rbx)
  mov    %rcx,%rax
  mul    %rdi
  mov    %rsi,0x88(%rbx)
  mov    %rsi,0x98(%rbx)
  mov    %rsi,0xa8(%rbx)
  mov    %rax,0x40(%rbx)
  mov    %rcx,%rax
  mul    %rdi
  mov    %rsi,0xb8(%rbx)
  mov    %rsi,0xc8(%rbx)
  mov    %rsi,0xd8(%rbx)
  mov    %rax,0x50(%rbx)
  mov    %rcx,%rax
  mul    %rdi
  mov    %rsi,0xe8(%rbx)
  mov    %rsi,0xf8(%rbx)
  mov    %rax,0x60(%rbx)
  mov    %rcx,%rax
  mul    %rdi
  mov    %rax,0x70(%rbx)
  mov    %rcx,%rax
  mul    %rdi
  mov    %rax,0x80(%rbx)
  mov    %rcx,%rax
  mul    %rdi
  mov    %rax,0x90(%rbx)
  mov    %rcx,%rax
  mul    %rdi
  mov    %rax,0xa0(%rbx)
  mov    %rcx,%rax
  mul    %rdi
  mov    %rax,0xb0(%rbx)
  mov    %rcx,%rax
  mul    %rdi
  mov    %rax,0xc0(%rbx)
  mov    %rcx,%rax
  mul    %rdi
  mov    %rax,0xd0(%rbx)
  mov    %rcx,%rax
  mul    %rdi
  mov    %rax,0xe0(%rbx)
  mov    %rcx,%rax
  mul    %rdi
  mov    %rax,0xf0(%rbx)
  test   %ebp,%ebp
  je     L0
  mov    $0x1,%r13d
  mov    $0x1,%ecx
  sub    %r8d,%r13d
  mov    %r13d,%r15d
L70:
  movslq %ebp,%rax
  mov    %r15b,(%rbx,%rax,1)
L64:
  movzbl (%r12),%eax
  lea    0x1(%r12),%rdx
  cmp    $0x2d,%al
  je     L109
  cmp    $0x5d,%al
  je     L116
  test   %al,%al
  je     L45
  movzbl %al,%ebp
L82:
  mov    %rdx,%r12
  jmp    L70
L116:
  mov    %rdx,%r12
L45:
  add    $0x18,%rsp
  mov    %r12,%rax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L0:
  sub    $0x1,%r12
  jmp    L45
L98:
  movzbl 0x1(%rsi),%ebp
  lea    0x2(%rsi),%r12
  mov    $0x1,%eax
  mov    $0x1,%r8d
  jmp    L34
L109:
  movzbl 0x1(%r12),%r8d
  cmp    $0x5d,%r8d
  je     L62
  cmp    %r8d,%ebp
  jg     L62
  mov    %r8d,%r14d
  lea    0x1(%rbp),%r9d
  add    $0x2,%r12
  mov    %r13d,%esi
  sub    %ebp,%r14d
  movslq %r9d,%rdi
  mov    %r8d,0xc(%rsp)
  lea    -0x1(%r14),%edx
  mov    %r9d,0x8(%rsp)
  mov    %rdx,%r14
  add    $0x1,%rdx
  cmp    %r8d,%ebp
  cmovge %rcx,%rdx
  add    %rbx,%rdi
  call   <memset@plt>
  mov    0xc(%rsp),%r8d
  xor    %eax,%eax
  mov    0x8(%rsp),%r9d
  mov    $0x1,%ecx
  cmp    %r8d,%ebp
  cmovge %eax,%r14d
  lea    (%r14,%r9,1),%ebp
  jmp    L64
L62:
  mov    $0x2d,%ebp
  jmp    L82
```

assistant: ```c
unsigned char *__sccl(tab, fmt)
char *tab;
unsigned char *fmt;
{
  int c, n, v;
  c = *fmt++;
  if (c == '^') {
    v = 1;
    c = *fmt++;
  } else
    v = 0;
  for (n = 0; n < 256; n++)
    tab[n] = v;
  if (c == 0)
    return (fmt - 1);
  v = 1 - v;
  for (;;) {
    tab[c] = v;
  doswitch:
    n = *fmt++;
    switch (n) {
    case 0:
      return (fmt - 1);
    case '-':
      n = *fmt;
      if (n == ']' || n < c) {
        c = '-';
        break;
      }
      fmt++;
      do {
        tab[++c] = v;
      } while (c < n);
      goto doswitch;
      break;
    case ']':
      return (fmt);
    default:
      c = n;
      break;
    }
  }
}
```