user: Converte this assembly snippet into its equivalent C code:

```asm
<syscon_store_dobldobl_polynomial>:
  endbr64
  push   %rbp
  mov    %esi,%r8d
  mov    %edx,%r10d
  mov    %rsp,%rbp
  sub    $0x20,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movslq %edi,%rax
  mov    %rsp,%rsi
  lea    0xf(,%rax,4),%rax
  mov    %rax,%rdx
  and    $0xfffffffffffff000,%rax
  sub    %rax,%rsi
  and    $0xfffffffffffffff0,%rdx
  cmp    %rsi,%rsp
  je     L134
L200:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rsi,%rsp
  jne    L200
L134:
  and    $0xfff,%edx
  sub    %rdx,%rsp
  test   %rdx,%rdx
  jne    L141
L232:
  movd   %edi,%xmm0
  movd   %r8d,%xmm6
  mov    %r10d,-0x10(%rbp)
  mov    %rsp,%r9
  punpckldq %xmm6,%xmm0
  movq   %xmm0,-0x18(%rbp)
  test   %edi,%edi
  jle    L69
  lea    -0x1(%rdi),%eax
  cmp    $0xe,%eax
  jbe    L3
  mov    %edi,%esi
  mov    %rcx,%rdx
  pxor   %xmm5,%xmm5
  mov    %r9,%rax
  shr    $0x4,%esi
  pxor   %xmm3,%xmm3
  sub    $0x1,%esi
  shl    $0x4,%rsi
  lea    0x10(%rcx,%rsi,1),%rsi
  nopw   0x0(%rax,%rax,1)
L89:
  movdqu (%rdx),%xmm0
  movdqa %xmm5,%xmm2
  add    $0x10,%rdx
  add    $0x40,%rax
  pcmpgtb %xmm0,%xmm2
  movdqa %xmm0,%xmm1
  punpcklbw %xmm2,%xmm1
  punpckhbw %xmm2,%xmm0
  movdqa %xmm3,%xmm2
  pcmpgtw %xmm1,%xmm2
  movdqa %xmm1,%xmm4
  punpckhwd %xmm2,%xmm1
  punpcklwd %xmm2,%xmm4
  movdqa %xmm0,%xmm2
  movups %xmm1,-0x30(%rax)
  movdqa %xmm3,%xmm1
  pcmpgtw %xmm0,%xmm1
  movups %xmm4,-0x40(%rax)
  punpcklwd %xmm1,%xmm2
  punpckhwd %xmm1,%xmm0
  movups %xmm2,-0x20(%rax)
  movups %xmm0,-0x10(%rax)
  cmp    %rdx,%rsi
  jne    L89
  mov    %edi,%eax
  and    $0xfffffff0,%eax
  test   $0xf,%dil
  je     L69
L25:
  movslq %eax,%rsi
  lea    (%r9,%rsi,4),%rdx
  movsbl (%rcx,%rsi,1),%esi
  mov    %esi,(%rdx)
  lea    0x1(%rax),%esi
  cmp    %esi,%edi
  jle    L69
  movslq %esi,%rsi
  movsbl (%rcx,%rsi,1),%esi
  mov    %esi,0x4(%rdx)
  lea    0x2(%rax),%esi
  cmp    %esi,%edi
  jle    L69
  movslq %esi,%rsi
  movsbl (%rcx,%rsi,1),%esi
  mov    %esi,0x8(%rdx)
  lea    0x3(%rax),%esi
  cmp    %esi,%edi
  jle    L69
  movslq %esi,%rsi
  movsbl (%rcx,%rsi,1),%esi
  mov    %esi,0xc(%rdx)
  lea    0x4(%rax),%esi
  cmp    %esi,%edi
  jle    L69
  movslq %esi,%rsi
  movsbl (%rcx,%rsi,1),%esi
  mov    %esi,0x10(%rdx)
  lea    0x5(%rax),%esi
  cmp    %esi,%edi
  jle    L69
  movslq %esi,%rsi
  movsbl (%rcx,%rsi,1),%esi
  mov    %esi,0x14(%rdx)
  lea    0x6(%rax),%esi
  cmp    %esi,%edi
  jle    L69
  movslq %esi,%rsi
  movsbl (%rcx,%rsi,1),%esi
  mov    %esi,0x18(%rdx)
  lea    0x7(%rax),%esi
  cmp    %esi,%edi
  jle    L69
  movslq %esi,%rsi
  movsbl (%rcx,%rsi,1),%esi
  mov    %esi,0x1c(%rdx)
  lea    0x8(%rax),%esi
  cmp    %esi,%edi
  jle    L69
  movslq %esi,%rsi
  movsbl (%rcx,%rsi,1),%esi
  mov    %esi,0x20(%rdx)
  lea    0x9(%rax),%esi
  cmp    %esi,%edi
  jle    L69
  movslq %esi,%rsi
  movsbl (%rcx,%rsi,1),%esi
  mov    %esi,0x24(%rdx)
  lea    0xa(%rax),%esi
  cmp    %esi,%edi
  jle    L69
  movslq %esi,%rsi
  movsbl (%rcx,%rsi,1),%esi
  mov    %esi,0x28(%rdx)
  lea    0xb(%rax),%esi
  cmp    %esi,%edi
  jle    L69
  movslq %esi,%rsi
  movsbl (%rcx,%rsi,1),%esi
  mov    %esi,0x2c(%rdx)
  lea    0xc(%rax),%esi
  cmp    %esi,%edi
  jle    L69
  movslq %esi,%rsi
  movsbl (%rcx,%rsi,1),%esi
  mov    %esi,0x30(%rdx)
  lea    0xd(%rax),%esi
  cmp    %esi,%edi
  jle    L69
  movslq %esi,%rsi
  add    $0xe,%eax
  movsbl (%rcx,%rsi,1),%esi
  mov    %esi,0x34(%rdx)
  cmp    %eax,%edi
  jle    L69
  cltq
  movsbl (%rcx,%rax,1),%eax
  mov    %eax,0x38(%rdx)
  nopw   0x0(%rax,%rax,1)
L69:
  xor    %r8d,%r8d
  xor    %ecx,%ecx
  mov    %r9,%rdx
  mov    $0x152,%edi
  lea    -0x18(%rbp),%rsi
  call   <_ada_use_c2phc4c@plt>
  mov    -0x8(%rbp),%rdx
  sub    %fs:0x28,%rdx
  jne    L62
  leave
  ret
  nop
L141:
  orq    $0x0,-0x8(%rsp,%rdx,1)
  jmp    L232
L3:
  xor    %eax,%eax
  jmp    L25
L62:
  call   <__stack_chk_fail@plt>
```

assistant: ```c
int syscon_store_dobldobl_polynomial(int nc, int n, int k, char *p) {
  int a[3], b[nc], i, fail;
  double *c;
  a[0] = nc;
  a[1] = n;
  a[2] = k;
  for (i = 0; i < nc; i++)
    b[i] = (int)p[i];
  fail = _ada_use_c2phc4c(338, a, b, c, 0);
  return fail;
}
```