user: Demonstrate the C code that generates the assembly output below:

```asm
<contlm>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x50,%rsp
  mov    %edi,-0x24(%rbp)
  mov    %esi,-0x28(%rbp)
  mov    %rdx,-0x30(%rbp)
  movsd  %xmm0,-0x38(%rbp)
  mov    %rcx,-0x40(%rbp)
  mov    %r8,-0x48(%rbp)
  mov    %r9,-0x50(%rbp)
  cmpl   $0x1,-0x24(%rbp)
  jle    L125
  cmpl   $0x1,-0x28(%rbp)
  jle    L125
  pxor   %xmm0,%xmm0
  comisd -0x38(%rbp),%xmm0
  jae    L125
  movsd  -0x38(%rbp),%xmm0
  movsd  D1(%rip),%xmm1
  comisd %xmm1,%xmm0
  jb     L55
L125:
  mov    $0x3e7,%eax
  jmp    L149
L55:
  movl   $0x0,-0x1c(%rbp)
  jmp    L26
L132:
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movl   $0x0,-0x18(%rbp)
  jmp    L112
L61:
  mov    -0x18(%rbp),%eax
  imul   -0x28(%rbp),%eax
  mov    %eax,%edx
  mov    -0x1c(%rbp),%eax
  add    %edx,%eax
  mov    %eax,-0xc(%rbp)
  mov    -0xc(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  -0x8(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  addl   $0x1,-0x18(%rbp)
L112:
  mov    -0x18(%rbp),%eax
  cmp    -0x24(%rbp),%eax
  jl     L61
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x8(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x1c(%rbp)
L26:
  mov    -0x1c(%rbp),%eax
  cmp    -0x28(%rbp),%eax
  jl     L132
  movl   $0x0,-0x1c(%rbp)
  jmp    L91
L164:
  mov    -0x1c(%rbp),%eax
  imul   -0x28(%rbp),%eax
  mov    %eax,-0x10(%rbp)
  pxor   %xmm0,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movl   $0x0,-0x18(%rbp)
  jmp    L170
L71:
  mov    -0x10(%rbp),%edx
  mov    -0x18(%rbp),%eax
  add    %edx,%eax
  mov    %eax,-0xc(%rbp)
  mov    -0xc(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  movsd  -0x8(%rbp),%xmm1
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  addl   $0x1,-0x18(%rbp)
L170:
  mov    -0x18(%rbp),%eax
  cmp    -0x28(%rbp),%eax
  jl     L71
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  movsd  -0x8(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x1c(%rbp)
L91:
  mov    -0x1c(%rbp),%eax
  cmp    -0x24(%rbp),%eax
  jl     L164
  mov    -0x50(%rbp),%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  movl   $0x0,-0x1c(%rbp)
  jmp    L11
L160:
  mov    -0x50(%rbp),%rax
  movsd  (%rax),%xmm1
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  addsd  %xmm1,%xmm0
  mov    -0x50(%rbp),%rax
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x1c(%rbp)
L11:
  mov    -0x1c(%rbp),%eax
  cmp    -0x24(%rbp),%eax
  jl     L160
  movl   $0x0,-0x1c(%rbp)
  jmp    L98
L39:
  mov    -0x1c(%rbp),%eax
  imul   -0x28(%rbp),%eax
  mov    %eax,-0x10(%rbp)
  movl   $0x0,-0x18(%rbp)
  jmp    L138
L23:
  mov    -0x10(%rbp),%edx
  mov    -0x18(%rbp),%eax
  add    %edx,%eax
  mov    %eax,-0xc(%rbp)
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  mov    -0x18(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x40(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mulsd  %xmm1,%xmm0
  mov    -0x50(%rbp),%rax
  movsd  (%rax),%xmm1
  mov    -0xc(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    0x10(%rbp),%rax
  add    %rdx,%rax
  divsd  %xmm1,%xmm0
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x18(%rbp)
L138:
  mov    -0x18(%rbp),%eax
  cmp    -0x28(%rbp),%eax
  jl     L23
  addl   $0x1,-0x1c(%rbp)
L98:
  mov    -0x1c(%rbp),%eax
  cmp    -0x24(%rbp),%eax
  jl     L39
  mov    0x18(%rbp),%rax
  pxor   %xmm0,%xmm0
  movsd  %xmm0,(%rax)
  movl   $0x0,-0x1c(%rbp)
  jmp    L163
L161:
  mov    -0x1c(%rbp),%eax
  imul   -0x28(%rbp),%eax
  mov    %eax,-0x10(%rbp)
  movl   $0x0,-0x18(%rbp)
  jmp    L220
L15:
  mov    -0x10(%rbp),%edx
  mov    -0x18(%rbp),%eax
  add    %edx,%eax
  mov    %eax,-0xc(%rbp)
  mov    -0xc(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x30(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm0
  mov    -0xc(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    0x10(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm1
  subsd  %xmm1,%xmm0
  movsd  %xmm0,-0x8(%rbp)
  mov    0x18(%rbp),%rax
  movsd  (%rax),%xmm1
  movsd  -0x8(%rbp),%xmm0
  mulsd  %xmm0,%xmm0
  mov    -0xc(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    0x10(%rbp),%rax
  add    %rdx,%rax
  movsd  (%rax),%xmm2
  divsd  %xmm2,%xmm0
  addsd  %xmm1,%xmm0
  mov    0x18(%rbp),%rax
  movsd  %xmm0,(%rax)
  addl   $0x1,-0x18(%rbp)
L220:
  mov    -0x18(%rbp),%eax
  cmp    -0x28(%rbp),%eax
  jl     L15
  addl   $0x1,-0x1c(%rbp)
L163:
  mov    -0x1c(%rbp),%eax
  cmp    -0x24(%rbp),%eax
  jl     L161
  mov    -0x24(%rbp),%eax
  lea    -0x1(%rax),%edx
  mov    -0x28(%rbp),%eax
  sub    $0x1,%eax
  imul   %edx,%eax
  mov    %eax,-0x14(%rbp)
  mov    -0x14(%rbp),%edx
  mov    -0x38(%rbp),%rax
  mov    %edx,%edi
  movq   %rax,%xmm0
  call   <pchi@plt>
  movq   %xmm0,%rax
  mov    0x20(%rbp),%rdx
  mov    %rax,(%rdx)
  mov    0x18(%rbp),%rax
  movsd  (%rax),%xmm0
  mov    0x20(%rbp),%rax
  movsd  (%rax),%xmm1
  comisd %xmm1,%xmm0
  jb     L221
  mov    0x28(%rbp),%rax
  movl   $0x1,(%rax)
  jmp    L225
L221:
  mov    0x28(%rbp),%rax
  movl   $0x0,(%rax)
L225:
  mov    $0x0,%eax
L149:
  leave
  ret
```

tool_calls: name: parse_data
arguments: label: D1
data_type: f64

tool: D1: 1

assistant: ```c
int contlm(int l, int m, double a[], double al, double ac[], double ar[], double *at, double ef[], double *x20, double *x2, int *sw) {
  int i, j, k, n, nu;
  double w;
  if (l < 2 || m < 2 || al <= 0.0 || al >= 1.0)
    return 999;
  for (i = 0; i < m; i++) {
    w = 0.0;
    for (j = 0; j < l; j++) {
      k = j * m + i;
      w += a[k];
    }
    ac[i] = w;
  }
  for (i = 0; i < l; i++) {
    n = i * m;
    w = 0.0;
    for (j = 0; j < m; j++) {
      k = n + j;
      w += a[k];
    }
    ar[i] = w;
  }
  *at = 0.0;
  for (i = 0; i < l; i++)
    *at += ar[i];
  for (i = 0; i < l; i++) {
    n = i * m;
    for (j = 0; j < m; j++) {
      k = n + j;
      ef[k] = ar[i] * ac[j] / *at;
    }
  }
  *x20 = 0.0;
  for (i = 0; i < l; i++) {
    n = i * m;
    for (j = 0; j < m; j++) {
      k = n + j;
      w = a[k] - ef[k];
      *x20 += (w * w / ef[k]);
    }
  }
  nu = (l - 1) * (m - 1);
  *x2 = pchi(al, nu);
  if (*x20 >= *x2)
    *sw = 1;
  else
    *sw = 0;
  return 0;
}
```