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

```asm
<arr_store_epi8>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x8,%rsp
  mov    %rdi,%rbp
  mov    %esi,%r14d
  mov    %rdx,%rbx
  mov    %rcx,%r15
  mov    %r8,%r12
  mov    %r9,%r13
  mov    $0x0,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %rbx,%rdx
  imul   %r13,%rdx
  add    %r12,%rdx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rdx,4)
  mov    $0x1,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  add    %r15,%rbx
  mov    %rbx,%rdx
  imul   %r13,%rdx
  add    %r12,%rdx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rdx,4)
  mov    $0x2,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  add    %r15,%rbx
  mov    %rbx,%rdx
  imul   %r13,%rdx
  add    %r12,%rdx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rdx,4)
  mov    $0x3,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  add    %r15,%rbx
  mov    %rbx,%rdx
  imul   %r13,%rdx
  add    %r12,%rdx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rdx,4)
  mov    $0x4,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  add    %r15,%rbx
  mov    %rbx,%rdx
  imul   %r13,%rdx
  add    %r12,%rdx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rdx,4)
  mov    $0x5,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  add    %r15,%rbx
  mov    %rbx,%rdx
  imul   %r13,%rdx
  add    %r12,%rdx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rdx,4)
  mov    $0x6,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  add    %r15,%rbx
  mov    %rbx,%rdx
  imul   %r13,%rdx
  add    %r12,%rdx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rdx,4)
  mov    $0x7,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  add    %r15,%rbx
  mov    %rbx,%rdx
  imul   %r13,%rdx
  add    %r12,%rdx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rdx,4)
  mov    $0x8,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  add    %r15,%rbx
  mov    %rbx,%rdx
  imul   %r13,%rdx
  add    %r12,%rdx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rdx,4)
  mov    $0x9,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  add    %r15,%rbx
  mov    %rbx,%rdx
  imul   %r13,%rdx
  add    %r12,%rdx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rdx,4)
  mov    $0xa,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  add    %r15,%rbx
  mov    %rbx,%rdx
  imul   %r13,%rdx
  add    %r12,%rdx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rdx,4)
  mov    $0xb,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  add    %r15,%rbx
  mov    %rbx,%rdx
  imul   %r13,%rdx
  add    %r12,%rdx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rdx,4)
  mov    $0xc,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  add    %r15,%rbx
  mov    %rbx,%rdx
  imul   %r13,%rdx
  add    %r12,%rdx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rdx,4)
  mov    $0xd,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  add    %r15,%rbx
  mov    %rbx,%rdx
  imul   %r13,%rdx
  add    %r12,%rdx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rdx,4)
  mov    $0xe,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  add    %r15,%rbx
  mov    %rbx,%rdx
  imul   %r13,%rdx
  add    %r12,%rdx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rdx,4)
  mov    $0xf,%esi
  mov    %r14d,%edi
  call   <_mm_extract_epi8_rpl@plt>
  add    %r15,%rbx
  imul   %r13,%rbx
  add    %r12,%rbx
  sub    0x40(%rsp),%eax
  mov    %eax,0x0(%rbp,%rbx,4)
  add    $0x8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

assistant: ```c
void arr_store_epi8(int *array, __m128i vH, int32_t t, int32_t seglen, int32_t d, int32_t dlen, int32_t bias) {
  array[(0 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 0) - bias;
  array[(1 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 1) - bias;
  array[(2 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 2) - bias;
  array[(3 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 3) - bias;
  array[(4 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 4) - bias;
  array[(5 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 5) - bias;
  array[(6 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 6) - bias;
  array[(7 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 7) - bias;
  array[(8 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 8) - bias;
  array[(9 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 9) - bias;
  array[(10 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 10) - bias;
  array[(11 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 11) - bias;
  array[(12 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 12) - bias;
  array[(13 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 13) - bias;
  array[(14 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 14) - bias;
  array[(15 * seglen + t) * dlen + d] = (int8_t)_mm_extract_epi8_rpl(vH, 15) - bias;
}
```