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

```asm
<update_map1>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %rbx
  sub    $0x68,%rsp
  mov    %rdi,-0x48(%rbp)
  mov    %rsi,-0x50(%rbp)
  mov    %rdx,-0x58(%rbp)
  mov    %rcx,-0x60(%rbp)
  mov    %r8,-0x68(%rbp)
  mov    %r9d,-0x6c(%rbp)
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,-0x70(%rbp)
  movss  -0x70(%rbp),%xmm0
  movaps %xmm0,%xmm1
  mulss  %xmm0,%xmm1
  movss  D7(%rip),%xmm0
  divss  %xmm1,%xmm0
  movss  %xmm0,-0x20(%rbp)
  movl   $0x1,-0x34(%rbp)
  jmp    L39
L4:
  mov    -0x34(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%edi
  mov    -0x34(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x68(%rbp),%rax
  lea    (%rdx,%rax,1),%rbx
  mov    -0x34(%rbp),%r10d
  mov    -0x60(%rbp),%rcx
  mov    -0x58(%rbp),%rdx
  mov    -0x50(%rbp),%rsi
  mov    -0x48(%rbp),%rax
  sub    $0x8,%rsp
  mov    -0x6c(%rbp),%r8d
  push   %r8
  mov    0x18(%rbp),%r8d
  push   %r8
  push   %rdi
  mov    0x10(%rbp),%r9d
  mov    %r10d,%r8d
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <find_winner_pe2@plt>
  add    $0x20,%rsp
  mov    %eax,(%rbx)
  addl   $0x1,-0x34(%rbp)
L39:
  mov    -0x34(%rbp),%eax
  cmp    0x20(%rbp),%eax
  jle    L4
  movl   $0x1,-0x30(%rbp)
  jmp    L35
L106:
  movl   $0x1,-0x2c(%rbp)
  jmp    L100
L128:
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2c(%rbp),%eax
  cltq
  shl    $0x2,%rax
  add    %rdx,%rax
  pxor   %xmm0,%xmm0
  movss  %xmm0,(%rax)
  addl   $0x1,-0x2c(%rbp)
L100:
  mov    -0x2c(%rbp),%eax
  cmp    0x10(%rbp),%eax
  jle    L128
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x24(%rbp)
  movl   $0x1,-0x34(%rbp)
  jmp    L83
L86:
  movl   $0x0,-0x28(%rbp)
  mov    -0x34(%rbp),%eax
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    -0x68(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%eax
  mov    %eax,-0x1c(%rbp)
  movl   $0x1,-0x2c(%rbp)
  jmp    L50
L26:
  mov    -0x1c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x58(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2c(%rbp),%eax
  cltq
  shl    $0x2,%rax
  add    %rdx,%rax
  mov    (%rax),%eax
  mov    -0x30(%rbp),%edx
  movslq %edx,%rdx
  lea    0x0(,%rdx,8),%rcx
  mov    -0x58(%rbp),%rdx
  add    %rcx,%rdx
  mov    (%rdx),%rcx
  mov    -0x2c(%rbp),%edx
  movslq %edx,%rdx
  shl    $0x2,%rdx
  add    %rcx,%rdx
  mov    (%rdx),%edx
  sub    %edx,%eax
  mov    %eax,-0x14(%rbp)
  mov    -0x14(%rbp),%eax
  imul   %eax,%eax
  add    %eax,-0x28(%rbp)
  addl   $0x1,-0x2c(%rbp)
L50:
  mov    -0x2c(%rbp),%eax
  cmp    -0x6c(%rbp),%eax
  jle    L26
  pxor   %xmm0,%xmm0
  cvtsi2ssl -0x28(%rbp),%xmm0
  mulss  -0x20(%rbp),%xmm0
  pxor   %xmm2,%xmm2
  cvtss2sd %xmm0,%xmm2
  movq   %xmm2,%rax
  movq   %rax,%xmm0
  call   <exp@plt>
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,-0x18(%rbp)
  movss  -0x24(%rbp),%xmm0
  addss  -0x18(%rbp),%xmm0
  movss  %xmm0,-0x24(%rbp)
  movl   $0x1,-0x2c(%rbp)
  jmp    L98
L54:
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2c(%rbp),%eax
  cltq
  shl    $0x2,%rax
  add    %rdx,%rax
  movss  (%rax),%xmm1
  mov    -0x34(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x60(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2c(%rbp),%eax
  cltq
  shl    $0x2,%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  mulss  -0x18(%rbp),%xmm0
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2c(%rbp),%eax
  cltq
  shl    $0x2,%rax
  add    %rdx,%rax
  addss  %xmm1,%xmm0
  movss  %xmm0,(%rax)
  addl   $0x1,-0x2c(%rbp)
L98:
  mov    -0x2c(%rbp),%eax
  cmp    0x10(%rbp),%eax
  jle    L54
  addl   $0x1,-0x34(%rbp)
L83:
  mov    -0x34(%rbp),%eax
  cmp    0x20(%rbp),%eax
  jle    L86
  movss  D13(%rip),%xmm0
  divss  -0x24(%rbp),%xmm0
  movss  %xmm0,-0x24(%rbp)
  movl   $0x1,-0x2c(%rbp)
  jmp    L18
L66:
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2c(%rbp),%eax
  cltq
  shl    $0x2,%rax
  add    %rdx,%rax
  movss  (%rax),%xmm0
  mov    -0x30(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x48(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rdx
  mov    -0x2c(%rbp),%eax
  cltq
  shl    $0x2,%rax
  add    %rdx,%rax
  mulss  -0x24(%rbp),%xmm0
  movss  %xmm0,(%rax)
  addl   $0x1,-0x2c(%rbp)
L18:
  mov    -0x2c(%rbp),%eax
  cmp    0x10(%rbp),%eax
  jle    L66
  addl   $0x1,-0x30(%rbp)
L35:
  mov    -0x30(%rbp),%eax
  cmp    0x18(%rbp),%eax
  jle    L106
  nop
  nop
  mov    -0x8(%rbp),%rbx
  leave
  ret
```

tool_calls: name: unpack_data
arguments: label: D7
data_type: byte[4]
name: unpack_data
arguments: label: D13
data_type: f32

tool: {"D7": [0x00,0x00,0x00,0xbf]}

tool: D13: 1

assistant: ```c
void update_map1(map, a, coords, data, win_list, sigmax, dim, ivars, total_units, samples) float **map, **data, **a, sigmax;
int **coords, *win_list;
int dim, ivars, total_units, samples;
{
  int i, j, k, winner, dist, diff, time_count;
  float factorx, c, distf, sum, ypred, d, weight_sumx;
  float weightx, tot_error, tot_error2, rms_error, rms_data_weights();
  factorx = -.5 / (sigmax * sigmax);
  for (i = 1; i <= samples; i++)
    win_list[i] = find_winner_pe2(map, a, coords, data, i, ivars, win_list[i], total_units, dim);
  for (j = 1; j <= total_units; j++) {
    for (k = 1; k <= ivars; k++)
      map[j][k] = 0;
    weight_sumx = 0;
    for (i = 1; i <= samples; i++) {
      dist = 0;
      winner = win_list[i];
      for (k = 1; k <= dim; k++) {
        diff = coords[winner][k] - coords[j][k];
        dist = dist + diff * diff;
      }
      weightx = exp(dist * factorx);
      weight_sumx += weightx;
      for (k = 1; k <= ivars; k++)
        map[j][k] += data[i][k] * weightx;
    }
    weight_sumx = 1.0 / weight_sumx;
    for (k = 1; k <= ivars; k++)
      map[j][k] = map[j][k] * weight_sumx;
  }
}
```