user: What is the c source code of the assembly code below?

```asm
<verrevcmp>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  mov    %rdi,%r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x28,%rsp
  mov    %rdi,0x18(%rsp)
  mov    %rsi,0x10(%rsp)
  test   %rdi,%rdi
  je     L101
L266:
  cmpq   $0x0,0x10(%rsp)
  jne    L451
  jmp    L237
  nopl   (%rax)
L74:
  movsbl %bl,%edi
  call   <isdigit@plt>
  test   %rax,%rax
  jne    L141
  add    $0x1,%r13
L451:
  movzbl 0x0(%r13),%ebx
L29:
  test   %bl,%bl
  jne    L74
L141:
  mov    0x10(%rsp),%r12
  movsbl (%r12),%edi
  mov    %r12,%rbx
  test   %dil,%dil
  jne    L6
  jmp    L364
  cs nopw 0x0(%rax,%rax,1)
L273:
  movsbl 0x1(%r12),%edi
  add    $0x1,%r12
  test   %dil,%dil
  je     L458
L6:
  call   <isdigit@plt>
  test   %rax,%rax
  je     L273
L458:
  mov    0x10(%rsp),%rbx
  xchg   %ax,%ax
L364:
  mov    0x18(%rsp),%r15
  cmp    %r13,%r15
  je     L337
  lea    0x1(%r15),%rax
  mov    %rax,0x18(%rsp)
  movsbl (%r15),%r14d
  mov    %r14d,%eax
  cmp    %rbx,%r12
  je     L422
  lea    0x1(%rbx),%rcx
  mov    %rcx,0x10(%rsp)
  movsbl (%rbx),%ebp
  or     %bpl,%al
  je     L260
  test   %r14d,%r14d
  je     L174
  mov    %r14d,%edi
  mov    %rcx,0x8(%rsp)
  call   <isalpha@plt>
  mov    0x8(%rsp),%rbx
  test   %eax,%eax
  je     L95
L12:
  test   %ebp,%ebp
  je     L350
  mov    %ebp,%edi
  call   <isalpha@plt>
  test   %eax,%eax
  je     L250
L407:
  cmp    %r14d,%ebp
  jne    L459
  cmp    %r13,%r15
  jne    L364
  cmp    %rbx,%r12
  je     L260
  add    $0x1,%rbx
  mov    %rbx,0x10(%rsp)
  movsbl -0x1(%rbx),%ebp
  test   %ebp,%ebp
  je     L260
  mov    %ebp,%edi
  call   <isalpha@plt>
  mov    %eax,%r8d
  lea    0x100(%rbp),%eax
  test   %r8d,%r8d
  cmove  %eax,%ebp
  xor    %r14d,%r14d
L459:
  sub    %ebp,%r14d
L350:
  add    $0x28,%rsp
  mov    %r14d,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax,%rax,1)
L337:
  cmp    %rbx,%r12
  je     L260
  lea    0x1(%rbx),%rax
  mov    %rax,0x10(%rsp)
  movsbl (%rbx),%ebp
  test   %ebp,%ebp
  je     L260
  mov    %rax,%rbx
L461:
  mov    %ebp,%edi
  call   <isalpha@plt>
  mov    %eax,%r14d
  test   %eax,%eax
  jne    L58
L250:
  add    $0x100,%ebp
  jmp    L407
  nopl   (%rax)
L422:
  test   %r14d,%r14d
  je     L260
  mov    %r14d,%edi
  call   <isalpha@plt>
  mov    %eax,%ebp
  test   %eax,%eax
  jne    L350
L95:
  add    $0x100,%r14d
  jmp    L12
  nopw   0x0(%rax,%rax,1)
L174:
  mov    %rcx,%rbx
  test   %ebp,%ebp
  je     L364
  jmp    L461
  nopl   (%rax)
L260:
  mov    %r13,0x18(%rsp)
  mov    %r12,0x10(%rsp)
  movsbl 0x0(%r13),%edi
  call   <isdigit@plt>
  mov    %rax,%r14
  test   %rax,%rax
  jne    L328
  movsbl (%r12),%edi
  call   <isdigit@plt>
  test   %rax,%rax
  jne    L164
L124:
  mov    0x18(%rsp),%r13
  mov    0x10(%rsp),%rax
  lea    D8(%rip),%rdi
  movsbl 0x0(%r13),%esi
  movzbl (%rax),%r12d
  mov    %esi,%ebx
  call   <strchr@plt>
  movsbl %r12b,%esi
  lea    D8(%rip),%rdi
  mov    %rax,%rbp
  call   <strchr@plt>
  test   %rbp,%rbp
  je     L223
  test   %rax,%rax
  je     L151
  test   %rbp,%rbp
  je     L223
L194:
  test   %bl,%bl
  jne    L114
  neg    %r12b
  sbb    %r14d,%r14d
  jmp    L350
  nopl   0x0(%rax)
L223:
  test   %rax,%rax
  je     L194
L118:
  mov    $0x1,%r14d
  jmp    L350
L328:
  mov    0x18(%rsp),%rdi
  lea    0x18(%rsp),%rsi
  mov    $0xa,%edx
  call   <strtol@plt>
  movsbl (%r12),%edi
  mov    %rax,%r14
  call   <isdigit@plt>
  test   %rax,%rax
  je     L227
L164:
  mov    0x10(%rsp),%rdi
  lea    0x10(%rsp),%rsi
  mov    $0xa,%edx
  call   <strtol@plt>
L227:
  cmp    %r14,%rax
  je     L124
  sub    %eax,%r14d
  jmp    L350
  nopl   0x0(%rax,%rax,1)
L114:
  test   %r12b,%r12b
  jne    L29
  jmp    L118
  nopl   0x0(%rax,%rax,1)
L237:
  lea    D22(%rip),%rax
  mov    %rax,0x10(%rsp)
  jmp    L451
  nopl   0x0(%rax)
L101:
  lea    D22(%rip),%r13
  mov    %r13,0x18(%rsp)
  jmp    L266
L151:
  mov    $0xffffffff,%r14d
  jmp    L350
L58:
  xor    %r14d,%r14d
  jmp    L459
```

tool_calls: name: read_data
arguments: data_tag: D8
datatype: string
name: read_data
arguments: data_tag: D22
datatype: string

tool: D8: .-

tool: 

assistant: ```c
int verrevcmp(const char *val, const char *ref) {
  int vc, rc;
  long vl, rl;
  const char *vp, *rp;
  const char *vsep, *rsep;
  if (!val)
    val = "";
  if (!ref)
    ref = "";
  for (;;) {
    vp = val;
    while (*vp && !isdigit(*vp))
      vp++;
    rp = ref;
    while (*rp && !isdigit(*rp))
      rp++;
    for (;;) {
      vc = val == vp ? 0 : *val++;
      rc = ref == rp ? 0 : *ref++;
      if (!rc && !vc)
        break;
      if (vc && !isalpha(vc))
        vc += 256;
      if (rc && !isalpha(rc))
        rc += 256;
      if (vc != rc)
        return vc - rc;
    }
    val = vp;
    ref = rp;
    vl = 0;
    if (isdigit(*vp))
      vl = strtol(val, (char **)&val, 10);
    rl = 0;
    if (isdigit(*rp))
      rl = strtol(ref, (char **)&ref, 10);
    if (vl != rl)
      return vl - rl;
    vc = *val;
    rc = *ref;
    vsep = strchr(".-", vc);
    rsep = strchr(".-", rc);
    if (vsep && !rsep)
      return -1;
    if (!vsep && rsep)
      return +1;
    if (!*val && !*ref)
      return 0;
    if (!*val)
      return -1;
    if (!*ref)
      return +1;
  }
}
```