user: Converte this assembly snippet into its equivalent C code:

```asm
<vparms>:
  endbr64
  push   %r12
  mov    %rcx,%r10
  mov    %rdi,%rax
  pxor   %xmm3,%xmm3
  push   %rbp
  lea    -0x64(%rdx),%rdi
  push   %rbx
  sub    $0x10,%rsp
  mov    0x30(%rsp),%rbx
  mov    0x50(%rsp),%rcx
  movl   $0x0,(%rcx)
  movq   $0x0,(%rbx)
  mov    (%rax),%r11
  mov    0x8(%rax),%rbp
  lea    -0x1(%r10),%rax
  sub    %r11,%rbp
  add    $0x1,%rbp
  imul   %rbp,%rax
  mov    %rax,%r10
  shr    $0x3f,%r10
  add    %r10,%rax
  mov    %rbp,%r10
  sar    %rax
  shr    $0x3f,%r10
  lea    0x1(%r11,%rax,1),%rax
  add    %rbp,%r10
  movss  -0x2d8(%rsi,%rax,4),%xmm14
  sar    %r10
  add    %rax,%r10
  movaps %xmm14,%xmm0
  subss  (%r8),%xmm0
  comiss %xmm0,%xmm3
  ja     L10
  movss  D33(%rip),%xmm13
  movaps %xmm13,%xmm0
  cmp    %rax,%r10
  jle    L58
L22:
  movaps %xmm3,%xmm12
  movaps %xmm3,%xmm5
  movaps %xmm3,%xmm6
  xor    %r11d,%r11d
  movaps %xmm3,%xmm10
  movaps %xmm3,%xmm11
  movaps %xmm3,%xmm4
  movaps %xmm3,%xmm8
  movaps %xmm3,%xmm7
  movaps %xmm3,%xmm9
  movaps %xmm3,%xmm1
  jmp    L171
  cs nopw 0x0(%rax,%rax,1)
L4:
  movss  -0x2d4(%rsi,%rax,4),%xmm15
  addss  %xmm2,%xmm4
  comiss %xmm15,%xmm3
  ja     L118
L190:
  movaps %xmm15,%xmm2
  addss  %xmm15,%xmm7
  subss  %xmm14,%xmm2
  comiss %xmm2,%xmm3
  ja     L151
L191:
  addss  %xmm2,%xmm9
L170:
  movaps %xmm15,%xmm2
  mov    %rax,%r12
  sub    (%r9),%r12
  mulss  %xmm15,%xmm2
  mulss  %xmm14,%xmm15
  addss  %xmm2,%xmm12
  addss  %xmm15,%xmm1
  movss  %xmm1,(%rcx)
  movss  -0x64(%rdx,%rax,4),%xmm1
  movss  (%rdi,%r12,4),%xmm14
  mov    (%r9),%r12
  movaps %xmm1,%xmm2
  mulss  %xmm1,%xmm2
  add    %rax,%r12
  addss  %xmm2,%xmm8
  movaps %xmm14,%xmm2
  mulss  %xmm14,%xmm2
  addss  %xmm2,%xmm11
  movss  (%rdi,%r12,4),%xmm2
  movaps %xmm2,%xmm15
  mulss  %xmm2,%xmm15
  mulss  %xmm1,%xmm2
  mulss  %xmm14,%xmm1
  movss  D50(%rip),%xmm14
  addss  %xmm15,%xmm10
  addss  %xmm2,%xmm5
  movss  (%r8),%xmm2
  addss  %xmm1,%xmm6
  movss  -0x2d4(%rsi,%rax,4),%xmm1
  addss  %xmm2,%xmm1
  cmpltss %xmm3,%xmm1
  andps  %xmm1,%xmm14
  andnps %xmm13,%xmm1
  orps   %xmm14,%xmm1
  ucomiss %xmm0,%xmm1
  jp     L24
  je     L200
L24:
  add    $0x1,%r11
  xorps  D31(%rip),%xmm0
  mov    %r11,(%rbx)
L200:
  xorps  D31(%rip),%xmm2
  add    $0x1,%rax
  movss  %xmm2,(%r8)
  cmp    %rax,%r10
  je     L52
  movss  -0x2d8(%rsi,%rax,4),%xmm14
  movss  (%rcx),%xmm1
L171:
  movss  -0x64(%rdx,%rax,4),%xmm2
  comiss %xmm2,%xmm3
  jbe    L4
  movss  -0x2d4(%rsi,%rax,4),%xmm15
  subss  %xmm2,%xmm4
  comiss %xmm15,%xmm3
  jbe    L190
L118:
  movaps %xmm15,%xmm2
  subss  %xmm15,%xmm7
  subss  %xmm14,%xmm2
  comiss %xmm2,%xmm3
  jbe    L191
L151:
  subss  %xmm2,%xmm9
  jmp    L170
  nopl   0x0(%rax,%rax,1)
L52:
  add    %r11,%r11
  comiss %xmm13,%xmm12
  movaps %xmm7,%xmm2
  movss  (%rcx),%xmm1
  pxor   %xmm0,%xmm0
  addss  %xmm7,%xmm2
  cvtsi2ss %r11,%xmm0
  jb     L115
  divss  %xmm12,%xmm1
L115:
  comiss %xmm13,%xmm2
  movss  %xmm1,(%rcx)
  jb     L217
  divss  %xmm2,%xmm9
L217:
  comiss %xmm13,%xmm11
  mov    0x48(%rsp),%rax
  movaps %xmm6,%xmm2
  movss  %xmm9,(%rax)
  jb     L188
  divss  %xmm11,%xmm2
L188:
  comiss %xmm13,%xmm8
  movaps %xmm5,%xmm1
  jb     L192
  divss  %xmm8,%xmm6
  divss  %xmm8,%xmm1
L192:
  mulss  %xmm6,%xmm2
  comiss %xmm13,%xmm10
  mov    0x58(%rsp),%rax
  movss  %xmm2,(%rax)
  jb     L176
  divss  %xmm10,%xmm5
L176:
  mulss  %xmm5,%xmm1
  mov    0x60(%rsp),%rax
  movss  D18(%rip),%xmm2
  movss  %xmm7,0xc(%rsp)
  movss  %xmm4,0x8(%rsp)
  movss  %xmm1,(%rax)
  pxor   %xmm1,%xmm1
  cvtsi2ss %rbp,%xmm1
  divss  %xmm1,%xmm2
  mulss  %xmm2,%xmm0
  movss  %xmm2,0x4(%rsp)
  call   <lrintf@plt>
  movss  0x8(%rsp),%xmm4
  mulss  D44(%rip),%xmm4
  mulss  0x4(%rsp),%xmm4
  cltq
  mov    %rax,(%rbx)
  movaps %xmm4,%xmm0
  movss  %xmm4,0x8(%rsp)
  call   <lrintf@plt>
  movss  0x8(%rsp),%xmm4
  movss  0xc(%rsp),%xmm7
  mov    %eax,%r8d
  mov    $0x7fff,%eax
  cmp    $0x7fff,%r8d
  jle    L172
L228:
  movss  D44(%rip),%xmm0
  mov    0x38(%rsp),%rdx
  mulss  %xmm7,%xmm0
  mov    %rax,(%rdx)
  mulss  0x4(%rsp),%xmm0
  movss  %xmm0,0x4(%rsp)
  call   <lrintf@plt>
  movss  0x4(%rsp),%xmm0
  mov    %eax,%r8d
  mov    $0x7fff,%eax
  cmp    $0x7fff,%r8d
  jle    L153
L132:
  mov    0x40(%rsp),%rdx
  mov    %rax,(%rdx)
  add    $0x10,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  ret
  xchg   %ax,%ax
L10:
  movss  D50(%rip),%xmm0
  movss  D33(%rip),%xmm13
  cmp    %rax,%r10
  jg     L22
L58:
  movl   $0x0,(%rcx)
  movaps %xmm3,%xmm0
  movaps %xmm3,%xmm7
  movaps %xmm3,%xmm8
  movaps %xmm3,%xmm4
  movaps %xmm3,%xmm11
  movaps %xmm3,%xmm10
  movaps %xmm3,%xmm6
  movaps %xmm3,%xmm5
  movaps %xmm3,%xmm9
  jmp    L217
  nopl   0x0(%rax)
L153:
  call   <lrintf@plt>
  cltq
  jmp    L132
  nopl   0x0(%rax)
L172:
  movaps %xmm4,%xmm0
  movss  %xmm7,0x8(%rsp)
  call   <lrintf@plt>
  movss  0x8(%rsp),%xmm7
  cltq
  jmp    L228
```

tool_calls: name: retrieve_data
arguments: data_tag: D33
type: byte[4]
name: retrieve_data
arguments: data_tag: D50
type: byte[4]
name: retrieve_data
arguments: data_tag: D31
type: byte[16]
name: retrieve_data
arguments: data_tag: D18
type: byte[4]
name: retrieve_data
arguments: data_tag: D44
type: byte[4]

tool: {"D33": [0x00,0x00,0x80,0x3f]}

tool: {"D50": [0x00,0x00,0x80,0xbf]}

tool: {"D31": [0x00,0x00,0x00,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00]}

tool: {"D18": [0x00,0x00,0xb4,0x42]}

tool: {"D44": [0x00,0x00,0x80,0x3e]}

assistant: ```c
void vparms(long *vwin, float *inbuf, float *lpbuf, long half, float *dither, long *mintau, long *zc, long *lbe, long *fbe, float *qs, float *rc1, float *ar_b, float *ar_f) {
  float temp;
  long vlen, stop, i;
  float e_pre;
  long start;
  float ap_rms, e_0, oldsgn, lp_rms, e_b, e_f, r_b, r_f, e0ap;
  lpbuf -= 25;
  inbuf -= 181;
  lp_rms = 0.f;
  ap_rms = 0.f;
  e_pre = 0.f;
  e0ap = 0.f;
  *rc1 = 0.f;
  e_0 = 0.f;
  e_b = 0.f;
  e_f = 0.f;
  r_f = 0.f;
  r_b = 0.f;
  *zc = 0;
  vlen = vwin[1] - vwin[0] + 1;
  start = vwin[0] + (half - 1) * vlen / 2 + 1;
  stop = start + vlen / 2 - 1;
  oldsgn = ((inbuf[start - 1] - *dither) < 0.0f) ? -1.0f : 1.0f;
  for (i = start; i <= stop; ++i) {
    if (lpbuf[i] < 0.0f)
      lp_rms -= lpbuf[i];
    else
      lp_rms += lpbuf[i];
    if (inbuf[i] < 0.0f)
      ap_rms -= inbuf[i];
    else
      ap_rms += inbuf[i];
    temp = inbuf[i] - inbuf[i - 1];
    if (temp < 0.0f)
      e_pre -= temp;
    else
      e_pre += temp;
    e0ap += inbuf[i] * inbuf[i];
    *rc1 += inbuf[i] * inbuf[i - 1];
    e_0 += lpbuf[i] * lpbuf[i];
    e_b += lpbuf[i - *mintau] * lpbuf[i - *mintau];
    e_f += lpbuf[i + *mintau] * lpbuf[i + *mintau];
    r_f += lpbuf[i] * lpbuf[i + *mintau];
    r_b += lpbuf[i] * lpbuf[i - *mintau];
    if ((((inbuf[i] + *dither) < 0.0f) ? -1.0f : 1.0f) != oldsgn) {
      ++(*zc);
      oldsgn = -oldsgn;
    }
    *dither = -(*dither);
  }
  *rc1 /= ((e0ap) >= (1.f) ? (e0ap) : (1.f));
  *qs = e_pre / ((ap_rms * 2.f) >= (1.f) ? (ap_rms * 2.f) : (1.f));
  *ar_b = r_b / ((e_b) >= (1.f) ? (e_b) : (1.f)) * (r_b / ((e_0) >= (1.f) ? (e_0) : (1.f)));
  *ar_f = r_f / ((e_f) >= (1.f) ? (e_f) : (1.f)) * (r_f / ((e_0) >= (1.f) ? (e_0) : (1.f)));
  *zc = lrintf((float)(*zc << 1) * (90.f / vlen));
  *lbe = ((lrintf(lp_rms * 0.25f * (90.f / vlen))) <= (32767) ? (lrintf(lp_rms * 0.25f * (90.f / vlen))) : (32767));
  *fbe = ((lrintf(ap_rms * 0.25f * (90.f / vlen))) <= (32767) ? (lrintf(ap_rms * 0.25f * (90.f / vlen))) : (32767));
}
```