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

```asm
<alnorm>:
  endbr64
  push   %rbx
  sub    $0x10,%rsp
  movapd %xmm0,%xmm5
  movsd  %xmm0,0x8(%rsp)
  mov    %edi,%ebx
  pxor   %xmm0,%xmm0
  comisd %xmm5,%xmm0
  ja     L34
L81:
  movsd  D53(%rip),%xmm0
  comisd 0x8(%rsp),%xmm0
  jae    L20
  pxor   %xmm0,%xmm0
  cmp    $0x1,%ebx
  jne    L46
  movsd  D30(%rip),%xmm0
  comisd 0x8(%rsp),%xmm0
  jb     L41
L20:
  movsd  0x8(%rsp),%xmm6
  movapd %xmm6,%xmm0
  mulsd  D62(%rip),%xmm0
  mulsd  %xmm6,%xmm0
  movsd  D266(%rip),%xmm1
  comisd %xmm6,%xmm1
  jb     L60
  movapd %xmm0,%xmm2
  mulsd  D106(%rip),%xmm2
  movapd %xmm0,%xmm3
  addsd  D58(%rip),%xmm3
  movapd %xmm0,%xmm4
  addsd  D265(%rip),%xmm4
  movsd  D4(%rip),%xmm1
  divsd  %xmm4,%xmm1
  addsd  D43(%rip),%xmm0
  addsd  %xmm1,%xmm0
  movsd  D242(%rip),%xmm4
  divsd  %xmm0,%xmm4
  subsd  %xmm4,%xmm3
  divsd  %xmm3,%xmm2
  movsd  D110(%rip),%xmm1
  subsd  %xmm2,%xmm1
  mulsd  %xmm6,%xmm1
  movsd  D62(%rip),%xmm0
  subsd  %xmm1,%xmm0
L46:
  test   %ebx,%ebx
  jne    L37
  movsd  D247(%rip),%xmm1
  subsd  %xmm0,%xmm1
  movapd %xmm1,%xmm0
L37:
  add    $0x10,%rsp
  pop    %rbx
  ret
L34:
  mov    $0x1,%eax
  sub    %edi,%eax
  mov    %eax,%ebx
  xorpd  D8(%rip),%xmm5
  movsd  %xmm5,0x8(%rsp)
  jmp    L81
L60:
  xorpd  D8(%rip),%xmm0
  call   <exp@plt>
  mulsd  D126(%rip),%xmm0
  movsd  0x8(%rsp),%xmm7
  movapd %xmm7,%xmm2
  addsd  D250(%rip),%xmm2
  movapd %xmm7,%xmm3
  addsd  D108(%rip),%xmm3
  movsd  D114(%rip),%xmm1
  divsd  %xmm3,%xmm1
  movapd %xmm7,%xmm3
  addsd  D169(%rip),%xmm3
  addsd  %xmm3,%xmm1
  movsd  D135(%rip),%xmm3
  divsd  %xmm1,%xmm3
  subsd  %xmm3,%xmm2
  movsd  D150(%rip),%xmm1
  divsd  %xmm2,%xmm1
  movapd %xmm7,%xmm2
  subsd  D33(%rip),%xmm2
  addsd  %xmm2,%xmm1
  movsd  D211(%rip),%xmm3
  divsd  %xmm1,%xmm3
  movapd %xmm7,%xmm1
  addsd  D102(%rip),%xmm1
  addsd  %xmm1,%xmm3
  movsd  D152(%rip),%xmm1
  movapd %xmm1,%xmm2
  divsd  %xmm3,%xmm2
  subsd  D11(%rip),%xmm7
  movapd %xmm7,%xmm1
  addsd  %xmm2,%xmm1
  divsd  %xmm1,%xmm0
  jmp    L46
L41:
  pxor   %xmm0,%xmm0
  jmp    L37
```

tool_calls: name: read_data
arguments: tag: D53
datatype: f64
name: read_data
arguments: tag: D30
datatype: f64
name: read_data
arguments: tag: D62
datatype: f64
name: read_data
arguments: tag: D266
datatype: f64
name: read_data
arguments: tag: D106
datatype: f64
name: read_data
arguments: tag: D58
datatype: f64
name: read_data
arguments: tag: D265
datatype: f64
name: read_data
arguments: tag: D4
datatype: f64
name: read_data
arguments: tag: D43
datatype: f64
name: read_data
arguments: tag: D242
datatype: f64
name: read_data
arguments: tag: D110
datatype: f64
name: read_data
arguments: tag: D247
datatype: f64
name: read_data
arguments: tag: D8
datatype: f32[4]
name: read_data
arguments: tag: D126
datatype: f64
name: read_data
arguments: tag: D250
datatype: f64
name: read_data
arguments: tag: D108
datatype: f64
name: read_data
arguments: tag: D114
datatype: f64
name: read_data
arguments: tag: D169
datatype: f64
name: read_data
arguments: tag: D135
datatype: f64
name: read_data
arguments: tag: D150
datatype: f64
name: read_data
arguments: tag: D33
datatype: f64
name: read_data
arguments: tag: D211
datatype: f64
name: read_data
arguments: tag: D102
datatype: byte[8]
name: read_data
arguments: tag: D152
datatype: f64
name: read_data
arguments: tag: D11
datatype: byte[8]

tool: D53: 5

tool: D30: 12.5

tool: D62: 0.5

tool: D266: 1.28

tool: D106: 0.399903438504

tool: D58: 5.75885480458

tool: D265: 5.92885724438

tool: D4: 48.6959930692

tool: D43: 2.62433121679

tool: D242: 29.8213557808

tool: D110: 0.398942280444

tool: D247: 1

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

tool: D126: 0.398942280385

tool: D250: 4.8385912808

tool: D108: 3.99019417011

tool: D114: 30.789933034

tool: D169: 0.742380924027

tool: D135: 15.1508972451

tool: D150: 5.29330324926

tool: D33: 0.151679116635

tool: D211: 1.98615381364

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

tool: D152: 1.00000615302

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

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);
}
```