user: 请从给定的汇编指令推导出C源代码:

```asm
<quicksortf>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x28,%rsp
  mov    %rdi,%r14
  mov    %rsi,%rbx
  mov    %rdx,%rbp
  mov    $0xc8,%esi
  mov    $0x1,%edi
  call   <lvector@plt>
  mov    %rax,0x10(%rsp)
  movl   $0x0,0xc(%rsp)
  mov    $0x1,%r12d
  jmp    L19
L74:
  mov    %rdx,%rax
L52:
  add    $0x1,%rax
  movss  %xmm1,(%rbx,%rax,4)
  movss  %xmm2,0x0(%rbp,%rax,4)
  lea    0x1(%rdx),%rax
  add    $0x2,%rdx
  cmp    %rdx,%r14
  jb     L149
  mov    %rax,%rdx
L194:
  movss  0x4(%rbx,%rdx,4),%xmm1
  movss  0x4(%rbp,%rdx,4),%xmm2
  cmp    %rdx,%r12
  ja     L74
  mov    %rdx,%rax
L169:
  movss  (%rbx,%rax,4),%xmm0
  comiss %xmm0,%xmm1
  jae    L52
  movss  %xmm0,0x4(%rbx,%rax,4)
  movss  0x0(%rbp,%rax,4),%xmm0
  movss  %xmm0,0x4(%rbp,%rax,4)
  sub    $0x1,%rax
  cmp    %rax,%r12
  jbe    L169
  jmp    L52
L149:
  mov    0xc(%rsp),%edi
  test   %edi,%edi
  je     L4
  movslq %edi,%rax
  mov    0x10(%rsp),%rsi
  mov    (%rsi,%rax,8),%r14
  sub    $0x2,%edi
  mov    %edi,0xc(%rsp)
  mov    -0x8(%rsi,%rax,8),%r12
L19:
  mov    %r14,%rax
  sub    %r12,%rax
  cmp    $0x6,%rax
  ja     L167
  lea    0x1(%r12),%rax
  cmp    %rax,%r14
  jb     L149
  mov    %r12,%rdx
  jmp    L194
L167:
  lea    (%r14,%r12,1),%rax
  shr    %rax
  shl    $0x2,%rax
  lea    (%rbx,%rax,1),%rcx
  movss  (%rcx),%xmm0
  lea    0x1(%r12),%r15
  lea    0x0(,%r15,4),%rdx
  lea    (%rbx,%rdx,1),%r8
  movss  (%r8),%xmm1
  movss  %xmm1,(%rcx)
  movss  %xmm0,(%r8)
  add    %rbp,%rax
  movss  (%rax),%xmm0
  lea    0x0(%rbp,%rdx,1),%rdi
  movss  (%rdi),%xmm1
  movss  %xmm1,(%rax)
  movss  %xmm0,(%rdi)
  lea    -0x4(%rdx),%rax
  lea    (%rbx,%rax,1),%rsi
  movss  (%rsi),%xmm0
  lea    0x0(,%r14,4),%rdx
  lea    (%rbx,%rdx,1),%rcx
  movss  (%rcx),%xmm1
  comiss %xmm1,%xmm0
  jbe    L132
  movss  %xmm1,(%rsi)
  movss  %xmm0,(%rcx)
  lea    0x0(%rbp,%rax,1),%r10
  movss  (%r10),%xmm0
  lea    0x0(%rbp,%rdx,1),%r9
  movss  (%r9),%xmm1
  movss  %xmm1,(%r10)
  movss  %xmm0,(%r9)
L132:
  movss  (%r8),%xmm0
  movss  (%rcx),%xmm1
  comiss %xmm1,%xmm0
  jbe    L135
  movss  %xmm1,(%r8)
  movss  %xmm0,(%rcx)
  movss  (%rdi),%xmm0
  add    %rbp,%rdx
  movss  (%rdx),%xmm1
  movss  %xmm1,(%rdi)
  movss  %xmm0,(%rdx)
L135:
  movss  (%rsi),%xmm0
  movss  (%r8),%xmm1
  comiss %xmm1,%xmm0
  jbe    L156
  movss  %xmm1,(%rsi)
  movss  %xmm0,(%r8)
  add    %rbp,%rax
  movss  (%rax),%xmm0
  movss  (%rdi),%xmm1
  movss  %xmm1,(%rax)
  movss  %xmm0,(%rdi)
L156:
  movss  (%r8),%xmm1
  movss  (%rdi),%xmm3
  mov    %r14,%rax
  jmp    L73
L110:
  mov    %r13,%r15
L73:
  lea    0x1(%r15),%r13
  movss  (%rbx,%r13,4),%xmm2
  comiss %xmm2,%xmm1
  ja     L110
  lea    -0x4(%rbx,%rax,4),%rdx
L51:
  mov    %rax,%r9
  sub    $0x1,%rax
  lea    0x0(,%rax,4),%rcx
  mov    %rdx,%rsi
  sub    $0x4,%rdx
  movss  0x4(%rdx),%xmm0
  comiss %xmm1,%xmm0
  ja     L51
  cmp    %rax,%r13
  ja     L10
  movss  %xmm0,(%rbx,%r13,4)
  movss  %xmm2,(%rsi)
  movss  0x0(%rbp,%r13,4),%xmm0
  add    %rbp,%rcx
  movss  (%rcx),%xmm2
  movss  %xmm2,0x0(%rbp,%r13,4)
  movss  %xmm0,(%rcx)
  jmp    L110
L10:
  mov    %r9,0x18(%rsp)
  movss  %xmm0,(%r8)
  add    %rbp,%rcx
  movss  (%rcx),%xmm0
  movss  %xmm0,(%rdi)
  movss  %xmm1,(%rsi)
  movss  %xmm3,(%rcx)
  addl   $0x2,0xc(%rsp)
  mov    0xc(%rsp),%eax
  cmp    $0xc8,%eax
  jg     L163
L151:
  mov    0x18(%rsp),%rdx
  sub    $0x2,%rdx
  mov    %r14,%rax
  sub    %r15,%rax
  cmp    %rdx,%rax
  jb     L204
  movslq 0xc(%rsp),%rax
  mov    0x10(%rsp),%rdi
  mov    %r14,(%rdi,%rax,8)
  mov    %r13,-0x8(%rdi,%rax,8)
  mov    %rdx,%r14
  jmp    L19
L163:
  lea    D0(%rip),%rdi
  call   <nrerror@plt>
  jmp    L151
L204:
  movslq 0xc(%rsp),%rax
  mov    0x10(%rsp),%rdi
  mov    %rdx,(%rdi,%rax,8)
  mov    %r12,-0x8(%rdi,%rax,8)
  mov    %r13,%r12
  jmp    L19
L4:
  mov    $0xc8,%edx
  mov    $0x1,%esi
  mov    0x10(%rsp),%rdi
  call   <free_lvector@plt>
  add    $0x28,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

tool_calls: name: read_data
arguments: data_label: D0
type: string

tool: D0: NSTACK too small in sort.

assistant: ```c
void quicksortf(unsigned long n, float *arr, float *brr) {
  unsigned long i, ir = n, j, k, l = 1;
  float b;
  long *istack;
  int jstack = 0;
  float a, temp;
  istack = lvector(1, 200);
  for (;;) {
    if (ir - l < 7) {
      for (j = l + 1; j <= ir; j++) {
        a = arr[j];
        b = brr[j];
        for (i = j - 1; i >= l; i--) {
          if (arr[i] <= a)
            break;
          arr[i + 1] = arr[i];
          brr[i + 1] = brr[i];
        }
        arr[i + 1] = a;
        brr[i + 1] = b;
      }
      if (jstack == 0)
        break;
      ir = istack[jstack--];
      l = istack[jstack--];
    } else {
      k = (l + ir) >> 1;
      temp = (arr[k]);
      (arr[k]) = (arr[l + 1]);
      (arr[l + 1]) = temp;
      temp = (brr[k]);
      (brr[k]) = (brr[l + 1]);
      (brr[l + 1]) = temp;
      if (arr[l] > arr[ir]) {
        temp = (arr[l]);
        (arr[l]) = (arr[ir]);
        (arr[ir]) = temp;
        temp = (brr[l]);
        (brr[l]) = (brr[ir]);
        (brr[ir]) = temp;
      }
      if (arr[l + 1] > arr[ir]) {
        temp = (arr[l + 1]);
        (arr[l + 1]) = (arr[ir]);
        (arr[ir]) = temp;
        temp = (brr[l + 1]);
        (brr[l + 1]) = (brr[ir]);
        (brr[ir]) = temp;
      }
      if (arr[l] > arr[l + 1]) {
        temp = (arr[l]);
        (arr[l]) = (arr[l + 1]);
        (arr[l + 1]) = temp;
        temp = (brr[l]);
        (brr[l]) = (brr[l + 1]);
        (brr[l + 1]) = temp;
      }
      i = l + 1;
      j = ir;
      a = arr[l + 1];
      b = brr[l + 1];
      for (;;) {
        do
          i++;
        while (arr[i] < a);
        do
          j--;
        while (arr[j] > a);
        if (j < i)
          break;
        temp = (arr[i]);
        (arr[i]) = (arr[j]);
        (arr[j]) = temp;
        temp = (brr[i]);
        (brr[i]) = (brr[j]);
        (brr[j]) = temp;
      }
      arr[l + 1] = arr[j];
      brr[l + 1] = brr[j];
      arr[j] = a;
      brr[j] = b;
      jstack += 2;
      if (jstack > 200)
        nrerror("NSTACK too small in sort.");
      if (ir - i + 1 >= j - 1) {
        istack[jstack] = ir;
        istack[jstack - 1] = i;
        ir = j - 1;
      } else {
        istack[jstack] = j - 1;
        istack[jstack - 1] = l;
        l = i;
      }
    }
  }
  free_lvector(istack, 1, 200);
}
```