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

```asm
<arr_store_epi8>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x30,%rsp
  mov    %rdi,-0x8(%rbp)
  mov    %esi,-0xc(%rbp)
  mov    %rdx,-0x18(%rbp)
  mov    %rcx,-0x20(%rbp)
  mov    %r8,-0x28(%rbp)
  mov    %r9,-0x30(%rbp)
  mov    -0xc(%rbp),%eax
  mov    $0x0,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  sub    %eax,%edx
  mov    -0x18(%rbp),%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  lea    0x0(,%rax,4),%rcx
  mov    -0x8(%rbp),%rax
  add    %rcx,%rax
  mov    %edx,(%rax)
  mov    -0xc(%rbp),%eax
  mov    $0x1,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  sub    %eax,%edx
  mov    -0x20(%rbp),%rcx
  mov    -0x18(%rbp),%rax
  add    %rcx,%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  lea    0x0(,%rax,4),%rcx
  mov    -0x8(%rbp),%rax
  add    %rcx,%rax
  mov    %edx,(%rax)
  mov    -0xc(%rbp),%eax
  mov    $0x2,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  sub    %eax,%edx
  mov    -0x20(%rbp),%rax
  lea    (%rax,%rax,1),%rcx
  mov    -0x18(%rbp),%rax
  add    %rcx,%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  lea    0x0(,%rax,4),%rcx
  mov    -0x8(%rbp),%rax
  add    %rcx,%rax
  mov    %edx,(%rax)
  mov    -0xc(%rbp),%eax
  mov    $0x3,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  mov    %edx,%ecx
  sub    %eax,%ecx
  mov    -0x20(%rbp),%rdx
  mov    %rdx,%rax
  add    %rax,%rax
  add    %rax,%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    %ecx,%edx
  mov    %edx,(%rax)
  mov    -0xc(%rbp),%eax
  mov    $0x4,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  sub    %eax,%edx
  mov    -0x20(%rbp),%rax
  lea    0x0(,%rax,4),%rcx
  mov    -0x18(%rbp),%rax
  add    %rcx,%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  lea    0x0(,%rax,4),%rcx
  mov    -0x8(%rbp),%rax
  add    %rcx,%rax
  mov    %edx,(%rax)
  mov    -0xc(%rbp),%eax
  mov    $0x5,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  mov    %edx,%ecx
  sub    %eax,%ecx
  mov    -0x20(%rbp),%rdx
  mov    %rdx,%rax
  shl    $0x2,%rax
  add    %rax,%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    %ecx,%edx
  mov    %edx,(%rax)
  mov    -0xc(%rbp),%eax
  mov    $0x6,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  mov    %edx,%ecx
  sub    %eax,%ecx
  mov    -0x20(%rbp),%rdx
  mov    %rdx,%rax
  add    %rax,%rax
  add    %rdx,%rax
  add    %rax,%rax
  mov    %rax,%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    %ecx,%edx
  mov    %edx,(%rax)
  mov    -0xc(%rbp),%eax
  mov    $0x7,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  mov    %edx,%ecx
  sub    %eax,%ecx
  mov    -0x20(%rbp),%rdx
  mov    %rdx,%rax
  shl    $0x3,%rax
  sub    %rdx,%rax
  mov    %rax,%rsi
  mov    -0x18(%rbp),%rax
  add    %rsi,%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    %ecx,%edx
  mov    %edx,(%rax)
  mov    -0xc(%rbp),%eax
  mov    $0x8,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  sub    %eax,%edx
  mov    -0x20(%rbp),%rax
  lea    0x0(,%rax,8),%rcx
  mov    -0x18(%rbp),%rax
  add    %rcx,%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rcx
  mov    -0x28(%rbp),%rax
  add    %rcx,%rax
  lea    0x0(,%rax,4),%rcx
  mov    -0x8(%rbp),%rax
  add    %rcx,%rax
  mov    %edx,(%rax)
  mov    -0xc(%rbp),%eax
  mov    $0x9,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  mov    %edx,%ecx
  sub    %eax,%ecx
  mov    -0x20(%rbp),%rdx
  mov    %rdx,%rax
  shl    $0x3,%rax
  add    %rax,%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    %ecx,%edx
  mov    %edx,(%rax)
  mov    -0xc(%rbp),%eax
  mov    $0xa,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  mov    %edx,%ecx
  sub    %eax,%ecx
  mov    -0x20(%rbp),%rdx
  mov    %rdx,%rax
  shl    $0x2,%rax
  add    %rdx,%rax
  add    %rax,%rax
  mov    %rax,%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    %ecx,%edx
  mov    %edx,(%rax)
  mov    -0xc(%rbp),%eax
  mov    $0xb,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  mov    %edx,%ecx
  sub    %eax,%ecx
  mov    -0x20(%rbp),%rdx
  mov    %rdx,%rax
  shl    $0x2,%rax
  add    %rdx,%rax
  add    %rax,%rax
  add    %rax,%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    %ecx,%edx
  mov    %edx,(%rax)
  mov    -0xc(%rbp),%eax
  mov    $0xc,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  mov    %edx,%ecx
  sub    %eax,%ecx
  mov    -0x20(%rbp),%rdx
  mov    %rdx,%rax
  add    %rax,%rax
  add    %rdx,%rax
  shl    $0x2,%rax
  mov    %rax,%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    %ecx,%edx
  mov    %edx,(%rax)
  mov    -0xc(%rbp),%eax
  mov    $0xd,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  mov    %edx,%ecx
  sub    %eax,%ecx
  mov    -0x20(%rbp),%rdx
  mov    %rdx,%rax
  add    %rax,%rax
  add    %rdx,%rax
  shl    $0x2,%rax
  add    %rax,%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    %ecx,%edx
  mov    %edx,(%rax)
  mov    -0xc(%rbp),%eax
  mov    $0xe,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  mov    %edx,%ecx
  sub    %eax,%ecx
  mov    -0x20(%rbp),%rdx
  mov    %rdx,%rax
  shl    $0x3,%rax
  sub    %rdx,%rax
  add    %rax,%rax
  mov    %rax,%rdx
  mov    -0x18(%rbp),%rax
  add    %rdx,%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    %ecx,%edx
  mov    %edx,(%rax)
  mov    -0xc(%rbp),%eax
  mov    $0xf,%esi
  mov    %eax,%edi
  call   <_mm_extract_epi8_rpl@plt>
  mov    %eax,%edx
  mov    0x10(%rbp),%rax
  mov    %edx,%ecx
  sub    %eax,%ecx
  mov    -0x20(%rbp),%rdx
  mov    %rdx,%rax
  shl    $0x4,%rax
  sub    %rdx,%rax
  mov    %rax,%rsi
  mov    -0x18(%rbp),%rax
  add    %rsi,%rax
  imul   -0x30(%rbp),%rax
  mov    %rax,%rdx
  mov    -0x28(%rbp),%rax
  add    %rdx,%rax
  lea    0x0(,%rax,4),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    %ecx,%edx
  mov    %edx,(%rax)
  nop
  leave
  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;
}
```