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

```asm
<cdsortp2yl>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  mov    %r9d,%r13d
  push   %r12
  mov    %rdi,%r12
  mov    %rdx,%rdi
  push   %rbp
  mov    %rsi,%rbp
  push   %rbx
  mov    %ecx,%ebx
  sub    $0x38,%rsp
  mov    %r8d,0xc(%rsp)
  test   %r9d,%r9d
  jle    L210
  movslq %r9d,%rdx
  xor    %esi,%esi
  mov    %r8d,%r15d
  shl    $0x2,%rdx
  call   <memset@plt>
  mov    %rax,%rdi
  test   %r15d,%r15d
  jg     L89
L198:
  xor    %eax,%eax
  xor    %edx,%edx
  nop
L14:
  mov    (%rdi,%rax,4),%ecx
  mov    %edx,(%rdi,%rax,4)
  add    $0x1,%rax
  add    %ecx,%edx
  cmp    %eax,%r13d
  jg     L14
  mov    0xc(%rsp),%edx
  test   %edx,%edx
  jle    L113
L85:
  mov    %ebx,%r13d
  mov    %ebx,%edx
  movslq %ebx,%rax
  mov    %rdi,0x18(%rsp)
  and    $0xfffffffc,%r13d
  shr    $0x2,%edx
  xor    %r9d,%r9d
  xor    %r10d,%r10d
  lea    0x2(%r13),%ecx
  lea    -0x1(%rdx),%r8d
  shl    $0x2,%rax
  mov    %ecx,0x24(%rsp)
  lea    -0x1(%rbx),%ecx
  add    $0x1,%r8
  lea    0x1(%r13),%esi
  mov    %ecx,0x20(%rsp)
  shl    $0x4,%r8
  mov    %esi,%edi
  mov    %rcx,0x28(%rsp)
  mov    %rax,0x10(%rsp)
  mov    %r12,%rax
  nopl   0x0(%rax)
L175:
  cvttss2si 0x4(%rax),%edx
  mov    0x18(%rsp),%rcx
  movslq %edx,%rdx
  lea    (%rcx,%rdx,4),%r11
  mov    (%r11),%ecx
  test   %ebx,%ebx
  jle    L73
  mov    %ebx,%esi
  lea    0x4(%rax),%r15
  imul   %ecx,%esi
  movslq %esi,%rdx
  lea    0x0(%rbp,%rdx,4),%rdx
  mov    %rdx,%r14
  sub    %r15,%r14
  cmp    $0x8,%r14
  jbe    L196
  cmpl   $0x2,0x20(%rsp)
  jbe    L196
  xor    %r14d,%r14d
  nopl   0x0(%rax,%rax,1)
L5:
  movups (%rax,%r14,1),%xmm1
  movups %xmm1,(%rdx,%r14,1)
  add    $0x10,%r14
  cmp    %r8,%r14
  jne    L5
  cmp    %ebx,%r13d
  je     L73
  lea    (%r9,%r13,1),%edx
  movslq %edx,%rdx
  movss  (%r12,%rdx,4),%xmm0
  lea    (%rsi,%r13,1),%edx
  movslq %edx,%rdx
  movss  %xmm0,0x0(%rbp,%rdx,4)
  cmp    %edi,%ebx
  jle    L73
  lea    (%r9,%rdi,1),%edx
  mov    0x24(%rsp),%r15d
  movslq %edx,%rdx
  movss  (%r12,%rdx,4),%xmm0
  lea    (%rsi,%rdi,1),%edx
  movslq %edx,%rdx
  movss  %xmm0,0x0(%rbp,%rdx,4)
  cmp    %ebx,%r15d
  jge    L73
  lea    (%r9,%r15,1),%edx
  add    %r15d,%esi
  movslq %edx,%rdx
  movslq %esi,%rsi
  movss  (%r12,%rdx,4),%xmm0
  movss  %xmm0,0x0(%rbp,%rsi,4)
L73:
  add    $0x1,%ecx
  add    $0x1,%r10d
  add    0x10(%rsp),%rax
  add    %ebx,%r9d
  mov    %ecx,(%r11)
  cmp    %r10d,0xc(%rsp)
  jg     L175
L113:
  add    $0x38,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  xchg   %ax,%ax
L196:
  mov    0x28(%rsp),%r15
  xor    %esi,%esi
  nopw   0x0(%rax,%rax,1)
L98:
  movss  (%rax,%rsi,4),%xmm0
  mov    %rsi,%r14
  movss  %xmm0,(%rdx,%rsi,4)
  add    $0x1,%rsi
  cmp    %r14,%r15
  jne    L98
  jmp    L73
L210:
  mov    0xc(%rsp),%eax
  test   %eax,%eax
  jle    L113
L89:
  cmp    $0x1,%ebx
  jne    L121
  mov    0xc(%rsp),%eax
  lea    0x4(%r12),%rdx
  sub    $0x1,%eax
  lea    0x8(%r12,%rax,4),%rcx
  cs nopw 0x0(%rax,%rax,1)
L155:
  cvttss2si (%rdx),%eax
  add    $0x4,%rdx
  cltq
  addl   $0x1,(%rdi,%rax,4)
  cmp    %rcx,%rdx
  jne    L155
  test   %r13d,%r13d
  jg     L198
  jmp    L85
L121:
  movslq %ebx,%rsi
  mov    0xc(%rsp),%r8d
  lea    0x4(%r12),%rcx
  xor    %edx,%edx
  shl    $0x2,%rsi
  nopl   0x0(%rax)
L71:
  cvttss2si (%rcx),%eax
  add    $0x1,%edx
  add    %rsi,%rcx
  cltq
  addl   $0x1,(%rdi,%rax,4)
  cmp    %edx,%r8d
  jne    L71
  test   %r13d,%r13d
  jg     L198
  jmp    L85
```

assistant: ```c
void cdsortp2yl(float parta[], float partb[], int npic[], int idimp, int nop, int ny1) {
  int i, j, k, m, isum, ist, ip;
  for (k = 0; k < ny1; k++) {
    npic[k] = 0;
  }
  for (j = 0; j < nop; j++) {
    m = parta[1 + idimp * j];
    npic[m] += 1;
  }
  isum = 0;
  for (k = 0; k < ny1; k++) {
    ist = npic[k];
    npic[k] = isum;
    isum += ist;
  }
  for (j = 0; j < nop; j++) {
    m = parta[1 + idimp * j];
    ip = npic[m];
    for (i = 0; i < idimp; i++) {
      partb[i + idimp * ip] = parta[i + idimp * j];
    }
    npic[m] = ip + 1;
  }
  return;
}
```