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

```asm
<h12>:
  endbr64
  mov    (%rsi),%eax
  test   %eax,%eax
  jle    L90
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x18,%rsp
  mov    %rsi,%r15
  mov    %rdx,%r12
  mov    %ecx,%ebx
  mov    (%rdx),%ecx
  cmp    %ebx,%ecx
  jg     L240
  cmp    %ecx,%eax
  jge    L240
  mov    (%r9),%r13d
  lea    0x1(%r13),%r14d
  movslq %r14d,%r14
  shl    $0x2,%r14
  sub    %r14,%r8
  mov    %r8,%rbp
  imul   %r13d,%eax
  cltq
  movss  0x4(%r8,%rax,4),%xmm0
  movss  %xmm0,0x4(%rsp)
  comiss D32(%rip),%xmm0
  jb     L18
L22:
  cmp    $0x2,%edi
  je     L223
  lea    -0x4(%r14),%rdi
  mov    %ecx,%eax
  imul   %r13d,%eax
  cltq
  lea    0x4(%rbp,%rax,4),%rsi
  mov    %rsi,%rdx
  mov    %ecx,%eax
  pxor   %xmm4,%xmm4
  movss  D20(%rip),%xmm5
  jmp    L165
L18:
  movaps %xmm0,%xmm5
  xorps  D20(%rip),%xmm5
  movss  %xmm5,0x4(%rsp)
  jmp    L22
L223:
  pxor   %xmm0,%xmm0
  comiss 0x4(%rsp),%xmm0
  jb     L138
  jmp    L240
L257:
  movss  0x4(%rsp),%xmm7
  movaps %xmm7,%xmm1
  cmpnless %xmm2,%xmm1
  andps  %xmm1,%xmm7
  andnps %xmm2,%xmm1
  orps   %xmm7,%xmm1
  movss  %xmm1,0x4(%rsp)
  add    $0x1,%eax
  add    %rdi,%rdx
  cmp    %eax,%ebx
  jl     L224
L165:
  movss  (%rdx),%xmm2
  comiss %xmm4,%xmm2
  jae    L257
  xorps  %xmm5,%xmm2
  jmp    L257
L224:
  pxor   %xmm1,%xmm1
  movss  0x4(%rsp),%xmm6
  comiss %xmm6,%xmm1
  jae    L240
  movss  D42(%rip),%xmm2
  divss  %xmm6,%xmm2
  mulss  %xmm2,%xmm0
  mulss  %xmm0,%xmm0
L82:
  movaps %xmm2,%xmm1
  mulss  (%rsi),%xmm1
  mulss  %xmm1,%xmm1
  addss  %xmm1,%xmm0
  add    $0x1,%ecx
  add    %rdi,%rsi
  cmp    %ecx,%ebx
  jge    L82
  call   <sqrt@plt>
  mulss  0x4(%rsp),%xmm0
  mov    %r13d,%eax
  imul   (%r15),%eax
  cltq
  movss  0x4(%rbp,%rax,4),%xmm1
  pxor   %xmm2,%xmm2
  comiss %xmm1,%xmm2
  jae    L243
  xorps  D20(%rip),%xmm0
L243:
  subss  %xmm0,%xmm1
  mov    0x50(%rsp),%rax
  movss  %xmm1,(%rax)
  mov    %r13d,%eax
  imul   (%r15),%eax
  cltq
  movss  %xmm0,0x4(%rbp,%rax,4)
L138:
  mov    0x70(%rsp),%rax
  mov    (%rax),%edx
  test   %edx,%edx
  jle    L240
  mov    (%r15),%ecx
  mov    %ecx,%eax
  imul   %r13d,%eax
  cltq
  movss  0x4(%rbp,%rax,4),%xmm0
  mov    0x50(%rsp),%rax
  mulss  (%rax),%xmm0
  comiss D32(%rip),%xmm0
  jb     L76
L240:
  mov    $0x0,%eax
  add    $0x18,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L76:
  mov    0x58(%rsp),%rax
  lea    -0x4(%rax),%r10
  movss  D42(%rip),%xmm6
  divss  %xmm0,%xmm6
  mov    0x60(%rsp),%rax
  mov    (%rax),%esi
  mov    $0x1,%r15d
  mov    0x68(%rsp),%rax
  sub    (%rax),%r15d
  lea    -0x1(%rcx),%eax
  imul   %esi,%eax
  add    %eax,%r15d
  mov    (%r12),%eax
  sub    %ecx,%eax
  imul   %esi,%eax
  mov    %eax,0x8(%rsp)
  lea    0x1(%rdx),%eax
  mov    %eax,0xc(%rsp)
  lea    -0x4(%r14),%r8
  mov    $0x1,%r11d
  lea    0x1(%rbx),%edi
  pxor   %xmm4,%xmm4
  movaps %xmm4,%xmm5
  mov    %r13d,0x4(%rsp)
  mov    0x60(%rsp),%r13
  jmp    L201
L238:
  movslq %r9d,%rcx
  lea    (%r10,%rcx,4),%rcx
  movaps %xmm1,%xmm0
  mulss  (%rdx),%xmm0
  addss  (%rcx),%xmm0
  movss  %xmm0,(%rcx)
  add    0x0(%r13),%r9d
  add    $0x1,%eax
  add    %r8,%rdx
  cmp    %edi,%eax
  jne    L238
L249:
  add    $0x1,%r11d
  cmp    0xc(%rsp),%r11d
  je     L240
L201:
  mov    0x68(%rsp),%rsi
  mov    %r15d,%eax
  add    (%rsi),%eax
  mov    %eax,%r15d
  mov    0x8(%rsp),%esi
  lea    (%rsi,%rax,1),%r9d
  cltq
  lea    (%r10,%rax,4),%r14
  movss  (%r14),%xmm3
  mov    0x50(%rsp),%rax
  movss  (%rax),%xmm2
  movaps %xmm3,%xmm1
  mulss  %xmm2,%xmm1
  mov    (%r12),%eax
  cmp    %eax,%ebx
  jl     L13
  movslq 0x0(%r13),%rsi
  shl    $0x2,%rsi
  movslq %r9d,%rdx
  mov    0x58(%rsp),%rcx
  lea    (%rcx,%rdx,4),%rcx
  mov    0x4(%rsp),%edx
  imul   %eax,%edx
  movslq %edx,%rdx
  lea    0x4(%rbp,%rdx,4),%rdx
L183:
  movss  -0x4(%rcx),%xmm0
  mulss  (%rdx),%xmm0
  addss  %xmm0,%xmm1
  add    $0x1,%eax
  add    %rsi,%rcx
  add    %r8,%rdx
  cmp    %edi,%eax
  jne    L183
L13:
  ucomiss %xmm4,%xmm1
  jp     L239
  ucomiss %xmm5,%xmm1
  je     L249
L239:
  mulss  %xmm6,%xmm1
  mulss  %xmm1,%xmm2
  addss  %xmm3,%xmm2
  movss  %xmm2,(%r14)
  mov    (%r12),%eax
  cmp    %eax,%ebx
  jl     L249
  mov    0x4(%rsp),%edx
  imul   %eax,%edx
  movslq %edx,%rdx
  lea    0x4(%rbp,%rdx,4),%rdx
  jmp    L238
L90:
  mov    $0x0,%eax
  ret
```

tool_calls: name: parse_data
arguments: tag: D32
datatype: f64
name: parse_data
arguments: tag: D20
datatype: byte[16]
name: parse_data
arguments: tag: D42
datatype: f32

tool: D32: 0

tool: {"D20": [0x00,0x00,0x00,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00]}

tool: D42: 1

assistant: ```c
int h12(int mode, int *lpivot, int *l1, int m, float *u, int *iue, float *up, float *c__, int *ice, int *icv, int *ncv) {
  int u_dim1, u_offset, idx1, idx2;
  float d, d2;
  int incr;
  float b;
  int i__, j;
  float clinv;
  int i2, i3, i4;
  float cl, sm;
  u_dim1 = *iue;
  u_offset = u_dim1 + 1;
  u -= u_offset;
  --c__;
  if (0 >= *lpivot || *lpivot >= *l1 || *l1 > m) {
    return 0;
  }
  cl = (d = u[*lpivot * u_dim1 + 1], ((d) >= 0 ? (d) : -(d)));
  if (mode == 2) {
    goto L60;
  }
  idx1 = m;
  for (j = *l1; j <= idx1; ++j) {
    d2 = (d = u[j * u_dim1 + 1], ((d) >= 0 ? (d) : -(d)));
    cl = ((d2) >= (cl) ? (d2) : (cl));
  }
  if (cl <= 0.) {
    goto L130;
  } else {
    goto L20;
  }
L20:
  clinv = 1. / cl;
  d = u[*lpivot * u_dim1 + 1] * clinv;
  sm = d * d;
  idx1 = m;
  for (j = *l1; j <= idx1; ++j) {
    d = u[j * u_dim1 + 1] * clinv;
    sm += d * d;
  }
  cl *= sqrt(sm);
  if (u[*lpivot * u_dim1 + 1] <= 0.) {
    goto L50;
  } else {
    goto L40;
  }
L40:
  cl = -cl;
L50:
  *up = u[*lpivot * u_dim1 + 1] - cl;
  u[*lpivot * u_dim1 + 1] = cl;
  goto L70;
L60:
  if (cl <= 0.) {
    goto L130;
  } else {
    goto L70;
  }
L70:
  if (*ncv <= 0) {
    return 0;
  }
  b = *up * u[*lpivot * u_dim1 + 1];
  if (b >= 0.) {
    goto L130;
  } else {
    goto L80;
  }
L80:
  b = 1. / b;
  i2 = 1 - *icv + *ice * (*lpivot - 1);
  incr = *ice * (*l1 - *lpivot);
  idx1 = *ncv;
  for (j = 1; j <= idx1; ++j) {
    i2 += *icv;
    i3 = i2 + incr;
    i4 = i3;
    sm = c__[i2] * *up;
    idx2 = m;
    for (i__ = *l1; i__ <= idx2; ++i__) {
      sm += c__[i3] * u[i__ * u_dim1 + 1];
      i3 += *ice;
    }
    if (sm != 0.) {
      goto L100;
    } else {
      goto L120;
    }
  L100:
    sm *= b;
    c__[i2] += sm * *up;
    idx2 = m;
    for (i__ = *l1; i__ <= idx2; ++i__) {
      c__[i4] += sm * u[i__ * u_dim1 + 1];
      i4 += *ice;
    }
  L120:;
  }
L130:
  return 0;
}
```