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

```asm
<TEA_encrypt>:
  endbr64
  push   %r15
  movslq %esi,%rax
  mov    %rdx,%r8
  lea    -0x1(%rsi),%r9d
  push   %r14
  lea    -0x4(%rdi,%rax,4),%rax
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  mov    (%rax),%ecx
  mov    %rax,-0x18(%rsp)
  mov    $0x34,%eax
  cltd
  movl   $0x0,-0x10(%rsp)
  idiv   %esi
  sub    $0x4,%esi
  and    $0xfffffffe,%esi
  mov    %esi,-0x8(%rsp)
  imul   $0x9e3779b9,%eax,%eax
  sub    $0x4ab325aa,%eax
  mov    %eax,-0xc(%rsp)
  lea    0x2(%rsi),%eax
  mov    %eax,-0x4(%rsp)
  nopl   0x0(%rax)
L28:
  mov    -0x10(%rsp),%esi
  sub    $0x61c88647,%esi
  mov    %esi,%edx
  mov    %esi,-0x10(%rsp)
  sar    $0x2,%edx
  test   %r9d,%r9d
  je     L8
  cmp    $0x2,%r9d
  jbe    L76
  mov    (%rdi),%ebp
  mov    -0x4(%rsp),%eax
  lea    0x4(%rdi),%rbx
  xor    %r11d,%r11d
L42:
  mov    %edx,%r12d
  mov    (%rbx),%r13d
  lea    0x1(%r11),%r10d
  add    $0x8,%rbx
  xor    %r11d,%r12d
  xor    %edx,%r10d
  and    $0x3,%r12d
  mov    %r13d,%r14d
  and    $0x3,%r10d
  mov    (%r8,%r12,4),%r15d
  xor    %esi,%r14d
  xor    %ecx,%r15d
  mov    %r15d,%r12d
  lea    0x0(,%r13,4),%r15d
  add    %r14d,%r12d
  mov    %ecx,%r14d
  shl    $0x4,%ecx
  sar    $0x5,%r14d
  xor    %r15d,%r14d
  mov    %r13d,%r15d
  sar    $0x3,%r15d
  xor    %r15d,%ecx
  add    %r14d,%ecx
  mov    %r11d,%r14d
  xor    %r12d,%ecx
  mov    %esi,%r12d
  add    %ebp,%ecx
  lea    0x2(%r11),%ebp
  mov    %ecx,-0xc(%rbx)
  mov    (%r8,%r10,4),%r15d
  mov    %rbp,%r11
  mov    (%rdi,%rbp,4),%ebp
  xor    %ecx,%r15d
  mov    %r15d,%r10d
  xor    %ebp,%r12d
  mov    %ebp,%r15d
  add    %r12d,%r10d
  mov    %ecx,%r12d
  sar    $0x3,%r15d
  shl    $0x4,%r12d
  sar    $0x5,%ecx
  xor    %r15d,%r12d
  lea    0x0(,%rbp,4),%r15d
  xor    %ecx,%r15d
  add    %r15d,%r12d
  xor    %r12d,%r10d
  lea    (%r10,%r13,1),%ecx
  mov    %ecx,-0x8(%rbx)
  cmp    -0x8(%rsp),%r14d
  jne    L42
L26:
  lea    0x1(%rax),%r10d
  mov    %r10,%rbp
  lea    (%rdi,%r10,4),%r12
  jmp    L78
  nopl   0x0(%rax,%rax,1)
L39:
  add    $0x1,%ebp
L78:
  mov    %eax,%ebx
  mov    (%r12),%r10d
  mov    %esi,%r13d
  mov    %ebp,%eax
  mov    %rbx,%r11
  lea    (%rdi,%rbx,4),%rbx
  add    $0x4,%r12
  xor    %edx,%r11d
  xor    %r10d,%r13d
  mov    %r10d,%r14d
  shl    $0x2,%r10d
  and    $0x3,%r11d
  sar    $0x3,%r14d
  mov    (%r8,%r11,4),%r15d
  xor    %ecx,%r15d
  mov    %r15d,%r11d
  add    %r13d,%r11d
  mov    %ecx,%r13d
  sar    $0x5,%ecx
  shl    $0x4,%r13d
  xor    %ecx,%r10d
  xor    %r14d,%r13d
  lea    0x0(%r13,%r10,1),%ecx
  xor    %r11d,%ecx
  add    (%rbx),%ecx
  mov    %ecx,(%rbx)
  cmp    %ebp,%r9d
  ja     L39
  mov    -0x18(%rsp),%rax
  xor    %r9d,%edx
  mov    (%rax),%ebp
L37:
  mov    (%rdi),%r10d
  mov    %ecx,%r11d
  mov    %ecx,%ebx
  and    $0x3,%edx
  sar    $0x5,%r11d
  shl    $0x4,%ebx
  xor    (%r8,%rdx,4),%ecx
  lea    0x0(,%r10,4),%eax
  xor    %eax,%r11d
  mov    %r10d,%eax
  xor    %esi,%r10d
  sar    $0x3,%eax
  add    %r10d,%ecx
  xor    %ebx,%eax
  add    %r11d,%eax
  xor    %ecx,%eax
  lea    (%rax,%rbp,1),%ecx
  mov    -0x18(%rsp),%rax
  mov    %ecx,(%rax)
  cmp    %esi,-0xc(%rsp)
  jne    L28
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax)
L8:
  mov    %ecx,%ebp
  jmp    L37
L76:
  xor    %eax,%eax
  jmp    L26
```

assistant: ```c
void TEA_encrypt(uint32_t *v, int n, uint32_t const key[4]) {
  uint32_t y, z, sum;
  unsigned p, rounds, e;
  rounds = 6 + 52 / n;
  sum = 0;
  z = v[n - 1];
  do {
    sum += 0x9e3779b9;
    e = (sum >> 2) & 3;
    for (p = 0; p < n - 1; p++) {
      y = v[p + 1];
      z = v[p] += (((z >> 5 ^ y << 2) + (y >> 3 ^ z << 4)) ^ ((sum ^ y) + (key[(p & 3) ^ e] ^ z)));
    }
    y = v[0];
    z = v[n - 1] += (((z >> 5 ^ y << 2) + (y >> 3 ^ z << 4)) ^ ((sum ^ y) + (key[(p & 3) ^ e] ^ z)));
  } while (--rounds);
}
```