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

```asm
<mark_cluster_numbers>:
  endbr64
  push   %r15
  push   %r14
  mov    %r8d,%r14d
  push   %r13
  push   %r12
  push   %rbp
  mov    %rdi,%rbp
  push   %rbx
  mov    %ecx,%ebx
  sub    $0x88,%rsp
  mov    %rsi,0x8(%rsp)
  mov    %ebx,%esi
  mov    %rdx,0x10(%rsp)
  mov    %r8d,%edx
  mov    %ecx,0x1c(%rsp)
  mov    $0xffffffff,%ecx
  mov    %r9,0x38(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x78(%rsp)
  xor    %eax,%eax
  call   <fill_matrix@plt>
  test   %ebx,%ebx
  jle    L201
  movslq %ebx,%rax
  xor    %r15d,%r15d
  movslq %r14d,%r13
  xor    %r12d,%r12d
  mov    %rax,0x30(%rsp)
  lea    0x50(%rsp),%rax
  mov    %rax,0x20(%rsp)
  lea    0x48(%rsp),%rax
  mov    %rax,0x28(%rsp)
  mov    %r14d,%eax
  mov    %r15d,%r14d
  mov    %eax,%r15d
  nopl   (%rax)
L218:
  movd   %r12d,%xmm1
  xor    %ebx,%ebx
  test   %r15d,%r15d
  jg     L158
  jmp    L149
  nopl   0x0(%rax)
L87:
  add    $0x1,%rbx
  cmp    %r13,%rbx
  je     L149
L158:
  mov    0x0(%rbp,%r12,8),%rax
  movdqa %xmm1,%xmm0
  movd   %ebx,%xmm2
  punpckldq %xmm2,%xmm0
  mov    (%rax,%rbx,4),%ecx
  test   %ecx,%ecx
  jns    L87
  movd   %xmm1,0x18(%rsp)
  sub    $0x8,%rsp
  mov    %r15d,%ecx
  movq   %xmm0,0x50(%rsp)
  lea    0x4c(%rsp),%rax
  push   %rax
  mov    0x30(%rsp),%r9
  mov    0x38(%rsp),%r8
  mov    0x2c(%rsp),%edx
  mov    0x20(%rsp),%rsi
  mov    0x18(%rsp),%rdi
  call   <get_bonded_neighbors@plt>
  mov    0x0(%rbp,%r12,8),%rax
  mov    %r14d,(%rax,%rbx,4)
  mov    0x54(%rsp),%eax
  pop    %r11
  pop    %rdx
  test   %eax,%eax
  movd   0x18(%rsp),%xmm1
  jle    L159
  movslq 0x50(%rsp),%rdx
  movslq 0x54(%rsp),%rcx
  mov    0x0(%rbp,%rdx,8),%rdx
  cmpl   $0xffffffff,(%rdx,%rcx,4)
  je     L42
L162:
  cmp    $0x1,%eax
  jle    L159
  movslq 0x58(%rsp),%rdx
  movslq 0x5c(%rsp),%rcx
  mov    0x0(%rbp,%rdx,8),%rdx
  cmpl   $0xffffffff,(%rdx,%rcx,4)
  je     L153
L18:
  cmp    $0x2,%eax
  jle    L159
  movslq 0x60(%rsp),%rdx
  movslq 0x64(%rsp),%rcx
  mov    0x0(%rbp,%rdx,8),%rdx
  cmpl   $0xffffffff,(%rdx,%rcx,4)
  je     L212
L38:
  cmp    $0x3,%eax
  jle    L159
  movslq 0x68(%rsp),%rax
  movslq 0x6c(%rsp),%rdx
  mov    0x0(%rbp,%rax,8),%rax
  cmpl   $0xffffffff,(%rax,%rdx,4)
  je     L24
L159:
  add    $0x1,%rbx
  add    $0x1,%r14d
  cmp    %r13,%rbx
  jne    L158
  nopl   0x0(%rax)
L149:
  add    $0x1,%r12
  cmp    0x30(%rsp),%r12
  jne    L218
  mov    %r14d,%r15d
L151:
  mov    0x38(%rsp),%rax
  test   %rax,%rax
  je     L120
  mov    %r15d,(%rax)
L120:
  mov    0x78(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L56
  add    $0x88,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   (%rax)
L42:
  movd   %xmm1,0x18(%rsp)
  sub    $0x8,%rsp
  mov    %r15d,%r8d
  mov    %rbp,%rdi
  push   %r14
  mov    0x30(%rsp),%r9
  mov    0x2c(%rsp),%ecx
  mov    0x20(%rsp),%rdx
  mov    0x18(%rsp),%rsi
  call   <mark_one_cluster_aux@plt>
  mov    0x54(%rsp),%eax
  pop    %r9
  pop    %r10
  movd   0x18(%rsp),%xmm1
  jmp    L162
  nopl   (%rax)
L153:
  movd   %xmm1,0x18(%rsp)
  sub    $0x8,%rsp
  mov    %r15d,%r8d
  mov    %rbp,%rdi
  push   %r14
  mov    0x2c(%rsp),%ecx
  mov    0x20(%rsp),%rdx
  mov    0x18(%rsp),%rsi
  lea    0x68(%rsp),%r9
  call   <mark_one_cluster_aux@plt>
  mov    0x54(%rsp),%eax
  pop    %rdi
  pop    %r8
  movd   0x18(%rsp),%xmm1
  jmp    L18
  nopl   0x0(%rax)
L212:
  movd   %xmm1,0x18(%rsp)
  sub    $0x8,%rsp
  mov    %r15d,%r8d
  mov    %rbp,%rdi
  push   %r14
  mov    0x2c(%rsp),%ecx
  mov    0x20(%rsp),%rdx
  mov    0x18(%rsp),%rsi
  lea    0x70(%rsp),%r9
  call   <mark_one_cluster_aux@plt>
  mov    0x54(%rsp),%eax
  pop    %rcx
  pop    %rsi
  movd   0x18(%rsp),%xmm1
  jmp    L38
  nopl   0x0(%rax,%rax,1)
L24:
  movd   %xmm1,0x18(%rsp)
  sub    $0x8,%rsp
  mov    %r15d,%r8d
  mov    %rbp,%rdi
  push   %r14
  mov    0x2c(%rsp),%ecx
  mov    0x20(%rsp),%rdx
  mov    0x18(%rsp),%rsi
  lea    0x78(%rsp),%r9
  call   <mark_one_cluster_aux@plt>
  pop    %rax
  pop    %rdx
  movd   0x18(%rsp),%xmm1
  jmp    L159
L201:
  xor    %r15d,%r15d
  jmp    L151
L56:
  call   <__stack_chk_fail@plt>
```

assistant: ```c
void mark_cluster_numbers(int **site_marks, int **vbonds, int **hbonds, int M, int N, int *pnum_clusters) {
  int neighbors[4][2];
  int numnei;
  int i, j, m;
  int A[2];
  int cluster_number = 0;
  fill_matrix(site_marks, M, N, -1);
  for (i = 0; i < M; i++) {
    for (j = 0; j < N; j++) {
      if (site_marks[i][j] >= 0)
        continue;
      A[0] = i;
      A[1] = j;
      get_bonded_neighbors(vbonds, hbonds, M, N, A, neighbors, &numnei);
      site_marks[i][j] = cluster_number;
      for (m = 0; m < numnei; m++) {
        int Bi = neighbors[m][0];
        int Bj = neighbors[m][1];
        if (site_marks[Bi][Bj] == -1) {
          mark_one_cluster_aux(site_marks, vbonds, hbonds, M, N, neighbors[m], cluster_number);
        }
      }
      cluster_number++;
    }
  }
  if (pnum_clusters)
    *pnum_clusters = cluster_number;
}
```