user: Translate the below assembly code into C programming language:

```asm
<packforblock28_64>:
  endbr64
  mov    %rsi,%r8
  push   %r14
  mov    %rdx,%rsi
  mov    %edi,%ecx
  mov    (%r8),%rax
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  mov    (%rdx),%r10
  mov    0x24(%rax),%r14d
  mov    0x28(%rax),%edx
  mov    0x2c(%rax),%r13d
  mov    0x34(%rax),%r12d
  sub    %ecx,%r14d
  sub    %ecx,%edx
  mov    0x40(%rax),%ebp
  mov    (%rax),%ebx
  sar    $0x4,%r14d
  shl    $0x18,%edx
  sub    %ecx,%r13d
  sub    %ecx,%r12d
  or     %r14d,%edx
  sar    $0xc,%r13d
  mov    0x8(%rax),%r11d
  mov    0x10(%rax),%r9d
  movd   %edx,%xmm4
  mov    0x30(%rax),%edx
  sar    $0x14,%r12d
  sub    %ecx,%ebp
  mov    0x48(%rax),%r14d
  sub    %edi,%ebx
  sub    %edi,%r11d
  sub    %edi,%r9d
  mov    0x18(%rax),%edi
  sar    $0x10,%r9d
  sub    %ecx,%edx
  sar    $0x8,%r11d
  shl    $0x10,%edx
  sub    %ecx,%r14d
  or     %edx,%r13d
  mov    0x38(%rax),%edx
  sub    %ecx,%edi
  sar    $0x8,%r14d
  movd   %r13d,%xmm6
  mov    0x50(%rax),%r13d
  sar    $0x18,%edi
  sub    %ecx,%edx
  punpckldq %xmm6,%xmm4
  shl    $0x8,%edx
  sub    %ecx,%r13d
  or     %r12d,%edx
  mov    0x44(%rax),%r12d
  sar    $0x10,%r13d
  movd   %edx,%xmm0
  mov    0x4c(%rax),%edx
  sub    %ecx,%r12d
  shl    $0x1c,%r12d
  or     %ebp,%r12d
  mov    0x64(%rax),%ebp
  movd   %r12d,%xmm5
  mov    0x58(%rax),%r12d
  punpckldq %xmm5,%xmm0
  sub    %ecx,%r12d
  punpcklqdq %xmm0,%xmm4
  sar    $0x18,%r12d
  sub    %ecx,%ebp
  sub    %ecx,%edx
  shl    $0x14,%edx
  sar    $0x4,%ebp
  or     %r14d,%edx
  movd   %edx,%xmm0
  mov    0x54(%rax),%edx
  sub    %ecx,%edx
  shl    $0xc,%edx
  or     %edx,%r13d
  mov    0x5c(%rax),%edx
  movd   %r13d,%xmm5
  sub    %ecx,%edx
  punpckldq %xmm5,%xmm0
  shl    $0x4,%edx
  or     %r12d,%edx
  mov    0x68(%rax),%r12d
  movd   %edx,%xmm1
  mov    0x70(%rax),%edx
  sub    %ecx,%r12d
  shl    $0x18,%r12d
  sub    %ecx,%edx
  or     %ebp,%r12d
  mov    0x6c(%rax),%ebp
  shl    $0x10,%edx
  movd   %r12d,%xmm7
  mov    0x74(%rax),%r12d
  sub    %ecx,%ebp
  punpckldq %xmm7,%xmm1
  sar    $0xc,%ebp
  punpcklqdq %xmm1,%xmm0
  sub    %ecx,%r12d
  or     %ebp,%edx
  mov    0x78(%rax),%ebp
  sar    $0x14,%r12d
  movd   %edx,%xmm2
  mov    0x4(%rax),%edx
  sub    %ecx,%ebp
  sub    %ecx,%edx
  shl    $0x8,%ebp
  shl    $0x1c,%edx
  or     %r12d,%ebp
  or     %ebx,%edx
  movd   %ebp,%xmm6
  movd   %edx,%xmm1
  mov    0xc(%rax),%edx
  punpckldq %xmm6,%xmm2
  sub    %ecx,%edx
  shl    $0x14,%edx
  or     %edx,%r11d
  mov    0x14(%rax),%edx
  movd   %r11d,%xmm5
  sub    %ecx,%edx
  punpckldq %xmm5,%xmm1
  shl    $0xc,%edx
  or     %r9d,%edx
  mov    0x1c(%rax),%r9d
  sub    $0xffffffffffffff80,%rax
  movups %xmm4,0x10(%r10)
  movd   %edx,%xmm3
  movups %xmm0,0x20(%r10)
  sub    %ecx,%r9d
  movq   %xmm2,0x30(%r10)
  mov    %r9d,%ecx
  shl    $0x4,%ecx
  or     %edi,%ecx
  movd   %ecx,%xmm7
  punpckldq %xmm7,%xmm3
  punpcklqdq %xmm3,%xmm1
  movups %xmm1,(%r10)
  pop    %rbx
  pop    %rbp
  mov    %rax,(%r8)
  pop    %r12
  addq   $0x1c0,(%rsi)
  pop    %r13
  pop    %r14
  ret
```

assistant: ```c
void packforblock28_64(const uint64_t base, const uint64_t **pin, uint8_t **pw) {
  uint64_t *pw64 = *(uint64_t **)pw;
  const uint64_t *in = *pin;
  uint64_t w0;
  uint64_t w1;
  uint64_t w2;
  uint64_t w3;
  uint64_t w4;
  uint64_t w5;
  uint64_t w6;
  uint64_t w7;
  uint64_t w8;
  uint64_t w9;
  uint64_t w10;
  uint64_t w11;
  uint64_t w12;
  uint64_t w13;
  w0 = (in[0] - base);
  w0 |= (in[1] - base) << 28;
  w0 |= (in[2] - base) << 56;
  w1 = (in[2] - base) >> 8;
  w1 |= (in[3] - base) << 20;
  w1 |= (in[4] - base) << 48;
  w2 = (in[4] - base) >> 16;
  w2 |= (in[5] - base) << 12;
  w2 |= (in[6] - base) << 40;
  w3 = (in[6] - base) >> 24;
  w3 |= (in[7] - base) << 4;
  w3 |= (in[8] - base) << 32;
  w3 |= (in[9] - base) << 60;
  w4 = (in[9] - base) >> 4;
  w4 |= (in[10] - base) << 24;
  w4 |= (in[11] - base) << 52;
  w5 = (in[11] - base) >> 12;
  w5 |= (in[12] - base) << 16;
  w5 |= (in[13] - base) << 44;
  w6 = (in[13] - base) >> 20;
  w6 |= (in[14] - base) << 8;
  w6 |= (in[15] - base) << 36;
  w7 = (in[16] - base);
  w7 |= (in[17] - base) << 28;
  w7 |= (in[18] - base) << 56;
  w8 = (in[18] - base) >> 8;
  w8 |= (in[19] - base) << 20;
  w8 |= (in[20] - base) << 48;
  w9 = (in[20] - base) >> 16;
  w9 |= (in[21] - base) << 12;
  w9 |= (in[22] - base) << 40;
  w10 = (in[22] - base) >> 24;
  w10 |= (in[23] - base) << 4;
  w10 |= (in[24] - base) << 32;
  w10 |= (in[25] - base) << 60;
  w11 = (in[25] - base) >> 4;
  w11 |= (in[26] - base) << 24;
  w11 |= (in[27] - base) << 52;
  w12 = (in[27] - base) >> 12;
  w12 |= (in[28] - base) << 16;
  w12 |= (in[29] - base) << 44;
  w13 = (in[29] - base) >> 20;
  w13 |= (in[30] - base) << 8;
  w13 |= (in[31] - base) << 36;
  pw64[0] = w0;
  pw64[1] = w1;
  pw64[2] = w2;
  pw64[3] = w3;
  pw64[4] = w4;
  pw64[5] = w5;
  pw64[6] = w6;
  pw64[7] = w7;
  pw64[8] = w8;
  pw64[9] = w9;
  pw64[10] = w10;
  pw64[11] = w11;
  pw64[12] = w12;
  pw64[13] = w13;
  *pin += 32;
  *pw += 112;
}
```