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

```asm
<packforblock6>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  mov    %rdi,-0x28(%rbp)
  mov    %rsi,-0x30(%rbp)
  mov    %rdx,-0x38(%rbp)
  mov    -0x38(%rbp),%rax
  mov    (%rax),%rax
  mov    %rax,-0x10(%rbp)
  mov    -0x30(%rbp),%rax
  mov    (%rax),%rax
  mov    %rax,-0x8(%rbp)
  mov    -0x8(%rbp),%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,-0x1c(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x8,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  shl    $0x6,%eax
  or     %eax,-0x1c(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x10,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  shl    $0xc,%eax
  or     %eax,-0x1c(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x18,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  shl    $0x12,%eax
  or     %eax,-0x1c(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x20,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  shl    $0x18,%eax
  or     %eax,-0x1c(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x28,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  shl    $0x1e,%eax
  or     %eax,-0x1c(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x30,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x24,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x1c(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x38,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x2a,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x1c(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x40,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x30,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x1c(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x48,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x36,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x1c(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x50,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x3c,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x1c(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x50,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  sar    $0x4,%eax
  mov    %eax,-0x18(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x58,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  shl    $0x2,%eax
  or     %eax,-0x18(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x60,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  shl    $0x8,%eax
  or     %eax,-0x18(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x68,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  shl    $0xe,%eax
  or     %eax,-0x18(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x70,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  shl    $0x14,%eax
  or     %eax,-0x18(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x78,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  shl    $0x1a,%eax
  or     %eax,-0x18(%rbp)
  mov    -0x8(%rbp),%rax
  sub    $0xffffffffffffff80,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x20,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x18(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x88,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x26,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x18(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x90,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x2c,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x18(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0x98,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x32,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x18(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0xa0,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x38,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x18(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0xa8,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x3e,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x18(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0xa8,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  sar    $0x2,%eax
  mov    %eax,-0x14(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0xb0,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  shl    $0x4,%eax
  or     %eax,-0x14(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0xb8,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  shl    $0xa,%eax
  or     %eax,-0x14(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0xc0,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  shl    $0x10,%eax
  or     %eax,-0x14(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0xc8,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  shl    $0x16,%eax
  or     %eax,-0x14(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0xd0,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  shl    $0x1c,%eax
  or     %eax,-0x14(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0xd8,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x22,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x14(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0xe0,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x28,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x14(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0xe8,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x2e,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x14(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0xf0,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x34,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x14(%rbp)
  mov    -0x8(%rbp),%rax
  add    $0xf8,%rax
  mov    (%rax),%rax
  mov    %eax,%edx
  mov    -0x28(%rbp),%rax
  mov    %eax,%ecx
  mov    %edx,%eax
  sub    %ecx,%eax
  mov    %eax,%edx
  mov    $0x3a,%eax
  mov    %eax,%ecx
  shl    %cl,%edx
  mov    %edx,%eax
  or     %eax,-0x14(%rbp)
  mov    -0x10(%rbp),%rax
  mov    -0x1c(%rbp),%edx
  mov    %edx,(%rax)
  mov    -0x10(%rbp),%rax
  lea    0x4(%rax),%rdx
  mov    -0x18(%rbp),%eax
  mov    %eax,(%rdx)
  mov    -0x10(%rbp),%rax
  lea    0x8(%rax),%rdx
  mov    -0x14(%rbp),%eax
  mov    %eax,(%rdx)
  mov    -0x30(%rbp),%rax
  mov    (%rax),%rax
  lea    0x100(%rax),%rdx
  mov    -0x30(%rbp),%rax
  mov    %rdx,(%rax)
  mov    -0x38(%rbp),%rax
  mov    (%rax),%rax
  lea    0x60(%rax),%rdx
  mov    -0x38(%rbp),%rax
  mov    %rdx,(%rax)
  nop
  pop    %rbp
  ret
```

assistant: ```c
void packforblock6(const uint32_t base, const uint32_t **pin, uint8_t **pw) {
  uint64_t *pw64 = *(uint64_t **)pw;
  const uint32_t *in = *pin;
  uint64_t w0;
  uint64_t w1;
  uint64_t w2;
  w0 = (uint64_t)(in[0] - base);
  w0 |= (uint64_t)(in[1] - base) << 6;
  w0 |= (uint64_t)(in[2] - base) << 12;
  w0 |= (uint64_t)(in[3] - base) << 18;
  w0 |= (uint64_t)(in[4] - base) << 24;
  w0 |= (uint64_t)(in[5] - base) << 30;
  w0 |= (uint64_t)(in[6] - base) << 36;
  w0 |= (uint64_t)(in[7] - base) << 42;
  w0 |= (uint64_t)(in[8] - base) << 48;
  w0 |= (uint64_t)(in[9] - base) << 54;
  w0 |= (uint64_t)(in[10] - base) << 60;
  w1 = (uint64_t)(in[10] - base) >> 4;
  w1 |= (uint64_t)(in[11] - base) << 2;
  w1 |= (uint64_t)(in[12] - base) << 8;
  w1 |= (uint64_t)(in[13] - base) << 14;
  w1 |= (uint64_t)(in[14] - base) << 20;
  w1 |= (uint64_t)(in[15] - base) << 26;
  w1 |= (uint64_t)(in[16] - base) << 32;
  w1 |= (uint64_t)(in[17] - base) << 38;
  w1 |= (uint64_t)(in[18] - base) << 44;
  w1 |= (uint64_t)(in[19] - base) << 50;
  w1 |= (uint64_t)(in[20] - base) << 56;
  w1 |= (uint64_t)(in[21] - base) << 62;
  w2 = (uint64_t)(in[21] - base) >> 2;
  w2 |= (uint64_t)(in[22] - base) << 4;
  w2 |= (uint64_t)(in[23] - base) << 10;
  w2 |= (uint64_t)(in[24] - base) << 16;
  w2 |= (uint64_t)(in[25] - base) << 22;
  w2 |= (uint64_t)(in[26] - base) << 28;
  w2 |= (uint64_t)(in[27] - base) << 34;
  w2 |= (uint64_t)(in[28] - base) << 40;
  w2 |= (uint64_t)(in[29] - base) << 46;
  w2 |= (uint64_t)(in[30] - base) << 52;
  w2 |= (uint64_t)(in[31] - base) << 58;
  pw64[0] = w0;
  pw64[1] = w1;
  pw64[2] = w2;
  *pin += 32;
  *pw += 24;
}
```