user: 请显示与下面列出的汇编代码相匹配的C语言实现:

```asm
<unpackforblock37_64>:
  endbr64
  push   %r15
  mov    %edi,%eax
  push   %r14
  mov    %rsi,%r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  mov    (%rsi),%rcx
  mov    0x20(%rcx),%esi
  mov    0x1c(%rcx),%edi
  add    $0x250,%rcx
  mov    -0x228(%rcx),%r8d
  mov    -0x250(%rcx),%r12d
  mov    %rdx,-0x8(%rsp)
  mov    %esi,-0x24(%rsp)
  mov    -0x224(%rcx),%esi
  mov    (%rdx),%rdx
  mov    -0x24c(%rcx),%ebx
  mov    %edi,-0x28(%rsp)
  mov    %esi,-0x18(%rsp)
  mov    -0x22c(%rcx),%edi
  mov    -0x220(%rcx),%esi
  mov    %r8d,-0x1c(%rsp)
  mov    %edi,-0x20(%rsp)
  mov    -0x214(%rcx),%edi
  mov    %esi,-0x14(%rsp)
  mov    -0x218(%rcx),%esi
  mov    -0x248(%rcx),%r11d
  mov    -0x23c(%rcx),%r10d
  mov    %esi,-0x10(%rsp)
  mov    -0x238(%rcx),%r9d
  mov    -0x21c(%rcx),%r8d
  mov    -0x244(%rcx),%r13d
  mov    -0x240(%rcx),%ebp
  mov    %edi,-0xc(%rsp)
  mov    -0x210(%rcx),%edi
  mov    -0x20c(%rcx),%esi
  mov    -0x208(%rcx),%r15d
  mov    %rcx,(%r14)
  lea    (%r12,%rax,1),%ecx
  mov    %ecx,(%rdx)
  mov    $0x25,%ecx
  mov    -0x28(%rsp),%r14d
  sar    %cl,%r12d
  mov    %ebx,%ecx
  shl    $0x1b,%ecx
  or     %ecx,%r12d
  mov    %ebx,%ecx
  sar    $0xa,%ecx
  add    %eax,%r12d
  add    %eax,%ecx
  mov    %r12d,0x4(%rdx)
  mov    %ecx,0x8(%rdx)
  mov    $0x2f,%ecx
  sar    %cl,%ebx
  mov    %r11d,%ecx
  shl    $0x11,%ecx
  or     %ecx,%ebx
  mov    %r11d,%ecx
  sar    $0x14,%ecx
  add    %eax,%ebx
  add    %eax,%ecx
  mov    %ebx,0xc(%rdx)
  mov    -0x24(%rsp),%ebx
  mov    %ecx,0x10(%rdx)
  mov    $0x39,%ecx
  sar    %cl,%r11d
  mov    %r13d,%ecx
  sar    $0x1e,%r13d
  shl    $0x7,%ecx
  add    %eax,%r13d
  or     %ecx,%r11d
  mov    %ebp,%ecx
  mov    %r13d,0x18(%rdx)
  sar    $0x3,%ecx
  add    %eax,%r11d
  add    %eax,%ecx
  mov    %r11d,0x14(%rdx)
  mov    %ecx,0x1c(%rdx)
  mov    $0x28,%ecx
  sar    %cl,%ebp
  mov    %r10d,%ecx
  shl    $0x18,%ecx
  or     %ecx,%ebp
  mov    %r10d,%ecx
  sar    $0xd,%ecx
  add    %eax,%ebp
  add    %eax,%ecx
  mov    %ebp,0x20(%rdx)
  mov    %ecx,0x24(%rdx)
  mov    $0x32,%ecx
  sar    %cl,%r10d
  mov    %r9d,%ecx
  shl    $0xe,%ecx
  or     %ecx,%r10d
  mov    %r9d,%ecx
  sar    $0x17,%ecx
  add    %eax,%r10d
  add    %eax,%ecx
  mov    %r10d,0x28(%rdx)
  mov    %ecx,0x2c(%rdx)
  mov    $0x3c,%ecx
  sar    %cl,%r9d
  mov    %r14d,%ecx
  shl    $0x4,%ecx
  or     %ecx,%r9d
  mov    $0x21,%ecx
  add    %eax,%r9d
  sar    %cl,%r14d
  mov    %r9d,0x30(%rdx)
  mov    %ebx,%r9d
  mov    %r14d,%ecx
  mov    -0x18(%rsp),%r14d
  shl    $0x1f,%r9d
  or     %r9d,%ecx
  add    %eax,%ecx
  mov    %ecx,0x34(%rdx)
  mov    %ebx,%ecx
  sar    $0x6,%ecx
  add    %eax,%ecx
  mov    %ecx,0x38(%rdx)
  mov    $0x2b,%ecx
  sar    %cl,%ebx
  mov    %ebx,%ecx
  mov    -0x20(%rsp),%ebx
  mov    %ebx,%r9d
  shl    $0x15,%r9d
  or     %r9d,%ecx
  add    %eax,%ecx
  mov    %ecx,0x3c(%rdx)
  mov    %ebx,%ecx
  sar    $0x10,%ecx
  add    %eax,%ecx
  mov    %ecx,0x40(%rdx)
  mov    $0x35,%ecx
  sar    %cl,%ebx
  mov    %ebx,%ecx
  mov    -0x1c(%rsp),%ebx
  mov    %ebx,%r9d
  shl    $0xb,%r9d
  or     %r9d,%ecx
  lea    (%r14,%r14,1),%r9d
  add    %eax,%ecx
  mov    %ecx,0x44(%rdx)
  mov    %ebx,%ecx
  sar    $0x1a,%ecx
  add    %eax,%ecx
  mov    %ecx,0x48(%rdx)
  mov    $0x3f,%ecx
  sar    %cl,%ebx
  mov    %ebx,%ecx
  mov    -0x14(%rsp),%ebx
  or     %r9d,%ecx
  add    %eax,%ecx
  mov    %ebx,%r9d
  mov    %ecx,0x4c(%rdx)
  mov    $0x24,%ecx
  shl    $0x1c,%r9d
  sar    %cl,%r14d
  mov    %r14d,%ecx
  or     %r9d,%ecx
  mov    %r8d,%r9d
  add    %eax,%ecx
  mov    %ecx,0x50(%rdx)
  mov    %ebx,%ecx
  sar    $0x9,%ecx
  add    %eax,%ecx
  mov    %ecx,0x54(%rdx)
  mov    $0x2e,%ecx
  sar    %cl,%ebx
  shl    $0x12,%r9d
  mov    %ebx,%ecx
  or     %r9d,%ecx
  add    %eax,%ecx
  mov    %ecx,0x58(%rdx)
  mov    %r8d,%ecx
  mov    -0x10(%rsp),%ebx
  sar    $0x13,%ecx
  add    %eax,%ecx
  mov    %ecx,0x5c(%rdx)
  mov    $0x38,%ecx
  sar    %cl,%r8d
  mov    %ebx,%ecx
  sar    $0x1d,%ebx
  shl    $0x8,%ecx
  or     %ecx,%r8d
  mov    %ebx,%ecx
  mov    -0xc(%rsp),%ebx
  add    %eax,%ecx
  add    %eax,%r8d
  mov    %ecx,0x64(%rdx)
  mov    %ebx,%ecx
  sar    $0x2,%ecx
  mov    %r8d,0x60(%rdx)
  mov    %edi,%r8d
  add    %eax,%ecx
  shl    $0x19,%r8d
  mov    %ecx,0x68(%rdx)
  mov    $0x27,%ecx
  sar    %cl,%ebx
  mov    %ebx,%ecx
  mov    %edi,%ebx
  or     %r8d,%ecx
  sar    $0xc,%ebx
  add    %eax,%ecx
  mov    %ecx,0x6c(%rdx)
  mov    %ebx,%ecx
  mov    %esi,%ebx
  add    %eax,%ecx
  shl    $0xf,%ebx
  mov    %ecx,0x70(%rdx)
  mov    $0x31,%ecx
  sar    %cl,%edi
  or     %ebx,%edi
  add    %eax,%edi
  mov    %edi,0x74(%rdx)
  mov    %esi,%edi
  sar    $0x16,%edi
  mov    %edi,%ecx
  add    %eax,%ecx
  mov    %ecx,0x78(%rdx)
  mov    $0x3b,%ecx
  sar    %cl,%esi
  mov    %r15d,%ecx
  shl    $0x5,%ecx
  or     %ecx,%esi
  add    %eax,%esi
  mov    -0x8(%rsp),%rax
  mov    %esi,0x7c(%rdx)
  subq   $0xffffffffffffff80,(%rax)
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

assistant: ```c
void unpackforblock37_64(const uint64_t base, const uint8_t **pw, uint64_t **pout) {
  const uint64_t *pw64 = *(const uint64_t **)pw;
  uint64_t *out = *pout;
  const uint64_t mask = (137438953471ULL);
  uint64_t w0 = pw64[0];
  uint64_t w1 = pw64[1];
  uint64_t w2 = pw64[2];
  uint64_t w3 = pw64[3];
  uint64_t w4 = pw64[4];
  uint64_t w5 = pw64[5];
  uint64_t w6 = pw64[6];
  uint64_t w7 = pw64[7];
  uint64_t w8 = pw64[8];
  uint64_t w9 = pw64[9];
  uint64_t w10 = pw64[10];
  uint64_t w11 = pw64[11];
  uint64_t w12 = pw64[12];
  uint64_t w13 = pw64[13];
  uint64_t w14 = pw64[14];
  uint64_t w15 = pw64[15];
  uint64_t w16 = pw64[16];
  uint64_t w17 = pw64[17];
  uint64_t w18 = pw64[18];
  *pw += 148;
  out[0] = base + ((w0)&mask);
  out[1] = base + (((w0 >> 37) | (w1 << 27)) & mask);
  out[2] = base + ((w1 >> 10) & mask);
  out[3] = base + (((w1 >> 47) | (w2 << 17)) & mask);
  out[4] = base + ((w2 >> 20) & mask);
  out[5] = base + (((w2 >> 57) | (w3 << 7)) & mask);
  out[6] = base + (((w3 >> 30) | (w4 << 34)) & mask);
  out[7] = base + ((w4 >> 3) & mask);
  out[8] = base + (((w4 >> 40) | (w5 << 24)) & mask);
  out[9] = base + ((w5 >> 13) & mask);
  out[10] = base + (((w5 >> 50) | (w6 << 14)) & mask);
  out[11] = base + ((w6 >> 23) & mask);
  out[12] = base + (((w6 >> 60) | (w7 << 4)) & mask);
  out[13] = base + (((w7 >> 33) | (w8 << 31)) & mask);
  out[14] = base + ((w8 >> 6) & mask);
  out[15] = base + (((w8 >> 43) | (w9 << 21)) & mask);
  out[16] = base + ((w9 >> 16) & mask);
  out[17] = base + (((w9 >> 53) | (w10 << 11)) & mask);
  out[18] = base + ((w10 >> 26) & mask);
  out[19] = base + (((w10 >> 63) | (w11 << 1)) & mask);
  out[20] = base + (((w11 >> 36) | (w12 << 28)) & mask);
  out[21] = base + ((w12 >> 9) & mask);
  out[22] = base + (((w12 >> 46) | (w13 << 18)) & mask);
  out[23] = base + ((w13 >> 19) & mask);
  out[24] = base + (((w13 >> 56) | (w14 << 8)) & mask);
  out[25] = base + (((w14 >> 29) | (w15 << 35)) & mask);
  out[26] = base + ((w15 >> 2) & mask);
  out[27] = base + (((w15 >> 39) | (w16 << 25)) & mask);
  out[28] = base + ((w16 >> 12) & mask);
  out[29] = base + (((w16 >> 49) | (w17 << 15)) & mask);
  out[30] = base + ((w17 >> 22) & mask);
  out[31] = base + (((w17 >> 59) | (w18 << 5)) & mask);
  *pout += 32;
}
```