user: What would the C source look like for the assembly code provided here?

```asm
<form_flat_clusters_from_monotonic_criterion>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  add    $0xffffffffffffff80,%rsp
  mov    %rdi,-0x58(%rbp)
  mov    %rsi,-0x60(%rbp)
  mov    %rdx,-0x68(%rbp)
  movsd  %xmm0,-0x70(%rbp)
  mov    %ecx,-0x74(%rbp)
  pxor   %xmm0,%xmm0
  cvtsi2sdl -0x74(%rbp),%xmm0
  movsd  D1(%rip),%xmm2
  movapd %xmm0,%xmm1
  divsd  %xmm2,%xmm1
  mov    -0x74(%rbp),%eax
  cltq
  shr    $0x3,%rax
  test   %rax,%rax
  js     L200
  pxor   %xmm0,%xmm0
  cvtsi2sd %rax,%xmm0
  jmp    L14
L200:
  mov    %rax,%rdx
  shr    %rdx
  and    $0x1,%eax
  or     %rax,%rdx
  pxor   %xmm0,%xmm0
  cvtsi2sd %rdx,%xmm0
  addsd  %xmm0,%xmm0
L14:
  ucomisd %xmm0,%xmm1
  jp     L208
  ucomisd %xmm0,%xmm1
  jne    L208
  mov    -0x74(%rbp),%eax
  cltq
  shr    $0x3,%rax
  jmp    L85
L208:
  mov    -0x74(%rbp),%eax
  cltq
  shr    $0x3,%rax
  add    $0x1,%eax
L85:
  mov    %eax,-0x38(%rbp)
  mov    -0x74(%rbp),%eax
  cltq
  shl    $0x2,%rax
  mov    %rax,%rdi
  call   <malloc@plt>
  mov    %rax,-0x28(%rbp)
  mov    -0x38(%rbp),%eax
  cltq
  mov    %rax,%rdi
  call   <malloc@plt>
  mov    %rax,-0x20(%rbp)
  mov    -0x38(%rbp),%eax
  cltq
  mov    %rax,%rdi
  call   <malloc@plt>
  mov    %rax,-0x18(%rbp)
  movl   $0x0,-0x3c(%rbp)
  movl   $0xffffffff,-0x40(%rbp)
  movl   $0x0,-0x44(%rbp)
  mov    -0x74(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x44(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  add    %edx,%edx
  mov    %edx,(%rax)
  mov    -0x38(%rbp),%eax
  cltq
  mov    -0x20(%rbp),%rdx
  mov    %rdx,%rcx
  mov    %rax,%rdx
  mov    $0x0,%esi
  mov    %rcx,%rdi
  call   <memset@plt>
  mov    -0x38(%rbp),%eax
  cltq
  mov    -0x18(%rbp),%rdx
  mov    %rdx,%rcx
  mov    %rax,%rdx
  mov    $0x0,%esi
  mov    %rcx,%rdi
  call   <memset@plt>
  movl   $0xffffffff,-0x40(%rbp)
  jmp    L7
L20:
  mov    -0x44(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%eax
  mov    %eax,-0x34(%rbp)
  mov    -0x34(%rbp),%eax
  sub    -0x74(%rbp),%eax
  shl    $0x2,%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  mov    %rax,-0x10(%rbp)
  mov    -0x10(%rbp),%rax
  movsd  (%rax),%xmm0
  cvttsd2si %xmm0,%eax
  mov    %eax,-0x30(%rbp)
  mov    -0x10(%rbp),%rax
  add    $0x8,%rax
  movsd  (%rax),%xmm0
  cvttsd2si %xmm0,%eax
  mov    %eax,-0x2c(%rbp)
  mov    -0x34(%rbp),%eax
  sub    -0x74(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x60(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  %xmm0,-0x8(%rbp)
  cmpl   $0xffffffff,-0x40(%rbp)
  jne    L150
  movsd  -0x70(%rbp),%xmm0
  comisd -0x8(%rbp),%xmm0
  jb     L150
  mov    -0x44(%rbp),%eax
  mov    %eax,-0x40(%rbp)
  addl   $0x1,-0x3c(%rbp)
L150:
  mov    -0x30(%rbp),%eax
  cmp    -0x74(%rbp),%eax
  jl     L166
  mov    -0x34(%rbp),%eax
  sub    -0x74(%rbp),%eax
  cltq
  shr    $0x3,%rax
  mov    %rax,%rdx
  mov    -0x20(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  movzbl %al,%edx
  mov    -0x34(%rbp),%eax
  sub    -0x74(%rbp),%eax
  not    %eax
  and    $0x7,%eax
  mov    %eax,%ecx
  sar    %cl,%edx
  mov    %edx,%eax
  and    $0x1,%eax
  test   %eax,%eax
  jne    L166
  mov    -0x34(%rbp),%eax
  sub    -0x74(%rbp),%eax
  cltq
  shr    $0x3,%rax
  mov    %rax,%rdx
  mov    -0x20(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  mov    %eax,%edi
  mov    -0x34(%rbp),%eax
  sub    -0x74(%rbp),%eax
  not    %eax
  and    $0x7,%eax
  mov    $0x1,%esi
  mov    %eax,%ecx
  shl    %cl,%esi
  mov    %esi,%eax
  or     %eax,%edi
  mov    %edi,%ecx
  mov    -0x20(%rbp),%rax
  add    %rdx,%rax
  mov    %ecx,%edx
  mov    %dl,(%rax)
  mov    -0x44(%rbp),%eax
  cltq
  add    $0x1,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x28(%rbp),%rax
  add    %rax,%rdx
  mov    -0x30(%rbp),%eax
  mov    %eax,(%rdx)
  addl   $0x1,-0x44(%rbp)
  jmp    L7
L166:
  mov    -0x2c(%rbp),%eax
  cmp    -0x74(%rbp),%eax
  jl     L217
  mov    -0x34(%rbp),%eax
  sub    -0x74(%rbp),%eax
  cltq
  shr    $0x3,%rax
  mov    %rax,%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  movzbl %al,%edx
  mov    -0x34(%rbp),%eax
  sub    -0x74(%rbp),%eax
  not    %eax
  and    $0x7,%eax
  mov    %eax,%ecx
  sar    %cl,%edx
  mov    %edx,%eax
  and    $0x1,%eax
  test   %eax,%eax
  jne    L217
  mov    -0x34(%rbp),%eax
  sub    -0x74(%rbp),%eax
  cltq
  shr    $0x3,%rax
  mov    %rax,%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  movzbl (%rax),%eax
  mov    %eax,%edi
  mov    -0x34(%rbp),%eax
  sub    -0x74(%rbp),%eax
  not    %eax
  and    $0x7,%eax
  mov    $0x1,%esi
  mov    %eax,%ecx
  shl    %cl,%esi
  mov    %esi,%eax
  or     %eax,%edi
  mov    %edi,%ecx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  mov    %ecx,%edx
  mov    %dl,(%rax)
  mov    -0x44(%rbp),%eax
  cltq
  add    $0x1,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x28(%rbp),%rax
  add    %rax,%rdx
  mov    -0x2c(%rbp),%eax
  mov    %eax,(%rdx)
  addl   $0x1,-0x44(%rbp)
  jmp    L7
L217:
  mov    -0x34(%rbp),%eax
  cmp    -0x74(%rbp),%eax
  jl     L188
  mov    -0x30(%rbp),%eax
  cmp    -0x74(%rbp),%eax
  jge    L9
  cmpl   $0xffffffff,-0x40(%rbp)
  jne    L206
  addl   $0x1,-0x3c(%rbp)
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x68(%rbp),%rax
  add    %rax,%rdx
  mov    -0x3c(%rbp),%eax
  mov    %eax,(%rdx)
  jmp    L9
L206:
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x68(%rbp),%rax
  add    %rax,%rdx
  mov    -0x3c(%rbp),%eax
  mov    %eax,(%rdx)
L9:
  mov    -0x2c(%rbp),%eax
  cmp    -0x74(%rbp),%eax
  jge    L50
  cmpl   $0xffffffff,-0x40(%rbp)
  jne    L120
  addl   $0x1,-0x3c(%rbp)
  mov    -0x2c(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x68(%rbp),%rax
  add    %rax,%rdx
  mov    -0x3c(%rbp),%eax
  mov    %eax,(%rdx)
  jmp    L50
L120:
  mov    -0x2c(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x68(%rbp),%rax
  add    %rax,%rdx
  mov    -0x3c(%rbp),%eax
  mov    %eax,(%rdx)
L50:
  mov    -0x40(%rbp),%eax
  cmp    -0x44(%rbp),%eax
  jne    L188
  movl   $0xffffffff,-0x40(%rbp)
L188:
  subl   $0x1,-0x44(%rbp)
L7:
  cmpl   $0x0,-0x44(%rbp)
  jns    L20
  mov    -0x28(%rbp),%rax
  mov    %rax,%rdi
  call   <free@plt>
  mov    -0x20(%rbp),%rax
  mov    %rax,%rdi
  call   <free@plt>
  mov    -0x18(%rbp),%rax
  mov    %rax,%rdi
  call   <free@plt>
  nop
  leave
  ret
```

tool_calls: name: read_data
arguments: data_tag: D1
datatype: byte[8]

tool: {"D1": [0x00,0x00,0x00,0x00,0x00,0x00,0x20,0x40]}

assistant: ```c
void form_flat_clusters_from_monotonic_criterion(const double *Z, const double *mono_crit, int *T, double cutoff, int n) {
  int *curNode;
  int ndid, lid, rid, k, ms, nc;
  unsigned char *lvisited, *rvisited;
  double max_crit;
  const double *Zrow;
  const int bff = (((((double)(n)) / (double)(sizeof(unsigned char) * 8)) == ((double)(((n)) / ((sizeof(unsigned char) * 8)))) ? (((n)) / ((sizeof(unsigned char) * 8))) : (((n)) / ((sizeof(unsigned char) * 8)) + 1)));
  curNode = (int *)malloc(n * sizeof(int));
  lvisited = (unsigned char *)malloc(bff);
  rvisited = (unsigned char *)malloc(bff);
  nc = 0;
  ms = -1;
  k = 0;
  curNode[k] = (n * 2) - 2;
  bzero(lvisited, bff);
  bzero(rvisited, bff);
  ms = -1;
  while (k >= 0) {
    ndid = curNode[k];
    Zrow = Z + ((ndid - n) * 4);
    lid = (int)Zrow[0];
    rid = (int)Zrow[1];
    max_crit = mono_crit[ndid - n];
    ;
    if (ms == -1 && max_crit <= cutoff) {
      ;
      ms = k;
      nc++;
    }
    if (lid >= n && !(((lvisited)[(ndid - n) / (sizeof(unsigned char) * 8)] >> (((sizeof(unsigned char) * 8) - 1) - ((ndid - n) % (sizeof(unsigned char) * 8)))) & 0x1)) {
      ((lvisited)[(ndid - n) / (sizeof(unsigned char) * 8)] |= ((0x1) << (((sizeof(unsigned char) * 8) - 1) - ((ndid - n) % (sizeof(unsigned char) * 8)))));
      curNode[k + 1] = lid;
      k++;
      continue;
    }
    if (rid >= n && !(((rvisited)[(ndid - n) / (sizeof(unsigned char) * 8)] >> (((sizeof(unsigned char) * 8) - 1) - ((ndid - n) % (sizeof(unsigned char) * 8)))) & 0x1)) {
      ((rvisited)[(ndid - n) / (sizeof(unsigned char) * 8)] |= ((0x1) << (((sizeof(unsigned char) * 8) - 1) - ((ndid - n) % (sizeof(unsigned char) * 8)))));
      curNode[k + 1] = rid;
      k++;
      continue;
    }
    if (ndid >= n) {
      if (lid < n) {
        if (ms == -1) {
          nc++;
          T[lid] = nc;
        } else {
          T[lid] = nc;
        }
      }
      if (rid < n) {
        if (ms == -1) {
          nc++;
          T[rid] = nc;
        } else {
          T[rid] = nc;
        }
      }
      if (ms == k) {
        ms = -1;
      }
    }
    k--;
  }
  free(curNode);
  free(lvisited);
  free(rvisited);
}
```