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

```asm
<Call_C_Arg_Foreign_L>:
  endbr64
  push   %r14
  push   %r13
  push   %r12
  mov    %esi,%r12d
  push   %rbp
  mov    %edx,%ebp
  push   %rbx
  mov    %edi,%ebx
  sub    $0x10,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x8(%rsp)
  xor    %eax,%eax
  cmp    $0x5,%edi
  ja     L87
  lea    D102(%rip),%rdx
  mov    %edi,%eax
  mov    %rsp,%r13
  movslq (%rdx,%rax,4),%rax
  add    %rdx,%rax
  notrack jmp *%rax
  cs nopw 0x0(%rax,%rax,1)
  lea    D13(%rip),%rdx
  lea    D131(%rip),%rsi
  mov    %r13,%rdi
  call   <sprintf@plt>
  cs nopw 0x0(%rax,%rax,1)
L43:
  lea    D65(%rip),%r14
  lea    D70(%rip),%rsi
  xor    %eax,%eax
  mov    %r14,%rdi
  call   <Inst_Printf@plt>
  lea    0x0(,%rbp,8),%ecx
  mov    %r13,%rdx
  lea    D178(%rip),%rsi
  test   %r12d,%r12d
  jne    L21
  xor    %eax,%eax
  lea    D4(%rip),%rdi
  call   <Inst_Printf@plt>
  cmp    $0x5,%ebx
  jg     L103
L26:
  mov    0x8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L34
  add    $0x10,%rsp
  mov    $0x1,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  ret
  nop
  lea    D114(%rip),%rdx
  lea    D131(%rip),%rsi
  mov    %r13,%rdi
  call   <sprintf@plt>
  jmp    L43
  nopl   0x0(%rax,%rax,1)
  lea    D36(%rip),%rdx
  lea    D131(%rip),%rsi
  mov    %r13,%rdi
  call   <sprintf@plt>
  jmp    L43
  nopl   0x0(%rax,%rax,1)
  lea    D182(%rip),%rdx
  lea    D131(%rip),%rsi
  mov    %r13,%rdi
  call   <sprintf@plt>
  jmp    L43
  nopl   0x0(%rax,%rax,1)
  lea    D186(%rip),%rdx
  lea    D131(%rip),%rsi
  mov    %r13,%rdi
  call   <sprintf@plt>
  jmp    L43
  nopl   0x0(%rax,%rax,1)
  lea    D63(%rip),%rdx
  lea    D131(%rip),%rsi
  mov    %r13,%rdi
  call   <sprintf@plt>
  jmp    L43
  nopl   0x0(%rax,%rax,1)
L21:
  xor    %eax,%eax
  mov    %r14,%rdi
  call   <Inst_Printf@plt>
  cmp    $0x5,%ebx
  jle    L26
L103:
  lea    -0x30(,%rbx,8),%ecx
  mov    %r13,%rdx
  lea    D160(%rip),%rsi
  xor    %eax,%eax
  lea    D81(%rip),%rdi
  call   <Inst_Printf@plt>
  jmp    L26
L87:
  mov    %rsp,%r13
  lea    D14(%rip),%rdx
  lea    D131(%rip),%rsi
  mov    %r13,%rdi
  call   <sprintf@plt>
  jmp    L43
L34:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: unpack_data
arguments: data_tag: D13
type_infered: string
name: unpack_data
arguments: data_tag: D131
type_infered: string
name: unpack_data
arguments: data_tag: D65
type_infered: string
name: unpack_data
arguments: data_tag: D70
type_infered: string
name: unpack_data
arguments: data_tag: D178
type_infered: string
name: unpack_data
arguments: data_tag: D4
type_infered: string
name: unpack_data
arguments: data_tag: D114
type_infered: string
name: unpack_data
arguments: data_tag: D36
type_infered: string
name: unpack_data
arguments: data_tag: D182
type_infered: string
name: unpack_data
arguments: data_tag: D186
type_infered: string
name: unpack_data
arguments: data_tag: D63
type_infered: string
name: unpack_data
arguments: data_tag: D160
type_infered: string
name: unpack_data
arguments: data_tag: D81
type_infered: string
name: unpack_data
arguments: data_tag: D14
type_infered: string

tool: D13: $20

tool: D131: %s

tool: D65: lda

tool: D70: $2,pl_foreign_long

tool: D178: %s,%d($2)

tool: D4: ldq

tool: D114: $21

tool: D36: $16

tool: D182: $17

tool: D186: $18

tool: D63: $19

tool: D160: %s,%d($30)

tool: D81: stq

tool: D14: $1

assistant: ```c
int Call_C_Arg_Foreign_L(int offset, int adr_of, int index) {
  char dest[8];
  switch (offset) {
  case 0:
    sprintf(dest, "%s", "$16");
    break;
  case 1:
    sprintf(dest, "%s", "$17");
    break;
  case 2:
    sprintf(dest, "%s", "$18");
    break;
  case 3:
    sprintf(dest, "%s", "$19");
    break;
  case 4:
    sprintf(dest, "%s", "$20");
    break;
  case 5:
    sprintf(dest, "%s", "$21");
    break;
  default:
    sprintf(dest, "%s", "$1");
    break;
  }
  Inst_Printf("lda", "$2,pl_foreign_long");
  if (!adr_of) {
    Inst_Printf("ldq", "%s,%d($2)", dest, index * 8);
  } else {
    Inst_Printf("lda", "%s,%d($2)", dest, index * 8);
  }
  if (offset > 5) {
    Inst_Printf("stq", "%s,%d($30)", dest, (offset - 6) * 8);
  }
  return 1;
}
```