user: Translate the below assembly code into C programming language:

```asm
<parse_parlist>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  mov    %rdi,%rbp
  push   %rbx
  xor    %ebx,%ebx
  sub    $0x38,%rsp
  mov    %rsi,0x8(%rsp)
  mov    %rdx,(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x28(%rsp)
  xor    %eax,%eax
  jmp    L104
  nopw   0x0(%rax,%rax,1)
L38:
  add    $0x1,%rbx
  cmpb   $0x20,-0x1(%rbp,%rbx,1)
  jne    L77
L104:
  mov    %rbp,%rdi
  mov    %ebx,%r13d
  call   <strlen@plt>
  cmp    %ebx,%eax
  jg     L38
L77:
  mov    %rbp,%rdi
  call   <strlen@plt>
  cmp    %r13d,%eax
  je     L4
  mov    %rbp,%rdi
  call   <strlen@plt>
  test   %eax,%eax
  jne    L53
L4:
  mov    0x28(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L13
  add    $0x38,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  xchg   %ax,%ax
L53:
  lea    0x20(%rsp),%r13
  lea    D8(%rip),%r14
  mov    %rbp,%rdi
  mov    %r13,%rdx
  mov    %r14,%rsi
  call   <strtok_r@plt>
  cmpb   $0x0,(%rax)
  mov    %rax,%rbp
  je     L4
  lea    0x1c(%rsp),%r15
  mov    %rax,%rdi
  mov    %r15,%rsi
  call   <find_variable@plt>
  mov    0x1c(%rsp),%eax
  test   %eax,%eax
  jle    L121
  mov    (%rsp),%rdx
  mov    0x8(%rsp),%rcx
  sub    $0x1,%eax
  movslq (%rdx),%rdx
  mov    %eax,(%rcx,%rdx,4)
L127:
  mov    $0x2,%ebp
  jmp    L148
  nopw   0x0(%rax,%rax,1)
L102:
  mov    (%rsp),%rcx
  sub    $0x1,%eax
  add    (%rcx),%ebx
  mov    0x8(%rsp),%rcx
  movslq %ebx,%rbx
  mov    %eax,(%rcx,%rbx,4)
L158:
  add    $0x1,%ebp
L148:
  mov    %r13,%rdx
  mov    %r14,%rsi
  lea    -0x1(%rbp),%ebx
  xor    %edi,%edi
  call   <strtok_r@plt>
  mov    %rax,%r12
  test   %rax,%rax
  je     L91
  mov    %r15,%rsi
  mov    %r12,%rdi
  call   <find_variable@plt>
  mov    0x1c(%rsp),%eax
  test   %eax,%eax
  jg     L102
  mov    %r12,%rdi
  call   <get_param_index@plt>
  mov    %eax,0x1c(%rsp)
  test   %eax,%eax
  jle    L4
  mov    (%rsp),%rdx
  mov    0x8(%rsp),%rcx
  neg    %eax
  add    (%rdx),%ebx
  movslq %ebx,%rbx
  mov    %eax,(%rcx,%rbx,4)
  jmp    L158
  nopl   0x0(%rax,%rax,1)
L91:
  mov    (%rsp),%rax
  add    %ebx,(%rax)
  jmp    L4
L121:
  mov    %rbp,%rdi
  call   <get_param_index@plt>
  mov    %eax,0x1c(%rsp)
  test   %eax,%eax
  jle    L4
  mov    (%rsp),%rdx
  mov    0x8(%rsp),%rcx
  neg    %eax
  movslq (%rdx),%rdx
  mov    %eax,(%rcx,%rdx,4)
  jmp    L127
L13:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: parse_data
arguments: tag: D8
datatype: string

tool: D8:  ,

assistant: ```c
void parse_parlist(char *parlist, int *ipars, int *n) {
  char *item;
  char *toksave;
  int v, i = 0;
  int j;
  for (j = 0; j < strlen(parlist); j++) {
    if (parlist[j] != ' ')
      break;
  }
  if (j == strlen(parlist))
    return;
  if (strlen(parlist) == 0)
    return;
  item = strtok_r(parlist, " ,", &toksave);
  if (item[0] == 0L)
    return;
  find_variable(item, &v);
  if (v > 0) {
    ipars[i + *n] = v - 1;
    i++;
  } else {
    v = get_param_index(item);
    if (v <= 0)
      return;
    ipars[i + *n] = -v;
    i++;
  }
  while ((item = strtok_r(NULL, " ,", &toksave)) != NULL) {
    find_variable(item, &v);
    if (v > 0) {
      ipars[i + *n] = v - 1;
      i++;
    } else {
      v = get_param_index(item);
      if (v <= 0)
        return;
      ipars[i + *n] = -v;
      i++;
    }
  }
  *n = *n + i;
}
```