user: 请将以下的汇编代码转换成C语言代码:

```asm
<CriticalValueChooser>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x28,%rsp
  movsd  %xmm0,(%rsp)
  movq   %xmm1,%r14
  movq   %xmm2,%r15
  movsd  %xmm3,0x10(%rsp)
  movq   %xmm4,%rbx
  movq   %xmm5,%rbp
  movq   %xmm6,%r12
  movq   %xmm7,%r13
  ucomisd %xmm0,%xmm0
  mov    $0x0,%edi
  jp     L28
  movapd %xmm0,%xmm7
  mov    $0x0,%edi
  comisd D19(%rip),%xmm0
  jb     L28
  movsd  D53(%rip),%xmm0
  comisd %xmm7,%xmm0
  setae  %dil
  movzbl %dil,%edi
L28:
  call   <assert@plt>
  movsd  0x10(%rsp),%xmm7
  ucomisd %xmm7,%xmm7
  mov    $0x0,%edi
  jp     L11
  mov    $0x0,%edi
  comisd D40(%rip),%xmm7
  jb     L11
  movsd  D70(%rip),%xmm0
  comisd %xmm7,%xmm0
  setae  %dil
  movzbl %dil,%edi
L11:
  call   <assert@plt>
  movq   %rbx,%xmm7
  subsd  0x10(%rsp),%xmm7
  movsd  %xmm7,0x8(%rsp)
  movsd  0x60(%rsp),%xmm5
  movq   %r13,%xmm4
  movq   %r12,%xmm3
  movapd %xmm7,%xmm2
  movq   %r14,%xmm1
  movsd  (%rsp),%xmm0
  call   <gbs_call@plt>
  movq   %xmm0,%rbx
  movq   %rbp,%xmm7
  subsd  0x10(%rsp),%xmm7
  movsd  %xmm7,0x10(%rsp)
  movsd  0x60(%rsp),%xmm5
  movq   %r13,%xmm4
  movq   %r12,%xmm3
  movapd %xmm7,%xmm2
  movq   %r15,%xmm1
  movsd  (%rsp),%xmm0
  call   <gbs_put@plt>
  movsd  %xmm0,0x18(%rsp)
  movsd  0x60(%rsp),%xmm5
  movq   %r13,%xmm4
  movq   %r12,%xmm3
  movsd  0x8(%rsp),%xmm2
  movq   %r14,%xmm1
  movsd  (%rsp),%xmm0
  call   <delta_call@plt>
  movq   %xmm0,%rbp
  movsd  0x60(%rsp),%xmm5
  movq   %r13,%xmm4
  movq   %r12,%xmm3
  movsd  0x10(%rsp),%xmm2
  movq   %r15,%xmm1
  movsd  (%rsp),%xmm0
  call   <delta_put@plt>
  movapd %xmm0,%xmm2
  movq   %rbx,%xmm0
  subsd  0x18(%rsp),%xmm0
  movq   %rbp,%xmm1
  subsd  %xmm2,%xmm1
  movapd %xmm0,%xmm2
  andpd  D15(%rip),%xmm2
  comisd D42(%rip),%xmm2
  jbe    L14
L55:
  divsd  %xmm1,%xmm0
  movsd  (%rsp),%xmm6
  subsd  %xmm0,%xmm6
  movsd  0x60(%rsp),%xmm5
  movq   %r13,%xmm4
  movq   %r12,%xmm3
  movsd  0x8(%rsp),%xmm2
  movq   %r14,%xmm1
  movsd  %xmm6,(%rsp)
  movapd %xmm6,%xmm0
  call   <gbs_call@plt>
  movq   %xmm0,%rbx
  movsd  0x60(%rsp),%xmm5
  movq   %r13,%xmm4
  movq   %r12,%xmm3
  movsd  0x10(%rsp),%xmm2
  movq   %r15,%xmm1
  movsd  (%rsp),%xmm0
  call   <gbs_put@plt>
  movsd  %xmm0,0x18(%rsp)
  movsd  0x60(%rsp),%xmm5
  movq   %r13,%xmm4
  movq   %r12,%xmm3
  movsd  0x8(%rsp),%xmm2
  movq   %r14,%xmm1
  movsd  (%rsp),%xmm0
  call   <delta_call@plt>
  movq   %xmm0,%rbp
  movsd  0x60(%rsp),%xmm5
  movq   %r13,%xmm4
  movq   %r12,%xmm3
  movsd  0x10(%rsp),%xmm2
  movq   %r15,%xmm1
  movsd  (%rsp),%xmm0
  call   <delta_put@plt>
  movapd %xmm0,%xmm2
  movq   %rbx,%xmm0
  subsd  0x18(%rsp),%xmm0
  movq   %rbp,%xmm1
  subsd  %xmm2,%xmm1
  movapd %xmm0,%xmm2
  andpd  D15(%rip),%xmm2
  comisd D42(%rip),%xmm2
  ja     L55
L14:
  movsd  (%rsp),%xmm0
  add    $0x28,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

tool_calls: name: parse_data
arguments: data_tag: D19
type: f64[2]
name: parse_data
arguments: data_tag: D53
type: f64
name: parse_data
arguments: data_tag: D40
type: byte[16]
name: parse_data
arguments: data_tag: D70
type: f64
name: parse_data
arguments: data_tag: D15
type: qword[2]
name: parse_data
arguments: data_tag: D42
type: f64[2]

tool: {"D19": [1e-6,1000000000000.0]}

tool: D53: 1000000000000

tool: {"D40": [0xce,0xd2,0x29,0x9c,0x17,0x96,0x25,0x3f,0x00,0x00,0x00,0x00,0x00,0x00,0x34,0x40]}

tool: D70: 20

tool: {"D15": [0x7fffffffffffffff,0x0000000000000000]}

tool: {"D42": [0.001,0.0]}

assistant: ```c
double CriticalValueChooser(double S, double Xc, double Xp, double T, double Tc, double Tp, double r, double b, double v) {
  double Sv, ci, Pi, dc, dp, yi, di;
  const double epsilon = 0.001;
  assert(((S) == (S)) && (S) >= 0.000001 && (S) <= 1000000000000.0);
  assert(((T) == (T)) && (T) >= (1.0 / (253.0 * 24.0)) && (T) <= (20.0));
  Sv = S;
  ci = gbs_call(Sv, Xc, Tc - T, r, b, v);
  Pi = gbs_put(Sv, Xp, Tp - T, r, b, v);
  dc = delta_call(Sv, Xc, Tc - T, r, b, v);
  dp = delta_put(Sv, Xp, Tp - T, r, b, v);
  yi = ci - Pi;
  di = dc - dp;
  while (fabs(yi) > epsilon) {
    Sv = Sv - (yi) / di;
    ci = gbs_call(Sv, Xc, Tc - T, r, b, v);
    Pi = gbs_put(Sv, Xp, Tp - T, r, b, v);
    dc = delta_call(Sv, Xc, Tc - T, r, b, v);
    dp = delta_put(Sv, Xp, Tp - T, r, b, v);
    yi = ci - Pi;
    di = dc - dp;
  }
  return Sv;
}
```