user: 请将以下的汇编代码转换成C语言代码:

```asm
<crypto_aead_decrypt>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x90,%rsp
  mov    %rdi,-0x58(%rbp)
  mov    %rsi,-0x60(%rbp)
  mov    %rdx,-0x68(%rbp)
  mov    %rcx,-0x70(%rbp)
  mov    %r8,-0x78(%rbp)
  mov    %r9,-0x80(%rbp)
  mov    0x18(%rbp),%rax
  mov    %rax,-0x88(%rbp)
  mov    0x20(%rbp),%rax
  mov    %rax,-0x90(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  lea    -0x40(%rbp),%rdx
  mov    -0x88(%rbp),%rcx
  mov    -0x90(%rbp),%rax
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <morus_initialization@plt>
  cmpq   $0xf,-0x78(%rbp)
  ja     L37
  mov    $0xffffffff,%eax
  jmp    L67
L37:
  movq   $0x0,-0x48(%rbp)
  jmp    L56
L73:
  mov    -0x80(%rbp),%rdx
  mov    -0x48(%rbp),%rax
  lea    (%rdx,%rax,1),%rcx
  lea    -0x40(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %rax,%rsi
  mov    %rcx,%rdi
  call   <morus_enc_aut_step@plt>
  addq   $0x10,-0x48(%rbp)
L56:
  mov    -0x48(%rbp),%rax
  add    $0x10,%rax
  cmp    %rax,0x10(%rbp)
  jae    L73
  mov    0x10(%rbp),%rax
  and    $0xf,%eax
  test   %rax,%rax
  je     L15
  mov    0x10(%rbp),%rax
  and    $0xf,%eax
  mov    %rax,%rsi
  mov    -0x80(%rbp),%rdx
  mov    -0x48(%rbp),%rax
  lea    (%rdx,%rax,1),%rdi
  lea    -0x40(%rbp),%rdx
  lea    -0x20(%rbp),%rax
  mov    %rdx,%rcx
  mov    %rsi,%rdx
  mov    %rax,%rsi
  call   <morus_enc_aut_partialblock@plt>
L15:
  mov    -0x78(%rbp),%rax
  lea    -0x10(%rax),%rdx
  mov    -0x60(%rbp),%rax
  mov    %rdx,(%rax)
  movq   $0x0,-0x48(%rbp)
  jmp    L35
L16:
  mov    -0x70(%rbp),%rdx
  mov    -0x48(%rbp),%rax
  lea    (%rdx,%rax,1),%rsi
  mov    -0x58(%rbp),%rdx
  mov    -0x48(%rbp),%rax
  lea    (%rdx,%rax,1),%rcx
  lea    -0x40(%rbp),%rax
  mov    %rax,%rdx
  mov    %rcx,%rdi
  call   <morus_dec_aut_step@plt>
  addq   $0x10,-0x48(%rbp)
L35:
  mov    -0x48(%rbp),%rax
  lea    0x10(%rax),%rdx
  mov    -0x60(%rbp),%rax
  mov    (%rax),%rax
  cmp    %rax,%rdx
  jbe    L16
  mov    -0x60(%rbp),%rax
  mov    (%rax),%rax
  and    $0xf,%eax
  test   %rax,%rax
  je     L62
  mov    -0x60(%rbp),%rax
  mov    (%rax),%rax
  and    $0xf,%eax
  mov    %rax,%rdx
  mov    -0x70(%rbp),%rcx
  mov    -0x48(%rbp),%rax
  lea    (%rcx,%rax,1),%rsi
  mov    -0x58(%rbp),%rcx
  mov    -0x48(%rbp),%rax
  lea    (%rcx,%rax,1),%rdi
  lea    -0x40(%rbp),%rax
  mov    %rax,%rcx
  call   <morus_dec_aut_partialblock@plt>
L62:
  mov    -0x60(%rbp),%rax
  mov    (%rax),%rax
  lea    -0x40(%rbp),%rcx
  mov    -0x70(%rbp),%rdx
  mov    0x10(%rbp),%rsi
  mov    %rax,%rdi
  call   <morus_tag_verification@plt>
L67:
  mov    -0x8(%rbp),%rdx
  sub    %fs:0x28,%rdx
  je     L25
  call   <__stack_chk_fail@plt>
L25:
  leave
  ret
```

assistant: ```c
int crypto_aead_decrypt(unsigned char *m, unsigned long long *mlen, unsigned char *nsec, const unsigned char *c, unsigned long long clen, const unsigned char *ad, unsigned long long adlen, const unsigned char *npub, const unsigned char *k) {
  unsigned long i, j;
  unsigned char plaintextblock[16], ciphertextblock[16];
  unsigned char tag[16];
  __m128i morus_state[5];
  morus_initialization(k, npub, morus_state);
  if (clen < 16)
    return -1;
  for (i = 0; (i + 16) <= adlen; i += 16) {
    morus_enc_aut_step(ad + i, ciphertextblock, morus_state);
  }
  if ((adlen & 0xf) != 0) {
    morus_enc_aut_partialblock(ad + i, ciphertextblock, adlen & 0xf, morus_state);
  }
  *mlen = clen - 16;
  for (i = 0; (i + 16) <= *mlen; i += 16) {
    morus_dec_aut_step(m + i, c + i, morus_state);
  }
  if ((*mlen & 0xf) != 0) {
    morus_dec_aut_partialblock(m + i, c + i, *mlen & 0xf, morus_state);
  }
  return morus_tag_verification(*mlen, adlen, c, morus_state);
}
```