user: 请将以下的汇编代码转换成C语言代码:

```asm
<scoreDist>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %rbx
  sub    $0x58,%rsp
  mov    %rdi,-0x38(%rbp)
  mov    %rsi,-0x40(%rbp)
  mov    %edx,-0x44(%rbp)
  mov    %ecx,-0x48(%rbp)
  mov    %r8,-0x50(%rbp)
  mov    %r9,-0x58(%rbp)
  mov    -0x44(%rbp),%eax
  mov    $0x8,%esi
  mov    %eax,%edi
  call   <mCalloc@plt>
  mov    %rax,-0x20(%rbp)
  mov    -0x44(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x20(%rbp),%rax
  mov    $0x0,%esi
  mov    %rax,%rdi
  call   <memset@plt>
  mov    0x18(%rbp),%edx
  mov    -0x50(%rbp),%rcx
  mov    -0x38(%rbp),%rax
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <expectedProtSimScore@plt>
  imul   -0x48(%rbp),%eax
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  movsd  %xmm0,-0x18(%rbp)
  movl   $0x0,-0x28(%rbp)
  jmp    L25
L43:
  mov    -0x44(%rbp),%eax
  mov    $0x8,%esi
  mov    %eax,%edi
  call   <mCalloc@plt>
  mov    -0x28(%rbp),%edx
  movslq %edx,%rdx
  lea    0x0(,%rdx,8),%rcx
  mov    -0x58(%rbp),%rdx
  add    %rcx,%rdx
  mov    %rax,(%rdx)
  mov    -0x28(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x28(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x28(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rsi
  mov    -0x28(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  mov    -0x28(%rbp),%edx
  movslq %edx,%rdx
  lea    0x0(,%rdx,8),%rcx
  mov    -0x20(%rbp),%rdx
  lea    (%rcx,%rdx,1),%rbx
  mov    0x18(%rbp),%edi
  mov    -0x48(%rbp),%ecx
  mov    -0x50(%rbp),%rdx
  mov    %edi,%r9d
  mov    0x10(%rbp),%r8
  mov    %rax,%rdi
  call   <simScore@plt>
  movq   %xmm0,%rax
  mov    %rax,(%rbx)
  addl   $0x1,-0x28(%rbp)
L25:
  mov    -0x28(%rbp),%eax
  cmp    -0x44(%rbp),%eax
  jl     L43
  movl   $0x0,-0x28(%rbp)
  jmp    L12
L58:
  mov    -0x28(%rbp),%eax
  add    $0x1,%eax
  mov    %eax,-0x24(%rbp)
  jmp    L42
L0:
  mov    -0x24(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rcx
  mov    -0x28(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x24(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rsi
  mov    -0x58(%rbp),%rax
  add    %rsi,%rax
  mov    (%rax),%rsi
  mov    -0x28(%rbp),%eax
  cltq
  shl    $0x3,%rax
  lea    (%rsi,%rax,1),%rbx
  mov    -0x20(%rbp),%r9
  mov    -0x18(%rbp),%rdi
  mov    -0x48(%rbp),%r10d
  mov    -0x24(%rbp),%esi
  mov    -0x28(%rbp),%eax
  sub    $0x8,%rsp
  mov    0x18(%rbp),%r8d
  push   %r8
  push   0x10(%rbp)
  push   -0x50(%rbp)
  movq   %rdi,%xmm0
  mov    %r10d,%r8d
  mov    %eax,%edi
  call   <scoreDistij@plt>
  add    $0x20,%rsp
  movq   %xmm0,%rax
  mov    %rax,(%rbx)
  mov    -0x28(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x24(%rbp),%eax
  cltq
  shl    $0x3,%rax
  add    %rdx,%rax
  movsd  (%rbx),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x24(%rbp)
L42:
  mov    -0x24(%rbp),%eax
  cmp    -0x44(%rbp),%eax
  jl     L0
  addl   $0x1,-0x28(%rbp)
L12:
  mov    -0x44(%rbp),%eax
  sub    $0x1,%eax
  cmp    %eax,-0x28(%rbp)
  jl     L58
  mov    -0x20(%rbp),%rax
  mov    %rax,%rdi
  call   <free@plt>
  nop
  mov    -0x8(%rbp),%rbx
  leave
  ret
```

assistant: ```c
void scoreDist(double *P, char **data, int numSpecies, int seqLength, double **scoreMatrix, double **D, char *alphabet, int alphabetSize) {
  int i, j;
  double simExp;
  double *simDiags;
  simDiags = (double *)mCalloc(numSpecies, sizeof(double));
  memset(simDiags, 0, (unsigned long)numSpecies * sizeof(double));
  simExp = seqLength * expectedProtSimScore(P, scoreMatrix, alphabetSize);
  for (i = 0; i < numSpecies; i++) {
    D[i] = (double *)mCalloc(numSpecies, sizeof(double));
    D[i][i] = 0.0;
    simDiags[i] = simScore(data[i], data[i], scoreMatrix, seqLength, alphabet, alphabetSize);
  }
  for (i = 0; i < numSpecies - 1; i++) {
    for (j = i + 1; j < numSpecies; j++)
      D[i][j] = D[j][i] = scoreDistij(i, j, data[i], data[j], seqLength, simExp, simDiags, scoreMatrix, alphabet, alphabetSize);
  }
  free(simDiags);
  return;
}
```