user: What would the C source look like for the assembly code provided here:

```asm
<tparam1>:
  endbr64
  push   %r15
  push   %r14
  mov    %rdi,%r14
  push   %r13
  push   %r12
  mov    %rsi,%r12
  movslq %edx,%rsi
  push   %rbp
  add    %r12,%rsi
  mov    %r12,%r15
  mov    %r12,%r13
  push   %rbx
  xor    %ebx,%ebx
  mov    %rsi,%rbp
  mov    %ebx,%r12d
  sub    $0x38,%rsp
  mov    %edx,0x1c(%rsp)
  mov    %r9,(%rsp)
  mov    %r9,0x8(%rsp)
  movl   $0x0,0x28(%rsp)
  movl   $0x0,0x18(%rsp)
  mov    %rcx,0x20(%rsp)
  mov    %r8,%rcx
  nopl   0x0(%rax)
L220:
  lea    0x5(%r15),%rax
  cmp    %rax,%rbp
  ja     L96
  mov    %rcx,0x10(%rsp)
  test   %r12d,%r12d
  jne    L5
L343:
  mov    0x1c(%rsp),%eax
  lea    0x28(%rbp),%rbx
  lea    0x28(%rax),%r12d
  xor    %eax,%eax
  mov    %r12d,%edi
  call   <xmalloc@plt>
  mov    %r15,%rdx
  mov    %r13,%rsi
  movslq %eax,%rdi
  sub    %r13,%rdx
  call   <memmove@plt>
  mov    0x10(%rsp),%rcx
  mov    %rax,%rdi
L438:
  mov    %rdi,%rbp
  sub    %r13,%rbp
  mov    %rdi,%r13
  add    %rbp,%r15
  add    %rbx,%rbp
L96:
  movsbl (%r14),%eax
  mov    %eax,%edx
  test   %eax,%eax
  je     L518
  cmp    $0x25,%eax
  je     L302
  add    $0x1,%r14
L380:
  mov    %dl,(%r15)
  add    $0x1,%r15
  lea    0x5(%r15),%rax
  cmp    %rax,%rbp
  ja     L96
  mov    %rcx,0x10(%rsp)
  test   %r12d,%r12d
  je     L343
L5:
  movslq %r12d,%rbx
  add    %r12d,%r12d
  mov    %r13,%rdi
  xor    %eax,%eax
  mov    %r12d,%esi
  add    %rbp,%rbx
  call   <xrealloc@plt>
  mov    0x10(%rsp),%rcx
  movslq %eax,%rdi
  jmp    L438
  nopw   0x0(%rax,%rax,1)
L302:
  mov    (%rsp),%rax
  movzbl 0x1(%r14),%edx
  lea    0x2(%r14),%rsi
  mov    (%rax),%ebx
  lea    -0x25(%rdx),%eax
  cmp    $0x4d,%al
  ja     L236
  lea    D9(%rip),%rdi
  movzbl %al,%eax
  movslq (%rdi,%rax,4),%rax
  add    %rdi,%rax
  notrack jmp *%rax
  nopw   0x0(%rax,%rax,1)
L236:
  mov    %rsi,%r14
  jmp    L220
  nopl   0x0(%rax,%rax,1)
L518:
  mov    0x28(%rsp),%eax
  mov    %r13,%r12
  movb   $0x0,(%r15)
  mov    %rcx,%r13
  mov    0x20(%rsp),%rbp
  lea    -0x1(%rax),%ebx
  test   %eax,%eax
  je     L129
  nopw   0x0(%rax,%rax,1)
L176:
  mov    %rbp,%rsi
  mov    %r15,%rdi
  call   <strcat@plt>
  sub    $0x1,%ebx
  jae    L176
L129:
  mov    0x18(%rsp),%eax
  lea    -0x1(%rax),%ebx
  test   %eax,%eax
  je     L377
  nopl   0x0(%rax,%rax,1)
L146:
  mov    %r13,%rsi
  mov    %r15,%rdi
  call   <strcat@plt>
  sub    $0x1,%ebx
  jae    L146
L377:
  add    $0x38,%rsp
  mov    %r12,%rax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  mov    %r15,%rdi
  cmp    $0x9,%ebx
  jle    L334
  cmp    $0x63,%ebx
  jle    L159
  cmp    $0x3e7,%ebx
  jg     L480
L58:
  movslq %ebx,%rax
  mov    %ebx,%r8d
  lea    0x1(%r15),%rdx
  imul   $0x51eb851f,%rax,%rdi
  sar    $0x1f,%r8d
  sar    $0x25,%rdi
  sub    %r8d,%edi
  add    $0x30,%edi
  mov    %dil,(%r15)
L390:
  imul   $0x51eb851f,%rax,%rax
  mov    %ebx,%edi
  sar    $0x1f,%edi
  sar    $0x25,%rax
  sub    %edi,%eax
  lea    0x1(%rdx),%rdi
  imul   $0x64,%eax,%eax
  sub    %eax,%ebx
  movslq %ebx,%rax
  mov    %ebx,%r8d
  imul   $0x66666667,%rax,%rax
  sar    $0x1f,%r8d
  sar    $0x22,%rax
  sub    %r8d,%eax
  add    $0x30,%eax
  mov    %al,(%rdx)
L334:
  movslq %ebx,%rax
  mov    %ebx,%edx
  addq   $0x4,(%rsp)
  mov    %rsi,%r14
  imul   $0x66666667,%rax,%rax
  sar    $0x1f,%edx
  lea    0x1(%rdi),%r15
  sar    $0x22,%rax
  sub    %edx,%eax
  lea    (%rax,%rax,4),%eax
  add    %eax,%eax
  sub    %eax,%ebx
  add    $0x30,%ebx
  mov    %bl,(%rdi)
  jmp    L220
  nopl   0x0(%rax,%rax,1)
L480:
  movslq %ebx,%rax
  mov    %ebx,%edx
  add    $0x1,%r15
  imul   $0x10624dd3,%rax,%rax
  sar    $0x1f,%edx
  sar    $0x26,%rax
  sub    %edx,%eax
  lea    0x30(%rax),%edx
  imul   $0x3e8,%eax,%eax
  mov    %dl,-0x1(%r15)
  sub    %eax,%ebx
  jmp    L58
  movsbl 0x2(%r14),%eax
  cmp    %ebx,%eax
  jge    L152
  movsbl 0x3(%r14),%eax
  mov    (%rsp),%rsi
  add    %ebx,%eax
  mov    %eax,(%rsi)
L152:
  add    $0x4,%r14
  jmp    L220
  movslq %ebx,%rax
  mov    %ebx,%edx
  mov    %rsi,%r14
  imul   $0x66666667,%rax,%rax
  sar    $0x1f,%edx
  sar    $0x22,%rax
  sub    %edx,%eax
  mov    (%rsp),%rdx
  lea    (%rax,%rax,2),%eax
  lea    (%rbx,%rax,2),%eax
  mov    %eax,(%rdx)
  jmp    L220
  mov    %r15,0x10(%rsp)
  mov    %r15,%rax
  cmp    $0x5f,%ebx
  jle    L249
  add    $0x1,%rax
  mov    %ebx,%edx
  mov    %rax,0x10(%rsp)
  movslq %ebx,%rax
  sar    $0x1f,%edx
  imul   $0x2aaaaaab,%rax,%rax
  sar    $0x24,%rax
  sub    %edx,%eax
  mov    %al,(%r15)
  lea    (%rax,%rax,2),%eax
  shl    $0x5,%eax
  sub    %eax,%ebx
L249:
  movsbl 0x2(%r14),%eax
  add    $0x3,%r14
  add    %eax,%ebx
L460:
  test   %rcx,%rcx
  jne    L125
  test   %ebx,%ebx
  mov    $0xffffff80,%eax
  cmove  %eax,%ebx
L229:
  mov    0x10(%rsp),%rax
  mov    %bl,(%rax)
  lea    0x1(%rax),%r15
L319:
  addq   $0x4,(%rsp)
  jmp    L220
  mov    %ebx,%edx
  mov    %rsi,%r14
  sar    $0x1f,%edx
  shr    $0x1c,%edx
  lea    (%rbx,%rdx,1),%eax
  and    $0xf,%eax
  sub    %edx,%eax
  add    %eax,%eax
  sub    %eax,%ebx
  mov    (%rsp),%rax
  mov    %ebx,(%rax)
  jmp    L220
  mov    (%rsp),%rax
  add    $0x1,%ebx
  mov    %rsi,%r14
  addl   $0x1,0x4(%rax)
  mov    %ebx,(%rax)
  jmp    L220
  mov    (%rsp),%rax
  mov    %rsi,%r14
  movabs $0x7f0000007f,%rdx
  xor    %rdx,(%rax)
  jmp    L220
  mov    (%rsp),%rax
  mov    %rsi,%r14
  movabs $0x6000000060,%rdx
  xor    %rdx,(%rax)
  jmp    L220
  mov    (%rsp),%rdx
  addq   $0x4,0x8(%rsp)
  mov    %rsi,%r14
  mov    0x4(%rdx),%eax
  mov    %ebx,0x4(%rdx)
  mov    %eax,(%rdx)
  jmp    L220
  subq   $0x4,(%rsp)
  mov    %rsi,%r14
  jmp    L220
  movzbl 0x4(%r14),%esi
  and    $0x7f,%esi
  cmpb   $0x70,0x3(%r14)
  je     L190
  movsbl %sil,%esi
L173:
  movzbl 0x2(%r14),%eax
  cmp    $0x2d,%al
  je     L264
  cmp    $0x2b,%al
  je     L128
  cmp    $0x2a,%al
  je     L10
  cmp    $0x2f,%al
  jne    L485
  mov    %ebx,%eax
  cltd
  idiv   %esi
  mov    %eax,%esi
  jmp    L485
L159:
  mov    %r15,%rdx
  movslq %ebx,%rax
  jmp    L390
  mov    %rsi,%r14
  jmp    L380
  mov    %r15,0x10(%rsp)
  jmp    L249
  mov    %r15,0x10(%rsp)
  mov    %rsi,%r14
  jmp    L460
  mov    %rsi,%r14
  jmp    L319
  nopl   0x0(%rax,%rax,1)
L125:
  lea    -0x9(%rbx),%eax
  cmp    $0x1,%eax
  jbe    L241
  test   %ebx,%ebx
  jne    L229
L241:
  mov    %r12d,0x2c(%rsp)
  mov    %rcx,%r12
  nopl   0x0(%rax,%rax,1)
L354:
  mov    %ebx,%r15d
  mov    0x8(%rsp),%rcx
  add    $0x1,%ebx
  cmp    %rcx,(%rsp)
  je     L371
  mov    %r12,%rdi
  addl   $0x1,0x18(%rsp)
  call   <strlen@plt>
  sub    %rax,%rbp
L95:
  sub    $0x8,%r15d
  cmp    $0x1,%r15d
  jbe    L354
  test   %ebx,%ebx
  je     L354
  mov    %r12,%rcx
  mov    0x2c(%rsp),%r12d
  jmp    L229
  nopl   0x0(%rax)
L371:
  mov    0x20(%rsp),%rdi
  addl   $0x1,0x28(%rsp)
  call   <strlen@plt>
  sub    %rax,%rbp
  jmp    L95
L264:
  sub    %esi,%ebx
  mov    %ebx,%esi
L485:
  mov    (%rsp),%rax
  add    $0x5,%r14
  mov    %esi,(%rax)
  jmp    L220
L190:
  mov    (%rsp),%rax
  movsbq %sil,%rsi
  mov    -0x100(%rax,%rsi,4),%esi
  jmp    L173
L10:
  imul   %ebx,%esi
  jmp    L485
L128:
  add    %ebx,%esi
  jmp    L485
```

assistant: ```c
char *tparam1(string, outstring, len, up, left, argp)
char *string;
char *outstring;
int len;
char *up, *left;
register int *argp;
{
  register int c;
  register char *p = string;
  register char *op = outstring;
  char *outend;
  int outlen = 0;
  register int tem;
  int *old_argp = argp;
  int doleft = 0;
  int doup = 0;
  outend = outstring + len;
  while (1) {
    if (op + 5 >= outend) {
      register char *new;
      if (outlen == 0) {
        outlen = len + 40;
        new = (char *)xmalloc(outlen);
        outend += 40;
        bcopy(outstring, new, op - outstring);
      } else {
        outend += outlen;
        outlen *= 2;
        new = (char *)xrealloc(outstring, outlen);
      }
      op += new - outstring;
      outend += new - outstring;
      outstring = new;
    }
    c = *p++;
    if (!c)
      break;
    if (c == '%') {
      c = *p++;
      tem = *argp;
      switch (c) {
      case 'd':
        if (tem < 10)
          goto onedigit;
        if (tem < 100)
          goto twodigit;
      case '3':
        if (tem > 999) {
          *op++ = tem / 1000 + '0';
          tem %= 1000;
        }
        *op++ = tem / 100 + '0';
      case '2':
      twodigit:
        tem %= 100;
        *op++ = tem / 10 + '0';
      onedigit:
        *op++ = tem % 10 + '0';
        argp++;
        break;
      case 'C':
        if (tem >= 96) {
          *op++ = tem / 96;
          tem %= 96;
        }
      case '+':
        tem += *p++;
      case '.':
        if (left) {
          while (tem == 0 || tem == '\n' || tem == '\t') {
            tem++;
            if (argp == old_argp)
              doup++, outend -= strlen(up);
            else
              doleft++, outend -= strlen(left);
          }
        }
        *op++ = tem ? tem : 0200;
      case 'f':
        argp++;
        break;
      case 'b':
        argp--;
        break;
      case 'r':
        argp[0] = argp[1];
        argp[1] = tem;
        old_argp++;
        break;
      case '>':
        if (argp[0] > *p++)
          argp[0] += *p;
        p++;
        break;
      case 'a':
        tem = p[2] & 0177;
        if (p[1] == 'p')
          tem = argp[tem - 0100];
        if (p[0] == '-')
          argp[0] -= tem;
        else if (p[0] == '+')
          argp[0] += tem;
        else if (p[0] == '*')
          argp[0] *= tem;
        else if (p[0] == '/')
          argp[0] /= tem;
        else
          argp[0] = tem;
        p += 3;
        break;
      case 'i':
        argp[0]++;
        argp[1]++;
        break;
      case '%':
        goto ordinary;
      case 'n':
        argp[0] ^= 0140;
        argp[1] ^= 0140;
        break;
      case 'm':
        argp[0] ^= 0177;
        argp[1] ^= 0177;
        break;
      case 'B':
        argp[0] += 6 * (tem / 10);
        break;
      case 'D':
        argp[0] -= 2 * (tem % 16);
        break;
      }
    } else
    ordinary:
      *op++ = c;
  }
  *op = 0;
  while (doup-- > 0)
    strcat(op, up);
  while (doleft-- > 0)
    strcat(op, left);
  return outstring;
}
```