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

```asm
<crypto_aead_encrypt>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x88,%rsp
  mov    %rdi,%r12
  mov    %rsi,0x18(%rsp)
  mov    %rdx,%r14
  mov    %rcx,%rbp
  mov    %r8,%r15
  mov    %r9,%r13
  mov    %fs:0x28,%rax
  mov    %rax,0x78(%rsp)
  xor    %eax,%eax
  lea    0x20(%rsp),%rdx
  mov    0xc8(%rsp),%rsi
  mov    0xd0(%rsp),%rdi
  call   <aegis128_initialization@plt>
  cmp    $0xf,%r13
  jbe    L9
  mov    $0x10,%ebx
  lea    0x20(%rsp),%rax
  mov    %rax,0x8(%rsp)
L80:
  lea    0x50(%rsp),%rsi
  lea    -0x10(%r15,%rbx,1),%rdi
  mov    0x8(%rsp),%rdx
  call   <aegis128_enc_aut_step@plt>
  mov    %rbx,0x10(%rsp)
  add    $0x10,%rbx
  cmp    %rbx,%r13
  jae    L80
L58:
  test   $0xf,%r13b
  jne    L42
L33:
  cmp    $0xf,%rbp
  jbe    L82
  mov    $0x10,%ebx
  lea    0x20(%rsp),%r15
L40:
  lea    -0x10(%r12,%rbx,1),%rsi
  lea    -0x10(%r14,%rbx,1),%rdi
  mov    %r15,%rdx
  call   <aegis128_enc_aut_step@plt>
  mov    %rbx,0x8(%rsp)
  add    $0x10,%rbx
  cmp    %rbx,%rbp
  jae    L40
L77:
  test   $0xf,%bpl
  jne    L2
L37:
  lea    0x60(%rsp),%rbx
  lea    0x20(%rsp),%r8
  mov    %rbx,%rcx
  mov    $0x10,%edx
  mov    %r13,%rsi
  mov    %rbp,%rdi
  call   <aegis128_tag_generation@plt>
  lea    0x10(%rbp),%rax
  mov    0x18(%rsp),%rcx
  mov    %rax,(%rcx)
  lea    (%r12,%rbp,1),%rdi
  mov    $0x10,%edx
  mov    %rbx,%rsi
  call   <memcpy@plt>
  mov    0x78(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L105
  mov    $0x0,%eax
  add    $0x88,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L9:
  movq   $0x0,0x10(%rsp)
  jmp    L58
L42:
  lea    0x40(%rsp),%rbx
  mov    $0x10,%edx
  mov    $0x0,%esi
  mov    %rbx,%rdi
  call   <memset@plt>
  mov    %r13d,%edx
  and    $0xf,%edx
  mov    0x10(%rsp),%rsi
  add    %r15,%rsi
  mov    %rbx,%rdi
  call   <memcpy@plt>
  lea    0x20(%rsp),%rdx
  lea    0x50(%rsp),%rsi
  mov    %rbx,%rdi
  call   <aegis128_enc_aut_step@plt>
  jmp    L33
L82:
  movq   $0x0,0x8(%rsp)
  jmp    L77
L2:
  lea    0x40(%rsp),%rbx
  mov    $0x10,%edx
  mov    $0x0,%esi
  mov    %rbx,%rdi
  call   <memset@plt>
  mov    %ebp,%r15d
  and    $0xf,%r15d
  mov    0x8(%rsp),%rax
  lea    (%r14,%rax,1),%rsi
  mov    %r15d,%edx
  mov    %rbx,%rdi
  call   <memcpy@plt>
  lea    0x20(%rsp),%rdx
  lea    0x50(%rsp),%r14
  mov    %r14,%rsi
  mov    %rbx,%rdi
  call   <aegis128_enc_aut_step@plt>
  mov    0x8(%rsp),%rax
  lea    (%r12,%rax,1),%rdi
  mov    %r15d,%edx
  mov    %r14,%rsi
  call   <memcpy@plt>
  jmp    L37
L105:
  call   <__stack_chk_fail@plt>
```

assistant: ```c
int crypto_aead_encrypt(unsigned char *c, unsigned long long *clen, const unsigned char *m, unsigned long long mlen, const unsigned char *ad, unsigned long long adlen, const unsigned char *nsec, const unsigned char *npub, const unsigned char *k) {
  unsigned long long i;
  unsigned char plaintextblock[16], ciphertextblock[16], mac[16];
  __m128i aegis128_state[5];
  aegis128_initialization(k, npub, aegis128_state);
  for (i = 0; (i + 16) <= adlen; i += 16) {
    aegis128_enc_aut_step(ad + i, ciphertextblock, aegis128_state);
  }
  if ((adlen & 0xf) != 0) {
    memset(plaintextblock, 0, 16);
    memcpy(plaintextblock, ad + i, adlen & 0xf);
    aegis128_enc_aut_step(plaintextblock, ciphertextblock, aegis128_state);
  }
  for (i = 0; (i + 16) <= mlen; i += 16) {
    aegis128_enc_aut_step(m + i, c + i, aegis128_state);
  }
  if ((mlen & 0xf) != 0) {
    memset(plaintextblock, 0, 16);
    memcpy(plaintextblock, m + i, mlen & 0xf);
    aegis128_enc_aut_step(plaintextblock, ciphertextblock, aegis128_state);
    memcpy(c + i, ciphertextblock, mlen & 0xf);
  }
  aegis128_tag_generation(mlen, adlen, 16, mac, aegis128_state);
  *clen = mlen + 16;
  memcpy(c + mlen, mac, 16);
  return 0;
}
```