user: Please show me the C implementation that matches the assembly code listed below:

```asm
<main>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x88,%rsp
  mov    %rsi,0x68(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x78(%rsp)
  xor    %eax,%eax
  cmp    $0x5,%edi
  je     L198
  mov    (%rsi),%rsi
  lea    D75(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  mov    $0x1,%edi
  call   <exit@plt>
L198:
  mov    0x68(%rsp),%rax
  lea    D18(%rip),%rsi
  mov    0x8(%rax),%rdi
  call   <fopen@plt>
  mov    %rax,%r14
  test   %rax,%rax
  je     L24
L102:
  mov    0x68(%rsp),%r15
  mov    0x10(%r15),%rdi
  call   <atol@plt>
  mov    0x18(%r15),%rdi
  mov    %rax,%rbx
  call   <atol@plt>
  mov    %rbx,%rsi
  lea    D24(%rip),%rdi
  mov    %rax,%r12
  mov    %rax,%rdx
  xor    %eax,%eax
  call   <printf@plt>
  mov    %r12d,%r13d
  lea    0x0(,%rbx,4),%edi
  call   <malloc@plt>
  imul   %ebx,%r13d
  mov    %rax,%rbp
  shl    $0x2,%r13d
  mov    %r13d,%edi
  call   <malloc@plt>
  mov    %r13d,%edi
  mov    %rax,%r15
  mov    %rax,0x18(%rsp)
  call   <malloc@plt>
  lea    0x0(,%r12,8),%edi
  mov    %rax,0x8(%rsp)
  call   <malloc@plt>
  test   %r15,%r15
  mov    %rax,%r13
  sete   %al
  cmpq   $0x0,0x8(%rsp)
  sete   %dl
  or     %dl,%al
  jne    L18
  test   %rbp,%rbp
  je     L18
L204:
  xor    %r15d,%r15d
  jmp    L146
  nopl   0x0(%rax,%rax,1)
L5:
  add    $0x1,%r15
L146:
  mov    %r14,%rcx
  mov    %rbx,%rdx
  mov    $0x4,%esi
  mov    %rbp,%rdi
  call   <fread@plt>
  cmp    %rbx,%rax
  je     L5
  mov    %r15,%rsi
  lea    D19(%rip),%rdi
  xor    %eax,%eax
  mov    %r15,0x10(%rsp)
  call   <printf@plt>
  mov    %r14,%rdi
  call   <rewind@plt>
  mov    %rbx,%rdx
  mov    0x18(%rsp),%r15
  mov    %r14,%rcx
  imul   %r12,%rdx
  mov    $0x4,%esi
  mov    %r15,%rdi
  call   <fread@plt>
  pxor   %xmm5,%xmm5
  lea    0x0(,%rbx,4),%rax
  sub    0x8(%rsp),%r15
  cvtsi2ssq 0x10(%rsp),%xmm5
  mov    %rax,0x48(%rsp)
  lea    0x74(%rsp),%rax
  movss  D50(%rip),%xmm4
  movq   $0x1,0x28(%rsp)
  mov    %rax,0x20(%rsp)
  mov    %r15,0x60(%rsp)
  mov    %r14,0x40(%rsp)
  mov    %rbp,0x58(%rsp)
  movss  %xmm4,0x30(%rsp)
  movss  %xmm5,0x54(%rsp)
  nopl   0x0(%rax)
L117:
  mov    0x8(%rsp),%rdi
  mov    %r13,%r14
  xor    %r15d,%r15d
  test   %r12,%r12
  jle    L7
  mov    %r13,0x38(%rsp)
  mov    %r15,%r13
  mov    0x48(%rsp),%r15
  mov    %rdi,%rbp
L141:
  mov    %rbp,%rdi
  mov    %rbx,%rsi
  add    $0x1,%r13
  add    %r15,%rbp
  call   <zero@plt>
  add    $0x8,%r14
  movq   $0x0,-0x8(%r14)
  cmp    %r13,%r12
  jne    L141
  mov    0x38(%rsp),%r13
L7:
  mov    0x40(%rsp),%rdi
  movl   $0x0,0x74(%rsp)
  xor    %r15d,%r15d
  call   <rewind@plt>
  cmpq   $0x0,0x10(%rsp)
  je     L74
  mov    %r15,%r14
  mov    0x58(%rsp),%rbp
  mov    0x40(%rsp),%r15
  nopw   0x0(%rax,%rax,1)
L138:
  mov    %r15,%rcx
  mov    %rbx,%rdx
  mov    $0x4,%esi
  mov    %rbp,%rdi
  call   <fread@plt>
  mov    0x20(%rsp),%r8
  mov    %r12,%rcx
  mov    %rbx,%rdx
  mov    0x18(%rsp),%rdi
  mov    %rbp,%rsi
  add    $0x1,%r14
  call   <quantise@plt>
  mov    0x8(%rsp),%rcx
  mov    %rbx,%rdx
  mov    %rbp,%rsi
  addq   $0x1,0x0(%r13,%rax,8)
  imul   %rbx,%rax
  lea    (%rcx,%rax,4),%rdi
  call   <acc@plt>
  cmp    %r14,0x10(%rsp)
  jne    L138
L74:
  movss  0x30(%rsp),%xmm1
  movss  0x74(%rsp),%xmm2
  pxor   %xmm0,%xmm0
  divss  0x54(%rsp),%xmm2
  mov    0x28(%rsp),%r15
  mov    $0x2,%eax
  movss  %xmm2,0x38(%rsp)
  lea    D47(%rip),%rdi
  subss  %xmm2,%xmm1
  cvtss2sd %xmm2,%xmm0
  mov    %r15,%rsi
  divss  %xmm2,%xmm1
  cvtss2sd %xmm1,%xmm1
  movsd  %xmm1,0x30(%rsp)
  call   <printf@plt>
  mov    %r15,%rax
  movsd  0x30(%rsp),%xmm1
  movss  0x38(%rsp),%xmm2
  add    $0x1,%rax
  comisd D83(%rip),%xmm1
  mov    %rax,0x28(%rsp)
  ja     L9
  mov    0x68(%rsp),%rax
  lea    D49(%rip),%rsi
  mov    0x20(%rax),%rdi
  call   <fopen@plt>
  mov    %rax,%r13
  test   %rax,%rax
  je     L190
L164:
  mov    %r12,%rcx
  mov    %rbx,%rdx
  lea    D60(%rip),%rsi
  mov    %r13,%rdi
  xor    %eax,%eax
  xor    %r15d,%r15d
  call   <fprintf@plt>
  xor    %eax,%eax
  test   %r12,%r12
  jle    L242
  mov    %r12,0x8(%rsp)
  mov    %rax,%rbp
  nopw   0x0(%rax,%rax,1)
L47:
  mov    0x18(%rsp),%rax
  xor    %r14d,%r14d
  lea    (%rax,%rbp,4),%r12
  test   %rbx,%rbx
  jle    L10
  nopl   0x0(%rax)
L89:
  pxor   %xmm0,%xmm0
  mov    %r13,%rdi
  mov    $0x1,%eax
  add    $0x1,%r14
  lea    D76(%rip),%rsi
  cvtss2sd (%r12),%xmm0
  add    $0x4,%r12
  call   <fprintf@plt>
  cmp    %r14,%rbx
  jne    L89
L10:
  mov    %r13,%rsi
  mov    $0xa,%edi
  add    $0x1,%r15
  add    %rbx,%rbp
  call   <fputc@plt>
  cmp    %r15,0x8(%rsp)
  jne    L47
L242:
  mov    %r13,%rdi
  call   <fclose@plt>
  mov    0x78(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L31
  add    $0x88,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L18:
  lea    D78(%rip),%rdi
  call   <puts@plt>
  mov    $0x1,%edi
  call   <exit@plt>
  jmp    L204
  nopl   0x0(%rax)
L9:
  test   %r12,%r12
  jle    L168
  mov    0x8(%rsp),%r9
  mov    %r13,%r8
  xor    %ecx,%ecx
  mov    %r13,0x30(%rsp)
  mov    0x48(%rsp),%rbp
  mov    %r12,%r13
  mov    %rcx,%r14
  mov    %rbx,%r12
  movss  %xmm2,0x38(%rsp)
  mov    %r9,%rbx
  mov    %r8,%r15
  jmp    L135
  nopl   0x0(%rax)
L194:
  add    $0x1,%r14
  add    $0x8,%r15
  add    %rbp,%rbx
  cmp    %r14,%r13
  je     L101
L135:
  mov    (%r15),%rdx
  test   %rdx,%rdx
  je     L194
  mov    %rbx,%rdi
  mov    %r12,%rsi
  add    $0x1,%r14
  add    $0x8,%r15
  call   <norm@plt>
  mov    0x60(%rsp),%rax
  mov    %rbx,%rsi
  mov    %rbp,%rdx
  lea    (%rax,%rbx,1),%rdi
  add    %rbp,%rbx
  call   <memcpy@plt>
  cmp    %r14,%r13
  jne    L135
L101:
  mov    %r12,%rbx
  movss  0x38(%rsp),%xmm2
  mov    %r13,%r12
  mov    0x30(%rsp),%r13
L168:
  movss  %xmm2,0x30(%rsp)
  jmp    L117
L24:
  mov    0x68(%rsp),%rax
  lea    D7(%rip),%rdi
  mov    0x8(%rax),%rsi
  xor    %eax,%eax
  call   <printf@plt>
  mov    $0x1,%edi
  call   <exit@plt>
  jmp    L102
L190:
  mov    0x68(%rsp),%rax
  lea    D79(%rip),%rdi
  mov    0x20(%rax),%rsi
  xor    %eax,%eax
  call   <printf@plt>
  mov    $0x1,%edi
  call   <exit@plt>
  jmp    L164
L31:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: retrieve_data
arguments: data_label: D75
type: string
name: retrieve_data
arguments: data_label: D18
type: string
name: retrieve_data
arguments: data_label: D24
type: string
name: retrieve_data
arguments: data_label: D19
type: string
name: retrieve_data
arguments: data_label: D50
type: f32
name: retrieve_data
arguments: data_label: D47
type: string
name: retrieve_data
arguments: data_label: D83
type: f64
name: retrieve_data
arguments: data_label: D49
type: string
name: retrieve_data
arguments: data_label: D60
type: string
name: retrieve_data
arguments: data_label: D76
type: string
name: retrieve_data
arguments: data_label: D78
type: string
name: retrieve_data
arguments: data_label: D7
type: string
name: retrieve_data
arguments: data_label: D79
type: string

tool: D75: usage: %s TrainFile K(dimension) M(codebook size) VQFile


tool: D18: rb

tool: D24: dimension K=%ld  number of entries M=%ld


tool: D19: J=%ld entries in training set


tool: D50: 1e+32

tool: D47:   Iteration %ld, Dn = %f, Delta = %e


tool: D83: 0.01

tool: D49: wt

tool: D60: %ld %ld


tool: D76: %f  

tool: D78: Error in malloc.

tool: D7: Error opening training database file: %s


tool: D79: Error opening VQ file: %s


assistant: ```c
int main(int argc, char *argv[]) {
  long k, m;
  float *vec;
  float *cb;
  float *cent;
  long *n;
  long J;
  long i, j;
  long ind;
  float se;
  float Dn, Dn_1;
  float delta;
  FILE *ftrain;
  FILE *fvq;
  if (argc != 5) {
    printf("usage: %s TrainFile K(dimension) M(codebook size) VQFile\n", argv[0]);
    exit(1);
  }
  ftrain = fopen(argv[1], "rb");
  if (ftrain == NULL) {
    printf("Error opening training database file: %s\n", argv[1]);
    exit(1);
  }
  k = atol(argv[2]);
  m = atol(argv[3]);
  printf("dimension K=%ld  number of entries M=%ld\n", k, m);
  vec = (float *)malloc(sizeof(float) * k);
  cb = (float *)malloc(sizeof(float) * k * m);
  cent = (float *)malloc(sizeof(float) * k * m);
  n = (long *)malloc(sizeof(long) * m);
  if (cb == NULL || cb == NULL || cent == NULL || vec == NULL) {
    printf("Error in malloc.\n");
    exit(1);
  }
  J = 0;
  while (fread(vec, sizeof(float), k, ftrain) == (size_t)k)
    J++;
  printf("J=%ld entries in training set\n", J);
  rewind(ftrain);
  fread(cb, sizeof(float), k * m, ftrain);
  Dn = 1E32;
  j = 1;
  do {
    Dn_1 = Dn;
    for (i = 0; i < m; i++) {
      zero(&cent[i * k], k);
      n[i] = 0;
    }
    se = 0.0;
    rewind(ftrain);
    for (i = 0; i < J; i++) {
      fread(vec, sizeof(float), k, ftrain);
      ind = quantise(cb, vec, k, m, &se);
      n[ind]++;
      acc(&cent[ind * k], vec, k);
    }
    Dn = se / J;
    delta = (Dn_1 - Dn) / Dn;
    printf("\r  Iteration %ld, Dn = %f, Delta = %e\n", j, Dn, delta);
    j++;
    if (delta > 0.01)
      for (i = 0; i < m; i++) {
        if (n[i] != 0) {
          norm(&cent[i * k], k, n[i]);
          memcpy(&cb[i * k], &cent[i * k], k * sizeof(float));
        }
      }
  } while (delta > 0.01);
  fvq = fopen(argv[4], "wt");
  if (fvq == NULL) {
    printf("Error opening VQ file: %s\n", argv[4]);
    exit(1);
  }
  fprintf(fvq, "%ld %ld\n", k, m);
  for (j = 0; j < m; j++) {
    for (i = 0; i < k; i++)
      fprintf(fvq, "%f  ", cb[j * k + i]);
    fprintf(fvq, "\n");
  }
  fclose(fvq);
  return 0;
}
```