user: Demonstrate the C code that generates the assembly output below:

```asm
<kern_r8_bgl_u1_b>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0xc8,%rsp
  mov    0x150(%rsp),%r13
  mov    0x168(%rsp),%r12
  test   %r12,%r12
  jle    L19
  mov    %rcx,%rax
  mov    %r12,%r14
  shl    $0x4,%r14
  sub    %r14,%rdi
  mov    %rdi,0x80(%rsp)
  sub    %r14,%r8
  mov    %r8,0x88(%rsp)
  sub    %r14,%rsi
  mov    %rsi,0x90(%rsp)
  sub    %r14,%r9
  mov    %r9,0x98(%rsp)
  sub    %r14,%rdx
  mov    %rdx,0xa0(%rsp)
  mov    0x100(%rsp),%rcx
  sub    %r14,%rcx
  mov    %rcx,0xa8(%rsp)
  sub    %r14,%rax
  mov    %rax,0xb0(%rsp)
  mov    0x108(%rsp),%rax
  sub    %r14,%rax
  mov    %rax,0xb8(%rsp)
  mov    $0x0,%r15d
  mov    $0x0,%ebp
  mov    %r13,%r12
  mov    %r15,%r13
  mov    0x168(%rsp),%r15
L7:
  mov    %rbp,%rdi
  shl    $0x6,%rdi
  add    %r12,%rdi
  mov    $0x0,%eax
  call   <__lfpd@plt>
  pxor   %xmm4,%xmm4
  cvtsi2sd %eax,%xmm4
  movsd  %xmm4,(%rsp)
  mov    %r13,%rdi
  add    0x138(%rsp),%rdi
  mov    $0x0,%eax
  call   <__lfpd@plt>
  pxor   %xmm5,%xmm5
  cvtsi2sd %eax,%xmm5
  movsd  %xmm5,0x10(%rsp)
  mov    %r13,%rdi
  add    0x148(%rsp),%rdi
  mov    $0x0,%eax
  call   <__lfpd@plt>
  pxor   %xmm6,%xmm6
  cvtsi2sd %eax,%xmm6
  movsd  %xmm6,0x18(%rsp)
  mov    %r13,%rdi
  add    0x130(%rsp),%rdi
  mov    $0x0,%eax
  call   <__lfpd@plt>
  pxor   %xmm7,%xmm7
  cvtsi2sd %eax,%xmm7
  movsd  %xmm7,0x28(%rsp)
  mov    %rbp,%rbx
  shl    $0x5,%rbx
  lea    (%r12,%rbx,1),%rdi
  mov    $0x0,%eax
  call   <__lfpd@plt>
  pxor   %xmm3,%xmm3
  cvtsi2sd %eax,%xmm3
  movsd  %xmm3,0x8(%rsp)
  mov    %r13,%rdi
  add    0x120(%rsp),%rdi
  mov    $0x0,%eax
  call   <__lfpd@plt>
  pxor   %xmm1,%xmm1
  cvtsi2sd %eax,%xmm1
  movsd  %xmm1,0x30(%rsp)
  add    0x158(%rsp),%rbx
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <__lfpd@plt>
  pxor   %xmm8,%xmm8
  cvtsi2sd %eax,%xmm8
  movsd  %xmm8,0x20(%rsp)
  mov    %r13,%rdi
  add    0x140(%rsp),%rdi
  mov    $0x0,%eax
  call   <__lfpd@plt>
  pxor   %xmm11,%xmm11
  cvtsi2sd %eax,%xmm11
  movq   %xmm11,%rbx
  mov    %r13,%rdi
  add    0x118(%rsp),%rdi
  mov    $0x0,%eax
  call   <__lfpd@plt>
  pxor   %xmm9,%xmm9
  cvtsi2sd %eax,%xmm9
  movsd  %xmm9,0x38(%rsp)
  movsd  (%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__creal@plt>
  mov    %eax,%edi
  movsd  0x10(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movapd %xmm2,%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnsma@plt>
  pxor   %xmm4,%xmm4
  cvtsi2sd %eax,%xmm4
  movsd  %xmm4,0x40(%rsp)
  mov    %r13,%rdi
  add    0x128(%rsp),%rdi
  mov    $0x0,%eax
  call   <__lfpd@plt>
  pxor   %xmm5,%xmm5
  cvtsi2sd %eax,%xmm5
  movsd  %xmm5,0x48(%rsp)
  movsd  (%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__creal@plt>
  mov    %eax,%edi
  movsd  0x18(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movapd %xmm2,%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnsma@plt>
  pxor   %xmm6,%xmm6
  cvtsi2sd %eax,%xmm6
  movsd  %xmm6,0x50(%rsp)
  mov    %r13,%rdi
  add    0x110(%rsp),%rdi
  mov    $0x0,%eax
  call   <__lfpd@plt>
  pxor   %xmm10,%xmm10
  cvtsi2sd %eax,%xmm10
  movsd  %xmm10,0x58(%rsp)
  movsd  (%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__creal@plt>
  mov    %eax,%edi
  movsd  0x28(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movapd %xmm2,%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnsma@plt>
  pxor   %xmm7,%xmm7
  cvtsi2sd %eax,%xmm7
  movsd  %xmm7,0x60(%rsp)
  movsd  0x8(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__creal@plt>
  mov    %eax,%edi
  movsd  0x30(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movapd %xmm2,%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnsma@plt>
  pxor   %xmm3,%xmm3
  cvtsi2sd %eax,%xmm3
  movsd  %xmm3,0x68(%rsp)
  movsd  0x20(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__creal@plt>
  mov    %eax,%edi
  movq   %rbx,%xmm2
  pxor   %xmm3,%xmm3
  movq   %rbx,%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnsma@plt>
  pxor   %xmm1,%xmm1
  cvtsi2sd %eax,%xmm1
  movsd  %xmm1,0x70(%rsp)
  movsd  (%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x40(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x38(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnpma@plt>
  pxor   %xmm4,%xmm4
  cvtsi2sd %eax,%xmm4
  movsd  %xmm4,0x78(%rsp)
  mov    %rbp,%rbx
  shl    $0x4,%rbx
  lea    (%r12,%rbx,1),%rdi
  mov    $0x0,%eax
  call   <__lfpd@plt>
  pxor   %xmm11,%xmm11
  cvtsi2sd %eax,%xmm11
  movsd  %xmm11,0x10(%rsp)
  movsd  (%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x40(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x38(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnsma@plt>
  pxor   %xmm12,%xmm12
  cvtsi2sd %eax,%xmm12
  movsd  %xmm12,0x38(%rsp)
  add    0x158(%rsp),%rbx
  mov    %rbx,%rdi
  mov    $0x0,%eax
  call   <__lfpd@plt>
  pxor   %xmm13,%xmm13
  cvtsi2sd %eax,%xmm13
  movsd  %xmm13,0x28(%rsp)
  movsd  (%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x50(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x48(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnpma@plt>
  pxor   %xmm6,%xmm6
  cvtsi2sd %eax,%xmm6
  movq   %xmm6,%rbx
  lea    (%r14,%r12,1),%rdi
  mov    $0x0,%eax
  call   <__lfpd@plt>
  pxor   %xmm5,%xmm5
  cvtsi2sd %eax,%xmm5
  movsd  %xmm5,0x18(%rsp)
  movsd  (%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x50(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x48(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnsma@plt>
  pxor   %xmm6,%xmm6
  cvtsi2sd %eax,%xmm6
  movsd  %xmm6,0x40(%rsp)
  mov    %r14,%rdi
  add    0x158(%rsp),%rdi
  mov    $0x0,%eax
  call   <__lfpd@plt>
  pxor   %xmm14,%xmm14
  cvtsi2sd %eax,%xmm14
  movsd  %xmm14,0x30(%rsp)
  movsd  (%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x60(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x58(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnpma@plt>
  pxor   %xmm7,%xmm7
  cvtsi2sd %eax,%xmm7
  movsd  %xmm7,0x48(%rsp)
  movsd  (%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x60(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x58(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnsma@plt>
  pxor   %xmm15,%xmm15
  cvtsi2sd %eax,%xmm15
  movsd  %xmm15,(%rsp)
  movsd  0x20(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x70(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x68(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcpmadd@plt>
  pxor   %xmm3,%xmm3
  cvtsi2sd %eax,%xmm3
  movsd  %xmm3,0x50(%rsp)
  movsd  0x20(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x70(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x68(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcpnmsub@plt>
  pxor   %xmm1,%xmm1
  cvtsi2sd %eax,%xmm1
  movsd  %xmm1,0x20(%rsp)
  movsd  0x10(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__creal@plt>
  mov    %eax,%edi
  movsd  0x78(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movapd %xmm2,%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnsma@plt>
  pxor   %xmm4,%xmm4
  cvtsi2sd %eax,%xmm4
  movsd  %xmm4,0x58(%rsp)
  movsd  0x28(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__creal@plt>
  mov    %eax,%edi
  movq   %rbx,%xmm2
  pxor   %xmm3,%xmm3
  movq   %rbx,%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnsma@plt>
  pxor   %xmm8,%xmm8
  cvtsi2sd %eax,%xmm8
  movsd  %xmm8,0x60(%rsp)
  movsd  0x18(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__creal@plt>
  mov    %eax,%edi
  movsd  0x38(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movapd %xmm2,%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnsma@plt>
  pxor   %xmm5,%xmm5
  cvtsi2sd %eax,%xmm5
  movsd  %xmm5,0x38(%rsp)
  movsd  0x30(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__creal@plt>
  mov    %eax,%edi
  movsd  0x40(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movapd %xmm2,%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnsma@plt>
  pxor   %xmm6,%xmm6
  cvtsi2sd %eax,%xmm6
  movq   %xmm6,%rbx
  movsd  0x8(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x50(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x48(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnpma@plt>
  pxor   %xmm6,%xmm6
  cvtsi2sd %eax,%xmm6
  movsd  %xmm6,0x40(%rsp)
  movsd  0x8(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x50(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x48(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnsma@plt>
  pxor   %xmm7,%xmm7
  cvtsi2sd %eax,%xmm7
  movsd  %xmm7,0x48(%rsp)
  movsd  0x28(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x60(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x58(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcpmadd@plt>
  pxor   %xmm4,%xmm4
  cvtsi2sd %eax,%xmm4
  movsd  %xmm4,0x50(%rsp)
  movsd  0x28(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x60(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x58(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcpnmsub@plt>
  pxor   %xmm3,%xmm3
  cvtsi2sd %eax,%xmm3
  movsd  %xmm3,0x28(%rsp)
  movsd  0x8(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x20(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  (%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcsnmsub@plt>
  pxor   %xmm1,%xmm1
  cvtsi2sd %eax,%xmm1
  movsd  %xmm1,0x58(%rsp)
  movsd  0x8(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x20(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  (%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcsmadd@plt>
  pxor   %xmm9,%xmm9
  cvtsi2sd %eax,%xmm9
  movsd  %xmm9,(%rsp)
  movsd  0x30(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movq   %rbx,%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x38(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcpmadd@plt>
  pxor   %xmm5,%xmm5
  cvtsi2sd %eax,%xmm5
  movsd  %xmm5,0x8(%rsp)
  movsd  0x30(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movq   %rbx,%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x38(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcpnmsub@plt>
  pxor   %xmm10,%xmm10
  cvtsi2sd %eax,%xmm10
  movsd  %xmm10,0x20(%rsp)
  movsd  0x10(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x50(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x40(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnpma@plt>
  mov    %eax,0x30(%rsp)
  movsd  0x10(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x50(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x40(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnsma@plt>
  mov    %eax,0x38(%rsp)
  movsd  0x18(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x8(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x58(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnpma@plt>
  mov    %eax,0x40(%rsp)
  movsd  0x18(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x8(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x58(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcxnsma@plt>
  mov    %eax,%ebx
  pxor   %xmm0,%xmm0
  cvtsi2sdl 0x30(%rsp),%xmm0
  mov    0x80(%rsp),%rcx
  lea    (%r14,%rcx,1),%rdi
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__stfpd@plt>
  movsd  0x10(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x28(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x48(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcsnmsub@plt>
  mov    %eax,0x8(%rsp)
  pxor   %xmm0,%xmm0
  cvtsi2sdl 0x38(%rsp),%xmm0
  mov    0x88(%rsp),%rdx
  lea    (%r14,%rdx,1),%rdi
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__stfpd@plt>
  movsd  0x10(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x28(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  0x48(%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcsmadd@plt>
  mov    %eax,0x10(%rsp)
  pxor   %xmm0,%xmm0
  cvtsi2sdl 0x40(%rsp),%xmm0
  mov    0x90(%rsp),%rsi
  lea    (%r14,%rsi,1),%rdi
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__stfpd@plt>
  movsd  0x18(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x20(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  (%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcsnmsub@plt>
  mov    %eax,0x28(%rsp)
  pxor   %xmm0,%xmm0
  cvtsi2sd %ebx,%xmm0
  mov    0x98(%rsp),%rcx
  lea    (%r14,%rcx,1),%rdi
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__stfpd@plt>
  movsd  0x18(%rsp),%xmm0
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__cimag@plt>
  mov    %eax,%edi
  movsd  0x20(%rsp),%xmm2
  pxor   %xmm3,%xmm3
  movsd  (%rsp),%xmm0
  movapd %xmm3,%xmm1
  mov    $0x4,%eax
  call   <__fxcsmadd@plt>
  mov    %eax,%ebx
  pxor   %xmm0,%xmm0
  cvtsi2sdl 0x8(%rsp),%xmm0
  mov    0xa0(%rsp),%rdx
  lea    (%r14,%rdx,1),%rdi
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__stfpd@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sdl 0x10(%rsp),%xmm0
  mov    0xa8(%rsp),%rsi
  lea    (%r14,%rsi,1),%rdi
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__stfpd@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sdl 0x28(%rsp),%xmm0
  mov    0xb0(%rsp),%rax
  lea    (%r14,%rax,1),%rdi
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__stfpd@plt>
  pxor   %xmm0,%xmm0
  cvtsi2sd %ebx,%xmm0
  mov    0xb8(%rsp),%rax
  lea    (%r14,%rax,1),%rdi
  pxor   %xmm1,%xmm1
  mov    $0x2,%eax
  call   <__stfpd@plt>
  add    $0x1,%rbp
  sub    $0xffffffffffffff80,%r13
  add    $0x10,%r14
  cmp    %rbp,%r15
  jne    L7
L19:
  add    $0xc8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

assistant: ```c
void kern_r8_bgl_u1_b(double *restrict o0, double *restrict o1, double *restrict o2, double *restrict o3, double *restrict o4, double *restrict o5, double *restrict o6, double *restrict o7, double *i0, double *i1, double *i2, double *i3, double *i4, double *i5, double *i6, double *i7, double *wn, double *wn2, long bsize, long blocks) {
  long i;
  for (i = 0; i < blocks; i++) {
    double _Complex w1, w2, w3, w4, w5, w6, w7;
    double _Complex p0, p1, p2, p3, p4, p5, p6, p7;
    double _Complex q0, q1, q2, q3, q4, q5, q6, q7;
    double _Complex s1, s3, s5, s7;
    w4 = __lfpd(wn + i * 8);
    p5 = __lfpd(i5 + 16 * i);
    p7 = __lfpd(i7 + 16 * i);
    p4 = __lfpd(i4 + 16 * i);
    w2 = __lfpd(wn + i * 4);
    p2 = __lfpd(i2 + 16 * i);
    w6 = __lfpd(wn2 + 4 * i);
    p6 = __lfpd(i6 + 16 * i);
    p1 = __lfpd(i1 + 16 * i);
    p5 = __fxcxnsma(p5, p5, __creal(w4));
    p3 = __lfpd(i3 + 16 * i);
    p7 = __fxcxnsma(p7, p7, __creal(w4));
    p0 = __lfpd(i0 + 16 * i);
    p4 = __fxcxnsma(p4, p4, __creal(w4));
    p2 = __fxcxnsma(p2, p2, __creal(w2));
    p6 = __fxcxnsma(p6, p6, __creal(w6));
    s1 = __fxcxnpma(p1, p5, __cimag(w4));
    w1 = __lfpd(wn + i * 2);
    s5 = __fxcxnsma(p1, p5, __cimag(w4));
    w3 = __lfpd(wn2 + 2 * i);
    s3 = __fxcxnpma(p3, p7, __cimag(w4));
    w5 = __lfpd(wn + i * 2 + 2 * blocks);
    s7 = __fxcxnsma(p3, p7, __cimag(w4));
    w7 = __lfpd(wn2 + 2 * i + 2 * blocks);
    q0 = __fxcxnpma(p0, p4, __cimag(w4));
    q4 = __fxcxnsma(p0, p4, __cimag(w4));
    q2 = __fxcpmadd(p2, p6, __cimag(w6));
    q6 = __fxcpnmsub(p2, p6, __cimag(w6));
    q1 = __fxcxnsma(s1, s1, __creal(w1));
    q3 = __fxcxnsma(s3, s3, __creal(w3));
    q5 = __fxcxnsma(s5, s5, __creal(w5));
    q7 = __fxcxnsma(s7, s7, __creal(w7));
    p0 = __fxcxnpma(q0, q2, __cimag(w2));
    p2 = __fxcxnsma(q0, q2, __cimag(w2));
    p1 = __fxcpmadd(q1, q3, __cimag(w3));
    p3 = __fxcpnmsub(q1, q3, __cimag(w3));
    p4 = __fxcsnmsub(q4, q6, __cimag(w2));
    p6 = __fxcsmadd(q4, q6, __cimag(w2));
    p5 = __fxcpmadd(q5, q7, __cimag(w7));
    p7 = __fxcpnmsub(q5, q7, __cimag(w7));
    q0 = __fxcxnpma(p0, p1, __cimag(w1));
    q1 = __fxcxnsma(p0, p1, __cimag(w1));
    q4 = __fxcxnpma(p4, p5, __cimag(w5));
    q5 = __fxcxnsma(p4, p5, __cimag(w5));
    __stfpd(o0 + 2 * i, q0);
    q2 = __fxcsnmsub(p2, p3, __cimag(w1));
    __stfpd(o4 + 2 * i, q1);
    q3 = __fxcsmadd(p2, p3, __cimag(w1));
    __stfpd(o1 + 2 * i, q4);
    q6 = __fxcsnmsub(p6, p7, __cimag(w5));
    __stfpd(o5 + 2 * i, q5);
    q7 = __fxcsmadd(p6, p7, __cimag(w5));
    __stfpd(o2 + 2 * i, q2);
    __stfpd(o6 + 2 * i, q3);
    __stfpd(o3 + 2 * i, q6);
    __stfpd(o7 + 2 * i, q7);
  }
}
```