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

```asm
<alnorm>:
  endbr64
  push   %rbx
  movapd %xmm0,%xmm1
  pxor   %xmm0,%xmm0
  mov    %edi,%ebx
  sub    $0x10,%rsp
  comisd %xmm1,%xmm0
  jbe    L75
  mov    $0x1,%eax
  xorpd  D208(%rip),%xmm1
  sub    %edi,%eax
  mov    %eax,%ebx
L75:
  movsd  D107(%rip),%xmm2
  comisd %xmm1,%xmm2
  jae    L5
  cmp    $0x1,%ebx
  je     L48
L43:
  test   %ebx,%ebx
  jne    L15
  movsd  D159(%rip),%xmm1
  subsd  %xmm0,%xmm1
  movapd %xmm1,%xmm0
L15:
  add    $0x10,%rsp
  pop    %rbx
  ret
  nopw   0x0(%rax,%rax,1)
L48:
  movsd  D59(%rip),%xmm2
  comisd %xmm1,%xmm2
  jb     L15
  xchg   %ax,%ax
L5:
  movsd  D122(%rip),%xmm2
  movapd %xmm1,%xmm0
  movsd  D220(%rip),%xmm3
  mulsd  %xmm2,%xmm0
  comisd %xmm1,%xmm3
  mulsd  %xmm1,%xmm0
  jb     L28
  movsd  D242(%rip),%xmm6
  movsd  D194(%rip),%xmm3
  movsd  D177(%rip),%xmm4
  movsd  D70(%rip),%xmm5
  addsd  %xmm0,%xmm6
  mulsd  %xmm0,%xmm4
  addsd  %xmm0,%xmm5
  addsd  D56(%rip),%xmm0
  divsd  %xmm6,%xmm3
  addsd  %xmm3,%xmm0
  movsd  D62(%rip),%xmm3
  divsd  %xmm0,%xmm3
  movsd  D95(%rip),%xmm0
  subsd  %xmm3,%xmm5
  divsd  %xmm5,%xmm4
  subsd  %xmm4,%xmm0
  mulsd  %xmm0,%xmm1
  subsd  %xmm1,%xmm2
  movapd %xmm2,%xmm0
  jmp    L43
  nop
L28:
  xorpd  D208(%rip),%xmm0
  movsd  %xmm1,0x8(%rsp)
  call   <exp@plt>
  movsd  0x8(%rsp),%xmm1
  movsd  D21(%rip),%xmm4
  movsd  D121(%rip),%xmm2
  movsd  D97(%rip),%xmm3
  addsd  %xmm1,%xmm4
  mulsd  D233(%rip),%xmm0
  addsd  %xmm1,%xmm3
  divsd  %xmm4,%xmm2
  movsd  D236(%rip),%xmm4
  addsd  %xmm1,%xmm4
  addsd  %xmm4,%xmm2
  movsd  D182(%rip),%xmm4
  divsd  %xmm2,%xmm4
  movsd  D11(%rip),%xmm2
  subsd  %xmm4,%xmm3
  divsd  %xmm3,%xmm2
  movapd %xmm1,%xmm3
  subsd  D29(%rip),%xmm3
  addsd  %xmm3,%xmm2
  movsd  D146(%rip),%xmm3
  divsd  %xmm2,%xmm3
  movsd  D191(%rip),%xmm2
  addsd  %xmm1,%xmm2
  subsd  D223(%rip),%xmm1
  addsd  %xmm2,%xmm3
  movsd  D69(%rip),%xmm2
  divsd  %xmm3,%xmm2
  addsd  %xmm2,%xmm1
  divsd  %xmm1,%xmm0
  jmp    L43
```

tool_calls: name: retrieve_data
arguments: tag: D208
data_type: f32[4]
name: retrieve_data
arguments: tag: D107
data_type: f64
name: retrieve_data
arguments: tag: D159
data_type: f64
name: retrieve_data
arguments: tag: D59
data_type: f64
name: retrieve_data
arguments: tag: D122
data_type: f64
name: retrieve_data
arguments: tag: D220
data_type: f64
name: retrieve_data
arguments: tag: D242
data_type: f64
name: retrieve_data
arguments: tag: D194
data_type: f64
name: retrieve_data
arguments: tag: D177
data_type: f64
name: retrieve_data
arguments: tag: D70
data_type: f64
name: retrieve_data
arguments: tag: D56
data_type: f64
name: retrieve_data
arguments: tag: D62
data_type: f64
name: retrieve_data
arguments: tag: D95
data_type: f64
name: retrieve_data
arguments: tag: D21
data_type: f64
name: retrieve_data
arguments: tag: D121
data_type: f64
name: retrieve_data
arguments: tag: D97
data_type: f64
name: retrieve_data
arguments: tag: D233
data_type: f64
name: retrieve_data
arguments: tag: D236
data_type: f64
name: retrieve_data
arguments: tag: D182
data_type: f64
name: retrieve_data
arguments: tag: D11
data_type: f64
name: retrieve_data
arguments: tag: D29
data_type: f64
name: retrieve_data
arguments: tag: D146
data_type: f64
name: retrieve_data
arguments: tag: D191
data_type: byte[8]
name: retrieve_data
arguments: tag: D223
data_type: byte[8]
name: retrieve_data
arguments: tag: D69
data_type: f64

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

tool: D107: 5

tool: D159: 1

tool: D59: 12.5

tool: D122: 0.5

tool: D220: 1.28

tool: D242: 5.92885724438

tool: D194: 48.6959930692

tool: D177: 0.399903438504

tool: D70: 5.75885480458

tool: D56: 2.62433121679

tool: D62: 29.8213557808

tool: D95: 0.398942280444

tool: D21: 3.99019417011

tool: D121: 30.789933034

tool: D97: 4.8385912808

tool: D233: 0.398942280385

tool: D236: 0.742380924027

tool: D182: 15.1508972451

tool: D11: 5.29330324926

tool: D29: 0.151679116635

tool: D146: 1.98615381364

tool: {"D191": [0x69,0x7b,0x9c,0x45,0x6b,0x16,0x3a,0x3f]}

tool: {"D223": [0x78,0x99,0x0a,0xba,0xd3,0x6d,0x64,0x3e]}

tool: D69: 1.00000615302

assistant: ```c
double alnorm(double x, int upper) {
  int up;
  double ltone, utzero, con, prob, z, y;
  con = 1.28;
  ltone = 5.0;
  utzero = 12.5;
  up = upper;
  z = x;
  if (z < 0.0) {
    up = 1 - up;
    z = -z;
  }
  if (z <= ltone || (up == 1 && z <= utzero)) {
    y = 0.5 * z * z;
    if (z <= con) {
      prob = 0.5 - z * (0.398942280444 - 0.399903438504 * y / (y + 5.75885480458 - 29.8213557808 / (y + 2.62433121679 + 48.6959930692 / (y + 5.92885724438))));
    } else {
      prob = 0.398942280385 * exp(-y) / (z - 3.8052e-8 + 1.00000615302 / (z + 3.98064794e-4 + 1.98615381364 / (z - 0.151679116635 + 5.29330324926 / (z + 4.8385912808 - 15.1508972451 / (z + 0.742380924027 + 30.789933034 / (z + 3.99019417011))))));
    }
  } else {
    prob = 0.0;
  }
  if (up == 0)
    prob = 1.0 - prob;
  return (prob);
}
```