user: 请显示与下面列出的汇编代码相匹配的C语言实现：

```asm
<black76_call>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x50,%rsp
  movsd  %xmm0,-0x18(%rbp)
  movsd  %xmm1,-0x20(%rbp)
  movsd  %xmm2,-0x28(%rbp)
  movsd  %xmm3,-0x30(%rbp)
  movsd  %xmm4,-0x38(%rbp)
  movsd  -0x20(%rbp),%xmm0
  ucomisd -0x20(%rbp),%xmm0
  jp     L137
  movsd  -0x20(%rbp),%xmm0
  comisd D65(%rip),%xmm0
  jb     L137
  movsd  D85(%rip),%xmm0
  comisd -0x20(%rbp),%xmm0
  jb     L137
  mov    $0x1,%eax
  jmp    L13
L137:
  mov    $0x0,%eax
L13:
  mov    %eax,%edi
  mov    $0x0,%eax
  call   <assert@plt>
  movsd  -0x28(%rbp),%xmm0
  ucomisd -0x28(%rbp),%xmm0
  jp     L142
  movsd  -0x28(%rbp),%xmm0
  comisd D74(%rip),%xmm0
  jb     L142
  movsd  D28(%rip),%xmm0
  comisd -0x28(%rbp),%xmm0
  jb     L142
  mov    $0x1,%eax
  jmp    L78
L142:
  mov    $0x0,%eax
L78:
  mov    %eax,%edi
  mov    $0x0,%eax
  call   <assert@plt>
  movsd  -0x30(%rbp),%xmm0
  ucomisd -0x30(%rbp),%xmm0
  jp     L82
  movsd  -0x30(%rbp),%xmm0
  pxor   %xmm1,%xmm1
  comisd %xmm1,%xmm0
  jb     L82
  movsd  D1(%rip),%xmm0
  comisd -0x30(%rbp),%xmm0
  jb     L82
  mov    $0x1,%eax
  jmp    L47
L82:
  mov    $0x0,%eax
L47:
  mov    %eax,%edi
  mov    $0x0,%eax
  call   <assert@plt>
  movsd  -0x38(%rbp),%xmm0
  ucomisd -0x38(%rbp),%xmm0
  jp     L93
  movsd  -0x38(%rbp),%xmm0
  comisd D88(%rip),%xmm0
  jb     L93
  movsd  D7(%rip),%xmm0
  comisd -0x38(%rbp),%xmm0
  jb     L93
  mov    $0x1,%eax
  jmp    L83
L93:
  mov    $0x0,%eax
L83:
  mov    %eax,%edi
  mov    $0x0,%eax
  call   <assert@plt>
  mov    -0x28(%rbp),%rax
  movq   %rax,%xmm0
  call   <sqrt@plt>
  movsd  -0x38(%rbp),%xmm1
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x10(%rbp)
  movsd  -0x18(%rbp),%xmm0
  divsd  -0x20(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <log@plt>
  movapd %xmm0,%xmm1
  movsd  -0x38(%rbp),%xmm0
  mulsd  %xmm0,%xmm0
  movsd  D75(%rip),%xmm2
  divsd  %xmm2,%xmm0
  mulsd  -0x28(%rbp),%xmm0
  addsd  %xmm1,%xmm0
  divsd  -0x10(%rbp),%xmm0
  movsd  %xmm0,-0x8(%rbp)
  movsd  -0x30(%rbp),%xmm0
  movq   D49(%rip),%xmm1
  xorpd  %xmm1,%xmm0
  mulsd  -0x28(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  call   <exp@plt>
  movsd  %xmm0,-0x40(%rbp)
  mov    -0x8(%rbp),%rax
  movq   %rax,%xmm0
  mov    $0x1,%eax
  call   <cnd@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  movapd %xmm0,%xmm5
  mulsd  -0x18(%rbp),%xmm5
  movsd  %xmm5,-0x48(%rbp)
  movsd  -0x8(%rbp),%xmm0
  movapd %xmm0,%xmm6
  subsd  -0x10(%rbp),%xmm6
  movq   %xmm6,%rax
  movq   %rax,%xmm0
  mov    $0x1,%eax
  call   <cnd@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %eax,%xmm0
  movapd %xmm0,%xmm1
  mulsd  -0x20(%rbp),%xmm1
  movsd  -0x48(%rbp),%xmm5
  subsd  %xmm1,%xmm5
  movapd %xmm5,%xmm0
  mulsd  -0x40(%rbp),%xmm0
  movq   %xmm0,%rax
  movq   %rax,%xmm0
  leave
  ret
```

tool_calls: name: unpack_data
arguments: data_label: D65
data_type: f64[2]
name: unpack_data
arguments: data_label: D85
data_type: f64
name: unpack_data
arguments: data_label: D74
data_type: byte[16]
name: unpack_data
arguments: data_label: D28
data_type: f64
name: unpack_data
arguments: data_label: D1
data_type: f64
name: unpack_data
arguments: data_label: D88
data_type: f64[2]
name: unpack_data
arguments: data_label: D7
data_type: f64
name: unpack_data
arguments: data_label: D75
data_type: f32[2]
name: unpack_data
arguments: data_label: D49
data_type: f32[2]

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

tool: D85: 1000000000000

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

tool: D28: 20

tool: D1: 1000

tool: {"D88": [1e-7,100.99999]}

tool: D7: 100.99999

tool: {"D75": [0.0,2.0]}

tool: {"D49": [0.0,-0.0]}

assistant: ```c
extern double black76_call(double F, double X, double T, double r, double v) {
  double vst, d1;
  assert(((X) == (X)) && (X) >= 0.000001 && (X) <= 1000000000000.0);
  assert(((T) == (T)) && (T) >= (1.0 / (253.0 * 24.0)) && (T) <= (20.0));
  assert(((r) == (r)) && (r) >= 0.0 && (r) <= 1000.0);
  assert(((v) == (v)) && (v) >= 0.0000001 && v <= 100.99999);
  vst = v * sqrt(T);
  d1 = (log(F / X) + (((v) * (v)) / 2) * T) / vst;
  return exp(-r * T) * (F * cnd(d1) - X * cnd((d1 - vst)));
}
```