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

```asm
<print_double>:
  endbr64
  push   %r14
  pxor   %xmm1,%xmm1
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x30,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x28(%rsp)
  xor    %eax,%eax
  comisd %xmm0,%xmm1
  ja     L50
L99:
  cvttsd2si %xmm0,%r12
  mov    $0xcccccccd,%edx
  pxor   %xmm1,%xmm1
  mov    %r12d,%ecx
  cvtsi2sd %rcx,%xmm1
  imul   %rdx,%rcx
  shr    $0x23,%rcx
  subsd  %xmm1,%xmm0
  mov    %ecx,%ebx
  mov    %r12d,%ecx
  mov    %rbx,%rax
  lea    (%rbx,%rbx,4),%esi
  imul   %rdx,%rbx
  add    %esi,%esi
  sub    %esi,%ecx
  mov    %ecx,%r14d
  shr    $0x23,%rbx
  mov    %ebx,%r11d
  mov    %r11,%rsi
  lea    (%r11,%r11,4),%edi
  imul   %rdx,%r11
  add    %edi,%edi
  sub    %edi,%eax
  mov    %eax,%ebx
  shr    $0x23,%r11
  mov    %r11d,%r10d
  mov    %r10,%rax
  lea    (%r10,%r10,4),%edi
  imul   %rdx,%r10
  add    %edi,%edi
  sub    %edi,%esi
  mov    %esi,%r11d
  shr    $0x23,%r10
  mov    %r10d,%r9d
  mov    %r9,%rsi
  lea    (%r9,%r9,4),%edi
  imul   %rdx,%r9
  add    %edi,%edi
  sub    %edi,%eax
  mov    %eax,%r10d
  shr    $0x23,%r9
  mov    %r9d,%r8d
  mov    %r8,%rax
  lea    (%r8,%r8,4),%edi
  imul   %rdx,%r8
  add    %edi,%edi
  sub    %edi,%esi
  mov    %esi,%r9d
  shr    $0x23,%r8
  lea    (%r8,%r8,4),%edi
  mov    %r8d,%esi
  add    %edi,%edi
  sub    %edi,%eax
  mov    %esi,%edi
  imul   %rdx,%rdi
  mov    %eax,%r8d
  shr    $0x23,%rdi
  lea    (%rdi,%rdi,4),%ebp
  mov    %edi,%eax
  add    %ebp,%ebp
  sub    %ebp,%esi
  mov    %esi,%edi
  mov    %eax,%esi
  imul   %rdx,%rsi
  shr    $0x23,%rsi
  lea    (%rsi,%rsi,4),%r13d
  mov    %esi,%ebp
  add    %r13d,%r13d
  sub    %r13d,%eax
  movzbl %dil,%r13d
  mov    %eax,%esi
  movzbl %al,%eax
  shl    $0x8,%rax
  or     %r13,%rax
  movzbl %r8b,%r13d
  shl    $0x8,%rax
  or     %r13,%rax
  movzbl %r9b,%r13d
  shl    $0x8,%rax
  or     %r13,%rax
  movzbl %r10b,%r13d
  shl    $0x8,%rax
  or     %r13,%rax
  movzbl %r11b,%r13d
  shl    $0x8,%rax
  or     %r13,%rax
  movzbl %bl,%r13d
  shl    $0x8,%rax
  or     %r13,%rax
  movzbl %cl,%r13d
  shl    $0x8,%rax
  or     %r13,%rax
  mov    %rax,0x10(%rsp)
  mov    %ebp,%eax
  imul   %rdx,%rax
  shr    $0x23,%rax
  lea    (%rax,%rax,4),%edx
  mov    %eax,%r13d
  mov    %ebp,%eax
  add    %edx,%edx
  mov    %r13d,%ecx
  sub    %edx,%eax
  xor    %edx,%edx
  mov    %al,%dl
  mov    %cl,%dh
  and    $0xffff,%edx
  mov    %edx,0x18(%rsp)
  cmp    $0x3b9ac9ff,%r12d
  ja     L10
  test   %eax,%eax
  jne    L102
  test   %esi,%esi
  jne    L173
  test   %edi,%edi
  jne    L13
  test   %r8d,%r8d
  jne    L141
  test   %r9d,%r9d
  jne    L235
  test   %r10d,%r10d
  jne    L185
  test   %r11d,%r11d
  jne    L79
  test   %ebx,%ebx
  jne    L30
  test   %r14d,%r14d
  jne    L8
  mov    $0x30,%edi
  movsd  %xmm0,0x8(%rsp)
  call   <myputc@plt>
  movsd  0x8(%rsp),%xmm0
L21:
  mov    $0x2e,%edi
  movsd  %xmm0,0x8(%rsp)
  mov    $0xe,%ebp
  call   <myputc@plt>
  movsd  0x8(%rsp),%xmm0
  nopl   0x0(%rax)
L153:
  mulsd  D2(%rip),%xmm0
  cvttsd2si %xmm0,%rbx
  movsd  %xmm0,0x8(%rsp)
  lea    0x30(%rbx),%edi
  mov    %ebx,%ebx
  movsbl %dil,%edi
  call   <myputc@plt>
  pxor   %xmm1,%xmm1
  movsd  0x8(%rsp),%xmm0
  cvtsi2sd %rbx,%xmm1
  subsd  %xmm1,%xmm0
  sub    $0x1,%ebp
  jne    L153
  mov    0x28(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L240
  add    $0x30,%rsp
  mov    $0xa,%edi
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  jmp    1060 <myputc@plt>
  nopl   0x0(%rax,%rax,1)
L50:
  mov    $0x2d,%edi
  movsd  %xmm0,0x8(%rsp)
  call   <myputc@plt>
  movsd  0x8(%rsp),%xmm0
  xorpd  D10(%rip),%xmm0
  jmp    L99
L10:
  mov    $0x9,%eax
  nopl   0x0(%rax,%rax,1)
L232:
  lea    0x10(%rsp,%rax,1),%rbx
  lea    0xf(%rsp),%rbp
  nopw   0x0(%rax,%rax,1)
L218:
  movzbl (%rbx),%eax
  sub    $0x1,%rbx
  movsd  %xmm0,0x8(%rsp)
  lea    0x30(%rax),%edi
  movsbl %dil,%edi
  call   <myputc@plt>
  cmp    %rbp,%rbx
  movsd  0x8(%rsp),%xmm0
  jne    L218
  jmp    L21
L102:
  mov    $0x8,%eax
  jmp    L232
L173:
  mov    $0x7,%eax
  jmp    L232
L13:
  mov    $0x6,%eax
  jmp    L232
L141:
  mov    $0x5,%eax
  jmp    L232
L235:
  mov    $0x4,%eax
  jmp    L232
L185:
  mov    $0x3,%eax
  jmp    L232
L79:
  mov    $0x2,%eax
  jmp    L232
L30:
  mov    $0x1,%eax
  jmp    L232
L8:
  xor    %eax,%eax
  jmp    L232
L240:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: parse_data
arguments: data_tag: D2
datatype: f64
name: parse_data
arguments: data_tag: D10
datatype: byte[16]

tool: D2: 10

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

assistant: ```c
void print_double(double x) {
  unsigned int xi;
  char buf[16];
  int i;
  if (x < 0) {
    myputc('-');
    x = -x;
  }
  xi = (unsigned int)x;
  x -= (double)xi;
  for (i = 0; i < 12; i++) {
    buf[i] = xi % 10;
    xi /= 10;
  }
  for (i--; i >= 0; i--)
    if (buf[i] != 0)
      break;
  if (i < 0)
    i = 0;
  for (; i >= 0; i--)
    myputc('0' + buf[i]);
  myputc('.');
  for (i = 0; i < 14; i++) {
    x *= 10.0;
    xi = (unsigned int)x;
    myputc('0' + xi);
    x -= (double)xi;
  }
  myputc('\n');
}
```