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

```asm
<qsort2C>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %rbx
  sub    $0x38,%rsp
  mov    %rdi,-0x28(%rbp)
  mov    %rsi,-0x30(%rbp)
  mov    %edx,-0x34(%rbp)
  mov    %ecx,-0x38(%rbp)
  mov    %r8d,-0x3c(%rbp)
  mov    -0x34(%rbp),%eax
  cmp    -0x38(%rbp),%eax
  jge    L77
  cmpl   $0x0,-0x3c(%rbp)
  je     L40
  mov    -0x34(%rbp),%edx
  mov    -0x38(%rbp),%eax
  add    %edx,%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  mov    %eax,%edx
  mov    -0x34(%rbp),%ecx
  mov    -0x28(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <swapj@plt>
  mov    -0x34(%rbp),%edx
  mov    -0x38(%rbp),%eax
  add    %edx,%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  mov    %eax,%edx
  mov    -0x34(%rbp),%ecx
  mov    -0x30(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <swapm@plt>
  mov    -0x34(%rbp),%eax
  mov    %eax,-0x14(%rbp)
  mov    -0x34(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x18(%rbp)
  jmp    L84
L89:
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <fabs@plt>
  mov    %rax,%rbx
  mov    -0x34(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  movq   %rax,%xmm0
  call   <fabs@plt>
  cmp    %rax,%rbx
  jge    L69
  addl   $0x1,-0x14(%rbp)
  mov    -0x18(%rbp),%edx
  mov    -0x14(%rbp),%ecx
  mov    -0x28(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <swapj@plt>
  mov    -0x18(%rbp),%edx
  mov    -0x14(%rbp),%ecx
  mov    -0x30(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <swapm@plt>
L69:
  addl   $0x1,-0x18(%rbp)
L84:
  mov    -0x18(%rbp),%eax
  cmp    -0x38(%rbp),%eax
  jle    L89
  mov    -0x14(%rbp),%edx
  mov    -0x34(%rbp),%ecx
  mov    -0x28(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <swapj@plt>
  mov    -0x14(%rbp),%edx
  mov    -0x34(%rbp),%ecx
  mov    -0x30(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <swapm@plt>
  mov    -0x14(%rbp),%eax
  lea    -0x1(%rax),%ecx
  mov    -0x3c(%rbp),%edi
  mov    -0x34(%rbp),%edx
  mov    -0x30(%rbp),%rsi
  mov    -0x28(%rbp),%rax
  mov    %edi,%r8d
  mov    %rax,%rdi
  call   <qsort2C>
  mov    -0x14(%rbp),%eax
  lea    0x1(%rax),%edi
  mov    -0x3c(%rbp),%ecx
  mov    -0x38(%rbp),%edx
  mov    -0x30(%rbp),%rsi
  mov    -0x28(%rbp),%rax
  mov    %ecx,%r8d
  mov    %edx,%ecx
  mov    %edi,%edx
  mov    %rax,%rdi
  call   <qsort2C>
  jmp    L97
L40:
  mov    -0x34(%rbp),%edx
  mov    -0x38(%rbp),%eax
  add    %edx,%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  mov    %eax,%edx
  mov    -0x34(%rbp),%ecx
  mov    -0x28(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <swapj@plt>
  mov    -0x34(%rbp),%edx
  mov    -0x38(%rbp),%eax
  add    %edx,%eax
  mov    %eax,%edx
  shr    $0x1f,%edx
  add    %edx,%eax
  sar    %eax
  mov    %eax,%edx
  mov    -0x34(%rbp),%ecx
  mov    -0x30(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <swapm@plt>
  mov    -0x34(%rbp),%eax
  mov    %eax,-0x14(%rbp)
  mov    -0x34(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x18(%rbp)
  jmp    L66
L54:
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x34(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  comisd %xmm1,%xmm0
  jbe    L68
  addl   $0x1,-0x14(%rbp)
  mov    -0x18(%rbp),%edx
  mov    -0x14(%rbp),%ecx
  mov    -0x28(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <swapj@plt>
  mov    -0x18(%rbp),%edx
  mov    -0x14(%rbp),%ecx
  mov    -0x30(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <swapm@plt>
L68:
  addl   $0x1,-0x18(%rbp)
L66:
  mov    -0x18(%rbp),%eax
  cmp    -0x38(%rbp),%eax
  jle    L54
  mov    -0x14(%rbp),%edx
  mov    -0x34(%rbp),%ecx
  mov    -0x28(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <swapj@plt>
  mov    -0x14(%rbp),%edx
  mov    -0x34(%rbp),%ecx
  mov    -0x30(%rbp),%rax
  mov    %ecx,%esi
  mov    %rax,%rdi
  call   <swapm@plt>
  mov    -0x14(%rbp),%eax
  lea    -0x1(%rax),%ecx
  mov    -0x3c(%rbp),%edi
  mov    -0x34(%rbp),%edx
  mov    -0x30(%rbp),%rsi
  mov    -0x28(%rbp),%rax
  mov    %edi,%r8d
  mov    %rax,%rdi
  call   <qsort2C>
  mov    -0x14(%rbp),%eax
  lea    0x1(%rax),%edi
  mov    -0x3c(%rbp),%ecx
  mov    -0x38(%rbp),%edx
  mov    -0x30(%rbp),%rsi
  mov    -0x28(%rbp),%rax
  mov    %ecx,%r8d
  mov    %edx,%ecx
  mov    %edi,%edx
  mov    %rax,%rdi
  call   <qsort2C>
  jmp    L97
L77:
  nop
L97:
  mov    -0x8(%rbp),%rbx
  leave
  ret
```

assistant: ```c
void qsort2C(int *ja, double *ma, int left, int right, int abval) {
  int i, last;
  if (left >= right)
    return;
  if (abval) {
    swapj(ja, left, (left + right) / 2);
    swapm(ma, left, (left + right) / 2);
    last = left;
    for (i = left + 1; i <= right; i++) {
      if (fabs(ma[i]) < fabs(ma[left])) {
        swapj(ja, ++last, i);
        swapm(ma, last, i);
      }
    }
    swapj(ja, left, last);
    swapm(ma, left, last);
    qsort2C(ja, ma, left, last - 1, abval);
    qsort2C(ja, ma, last + 1, right, abval);
  } else {
    swapj(ja, left, (left + right) / 2);
    swapm(ma, left, (left + right) / 2);
    last = left;
    for (i = left + 1; i <= right; i++) {
      if (ma[i] < ma[left]) {
        swapj(ja, ++last, i);
        swapm(ma, last, i);
      }
    }
    swapj(ja, left, last);
    swapm(ma, left, last);
    qsort2C(ja, ma, left, last - 1, abval);
    qsort2C(ja, ma, last + 1, right, abval);
  }
}
```