user: What is the c source code of the assembly code below:

```asm
<libc_dtos>:
  endbr64
  push   %r15
  mov    $0x20,%edi
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x18,%rsp
  movsd  %xmm0,(%rsp)
  call   <malloc@plt>
  pxor   %xmm0,%xmm0
  comisd (%rsp),%xmm0
  mov    %rax,%r14
  ja     L11
  movb   $0x0,(%rax)
  mov    $0x1,%r13d
  mov    $0x2,%ebp
  xor    %edx,%edx
  mov    $0x1,%ecx
  xor    %ebx,%ebx
L53:
  cvttsd2si (%rsp),%rdi
  mov    %rdi,0x8(%rsp)
  test   %rdi,%rdi
  jne    L90
  movb   $0x30,(%rax)
L66:
  pxor   %xmm1,%xmm1
  sub    %rbp,%rbx
  movsd  (%rsp),%xmm0
  lea    (%r14,%rbp,1),%rsi
  cvtsi2sdq 0x8(%rsp),%xmm1
  lea    0x13(%rbx),%r9
  mov    $0x7,%eax
  movb   $0x2e,(%r14,%r13,1)
  movabs $0x6666666666666667,%rdi
  cmp    %rax,%r9
  cmovl  %rax,%r9
  subsd  %xmm1,%xmm0
  movsd  D4(%rip),%xmm1
  lea    (%rsi,%r9,1),%r8
  nopw   0x0(%rax,%rax,1)
L47:
  mulsd  %xmm1,%xmm0
  add    $0x1,%rsi
  cvttsd2si %xmm0,%rcx
  mov    %rcx,%rax
  imul   %rdi
  mov    %rcx,%rax
  sar    $0x3f,%rax
  sar    $0x2,%rdx
  sub    %rax,%rdx
  lea    (%rdx,%rdx,4),%rax
  add    %rax,%rax
  sub    %rax,%rcx
  add    $0x30,%ecx
  mov    %cl,-0x1(%rsi)
  cmp    %rsi,%r8
  jne    L47
  add    %r14,%r9
  mov    %r14,%rax
  movb   $0x0,-0x1(%rbp,%r9,1)
  add    $0x18,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax)
L90:
  jle    L34
  mov    0x8(%rsp),%rsi
  mov    %rbx,%rcx
  movabs $0xcccccccccccccccd,%r8
L27:
  mov    %rsi,%rax
  mov    %rcx,%r15
  lea    0x1(%rcx),%rcx
  mul    %r8
  mov    %rcx,%r13
  shr    $0x3,%rdx
  lea    (%rdx,%rdx,4),%rdi
  mov    %rdx,%rax
  mov    %rsi,%rdx
  add    %rdi,%rdi
  sub    %rdi,%rdx
  mov    %rsi,%rdi
  mov    %rax,%rsi
  add    $0x30,%edx
  mov    %dl,-0x1(%r14,%rcx,1)
  cmp    $0x9,%rdi
  jg     L27
  lea    0x2(%r15),%rbp
  cmp    %r15,%rbx
  jge    L66
  mov    %rbx,%r12
  nopl   0x0(%rax,%rax,1)
L76:
  movsbl (%r14,%r15,1),%esi
  movsbl (%r14,%r12,1),%edi
  sub    $0x1,%r15
  add    $0x1,%r12
  call   <swap@plt>
  cmp    %r15,%r12
  jl     L76
  jmp    L66
  nopl   0x0(%rax)
L11:
  movsd  (%rsp),%xmm3
  movb   $0x2d,(%rax)
  lea    0x1(%rax),%rax
  mov    $0x2,%r13d
  mov    $0x3,%ebp
  mov    $0x2,%ecx
  mov    $0x1,%edx
  mov    $0x1,%ebx
  xorpd  D5(%rip),%xmm3
  movsd  %xmm3,(%rsp)
  jmp    L53
L34:
  mov    %rcx,%rbp
  mov    %rdx,%r13
  jmp    L66
```

tool_calls: name: read_data
arguments: label: D4
type_guessed: byte[8]
name: read_data
arguments: label: D5
type_guessed: byte[16]

tool: {"D4": [0x00,0x00,0x00,0x00,0x00,0x00,0x24,0x40]}

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

assistant: ```c
char *libc_dtos(double n) {
  char *buff = malloc(32);
  *buff = +0;
  char *a1 = buff;
  long long i = 0, j = 0, k = 0;
  long long x = 0, y = 0, t = 0, z = 0, u = 0, p = 0;
  if (n < 0) {
    a1[j++] = '-';
    n = -n;
    p = 1;
  }
  y = x = n;
  if (x == 0) {
    a1[j++] = '0';
  }
  k = j;
  while (x > 0) {
    t = x % 10;
    x /= 10;
    a1[k++] = t + '0';
  }
  i = k--;
  while (k > j) {
    swap(a1[j], a1[k]);
    j++;
    k--;
  }
  j = i;
  n = n - y;
  a1[j++] = '.';
  u = (19 - j) + p;
  if (u < 7) {
    u = 7;
  }
  z = 0;
  while (z < u) {
    n = n * 10;
    t = (long long)n % 10;
    a1[j++] = t + '0';
    z++;
  }
  a1[j - 1] = '\0';
  return a1;
}
```