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

```asm
<mc64ud_>:
  endbr64
  push   %r15
  mov    %rdi,%r8
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  mov    %rcx,%rbp
  push   %rbx
  sub    $0x78,%rsp
  mov    0xf0(%rsp),%rcx
  mov    0xe0(%rsp),%r13
  mov    %rdx,0x60(%rsp)
  mov    0xe8(%rsp),%r12
  lea    -0x4(%rcx),%r14
  lea    -0x4(%r13),%rcx
  mov    %rcx,0x30(%rsp)
  mov    0xd8(%rsp),%rcx
  sub    $0x4,%rcx
  mov    %rcx,0x28(%rsp)
  mov    0xc0(%rsp),%rcx
  lea    -0x4(%rcx),%r11
  mov    0xb8(%rsp),%rcx
  sub    $0x4,%rcx
  mov    %rcx,0x58(%rsp)
  mov    0xb0(%rsp),%rcx
  lea    -0x4(%rcx),%r10
  lea    -0x4(%r9),%rcx
  mov    %rcx,0x20(%rsp)
  mov    (%rdi),%ecx
  mov    (%rdx),%edi
  mov    %edi,0x4c(%rsp)
  cmp    $0x1,%ecx
  je     L464
  cmpl   $0x1,(%rsi)
  je     L27
L417:
  mov    0xd0(%rsp),%rdx
  mov    0x4c(%rsp),%esi
  mov    (%rdx),%edi
  sub    %edi,%esi
  mov    %edi,0x50(%rsp)
  mov    %esi,0x68(%rsp)
L420:
  mov    0xc8(%rsp),%rdi
  mov    0x4c(%rsp),%esi
  sub    $0x1,%ecx
  mov    (%rdi),%edi
  imul   %esi,%ecx
  lea    0x1(%rdi),%r15d
  mov    %edi,0x6c(%rsp)
  cmp    %esi,%r15d
  jg     L356
  mov    0xb8(%rsp),%rdi
  mov    %r15d,0x10(%rsp)
  add    %r15d,%ecx
  mov    %r14,%r13
  movl   $0x0,0x54(%rsp)
  mov    %r11,%r15
  mov    %rdi,0x40(%rsp)
  nop
L109:
  mov    0x40(%rsp),%rdi
  mov    0x10(%rsp),%esi
  movslq (%rdi),%rdx
  mov    0x28(%rsp),%rdi
  mov    %edx,0x8(%rsp)
  movl   $0xffffffff,(%rdi,%rdx,4)
  test   %esi,%esi
  jle    L31
  movl   $0x1,0x18(%rsp)
L479:
  mov    0x30(%rsp),%rdi
  lea    0x0(,%rdx,4),%r14
  lea    (%rdi,%r14,1),%r11
  mov    (%r10,%rdx,4),%edi
  mov    (%r11),%esi
  cmp    %edi,%esi
  jl     L360
L143:
  sub    $0x1,%edi
  mov    0x28(%rsp),%r11
  mov    $0x1,%r8d
  mov    %edi,0x0(%r13,%r14,1)
L409:
  lea    0x0(,%rdx,4),%r9
  test   %edi,%edi
  js     L233
  mov    0x20(%rsp),%rbx
  mov    (%r10,%rdx,4),%r14d
  add    (%rbx,%rdx,4),%r14d
  sub    $0x1,%r14d
  mov    %r14d,%ebx
  sub    %edi,%ebx
  cmp    %ebx,%r14d
  jl     L233
  movslq %ebx,%rdx
  jmp    L197
  nop
L306:
  lea    0x1(%rdx),%ebx
  add    $0x1,%rdx
  cmp    %edx,%r14d
  jl     L233
L197:
  movslq -0x4(%rbp,%rdx,4),%rsi
  mov    %edx,%ebx
  mov    %rsi,%rax
  shl    $0x2,%rsi
  lea    -0x4(%r12,%rsi,1),%rdi
  cmp    %ecx,(%rdi)
  je     L306
  movslq (%r15,%rsi,1),%rsi
  mov    0x8(%rsp),%r8d
  mov    %ecx,(%rdi)
  sub    %ebx,%r14d
  mov    0x28(%rsp),%rdi
  sub    $0x1,%r14d
  addl   $0x1,0x18(%rsp)
  mov    %esi,0x8(%rsp)
  lea    0x0(,%rsi,4),%r11
  mov    %r8d,(%rdi,%rsi,4)
  mov    0x18(%rsp),%edi
  mov    %r14d,0x0(%r13,%r9,1)
  cmp    0x10(%rsp),%edi
  jg     L456
L266:
  movslq 0x8(%rsp),%rdx
  jmp    L479
  nopl   0x0(%rax)
L233:
  mov    (%r11,%r9,1),%esi
  cmp    $0xffffffff,%esi
  je     L187
  movslq %esi,%rdx
  add    $0x1,%r8d
  lea    0x0(,%rdx,4),%rdi
  cmp    0x10(%rsp),%r8d
  jg     L414
  mov    %esi,0x8(%rsp)
  mov    0x0(%r13,%rdx,4),%edi
  jmp    L409
  nopl   (%rax)
L360:
  mov    0x20(%rsp),%rax
  add    %r14,%rax
  mov    %rax,0x38(%rsp)
  mov    (%rax),%eax
  lea    (%rsi,%rax,1),%ebx
  mov    %eax,0x48(%rsp)
  lea    (%rdi,%rax,1),%r9d
  movslq %ebx,%rax
  lea    0x0(%rbp,%rax,4),%rsi
  jmp    L81
  nopl   0x0(%rax)
L299:
  add    $0x1,%ebx
  add    $0x4,%rsi
  cmp    %ebx,%r9d
  jle    L68
L81:
  movslq -0x4(%rsi),%r8
  mov    %r8,%rax
  lea    (%r15,%r8,4),%r8
  cmpl   $0x0,(%r8)
  jne    L299
L442:
  mov    0x8(%rsp),%edi
  mov    %ebx,%esi
  mov    0x10(%rsp),%r9d
  mov    %edi,(%r8)
  mov    0x38(%rsp),%rdi
  mov    0x28(%rsp),%r8
  sub    (%rdi),%esi
  mov    0xc8(%rsp),%rdi
  add    $0x1,%esi
  mov    %esi,(%r11)
  mov    0x20(%rsp),%r11
  addl   $0x1,(%rdi)
  mov    $0x1,%edi
  jmp    L118
  nopl   0x0(%rax,%rax,1)
L167:
  movslq %esi,%rdx
  add    $0x1,%edi
  mov    (%r10,%rdx,4),%ebx
  add    (%r11,%rdx,4),%ebx
  sub    0x0(%r13,%rdx,4),%ebx
  sub    $0x2,%ebx
  movslq %ebx,%rax
  movslq -0x4(%rbp,%rax,4),%r14
  mov    %esi,(%r15,%r14,4)
  mov    %r14,%rax
  cmp    %r9d,%edi
  jg     L454
L118:
  mov    (%r8,%rdx,4),%esi
  cmp    $0xffffffff,%esi
  jne    L167
L454:
  mov    0xc8(%rsp),%rdi
  mov    (%rdi),%edx
L126:
  cmp    %edx,0x50(%rsp)
  je     L282
L213:
  addl   $0x1,0x10(%rsp)
  add    $0x1,%ecx
  mov    0x10(%rsp),%edi
  addq   $0x4,0x40(%rsp)
  cmp    0x4c(%rsp),%edi
  jle    L109
  mov    0x60(%rsp),%rax
  mov    (%rax),%r15d
L222:
  mov    %r15d,%ecx
L482:
  lea    0x1(%r15),%edx
  cmp    %ecx,%edx
  jg     L407
  movslq 0x6c(%rsp),%rsi
  mov    %ecx,%r8d
  movslq %r15d,%r9
  movslq 0x54(%rsp),%r10
  sub    %r15d,%r8d
  mov    %r9,%r11
  sub    %rsi,%r11
  lea    -0x1(%r8),%ebx
  lea    0x0(,%r10,4),%rdi
  lea    0x4(,%r11,4),%rax
  cmp    $0x2,%ebx
  jbe    L190
  mov    %rdi,%rbx
  sub    %rax,%rbx
  cmp    $0x8,%rbx
  jbe    L190
  mov    0xb8(%rsp),%rbx
  mov    %r8d,%esi
  shr    $0x2,%esi
  lea    -0x4(%rbx,%rax,1),%r9
  add    %rbx,%rdi
  shl    $0x4,%rsi
  xor    %eax,%eax
L288:
  movdqu (%r9,%rax,1),%xmm0
  movups %xmm0,(%rdi,%rax,1)
  add    $0x10,%rax
  cmp    %rax,%rsi
  jne    L288
  mov    0x54(%rsp),%eax
  mov    %r8d,%esi
  and    $0xfffffffc,%esi
  add    %esi,%eax
  add    %esi,%edx
  cmp    %esi,%r8d
  je     L407
  mov    0x6c(%rsp),%r11d
  mov    %edx,%esi
  mov    0x58(%rsp),%rbx
  add    $0x1,%eax
  cltq
  sub    %r11d,%esi
  lea    0x0(,%rax,4),%rdi
  movslq %esi,%rsi
  mov    (%rbx,%rsi,4),%esi
  mov    %esi,(%rbx,%rax,4)
  lea    0x1(%rdx),%esi
  cmp    %ecx,%esi
  jg     L407
  sub    %r11d,%esi
  mov    0xb8(%rsp),%r10
  add    $0x2,%edx
  movslq %esi,%rsi
  mov    (%rbx,%rsi,4),%esi
  mov    %esi,(%r10,%rax,4)
  cmp    %ecx,%edx
  jg     L407
  sub    %r11d,%edx
  movslq %edx,%rax
  mov    (%rbx,%rax,4),%eax
  mov    %eax,0x8(%rbx,%rdi,1)
L407:
  add    $0x78,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax,%rax,1)
L68:
  mov    %edi,(%r11)
  jmp    L143
L187:
  addl   $0x1,0x54(%rsp)
  mov    0x58(%rsp),%rsi
  movslq 0x54(%rsp),%rdx
  mov    0x8(%rsp),%r11d
  mov    %r11d,(%rsi,%rdx,4)
  cmp    %edx,0x68(%rsp)
  jge    L213
L282:
  mov    0x60(%rsp),%rax
  mov    0x10(%rsp),%r15d
  mov    (%rax),%ecx
  jmp    L482
L414:
  addl   $0x1,0x18(%rsp)
  mov    %rdi,%r11
  mov    0x18(%rsp),%edi
  mov    %esi,0x8(%rsp)
  cmp    0x10(%rsp),%edi
  jle    L266
L456:
  mov    0x20(%rsp),%rdi
  movslq %eax,%rdx
  lea    (%r15,%rdx,4),%r8
  movslq 0x8(%rsp),%rdx
  add    %r11,%rdi
  add    0x30(%rsp),%r11
  mov    %rdi,0x38(%rsp)
  jmp    L442
L27:
  mov    %r8,0x18(%rsp)
  mov    %edi,%r15d
  test   %edi,%edi
  jle    L379
  movslq %edi,%rdx
  xor    %esi,%esi
  mov    %r13,%rdi
  mov    %r10,0x10(%rsp)
  shl    $0x2,%rdx
  mov    %r11,0x8(%rsp)
  call   <memset@plt>
  mov    0x60(%rsp),%rcx
  mov    0x18(%rsp),%r8
  mov    %r15d,%eax
  mov    0x8(%rsp),%r11
  mov    0x10(%rsp),%r10
  add    $0x1,%eax
  mov    (%rcx),%ecx
  mov    %ecx,0x4c(%rsp)
  mov    (%r8),%ecx
  jmp    L417
L31:
  mov    0x8(%rsp),%edi
  movslq %eax,%rsi
  mov    %edi,(%r15,%rsi,4)
  mov    0x20(%rsp),%rdi
  mov    %ebx,%esi
  sub    (%rdi,%rdx,4),%esi
  mov    0x30(%rsp),%rdi
  add    $0x1,%esi
  mov    %esi,(%rdi,%rdx,4)
  mov    0xc8(%rsp),%rdi
  mov    (%rdi),%edi
  lea    0x1(%rdi),%edx
  mov    %edi,0x8(%rsp)
  mov    0xc8(%rsp),%rdi
  mov    %edx,(%rdi)
  jmp    L126
L464:
  test   %edi,%edi
  jle    L57
  movslq %edi,%rdx
  lea    0x0(,%rdx,4),%r15
  lea    0x0(%r13,%r15,1),%rax
  cmp    %rax,%r12
  jae    L183
  lea    (%r12,%r15,1),%rax
  cmp    %rax,%r13
  jb     L211
L183:
  mov    %r15,%rdx
  xor    %esi,%esi
  mov    %r12,%rdi
  mov    %r8,0x18(%rsp)
  mov    %r10,0x10(%rsp)
  mov    %r11,0x8(%rsp)
  call   <memset@plt>
  mov    %r15,%rdx
  xor    %esi,%esi
  mov    %r13,%rdi
  call   <memset@plt>
  mov    0x8(%rsp),%r11
  mov    0x10(%rsp),%r10
  mov    0x18(%rsp),%r8
L377:
  mov    0x60(%rsp),%rcx
  mov    0x4c(%rsp),%eax
  mov    (%rcx),%ecx
  add    $0x1,%eax
  mov    %ecx,0x50(%rsp)
  mov    (%r8),%ecx
L436:
  mov    0x50(%rsp),%edi
  mov    %edi,0x4c(%rsp)
  mov    %edi,0x68(%rsp)
  jmp    L420
L190:
  movslq %edx,%rax
  lea    -0x1(%rcx),%edx
  mov    0xb8(%rsp),%rbx
  sub    %r15d,%edx
  sub    %rsi,%rax
  add    %r11,%rdx
  lea    -0x4(%rbx,%rax,4),%rax
  lea    0x4(%rbx,%rdx,4),%rdi
  lea    (%rsi,%r10,1),%rdx
  sub    %r9,%rdx
L67:
  mov    (%rax),%ecx
  mov    %ecx,(%rax,%rdx,4)
  add    $0x4,%rax
  cmp    %rax,%rdi
  jne    L67
  jmp    L407
L211:
  xor    %eax,%eax
L384:
  movl   $0x0,(%r12,%rax,4)
  movl   $0x0,0x0(%r13,%rax,4)
  add    $0x1,%rax
  cmp    %rdx,%rax
  jne    L384
  jmp    L377
L57:
  mov    %edi,0x50(%rsp)
  mov    $0x1,%eax
  jmp    L436
L356:
  movl   $0x0,0x54(%rsp)
  mov    %esi,%r15d
  jmp    L222
L379:
  mov    $0x1,%eax
  jmp    L417
```

assistant: ```c
int mc64ud_(int *id, int *mod, int *n, int *irn, int *lirn, int *ip, int *lenc, int *fc, int *iperm, int *num, int *numx, int *pr, int *arp, int *cv, int *out) {
  int i__1, i__2, i__3, i__4;
  int i__, j, k, j1, ii, kk, id0, id1, in1, in2, nfc, num0, num1, num2, jord, last;
  --out;
  --cv;
  --arp;
  --pr;
  --iperm;
  --fc;
  --lenc;
  --ip;
  --irn;
  if (*id == 1) {
    i__1 = *n;
    for (i__ = 1; i__ <= i__1; ++i__) {
      cv[i__] = 0;
      arp[i__] = 0;
    }
    num1 = *n;
    num2 = *n;
  } else {
    if (*mod == 1) {
      i__1 = *n;
      for (i__ = 1; i__ <= i__1; ++i__) {
        arp[i__] = 0;
      }
    }
    num1 = *numx;
    num2 = *n - *numx;
  }
  num0 = *num;
  nfc = 0;
  id0 = (*id - 1) * *n;
  i__1 = *n;
  for (jord = num0 + 1; jord <= i__1; ++jord) {
    id1 = id0 + jord;
    j = fc[jord - num0];
    pr[j] = -1;
    i__2 = jord;
    for (k = 1; k <= i__2; ++k) {
      if (arp[j] >= lenc[j]) {
        goto L30;
      }
      in1 = ip[j] + arp[j];
      in2 = ip[j] + lenc[j] - 1;
      i__3 = in2;
      for (ii = in1; ii <= i__3; ++ii) {
        i__ = irn[ii];
        if (iperm[i__] == 0) {
          goto L80;
        }
      }
      arp[j] = lenc[j];
    L30:
      out[j] = lenc[j] - 1;
      i__3 = jord;
      for (kk = 1; kk <= i__3; ++kk) {
        in1 = out[j];
        if (in1 < 0) {
          goto L50;
        }
        in2 = ip[j] + lenc[j] - 1;
        in1 = in2 - in1;
        i__4 = in2;
        for (ii = in1; ii <= i__4; ++ii) {
          i__ = irn[ii];
          if (cv[i__] == id1) {
            goto L40;
          }
          j1 = j;
          j = iperm[i__];
          cv[i__] = id1;
          pr[j] = j1;
          out[j1] = in2 - ii - 1;
          goto L70;
        L40:;
        }
      L50:
        j1 = pr[j];
        if (j1 == -1) {
          ++nfc;
          fc[nfc] = j;
          if (nfc > num2) {
            last = jord;
            goto L101;
          }
          goto L100;
        }
        j = j1;
      }
    L70:;
    }
  L80:
    iperm[i__] = j;
    arp[j] = ii - ip[j] + 1;
    ++(*num);
    i__2 = jord;
    for (k = 1; k <= i__2; ++k) {
      j = pr[j];
      if (j == -1) {
        goto L95;
      }
      ii = ip[j] + lenc[j] - out[j] - 2;
      i__ = irn[ii];
      iperm[i__] = j;
    }
  L95:
    if (*num == num1) {
      last = jord;
      goto L101;
    }
  L100:;
  }
  last = *n;
L101:
  i__1 = *n;
  for (jord = last + 1; jord <= i__1; ++jord) {
    ++nfc;
    fc[nfc] = fc[jord - num0];
  }
  return 0;
}
```