user: What is the c source code of the assembly code below:

```asm
<par_monitor>:
  endbr64
  push   %rbp
  movslq %edi,%r10
  movslq %esi,%rsi
  lea    0x2(%rdi),%eax
  push   %rbx
  mov    %rdx,%r11
  imul   $0xcccccccd,%eax,%eax
  mov    %rcx,%rdx
  lea    0x0(,%r10,4),%rcx
  pxor   %xmm0,%xmm0
  lea    (%r11,%rcx,1),%rbx
  lea    (%r8,%rcx,1),%rbp
  sub    $0x8,%rsp
  movsd  (%r9,%rsi,8),%xmm1
  add    $0x19999998,%eax
  cvtss2sd (%rbx),%xmm0
  ror    %eax
  addsd  %xmm1,%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,0x0(%rbp)
  cmp    $0x19999998,%eax
  jbe    L282
  lea    0x7(%rdi),%eax
  imul   $0xcccccccd,%eax,%eax
  add    $0x19999998,%eax
  ror    %eax
  cmp    $0x19999998,%eax
  jbe    L84
  lea    0x6(%rdi),%eax
  imul   $0xcccccccd,%eax,%eax
  add    $0x19999998,%eax
  ror    %eax
  cmp    $0x19999998,%eax
  jbe    L291
  lea    0x5(%rdi),%eax
  imul   $0xcccccccd,%eax,%eax
  add    $0x19999998,%eax
  ror    %eax
  cmp    $0x19999998,%eax
  jbe    L177
  lea    0x9(%rdi),%eax
  imul   $0xcccccccd,%eax,%eax
  add    $0x19999998,%eax
  ror    %eax
  cmp    $0x19999998,%eax
  jbe    L400
  lea    0x8(%rdi),%eax
  imul   $0xcccccccd,%eax,%eax
  add    $0x19999998,%eax
  ror    %eax
  cmp    $0x19999998,%eax
  jbe    L400
  lea    0x1(%rdi),%eax
  imul   $0xcccccccd,%eax,%eax
  add    $0x19999998,%eax
  ror    %eax
  cmp    $0x19999998,%eax
  jbe    L369
  imul   $0xcccccccd,%edi,%eax
  add    $0x19999998,%eax
  ror    %eax
  cmp    $0x19999998,%eax
  jbe    L179
  lea    0x3(%rdi),%eax
  imul   $0xcccccccd,%eax,%eax
  add    $0x19999998,%eax
  ror    %eax
  cmp    $0x19999998,%eax
  ja     L83
L132:
  pxor   %xmm1,%xmm1
  comiss (%rbx),%xmm1
  jbe    L281
  movl   $0x3c23d70a,(%rbx)
  movss  0x0(%rbp),%xmm0
L281:
  comiss %xmm0,%xmm1
  jb     L48
L163:
  movl   $0x3c23d70a,0x0(%rbp)
L48:
  add    $0x8,%rsp
  pop    %rbx
  pop    %rbp
  ret
  nopl   0x0(%rax,%rax,1)
L84:
  movss  (%rbx),%xmm1
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm2
  comiss D111(%rip),%xmm2
  jae    L270
  movaps %xmm1,%xmm2
  subss  %xmm0,%xmm2
  comiss D111(%rip),%xmm2
  jb     L96
  subss  D111(%rip),%xmm1
  movaps %xmm1,%xmm0
  movss  %xmm1,0x0(%rbp)
L96:
  comiss D27(%rip),%xmm0
  jb     L35
L16:
  movl   $0x42480000,0x0(%rbp)
  add    $0x8,%rsp
  pop    %rbx
  pop    %rbp
  ret
  nopl   0x0(%rax,%rax,1)
L282:
  comiss D208(%rip),%xmm0
  jbe    L128
  movss  D111(%rip),%xmm1
  comiss %xmm0,%xmm1
  jbe    L128
  cmpl   $0x1,0x4(%rdx,%rcx,1)
  lea    0x4(%rcx),%rax
  jne    L235
  add    %r8,%rax
  movss  D178(%rip),%xmm0
  addss  (%rax),%xmm0
  movss  %xmm0,(%rax)
  movss  0x0(%rbp),%xmm0
L235:
  cmpl   $0x1,(%rdx,%r10,4)
  jne    L408
  movss  D208(%rip),%xmm3
  divss  %xmm0,%xmm3
  movaps %xmm3,%xmm0
  movss  %xmm3,0x0(%rbp)
L408:
  cmpl   $0x1,-0x10(%rdx,%rcx,1)
  lea    -0x10(%rcx),%rax
  je     L453
  nopl   0x0(%rax,%rax,1)
L229:
  pxor   %xmm2,%xmm2
  movss  (%rbx),%xmm1
  comiss %xmm0,%xmm2
  jae    L90
  movaps %xmm1,%xmm2
  divss  %xmm0,%xmm2
  comiss D111(%rip),%xmm2
  jb     L437
L90:
  divss  D111(%rip),%xmm1
  movaps %xmm1,%xmm0
  movss  %xmm1,0x0(%rbp)
L437:
  movsd  D43(%rip),%xmm1
  cvtss2sd %xmm0,%xmm0
  comisd %xmm0,%xmm1
  jb     L48
  movl   $0x3dcccccd,0x0(%rbp)
  add    $0x8,%rsp
  pop    %rbx
  pop    %rbp
  ret
  nopl   0x0(%rax)
L128:
  comiss D111(%rip),%xmm0
  jbe    L229
  movss  (%rbx),%xmm0
  movss  %xmm0,0x0(%rbp)
  jmp    L229
  nopl   0x0(%rax)
L270:
  addss  D111(%rip),%xmm1
  movaps %xmm1,%xmm0
  comiss D27(%rip),%xmm0
  movss  %xmm1,0x0(%rbp)
  jae    L16
L35:
  movss  D225(%rip),%xmm1
  comiss %xmm0,%xmm1
  jb     L48
  jmp    L59
  nopl   0x0(%rax,%rax,1)
L400:
  movss  (%rbx),%xmm1
  movaps %xmm0,%xmm2
  subss  %xmm1,%xmm2
  comiss D111(%rip),%xmm2
  jb     L329
  addss  D111(%rip),%xmm1
L59:
  movss  %xmm1,0x0(%rbp)
  add    $0x8,%rsp
  pop    %rbx
  pop    %rbp
  ret
  nopl   0x0(%rax,%rax,1)
L291:
  movsd  D43(%rip),%xmm1
  pxor   %xmm0,%xmm0
  cvtss2sd (%rbx),%xmm0
  comisd %xmm0,%xmm1
  jb     L48
  movl   $0x3dcccccd,(%rbx)
  jmp    L48
  nopl   (%rax)
L329:
  movaps %xmm1,%xmm2
  subss  %xmm0,%xmm2
  comiss D111(%rip),%xmm2
  jb     L48
  subss  D111(%rip),%xmm1
  movss  %xmm1,0x0(%rbp)
  jmp    L48
  xchg   %ax,%ax
L177:
  divss  (%rbx),%xmm0
  cvtss2sd %xmm0,%xmm0
  call   <fabs@plt>
  cmp    $0x9,%eax
  jg     L164
  movss  0x0(%rbp),%xmm0
  pxor   %xmm2,%xmm2
  movss  (%rbx),%xmm1
  comiss %xmm0,%xmm2
  jae    L234
  movaps %xmm1,%xmm2
  divss  %xmm0,%xmm2
  comiss D111(%rip),%xmm2
  jb     L253
L234:
  divss  D111(%rip),%xmm1
  movaps %xmm1,%xmm0
  movss  %xmm1,0x0(%rbp)
L253:
  comiss D240(%rip),%xmm0
  jbe    L23
  movl   $0x41a00000,0x0(%rbp)
  jmp    L48
  nopl   0x0(%rax)
L453:
  add    %rax,%r8
  movss  (%r8),%xmm1
  divss  %xmm0,%xmm1
  movss  %xmm1,(%r8)
  movss  0x0(%rbp),%xmm0
  jmp    L229
  nopl   0x0(%rax,%rax,1)
L164:
  movss  D111(%rip),%xmm0
  mulss  (%rbx),%xmm0
  movss  %xmm0,0x0(%rbp)
  jmp    L253
  nopl   0x0(%rax,%rax,1)
L83:
  lea    0x4(%rdi),%eax
  imul   $0xcccccccd,%eax,%eax
  add    $0x19999998,%eax
  ror    %eax
  cmp    $0x19999998,%eax
  jbe    L132
  jmp    L48
  nopl   0x0(%rax,%rax,1)
L23:
  movsd  D160(%rip),%xmm1
  cvtss2sd %xmm0,%xmm0
  comisd %xmm0,%xmm1
  jbe    L48
  jmp    L163
  nopl   0x0(%rax,%rax,1)
L179:
  movss  D18(%rip),%xmm1
  comiss %xmm0,%xmm1
  jb     L48
  movl   $0xbffeb852,0x0(%rbp)
  jmp    L48
  nopl   (%rax)
L369:
  movapd %xmm1,%xmm0
  call   <fabs@plt>
  cmp    $0x1f3,%eax
  jle    L48
  movss  (%rbx),%xmm0
  movss  %xmm0,0x0(%rbp)
  jmp    L48
```

tool_calls: name: parse_data
arguments: label: D111
datatype: f32
name: parse_data
arguments: label: D27
datatype: f32
name: parse_data
arguments: label: D208
datatype: f32
name: parse_data
arguments: label: D178
datatype: f32
name: parse_data
arguments: label: D43
datatype: f64
name: parse_data
arguments: label: D225
datatype: byte[4]
name: parse_data
arguments: label: D240
datatype: f32
name: parse_data
arguments: label: D160
datatype: f64
name: parse_data
arguments: label: D18
datatype: byte[4]

tool: D111: 10

tool: D27: 50

tool: D208: 1

tool: D178: 90

tool: D43: 0.1

tool: {"D225": [0x00,0x00,0x48,0xc2]}

tool: D240: 20

tool: D160: 0.01

tool: {"D18": [0x00,0x00,0x00,0xc0]}

assistant: ```c
void par_monitor(int l, int j, float a[], int ia[], float atry[], double da[]) {
  extern int (*pfunc)(const char *, ...);
  extern char device[];
  atry[l] = a[l] + da[j];
  if ((l + 2) % 10 == 0) {
    if (atry[l] > 1. && atry[l] < 10.) {
      if (ia[l + 1] == 1)
        atry[l + 1] = atry[l + 1] + 90.;
      if (ia[l] == 1)
        atry[l] = 1. / atry[l];
      if (ia[l - 4] == 1)
        atry[l - 4] = atry[l - 4] / atry[l];
    } else if (atry[l] > 10.)
      atry[l] = a[l];
    if (atry[l] <= 0. || a[l] / atry[l] >= 10.)
      atry[l] = a[l] / 10.;
    if (atry[l] <= 0.1)
      atry[l] = 0.1;
    return;
  };
  if ((l + 7) % 10 == 0) {
    if (atry[l] - a[l] >= 10.)
      atry[l] = a[l] + 10.;
    else if (a[l] - atry[l] >= 10.)
      atry[l] = a[l] - 10.;
    if (atry[l] >= 50.)
      atry[l] = 50.;
    else if (atry[l] <= -50.)
      atry[l] = -50.;
    return;
  };
  if ((l + 6) % 10 == 0) {
    if (a[l] <= 0.1)
      a[l] = 0.1;
    return;
  };
  if ((l + 5) % 10 == 0) {
    if (fabs(atry[l] / a[l]) >= 10.)
      atry[l] = a[l] * 10.;
    else if (atry[l] <= 0. || a[l] / atry[l] >= 10.)
      atry[l] = a[l] / 10.;
    if (atry[l] > 20.)
      atry[l] = 20.;
    else if (atry[l] < 0.01)
      atry[l] = 0.01;
    return;
  };
  if ((l + 9) % 10 == 0 || (l + 8) % 10 == 0) {
    if (atry[l] - a[l] >= 10.)
      atry[l] = a[l] + 10.;
    else if (a[l] - atry[l] >= 10.)
      atry[l] = a[l] - 10.;
    return;
  };
  if ((l + 1) % 10 == 0) {
    if (fabs(da[j]) >= 500.)
      atry[l] = a[l];
    return;
  };
  if (l % 10 == 0) {
    if (atry[l] <= -2.0)
      atry[l] = -1.99;
    return;
  };
  if (((l + 3) % 10 == 0 || (l + 4) % 10 == 0) && a[l] < 0.)
    a[l] = 0.01;
  if (((l + 3) % 10 == 0 || (l + 4) % 10 == 0) && atry[l] <= 0.) {
    atry[l] = 0.01;
  }
  return;
}
```