user: What would the C source look like for the assembly code provided here:

```asm
<qd_sqr>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x90,%rsp
  mov    %rdi,-0x88(%rbp)
  mov    %rsi,-0x90(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  mov    -0x88(%rbp),%rax
  mov    (%rax),%rax
  lea    -0x48(%rbp),%rdx
  mov    %rdx,%rdi
  movq   %rax,%xmm0
  call   <dd_two_sqr@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x78(%rbp)
  mov    -0x88(%rbp),%rax
  add    $0x8,%rax
  movsd  (%rax),%xmm1
  mov    -0x88(%rbp),%rax
  movsd  (%rax),%xmm0
  addsd  %xmm0,%xmm0
  movq   %xmm0,%rax
  lea    -0x40(%rbp),%rdx
  mov    %rdx,%rdi
  movq   %rax,%xmm0
  call   <dd_two_prod@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x70(%rbp)
  mov    -0x88(%rbp),%rax
  add    $0x10,%rax
  movsd  (%rax),%xmm1
  mov    -0x88(%rbp),%rax
  movsd  (%rax),%xmm0
  addsd  %xmm0,%xmm0
  movq   %xmm0,%rax
  lea    -0x38(%rbp),%rdx
  mov    %rdx,%rdi
  movq   %rax,%xmm0
  call   <dd_two_prod@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x68(%rbp)
  mov    -0x88(%rbp),%rax
  add    $0x8,%rax
  mov    (%rax),%rax
  lea    -0x30(%rbp),%rdx
  mov    %rdx,%rdi
  movq   %rax,%xmm0
  call   <dd_two_sqr@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x60(%rbp)
  movsd  -0x70(%rbp),%xmm0
  mov    -0x48(%rbp),%rax
  lea    -0x48(%rbp),%rdx
  mov    %rdx,%rdi
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <dd_two_sum@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x70(%rbp)
  movsd  -0x40(%rbp),%xmm0
  mov    -0x48(%rbp),%rax
  lea    -0x40(%rbp),%rdx
  mov    %rdx,%rdi
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <dd_two_sum@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x48(%rbp)
  movsd  -0x60(%rbp),%xmm0
  mov    -0x68(%rbp),%rax
  lea    -0x60(%rbp),%rdx
  mov    %rdx,%rdi
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <dd_two_sum@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x68(%rbp)
  movsd  -0x68(%rbp),%xmm0
  mov    -0x48(%rbp),%rax
  lea    -0x28(%rbp),%rdx
  mov    %rdx,%rdi
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <dd_two_sum@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x18(%rbp)
  movsd  -0x60(%rbp),%xmm0
  mov    -0x40(%rbp),%rax
  lea    -0x20(%rbp),%rdx
  mov    %rdx,%rdi
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <dd_two_sum@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x10(%rbp)
  movsd  -0x28(%rbp),%xmm0
  lea    -0x28(%rbp),%rdx
  mov    -0x10(%rbp),%rax
  mov    %rdx,%rdi
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <dd_two_sum@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x10(%rbp)
  movsd  -0x28(%rbp),%xmm1
  movsd  -0x20(%rbp),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x28(%rbp)
  movsd  -0x28(%rbp),%xmm0
  lea    -0x28(%rbp),%rdx
  mov    -0x10(%rbp),%rax
  mov    %rdx,%rdi
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <dd_quick_two_sum@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x10(%rbp)
  lea    -0x20(%rbp),%rdx
  movsd  -0x10(%rbp),%xmm0
  mov    -0x18(%rbp),%rax
  mov    %rdx,%rdi
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <dd_quick_two_sum@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x68(%rbp)
  movsd  -0x28(%rbp),%xmm0
  mov    -0x20(%rbp),%rax
  lea    -0x48(%rbp),%rdx
  mov    %rdx,%rdi
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <dd_quick_two_sum@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x60(%rbp)
  mov    -0x88(%rbp),%rax
  movsd  (%rax),%xmm0
  movapd %xmm0,%xmm1
  addsd  %xmm0,%xmm1
  mov    -0x88(%rbp),%rax
  add    $0x18,%rax
  movsd  (%rax),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x58(%rbp)
  mov    -0x88(%rbp),%rax
  add    $0x8,%rax
  movsd  (%rax),%xmm0
  movapd %xmm0,%xmm1
  addsd  %xmm0,%xmm1
  mov    -0x88(%rbp),%rax
  add    $0x10,%rax
  movsd  (%rax),%xmm0
  mulsd  %xmm1,%xmm0
  movsd  %xmm0,-0x50(%rbp)
  movsd  -0x50(%rbp),%xmm0
  mov    -0x58(%rbp),%rax
  lea    -0x50(%rbp),%rdx
  mov    %rdx,%rdi
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <dd_two_sum@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x58(%rbp)
  movsd  -0x30(%rbp),%xmm0
  mov    -0x38(%rbp),%rax
  lea    -0x30(%rbp),%rdx
  mov    %rdx,%rdi
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <dd_two_sum@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x38(%rbp)
  movsd  -0x38(%rbp),%xmm0
  mov    -0x58(%rbp),%rax
  lea    -0x20(%rbp),%rdx
  mov    %rdx,%rdi
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <dd_two_sum@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x28(%rbp)
  movsd  -0x20(%rbp),%xmm1
  movsd  -0x50(%rbp),%xmm0
  addsd  %xmm0,%xmm1
  movsd  -0x30(%rbp),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x20(%rbp)
  movsd  -0x28(%rbp),%xmm0
  mov    -0x60(%rbp),%rax
  lea    -0x58(%rbp),%rdx
  mov    %rdx,%rdi
  movapd %xmm0,%xmm1
  movq   %rax,%xmm0
  call   <dd_two_sum@plt>
  movq   %xmm0,%rax
  mov    %rax,-0x60(%rbp)
  movsd  -0x58(%rbp),%xmm1
  movsd  -0x48(%rbp),%xmm0
  addsd  %xmm0,%xmm1
  movsd  -0x20(%rbp),%xmm0
  addsd  %xmm1,%xmm0
  movsd  %xmm0,-0x58(%rbp)
  lea    -0x58(%rbp),%rdi
  lea    -0x60(%rbp),%rcx
  lea    -0x68(%rbp),%rdx
  lea    -0x70(%rbp),%rsi
  lea    -0x78(%rbp),%rax
  mov    %rdi,%r8
  mov    %rax,%rdi
  call   <qd_renorm5@plt>
  movsd  -0x78(%rbp),%xmm0
  mov    -0x90(%rbp),%rax
  movsd  %xmm0,(%rax)
  mov    -0x90(%rbp),%rax
  add    $0x8,%rax
  movsd  -0x70(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x90(%rbp),%rax
  add    $0x10,%rax
  movsd  -0x68(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  mov    -0x90(%rbp),%rax
  add    $0x18,%rax
  movsd  -0x60(%rbp),%xmm0
  movsd  %xmm0,(%rax)
  nop
  mov    -0x8(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L9
  call   <__stack_chk_fail@plt>
L9:
  leave
  ret
```

assistant: ```c
void qd_sqr(const double *a, double *b) {
  double p0, p1, p2, p3, p4, p5;
  double q0, q1, q2, q3;
  double s0, s1, t0, t1;
  p0 = dd_two_sqr(a[0], &q0);
  p1 = dd_two_prod(2.0 * a[0], a[1], &q1);
  p2 = dd_two_prod(2.0 * a[0], a[2], &q2);
  p3 = dd_two_sqr(a[1], &q3);
  p1 = dd_two_sum(q0, p1, &q0);
  q0 = dd_two_sum(q0, q1, &q1);
  p2 = dd_two_sum(p2, p3, &p3);
  s0 = dd_two_sum(q0, p2, &t0);
  s1 = dd_two_sum(q1, p3, &t1);
  s1 = dd_two_sum(s1, t0, &t0);
  t0 += t1;
  s1 = dd_quick_two_sum(s1, t0, &t0);
  p2 = dd_quick_two_sum(s0, s1, &t1);
  p3 = dd_quick_two_sum(t1, t0, &q0);
  p4 = 2.0 * a[0] * a[3];
  p5 = 2.0 * a[1] * a[2];
  p4 = dd_two_sum(p4, p5, &p5);
  q2 = dd_two_sum(q2, q3, &q3);
  t0 = dd_two_sum(p4, q2, &t1);
  t1 = t1 + p5 + q3;
  p3 = dd_two_sum(p3, t0, &p4);
  p4 = p4 + q0 + t1;
  qd_renorm5(&p0, &p1, &p2, &p3, &p4);
  b[0] = p0;
  b[1] = p1;
  b[2] = p2;
  b[3] = p3;
}
```