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

```asm
<stdlib_strided_dcuminabs>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x38,%rsp
  mov    %r8d,0x2c(%rsp)
  test   %edi,%edi
  jle    L170
  mov    %edx,%r14d
  mov    %rcx,%r12
  mov    %edi,%ebp
  mov    %rsi,%r15
  mov    %rsi,%rdx
  xor    %ecx,%ecx
  test   %r14d,%r14d
  js     L186
  mov    0x2c(%rsp),%esi
  mov    %r12,%rax
  mov    %esi,%ebx
  test   %esi,%esi
  js     L65
L1:
  movsd  (%rdx),%xmm0
  andpd  D6(%rip),%xmm0
  mov    %ecx,0x10(%rsp)
  movsd  %xmm0,(%rax)
  movsd  %xmm0,0x8(%rsp)
  call   <stdlib_base_is_nan@plt>
  movsd  0x8(%rsp),%xmm0
  test   %rax,%rax
  je     L35
  mov    $0x1,%r14d
L46:
  movsd  %xmm0,0x8(%rsp)
  call   <stdlib_base_is_nan@plt>
  test   %rax,%rax
  je     L170
  cmp    %ebp,%r14d
  jge    L170
  cmpl   $0x1,0x2c(%rsp)
  movsd  0x8(%rsp),%xmm0
  jne    L129
  sub    %r14d,%ebp
  cmp    $0x1,%ebp
  je     L178
  movslq %ebx,%rax
  movapd %xmm0,%xmm1
  lea    (%r12,%rax,8),%rdx
  mov    %ebp,%eax
  unpcklpd %xmm1,%xmm1
  shr    %eax
  lea    -0x1(%rax),%ecx
  lea    0x10(%rdx),%rax
  shl    $0x4,%rcx
  add    %rax,%rcx
  jmp    L166
  xchg   %ax,%ax
L197:
  add    $0x10,%rax
L166:
  movups %xmm1,(%rdx)
  mov    %rax,%rdx
  cmp    %rcx,%rax
  jne    L197
  mov    %ebp,%eax
  and    $0xfffffffe,%eax
  add    %eax,%ebx
  cmp    %ebp,%eax
  je     L170
L178:
  movslq %ebx,%rbx
  movsd  %xmm0,(%r12,%rbx,8)
L170:
  add    $0x38,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopw   0x0(%rax,%rax,1)
L35:
  cmp    $0x1,%ebp
  je     L81
  movslq 0x2c(%rsp),%rax
  movslq 0x10(%rsp),%rcx
  movslq %ebx,%r13
  movapd %xmm0,%xmm1
  mov    %rax,0x18(%rsp)
  movslq %r14d,%rax
  mov    $0x1,%r14d
  lea    0x0(,%rax,8),%rdi
  add    %rax,%rcx
  mov    %rdi,0x20(%rsp)
  lea    (%r15,%rcx,8),%r15
  nopl   0x0(%rax)
L62:
  movsd  (%r15),%xmm0
  andpd  D6(%rip),%xmm0
  movsd  %xmm1,0x10(%rsp)
  mov    %r13d,%ebx
  movsd  %xmm0,0x8(%rsp)
  call   <stdlib_base_is_nan@plt>
  movsd  0x8(%rsp),%xmm0
  test   %rax,%rax
  jne    L46
  movsd  0x10(%rsp),%xmm1
  add    $0x1,%r14d
  add    0x20(%rsp),%r15
  minsd  %xmm1,%xmm0
  movsd  %xmm0,(%r12,%r13,8)
  movapd %xmm0,%xmm1
  add    0x18(%rsp),%r13
  cmp    %r14d,%ebp
  jne    L62
L106:
  add    $0x38,%rsp
  movapd %xmm1,%xmm0
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  jmp    1050 <stdlib_base_is_nan@plt>
  cs nopw 0x0(%rax,%rax,1)
L65:
  mov    $0x1,%ebx
  sub    %ebp,%ebx
  imul   %esi,%ebx
  movslq %ebx,%rax
  add    %esi,%ebx
  lea    (%r12,%rax,8),%rax
  jmp    L1
  nopl   0x0(%rax,%rax,1)
L186:
  mov    $0x1,%ecx
  sub    %edi,%ecx
  imul   %r14d,%ecx
  movslq %ecx,%rax
  lea    (%rsi,%rax,8),%rdx
  mov    0x2c(%rsp),%esi
  mov    %r12,%rax
  mov    %esi,%ebx
  test   %esi,%esi
  jns    L1
  jmp    L65
  nopl   (%rax)
L129:
  movslq 0x2c(%rsp),%r13
  movslq %ebx,%rbx
  lea    (%r12,%rbx,8),%rax
  shl    $0x3,%r13
  nopl   0x0(%rax,%rax,1)
L167:
  add    $0x1,%r14d
  movsd  %xmm0,(%rax)
  add    %r13,%rax
  cmp    %r14d,%ebp
  jne    L167
  jmp    L170
L81:
  movapd %xmm0,%xmm1
  jmp    L106
```

tool_calls: name: retrieve_data
arguments: tag: D6
data_type: qword[2]

tool: {"D6": [0x7fffffffffffffff,0x0000000000000000]}

assistant: ```c
void stdlib_strided_dcuminabs(const int64_t N, const double *X, const int64_t strideX, double *Y, const int64_t strideY) {
  double min;
  int64_t ix;
  int64_t iy;
  int64_t i;
  double v;
  if (N <= 0) {
    return;
  }
  if (strideX < 0) {
    ix = (1 - N) * strideX;
  } else {
    ix = 0;
  }
  if (strideY < 0) {
    iy = (1 - N) * strideY;
  } else {
    iy = 0;
  }
  min = fabs(X[ix]);
  Y[iy] = min;
  iy += strideY;
  i = 1;
  if (!stdlib_base_is_nan(min)) {
    for (; i < N; i++) {
      ix += strideX;
      v = fabs(X[ix]);
      if (stdlib_base_is_nan(v)) {
        min = v;
        break;
      }
      if (v < min) {
        min = v;
      }
      Y[iy] = min;
      iy += strideY;
    }
  }
  if (stdlib_base_is_nan(min)) {
    for (; i < N; i++) {
      Y[iy] = min;
      iy += strideY;
    }
  }
  return;
}
```