user: 请显示与下面列出的汇编代码相匹配的C语言实现:

```asm
<dlamov_>:
  endbr64
  push   %r15
  push   %r14
  mov    %rdi,%r14
  push   %r13
  mov    %rdx,%r13
  push   %r12
  mov    %rcx,%r12
  push   %rbp
  mov    %rsi,%rbp
  push   %rbx
  mov    %r9,%rbx
  sub    $0x58,%rsp
  mov    (%rdx),%edx
  movslq (%rsi),%r9
  mov    %fs:0x28,%rax
  mov    %rax,0x48(%rsp)
  xor    %eax,%eax
  mov    0x90(%rsp),%r15
  mov    (%r8),%eax
  lea    -0x1(%rdx),%esi
  mov    %r9d,0x38(%rsp)
  mov    %r9,%rdi
  mov    (%r15),%r11d
  mov    %esi,%ecx
  mov    %r9,0x8(%rsp)
  mov    %eax,(%rsp)
  imul   %r11d,%ecx
  movslq %ecx,%r10
  add    %r10,%r9
  lea    -0x8(%rbx,%r9,8),%r9
  cmp    %r9,%r12
  ja     L318
  mov    %eax,%r9d
  imul   %esi,%r9d
  movslq %r9d,%rax
  mov    %rax,0x10(%rsp)
  add    0x8(%rsp),%rax
  lea    -0x8(%r12,%rax,8),%rax
  cmp    %rax,%rbx
  jbe    L185
L318:
  sub    $0x8,%rsp
  mov    %rbp,%rsi
  mov    %r14,%rdi
  mov    %rbx,%r9
  push   %r15
  mov    %r12,%rcx
  mov    %r13,%rdx
  call   <dlacpy_@plt>
  pop    %rsi
  pop    %rdi
L652:
  mov    0x48(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L593
  add    $0x58,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopw   0x0(%rax,%rax,1)
L185:
  mov    %r8,0x8(%rsp)
  cmp    %r11d,(%rsp)
  je     L439
  imul   %edx,%edi
  shl    $0x3,%edi
  call   <malloc@plt>
  mov    0x8(%rsp),%r8
  test   %rax,%rax
  je     L19
  sub    $0x8,%rsp
  mov    %rax,%r9
  mov    %r12,%rcx
  mov    %r13,%rdx
  lea    0x40(%rsp),%r11
  mov    %rbp,%rsi
  mov    %r14,%rdi
  push   %r11
  mov    %r11,0x18(%rsp)
  mov    %rax,0x10(%rsp)
  call   <dlacpy_@plt>
  mov    0x18(%rsp),%r8
  mov    %r13,%rdx
  mov    %rbx,%r9
  mov    0x10(%rsp),%rcx
  mov    %rbp,%rsi
  mov    %r14,%rdi
  mov    %r15,(%rsp)
  call   <dlacpy_@plt>
  mov    0x10(%rsp),%rdi
  call   <free@plt>
  pop    %rax
  pop    %rdx
  jmp    L652
  nopl   (%rax)
L19:
  mov    $0x564f,%ecx
  lea    0x3c(%rsp),%rsi
  lea    0x41(%rsp),%rdi
  mov    $0x7,%edx
  movl   $0xffffffff,0x3c(%rsp)
  movl   $0x4d414c44,0x41(%rsp)
  mov    %cx,0x45(%rsp)
  movb   $0x0,0x47(%rsp)
  call   <xerbla_@plt>
  jmp    L652
  nopl   0x0(%rax,%rax,1)
L439:
  movsbl (%r14),%edi
  mov    %r11d,0x28(%rsp)
  mov    %edx,0x24(%rsp)
  mov    %esi,0x2c(%rsp)
  mov    %r9d,0x20(%rsp)
  mov    %r10,0x18(%rsp)
  mov    %ecx,0x8(%rsp)
  call   <toupper@plt>
  movslq 0x24(%rsp),%rdx
  mov    0x28(%rsp),%r11d
  cmp    $0x4c,%eax
  je     L396
  cmp    $0x55,%eax
  mov    0x8(%rsp),%ecx
  mov    0x18(%rsp),%r10
  mov    0x20(%rsp),%r9d
  mov    0x2c(%rsp),%esi
  jne    L568
  cmp    %r12,%rbx
  jb     L308
  test   %esi,%esi
  js     L652
  mov    0x38(%rsp),%edi
  mov    (%rsp),%r9d
  mov    %ecx,%r8d
  xchg   %ax,%ax
L343:
  cmp    %esi,%edi
  mov    %esi,%ebp
  cmovle %edi,%ebp
  mov    %ebp,%eax
  sub    $0x1,%eax
  js     L116
  movslq %ebp,%rdx
  movslq %r8d,%r10
  movslq %ecx,%r13
  lea    (%r10,%rdx,1),%r14
  add    %r13,%rdx
  shl    $0x3,%r14
  lea    -0x10(%r12,%rdx,8),%r11
  lea    -0x8(%rbx,%r14,1),%rdx
  cmp    %rdx,%r11
  je     L332
  cmp    $0x2,%eax
  jbe    L332
  mov    %ebp,%r10d
  lea    -0x10(%rbx,%r14,1),%r13
  xor    %edx,%edx
  shr    %r10d
  neg    %r10
  shl    $0x4,%r10
  cs nopw 0x0(%rax,%rax,1)
L179:
  movupd (%r11,%rdx,1),%xmm3
  movups %xmm3,0x0(%r13,%rdx,1)
  sub    $0x10,%rdx
  cmp    %r10,%rdx
  jne    L179
  mov    %ebp,%edx
  and    $0xfffffffe,%edx
  sub    %edx,%eax
  cmp    %edx,%ebp
  je     L116
  lea    (%rcx,%rax,1),%edx
  add    %r8d,%eax
  movslq %edx,%rdx
  cltq
  movsd  (%r12,%rdx,8),%xmm0
  movsd  %xmm0,(%rbx,%rax,8)
L116:
  sub    $0x1,%esi
  sub    %r9d,%ecx
  sub    %r9d,%r8d
  cmp    $0xffffffff,%esi
  jne    L343
  jmp    L652
  nopl   (%rax)
L308:
  test   %edx,%edx
  jle    L652
  mov    0x38(%rsp),%r8d
  cmp    $0x1,%edx
  je     L652
  mov    (%rsp),%r11d
  mov    $0x1,%ecx
  mov    %r11d,%r10d
  mov    %r11d,%r9d
  nopl   (%rax)
L580:
  movslq %r9d,%rax
  lea    (%r12,%rax,8),%rdi
  movslq %r10d,%rax
  lea    (%rbx,%rax,8),%rsi
  xor    %eax,%eax
  jmp    L196
  nopw   0x0(%rax,%rax,1)
L102:
  movsd  (%rdi,%rax,8),%xmm0
  movsd  %xmm0,(%rsi,%rax,8)
  add    $0x1,%rax
  cmp    %rcx,%rax
  je     L555
L196:
  cmp    %eax,%r8d
  jg     L102
L555:
  add    $0x1,%rcx
  add    %r11d,%r9d
  add    %r11d,%r10d
  cmp    %rdx,%rcx
  jne    L580
  jmp    L652
  nopl   0x0(%rax)
L396:
  cmp    %r12,%rbx
  jae    L223
  test   %edx,%edx
  jle    L652
  mov    0x38(%rsp),%ebp
  test   %ebp,%ebp
  jle    L652
  movslq (%rsp),%rax
  cmp    %ebp,%edx
  lea    0x8(%r12),%r13
  mov    %r12,%r14
  cmovg  %ebp,%edx
  mov    %rbx,%r15
  xor    %r9d,%r9d
  xor    %r8d,%r8d
  lea    0x8(,%rax,8),%rsi
  shl    $0x3,%rax
  xor    %edi,%edi
  mov    %rax,0x8(%rsp)
  lea    -0x1(%rbp),%eax
  mov    %edx,0x18(%rsp)
  mov    %eax,0x20(%rsp)
  mov    %rsi,0x10(%rsp)
  mov    %rbx,%rsi
  nopl   (%rax)
L187:
  mov    %ebp,%r11d
  mov    %edi,%eax
  sub    %edi,%r11d
  cmp    %edi,%ebp
  setg   %cl
  cmp    %r13,%rsi
  setne  %dl
  test   %dl,%cl
  je     L226
  mov    0x20(%rsp),%edx
  sub    %edi,%edx
  cmp    $0x2,%edx
  jbe    L226
  cmp    %ebp,%eax
  mov    $0x1,%ecx
  lea    -0x8(%r13),%r10
  cmovge %ecx,%r11d
  xor    %edx,%edx
  mov    %r11d,%ecx
  shr    %ecx
  shl    $0x4,%rcx
  nopl   0x0(%rax)
L156:
  movupd (%r10,%rdx,1),%xmm1
  movups %xmm1,(%rsi,%rdx,1)
  add    $0x10,%rdx
  cmp    %rcx,%rdx
  jne    L156
  mov    %r11d,%edx
  and    $0xfffffffe,%edx
  add    %edx,%eax
  cmp    %edx,%r11d
  je     L590
  lea    (%r8,%rax,1),%edx
  add    %r9d,%eax
  movslq %edx,%rdx
  cltq
  movsd  (%r12,%rdx,8),%xmm0
  movsd  %xmm0,(%rbx,%rax,8)
L590:
  mov    0x10(%rsp),%rax
  add    $0x1,%rdi
  add    %rax,%rsi
  add    %rax,%r13
  mov    (%rsp),%eax
  add    %eax,%r8d
  add    %eax,%r9d
  mov    0x8(%rsp),%rax
  add    %rax,%r14
  add    %rax,%r15
  cmp    %edi,0x18(%rsp)
  jg     L187
  jmp    L652
  nopl   0x0(%rax)
L568:
  cmp    %r12,%rbx
  jb     L364
  test   %esi,%esi
  js     L652
  mov    0x38(%rsp),%r14d
  mov    %r14d,%r15d
  sub    $0x1,%r15d
  mov    %r15d,0x8(%rsp)
  js     L652
  mov    0x10(%rsp),%rax
  movslq %r14d,%rdx
  mov    (%rsp),%r13d
  mov    %r14d,0x10(%rsp)
  add    %rdx,%r10
  add    %rdx,%rax
  neg    %rdx
  lea    -0x10(%rbx,%r10,8),%rdi
  mov    %r13d,%ebp
  lea    -0x10(%r12,%rax,8),%r8
  mov    %r14d,%eax
  lea    0x10(,%rdx,8),%rdx
  neg    %ebp
  shr    %eax
  mov    %rdx,0x18(%rsp)
  movslq %ebp,%rbp
  lea    -0x1(%rax),%r10d
  mov    %r14d,%eax
  shl    $0x3,%rbp
  mov    %r13d,%r14d
  and    $0xfffffffe,%eax
  not    %r10
  mov    %eax,(%rsp)
  shl    $0x4,%r10
  mov    %r15d,%eax
  sub    (%rsp),%eax
  nop
L78:
  lea    0x8(%rdi),%rdx
  cmp    %rdx,%r8
  je     L6
  xor    %edx,%edx
  cmpl   $0x2,0x8(%rsp)
  jbe    L6
  nopw   0x0(%rax,%rax,1)
L658:
  movupd (%r8,%rdx,1),%xmm5
  movups %xmm5,(%rdi,%rdx,1)
  sub    $0x10,%rdx
  cmp    %r10,%rdx
  jne    L658
  mov    0x10(%rsp),%r15d
  cmp    %r15d,(%rsp)
  je     L663
  lea    (%r9,%rax,1),%edx
  movslq %edx,%rdx
  movsd  (%r12,%rdx,8),%xmm0
  lea    (%rcx,%rax,1),%edx
  movslq %edx,%rdx
  movsd  %xmm0,(%rbx,%rdx,8)
L663:
  sub    $0x1,%esi
  add    %rbp,%r8
  sub    %r14d,%r9d
  sub    %r11d,%ecx
  add    %rbp,%rdi
  cmp    $0xffffffff,%esi
  jne    L78
  jmp    L652
  nop
L226:
  mov    %rdi,%rax
  nopl   0x0(%rax,%rax,1)
L473:
  movsd  (%r14,%rax,8),%xmm0
  movsd  %xmm0,(%r15,%rax,8)
  add    $0x1,%rax
  cmp    %eax,%ebp
  jg     L473
  jmp    L590
  nopl   0x0(%rax)
L6:
  mov    0x18(%rsp),%r13
  movslq 0x8(%rsp),%rdx
  lea    0x0(%r13,%r8,1),%r15
  add    %rdi,%r13
  nopw   0x0(%rax,%rax,1)
L306:
  movsd  (%r15,%rdx,8),%xmm0
  movsd  %xmm0,0x0(%r13,%rdx,8)
  sub    $0x1,%rdx
  test   %edx,%edx
  jns    L306
  jmp    L663
  nopw   0x0(%rax,%rax,1)
L332:
  cltq
  lea    (%r12,%r13,8),%r11
  lea    (%rbx,%r10,8),%rdx
  nopw   0x0(%rax,%rax,1)
L60:
  movsd  (%r11,%rax,8),%xmm0
  movsd  %xmm0,(%rdx,%rax,8)
  sub    $0x1,%rax
  test   %eax,%eax
  jns    L60
  jmp    L116
  nopl   0x0(%rax,%rax,1)
L223:
  mov    0x38(%rsp),%r9d
  cmp    %edx,%r9d
  cmovle %r9d,%edx
  mov    %edx,%edi
  sub    $0x1,%edi
  js     L652
  mov    (%rsp),%esi
  movslq %r9d,%rcx
  lea    -0x1(%r9),%r14d
  imul   %esi,%edi
  mov    %esi,%eax
  neg    %eax
  cltq
  lea    0x0(,%rax,8),%r15
  movslq %edi,%rax
  mov    %edi,%r8d
  add    %rcx,%rax
  neg    %rcx
  lea    0x10(,%rcx,8),%rcx
  lea    -0x10(,%rax,8),%rax
  mov    %rcx,0x10(%rsp)
  lea    0x1(%r9),%ecx
  lea    (%r12,%rax,1),%rsi
  add    %rbx,%rax
  mov    %ecx,0x8(%rsp)
  nopw   0x0(%rax,%rax,1)
L453:
  mov    %r9d,%ecx
  sub    %edx,%ecx
  cmp    $0x2,%ecx
  seta   %r10b
  cmp    %edx,%r9d
  setge  %cl
  test   %cl,%r10b
  je     L42
  lea    0x8(%rax),%rcx
  cmp    %rcx,%rsi
  je     L42
  mov    0x8(%rsp),%r10d
  mov    $0x1,%ecx
  sub    %edx,%r10d
  cmp    %edx,%r9d
  cmovl  %ecx,%r10d
  xor    %ecx,%ecx
  mov    %r10d,%ebp
  shr    %ebp
  neg    %rbp
  shl    $0x4,%rbp
  xchg   %ax,%ax
L189:
  movupd (%rsi,%rcx,1),%xmm2
  movups %xmm2,(%rax,%rcx,1)
  sub    $0x10,%rcx
  cmp    %rcx,%rbp
  jne    L189
  mov    %r10d,%ebp
  mov    %r14d,%ecx
  and    $0xfffffffe,%ebp
  sub    %ebp,%ecx
  cmp    %ebp,%r10d
  je     L458
  lea    (%rdi,%rcx,1),%r10d
  add    %r8d,%ecx
  movslq %r10d,%r10
  movslq %ecx,%rcx
  movsd  (%r12,%r10,8),%xmm0
  movsd  %xmm0,(%rbx,%rcx,8)
L458:
  add    %r15,%rsi
  sub    (%rsp),%edi
  sub    %r11d,%r8d
  add    %r15,%rax
  sub    $0x1,%edx
  jne    L453
  jmp    L652
  nopl   0x0(%rax)
L42:
  mov    0x10(%rsp),%r10
  movslq %r14d,%rcx
  lea    (%rsi,%r10,1),%r13
  lea    (%r10,%rax,1),%rbp
  nopl   0x0(%rax,%rax,1)
L671:
  movsd  0x0(%r13,%rcx,8),%xmm0
  movsd  %xmm0,0x0(%rbp,%rcx,8)
  sub    $0x1,%rcx
  lea    0x1(%rcx),%r10d
  cmp    %r10d,%edx
  jle    L671
  jmp    L458
  nopl   0x0(%rax)
L364:
  test   %edx,%edx
  jle    L652
  mov    0x38(%rsp),%r15d
  test   %r15d,%r15d
  jle    L652
  mov    %r15d,%eax
  movslq (%rsp),%rbp
  mov    %r15d,0x8(%rsp)
  mov    %r15d,%ecx
  shr    %eax
  mov    %r12,%rdi
  mov    %rbx,%rsi
  and    $0xfffffffe,%ecx
  lea    -0x1(%rax),%r10d
  lea    -0x1(%r15),%eax
  mov    %rbp,%r14
  xor    %r9d,%r9d
  mov    %eax,(%rsp)
  add    $0x1,%r10
  shl    $0x3,%rbp
  xor    %r8d,%r8d
  shl    $0x4,%r10
  xor    %r11d,%r11d
  mov    %r15d,%r13d
  cs nopw 0x0(%rax,%rax,1)
L289:
  cmpl   $0x2,(%rsp)
  jbe    L406
  lea    0x8(%rdi),%r15
  xor    %eax,%eax
  cmp    %r15,%rsi
  je     L406
  nopl   0x0(%rax)
L428:
  movupd (%rdi,%rax,1),%xmm4
  movups %xmm4,(%rsi,%rax,1)
  add    $0x10,%rax
  cmp    %rax,%r10
  jne    L428
  cmp    0x8(%rsp),%ecx
  je     L499
  lea    (%rcx,%r8,1),%eax
  cltq
  movsd  (%r12,%rax,8),%xmm0
  lea    (%rcx,%r9,1),%eax
  cltq
  movsd  %xmm0,(%rbx,%rax,8)
L499:
  add    $0x1,%r11d
  add    %rbp,%rdi
  add    %rbp,%rsi
  add    %r14d,%r8d
  add    %r14d,%r9d
  cmp    %r11d,%edx
  jne    L289
  jmp    L652
  nopl   0x0(%rax)
L406:
  xor    %eax,%eax
  nopw   0x0(%rax,%rax,1)
L541:
  movsd  (%rdi,%rax,8),%xmm0
  movsd  %xmm0,(%rsi,%rax,8)
  add    $0x1,%rax
  cmp    %r13,%rax
  jne    L541
  jmp    L499
L593:
  call   <__stack_chk_fail@plt>
```

assistant: ```c
void dlamov_(const char *UPLO, const int *M, const int *N, const double *A, const int *LDA, double *B, const int *LDB) {
  const int m = *M;
  const int n = *N;
  const int lda = *LDA;
  const int ldb = *LDB;
  if (B + m - 1 + ldb * (n - 1) < A || A + m - 1 + lda * (n - 1) < B) {
    dlacpy_(UPLO, M, N, A, LDA, B, LDB);
  } else if (lda != ldb) {
    double *tmp = malloc(sizeof(*A) * m * n);
    if (!tmp) {
      int info = -1;
      const char func[] = "DLAMOV";
      xerbla_(func, &info, sizeof func);
    } else {
      dlacpy_(UPLO, M, N, A, LDA, tmp, &m);
      dlacpy_(UPLO, M, N, tmp, &m, B, LDB);
      free(tmp);
    }
  } else {
    int i, j;
    switch (toupper(*UPLO)) {
    case 'U':
      if (A > B) {
        for (j = 0; j < n; j++)
          for (i = 0; i < j && i < m; i++)
            B[i + ldb * j] = A[i + lda * j];
      } else {
        for (j = n; --j >= 0;)
          for (i = j < m ? j : m; --i >= 0;)
            B[i + ldb * j] = A[i + lda * j];
      }
      break;
    case 'L':
      if (A > B) {
        for (j = 0; j < n; j++)
          for (i = j; i < m; i++)
            B[i + ldb * j] = A[i + lda * j];
      } else {
        for (j = m < n ? m : n; --j >= 0;)
          for (i = m; --i >= j;)
            B[i + ldb * j] = A[i + lda * j];
      }
      break;
    default:
      if (A > B) {
        for (j = 0; j < n; j++)
          for (i = 0; i < m; i++)
            B[i + ldb * j] = A[i + lda * j];
      } else {
        for (j = n; --j >= 0;)
          for (i = m; --i >= 0;)
            B[i + ldb * j] = A[i + lda * j];
      }
      break;
    }
  }
}
```