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

```asm
<tparam1>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x48,%rsp
  mov    %rdi,%r12
  mov    %rsi,0x8(%rsp)
  mov    %edx,0x28(%rsp)
  mov    %rcx,0x30(%rsp)
  mov    %r8,0x10(%rsp)
  mov    %r9,%r15
  movslq %edx,%rbp
  add    %rsi,%rbp
  mov    %r9,0x18(%rsp)
  mov    %rsi,%rbx
  movl   $0x0,0x2c(%rsp)
  movl   $0x0,0x24(%rsp)
  mov    $0x0,%r14d
  jmp    L246
L298:
  mov    %rcx,%r12
  jmp    L246
L231:
  movslq %r14d,%rax
  add    %rax,%rbp
  add    %r14d,%r14d
  mov    %r14d,%esi
  mov    0x8(%rsp),%rdi
  mov    $0x0,%eax
  call   <xrealloc@plt>
  movslq %eax,%r13
L343:
  mov    %r13,%rax
  sub    0x8(%rsp),%rax
  add    %rax,%rbx
  add    %rax,%rbp
  mov    %r13,0x8(%rsp)
L219:
  movsbl (%r12),%eax
  test   %eax,%eax
  je     L110
  cmp    $0x25,%eax
  je     L397
  add    $0x1,%r12
L493:
  mov    %al,(%rbx)
  lea    0x1(%rbx),%rbx
L246:
  lea    0x5(%rbx),%rax
  cmp    %rax,%rbp
  ja     L219
  test   %r14d,%r14d
  jne    L231
  mov    0x28(%rsp),%eax
  lea    0x28(%rax),%r14d
  mov    %r14d,%edi
  mov    $0x0,%eax
  call   <xmalloc@plt>
  movslq %eax,%r13
  add    $0x28,%rbp
  mov    %rbx,%rdx
  mov    0x8(%rsp),%rsi
  sub    %rsi,%rdx
  mov    %r13,%rdi
  call   <memcpy@plt>
  jmp    L343
L397:
  lea    0x2(%r12),%rcx
  mov    (%r15),%r13d
  movzbl 0x1(%r12),%edi
  lea    -0x25(%rdi),%edx
  cmp    $0x4d,%dl
  ja     L298
  movzbl %dl,%edx
  lea    D8(%rip),%rsi
  movslq (%rsi,%rdx,4),%rdx
  add    %rsi,%rdx
  notrack jmp *%rdx
  mov    %rbx,%rdx
  cmp    $0x9,%r13d
  jle    L337
  mov    %rbx,%rsi
  cmp    $0x63,%r13d
  jle    L299
  cmp    $0x3e7,%r13d
  jle    L93
  movslq %r13d,%rax
  imul   $0x10624dd3,%rax,%rax
  sar    $0x26,%rax
  mov    %r13d,%edx
  sar    $0x1f,%edx
  sub    %edx,%eax
  lea    0x30(%rax),%edx
  mov    %dl,(%rbx)
  imul   $0x3e8,%eax,%eax
  sub    %eax,%r13d
  lea    0x1(%rbx),%rbx
L93:
  lea    0x1(%rbx),%rsi
  movslq %r13d,%rax
  imul   $0x51eb851f,%rax,%rax
  sar    $0x25,%rax
  mov    %r13d,%edx
  sar    $0x1f,%edx
  sub    %edx,%eax
  add    $0x30,%eax
  mov    %al,(%rbx)
L299:
  movslq %r13d,%rax
  imul   $0x51eb851f,%rax,%rax
  sar    $0x25,%rax
  mov    %r13d,%edx
  sar    $0x1f,%edx
  sub    %edx,%eax
  imul   $0x64,%eax,%eax
  mov    %r13d,%edi
  sub    %eax,%edi
  mov    %edi,%r13d
  lea    0x1(%rsi),%rdx
  movslq %edi,%rax
  imul   $0x66666667,%rax,%rax
  sar    $0x22,%rax
  sar    $0x1f,%edi
  sub    %edi,%eax
  add    $0x30,%eax
  mov    %al,(%rsi)
L337:
  lea    0x1(%rdx),%rbx
  movslq %r13d,%rax
  imul   $0x66666667,%rax,%rax
  sar    $0x22,%rax
  mov    %r13d,%esi
  sar    $0x1f,%esi
  sub    %esi,%eax
  lea    (%rax,%rax,4),%eax
  add    %eax,%eax
  sub    %eax,%r13d
  add    $0x30,%r13d
  mov    %r13b,(%rdx)
  add    $0x4,%r15
  mov    %rcx,%r12
  jmp    L246
  mov    %rbx,%rsi
  jmp    L299
  mov    %rbx,0x38(%rsp)
  cmp    $0x5f,%r13d
  jle    L329
  lea    0x1(%rbx),%rax
  mov    %rax,0x38(%rsp)
  movslq %r13d,%rax
  imul   $0x2aaaaaab,%rax,%rax
  sar    $0x24,%rax
  mov    %r13d,%edx
  sar    $0x1f,%edx
  sub    %edx,%eax
  mov    %al,(%rbx)
  lea    (%rax,%rax,2),%eax
  shl    $0x5,%eax
  sub    %eax,%r13d
L329:
  movsbl 0x2(%r12),%eax
  add    %eax,%r13d
  lea    0x3(%r12),%r12
L58:
  cmpq   $0x0,0x10(%rsp)
  jne    L6
  test   %r13d,%r13d
  mov    $0xffffff80,%eax
  cmove  %eax,%r13d
L3:
  mov    0x38(%rsp),%rax
  lea    0x1(%rax),%rbx
  mov    %r13b,(%rax)
L237:
  add    $0x4,%r15
  jmp    L246
  mov    %rbx,0x38(%rsp)
  jmp    L329
  mov    %rbx,0x38(%rsp)
  mov    %rcx,%r12
  jmp    L58
L6:
  lea    -0x9(%r13),%eax
  cmp    $0x1,%eax
  jbe    L54
  test   %r13d,%r13d
  jne    L3
L54:
  mov    %r13d,%ebx
  add    $0x1,%r13d
  cmp    0x18(%rsp),%r15
  je     L144
  addl   $0x1,0x24(%rsp)
  mov    0x10(%rsp),%rdi
  call   <strlen@plt>
  sub    %rax,%rbp
L187:
  sub    $0x8,%ebx
  cmp    $0x1,%ebx
  jbe    L54
  test   %r13d,%r13d
  je     L54
  jmp    L3
L144:
  addl   $0x1,0x2c(%rsp)
  mov    0x30(%rsp),%rdi
  call   <strlen@plt>
  sub    %rax,%rbp
  jmp    L187
  mov    %rcx,%r12
  jmp    L237
  sub    $0x4,%r15
  mov    %rcx,%r12
  jmp    L246
  mov    0x4(%r15),%eax
  mov    %eax,(%r15)
  mov    %r13d,0x4(%r15)
  addq   $0x4,0x18(%rsp)
  mov    %rcx,%r12
  jmp    L246
  movsbl 0x2(%r12),%eax
  cmp    %r13d,%eax
  jge    L105
  movsbl 0x3(%r12),%eax
  add    %r13d,%eax
  mov    %eax,(%r15)
L105:
  add    $0x4,%r12
  jmp    L246
  movzbl 0x4(%r12),%ecx
  and    $0x7f,%ecx
  cmpb   $0x70,0x3(%r12)
  je     L276
  movsbl %cl,%ecx
L129:
  movzbl 0x2(%r12),%eax
  cmp    $0x2d,%al
  je     L389
  cmp    $0x2b,%al
  je     L94
  cmp    $0x2a,%al
  je     L342
  cmp    $0x2f,%al
  jne    L123
  mov    %r13d,%eax
  cltd
  idiv   %ecx
  mov    %eax,%ecx
  jmp    L123
L276:
  movsbq %cl,%rcx
  mov    -0x100(%r15,%rcx,4),%ecx
  jmp    L129
L389:
  sub    %ecx,%r13d
  mov    %r13d,%ecx
L123:
  mov    %ecx,(%r15)
  add    $0x5,%r12
  jmp    L246
L94:
  add    %r13d,%ecx
  jmp    L123
L342:
  imul   %r13d,%ecx
  jmp    L123
  add    $0x1,%r13d
  mov    %r13d,(%r15)
  addl   $0x1,0x4(%r15)
  mov    %rcx,%r12
  jmp    L246
  xor    $0x60,%r13d
  mov    %r13d,(%r15)
  xorl   $0x60,0x4(%r15)
  mov    %rcx,%r12
  jmp    L246
  xor    $0x7f,%r13d
  mov    %r13d,(%r15)
  xorl   $0x7f,0x4(%r15)
  mov    %rcx,%r12
  jmp    L246
  movslq %r13d,%rax
  imul   $0x66666667,%rax,%rax
  sar    $0x22,%rax
  mov    %r13d,%edx
  sar    $0x1f,%edx
  sub    %edx,%eax
  lea    (%rax,%rax,2),%eax
  lea    0x0(%r13,%rax,2),%eax
  mov    %eax,(%r15)
  mov    %rcx,%r12
  jmp    L246
  mov    %r13d,%edx
  sar    $0x1f,%edx
  shr    $0x1c,%edx
  lea    0x0(%r13,%rdx,1),%eax
  and    $0xf,%eax
  sub    %edx,%eax
  add    %eax,%eax
  sub    %eax,%r13d
  mov    %r13d,(%r15)
  mov    %rcx,%r12
  jmp    L246
  mov    %rcx,%r12
  jmp    L493
L110:
  movb   $0x0,(%rbx)
  mov    0x2c(%rsp),%eax
  lea    -0x1(%rax),%ebp
  test   %eax,%eax
  jle    L334
  mov    0x30(%rsp),%r12
L322:
  mov    %r12,%rsi
  mov    %rbx,%rdi
  call   <strcat@plt>
  sub    $0x1,%ebp
  cmp    $0xffffffff,%ebp
  jne    L322
L334:
  mov    0x24(%rsp),%eax
  lea    -0x1(%rax),%ebp
  test   %eax,%eax
  jle    L289
  mov    0x10(%rsp),%r12
L371:
  mov    %r12,%rsi
  mov    %rbx,%rdi
  call   <strcat@plt>
  sub    $0x1,%ebp
  cmp    $0xffffffff,%ebp
  jne    L371
L289:
  mov    0x8(%rsp),%rax
  add    $0x48,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

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;
        memcpy((new), (outstring), (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;
}
```