user: Demonstrate the C code that generates the assembly output below:

```asm
<mc64rd_>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0xf8,%rsp
  mov    %rcx,%rax
  mov    %fs:0x28,%rcx
  mov    %rcx,0xe8(%rsp)
  xor    %ecx,%ecx
  mov    (%rdi),%ecx
  test   %ecx,%ecx
  jle    L309
  lea    -0x8(%r8),%rbp
  lea    -0x4(%rax),%r14
  mov    %rdx,%r9
  lea    -0x1(%rcx),%ecx
  lea    (%rdx,%rcx,4),%rsi
  mov    %rsi,0x8(%rsp)
  lea    0x20(%rsp),%rsi
  mov    %rsi,0x10(%rsp)
  jmp    L208
L26:
  mov    %edx,0x20(%rsp)
  mov    %esi,0x24(%rsp)
  mov    $0x2,%ebx
  mov    %edx,0x18(%rsp)
  mov    %ebx,%edx
L247:
  lea    -0x2(%rdx),%ecx
  movslq %ecx,%rdi
  mov    0x20(%rsp,%rdi,4),%r12d
  lea    -0x1(%rdx),%r13d
  movslq %r13d,%rdi
  mov    0x20(%rsp,%rdi,4),%r11d
  lea    (%r12,%r11,1),%r10d
  mov    %r10d,%edi
  shr    $0x1f,%edi
  add    %r10d,%edi
  sar    %edi
  movslq %edi,%rdi
  movsd  0x0(%rbp,%rdi,8),%xmm1
  cmp    %r11d,%r12d
  jge    L27
  movslq %r12d,%rdi
  lea    -0x8(%r8,%rdi,8),%r10
  lea    -0x1(%r11),%ebx
  sub    %r12d,%ebx
  add    %rdi,%rbx
  lea    (%r8,%rbx,8),%rbx
L170:
  movsd  (%r10),%xmm0
  ucomisd %xmm0,%xmm1
  jp     L269
  jne    L269
  add    $0x8,%r10
  cmp    %rbx,%r10
  jne    L170
  jmp    L27
L138:
  mov    %ecx,%edx
  jmp    L247
L269:
  minsd  %xmm0,%xmm1
  mov    %r12d,%r10d
  mov    %edx,0x1c(%rsp)
  jmp    L97
L103:
  add    $0x1,%rdi
  cmp    %edi,%r11d
  jle    L235
L97:
  movsd  -0x8(%r8,%rdi,8),%xmm0
  comisd %xmm0,%xmm1
  jae    L103
  movslq %r10d,%rbx
  lea    0x0(%rbp,%rbx,8),%r15
  movsd  (%r15),%xmm2
  movsd  %xmm0,(%r15)
  movsd  %xmm2,-0x8(%r8,%rdi,8)
  lea    (%r14,%rbx,4),%rbx
  mov    (%rbx),%r15d
  mov    -0x4(%rax,%rdi,4),%edx
  mov    %edx,(%rbx)
  mov    %r15d,-0x4(%rax,%rdi,4)
  add    $0x1,%r10d
  jmp    L103
L235:
  mov    0x1c(%rsp),%edx
  mov    %r10d,%ebx
  sub    %r12d,%ebx
  mov    %r11d,%edi
  sub    %r10d,%edi
  cmp    %edi,%ebx
  jl     L157
  lea    0x1(%rdx),%ecx
  movslq %ecx,%rcx
  mov    %r11d,0x20(%rsp,%rcx,4)
  movslq %edx,%rcx
  mov    %r10d,0x20(%rsp,%rcx,4)
  movslq %r13d,%r13
  mov    %r10d,0x20(%rsp,%r13,4)
L215:
  lea    0x2(%rdx),%ecx
L27:
  movslq %ecx,%rdi
  mov    0x10(%rsp),%rbx
  lea    (%rbx,%rdi,4),%r10
L110:
  test   %ecx,%ecx
  je     L0
  mov    %r10,%rdi
  lea    -0x2(%rcx),%r11d
  sub    $0x8,%r10
  mov    -0x4(%rdi),%edx
  sub    -0x8(%rdi),%edx
  cmp    $0xe,%edx
  jg     L138
  mov    %r11d,%ecx
  jmp    L110
L157:
  lea    0x1(%rdx),%edi
  movslq %edi,%rdi
  mov    %r10d,0x20(%rsp,%rdi,4)
  movslq %edx,%rdi
  mov    %r12d,0x20(%rsp,%rdi,4)
  movslq %r13d,%r13
  mov    %r11d,0x20(%rsp,%r13,4)
  movslq %ecx,%rcx
  mov    %r10d,0x20(%rsp,%rcx,4)
  jmp    L215
L0:
  mov    0x18(%rsp),%edx
  jmp    L261
L83:
  movsd  %xmm1,0x0(%rbp,%r11,1)
  mov    %r13d,(%r14,%rcx,4)
  jmp    L162
L4:
  movsd  %xmm1,(%r12)
  mov    %r13d,(%rbx)
L162:
  add    $0x1,%r10d
  add    $0x4,%rdi
  cmp    %r10d,%esi
  je     L129
L94:
  movsd  -0x10(%r8,%rdi,2),%xmm0
  movsd  -0x8(%r8,%rdi,2),%xmm1
  comisd %xmm0,%xmm1
  jbe    L162
  mov    -0x4(%rax,%rdi,1),%r13d
  movsd  %xmm0,-0x8(%r8,%rdi,2)
  mov    -0x8(%rax,%rdi,1),%ecx
  mov    %ecx,-0x4(%rax,%rdi,1)
  cmp    %r10d,%edx
  jge    L4
  movslq %r10d,%rcx
L216:
  lea    0x0(,%rcx,8),%r11
  movsd  -0x10(%r8,%rcx,8),%xmm0
  comisd %xmm0,%xmm1
  jbe    L83
  movsd  %xmm0,-0x8(%r8,%rcx,8)
  mov    -0x8(%rax,%rcx,4),%r11d
  mov    %r11d,-0x4(%rax,%rcx,4)
  sub    $0x1,%rcx
  cmp    %ecx,%edx
  jl     L216
  jmp    L4
L129:
  lea    0x4(%r9),%rdx
  cmp    0x8(%rsp),%r9
  je     L309
  mov    %rdx,%r9
L208:
  mov    0x4(%r9),%esi
  mov    (%r9),%edx
  mov    %esi,%ecx
  sub    %edx,%ecx
  cmp    $0x1,%ecx
  jle    L129
  cmp    $0xe,%ecx
  jg     L26
L261:
  lea    0x1(%rdx),%ecx
  cmp    %ecx,%esi
  jle    L129
  movslq %edx,%rdi
  lea    0x0(%rbp,%rdi,8),%r12
  shl    $0x2,%rdi
  lea    (%r14,%rdi,1),%rbx
  mov    %edx,%r10d
  add    $0x4,%rdi
  sub    $0x1,%esi
  jmp    L94
L309:
  mov    0xe8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L73
  mov    $0x0,%eax
  add    $0xf8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L73:
  call   <__stack_chk_fail@plt>
```

assistant: ```c
int mc64rd_(int *n, int *ne, int *ip, int *irn, double *a) {
  int i__1, i__2, i__3;
  int j, k, r__, s;
  double ha;
  int hi, td, mid, len, ipj;
  double key;
  int last, todo[50], first;
  --ip;
  --a;
  --irn;
  i__1 = *n;
  for (j = 1; j <= i__1; ++j) {
    len = ip[j + 1] - ip[j];
    if (len <= 1) {
      goto L100;
    }
    ipj = ip[j];
    if (len < 15) {
      goto L400;
    }
    todo[0] = ipj;
    todo[1] = ipj + len;
    td = 2;
  L500:
    first = todo[td - 2];
    last = todo[td - 1];
    key = a[(first + last) / 2];
    i__2 = last - 1;
    for (k = first; k <= i__2; ++k) {
      ha = a[k];
      if (ha == key) {
        goto L475;
      }
      if (ha > key) {
        goto L470;
      }
      key = ha;
      goto L470;
    L475:;
    }
    td += -2;
    goto L425;
  L470:
    mid = first;
    i__2 = last - 1;
    for (k = first; k <= i__2; ++k) {
      if (a[k] <= key) {
        goto L450;
      }
      ha = a[mid];
      a[mid] = a[k];
      a[k] = ha;
      hi = irn[mid];
      irn[mid] = irn[k];
      irn[k] = hi;
      ++mid;
    L450:;
    }
    if (mid - first >= last - mid) {
      todo[td + 1] = last;
      todo[td] = mid;
      todo[td - 1] = mid;
    } else {
      todo[td + 1] = mid;
      todo[td] = first;
      todo[td - 1] = last;
      todo[td - 2] = mid;
    }
    td += 2;
  L425:
    if (td == 0) {
      goto L400;
    }
    if (todo[td - 1] - todo[td - 2] >= 15) {
      goto L500;
    }
    td += -2;
    goto L425;
  L400:
    i__2 = ipj + len - 1;
    for (r__ = ipj + 1; r__ <= i__2; ++r__) {
      if (a[r__ - 1] < a[r__]) {
        ha = a[r__];
        hi = irn[r__];
        a[r__] = a[r__ - 1];
        irn[r__] = irn[r__ - 1];
        i__3 = ipj + 1;
        for (s = r__ - 1; s >= i__3; --s) {
          if (a[s - 1] < ha) {
            a[s] = a[s - 1];
            irn[s] = irn[s - 1];
          } else {
            a[s] = ha;
            irn[s] = hi;
            goto L200;
          }
        }
        a[ipj] = ha;
        irn[ipj] = hi;
      }
    L200:;
    }
  L100:;
  }
  return 0;
}
```