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

```asm
<__strtol_internal>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x38,%rsp
  mov    %rdi,0x18(%rsp)
  mov    %rsi,0x10(%rsp)
  cmp    $0x1,%edx
  je     L358
  mov    %edx,%ebx
  mov    %rdi,%r13
  cmp    $0x24,%edx
  jbe    L398
L358:
  mov    D75(%rip),%rax
  xor    %r15d,%r15d
  mov    (%rax),%edx
  mov    D90(%rip),%rax
  mov    %edx,(%rax)
L293:
  add    $0x38,%rsp
  mov    %r15,%rax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopw   0x0(%rax,%rax,1)
L373:
  add    $0x1,%r13
L398:
  movsbl 0x0(%r13),%edi
  call   <isspace@plt>
  mov    %rax,%r15
  test   %rax,%rax
  jne    L373
  movzbl 0x0(%r13),%edi
  test   %dil,%dil
  je     L410
  cmp    $0x2d,%dil
  je     L227
  movl   $0x0,0x2c(%rsp)
  cmp    $0x2b,%dil
  jne    L155
  movzbl 0x1(%r13),%edi
  add    $0x1,%r13
L155:
  cmp    $0x30,%dil
  je     L123
  test   %ebx,%ebx
  je     L469
L104:
  movslq %ebx,%rax
  mov    %rax,0x8(%rsp)
L52:
  mov    D1(%rip),%rax
  xor    %edx,%edx
  mov    %r13,0x20(%rsp)
  mov    (%rax),%rax
  divq   0x8(%rsp)
  mov    %edx,0x28(%rsp)
  mov    %rax,%rbp
  mov    %edi,%edx
  test   %dil,%dil
  je     L89
L240:
  xor    %r14d,%r14d
  xor    %r12d,%r12d
  jmp    L233
  nopw   0x0(%rax,%rax,1)
L164:
  je     L66
L205:
  mov    0x8(%rsp),%rsi
  movzbl %al,%eax
  imul   %r12,%rsi
  lea    (%rax,%rsi,1),%r12
L53:
  movzbl 0x1(%r13),%edx
  add    $0x1,%r13
  test   %dl,%dl
  je     L23
L233:
  lea    -0x30(%rdx),%eax
  cmp    $0x9,%al
  ja     L370
L203:
  movzbl %al,%edx
  cmp    %ebx,%edx
  jge    L23
  cmp    %r12,%rbp
  jae    L164
  mov    $0x1,%r14d
  jmp    L53
  nopw   0x0(%rax,%rax,1)
L227:
  movzbl 0x1(%r13),%edi
  movl   $0x1,0x2c(%rsp)
  add    $0x1,%r13
  jmp    L155
  cs nopw 0x0(%rax,%rax,1)
L370:
  movzbl %dl,%edi
  mov    %dl,0x7(%rsp)
  call   <isalpha@plt>
  test   %rax,%rax
  je     L23
  movsbl 0x7(%rsp),%edi
  call   <toupper@plt>
  sub    $0x37,%eax
  jmp    L203
L66:
  cmp    0x28(%rsp),%edx
  jbe    L205
  mov    $0x1,%r14d
  jmp    L53
  nopw   0x0(%rax,%rax,1)
L23:
  cmp    %r13,0x20(%rsp)
  je     L89
  mov    0x10(%rsp),%rax
  test   %rax,%rax
  je     L97
  mov    %r13,(%rax)
L97:
  test   %r14d,%r14d
  je     L190
  mov    D97(%rip),%rax
  mov    (%rax),%edx
  mov    D90(%rip),%rax
  mov    %edx,(%rax)
  mov    0x2c(%rsp),%eax
  test   %eax,%eax
  je     L257
  mov    D54(%rip),%rax
  mov    (%rax),%r15
  jmp    L293
  nopw   0x0(%rax,%rax,1)
L410:
  cmpq   $0x0,0x10(%rsp)
  je     L293
L255:
  mov    0x10(%rsp),%rax
  mov    0x18(%rsp),%rcx
  mov    %rcx,(%rax)
  jmp    L293
  cs nopw 0x0(%rax,%rax,1)
L190:
  mov    0x2c(%rsp),%edx
  test   %edx,%edx
  je     L120
  mov    D54(%rip),%rax
  mov    (%rax),%r15
  mov    %r15,%rax
  neg    %rax
  cmp    %rax,%r12
  ja     L291
  mov    %r12,%r15
  neg    %r15
  jmp    L293
L123:
  test   $0xffffffef,%ebx
  je     L172
  mov    D1(%rip),%rax
  movslq %ebx,%rcx
  xor    %edx,%edx
  mov    %r13,0x20(%rsp)
  mov    %rcx,0x8(%rsp)
  mov    (%rax),%rax
  div    %rcx
  mov    %edx,0x28(%rsp)
  mov    %rax,%rbp
  mov    $0x30,%edx
  jmp    L240
  nopl   0x0(%rax)
L469:
  movq   $0xa,0x8(%rsp)
  mov    $0xa,%ebx
  jmp    L52
  nopl   0x0(%rax,%rax,1)
L120:
  mov    D36(%rip),%rax
  mov    (%rax),%r15
  cmp    %r15,%r12
  ja     L291
  mov    %r12,%r15
  jmp    L293
  nop
L89:
  cmpq   $0x0,0x10(%rsp)
  je     L293
  mov    0x20(%rsp),%rcx
  mov    %rcx,%rax
  sub    0x18(%rsp),%rax
  cmp    $0x1,%rax
  jle    L255
  movsbl -0x1(%rcx),%edi
  call   <toupper@plt>
  cmp    $0x58,%al
  jne    L255
  mov    0x20(%rsp),%rax
  cmpb   $0x30,-0x2(%rax)
  jne    L255
  mov    0x10(%rsp),%rcx
  sub    $0x1,%rax
  mov    %rax,(%rcx)
  jmp    L293
L257:
  mov    D36(%rip),%rax
  mov    (%rax),%r15
  jmp    L293
  nopl   0x0(%rax,%rax,1)
L291:
  mov    D97(%rip),%rax
  mov    (%rax),%edx
  mov    D90(%rip),%rax
  mov    %edx,(%rax)
  jmp    L293
L172:
  movsbl 0x1(%r13),%edi
  call   <toupper@plt>
  cmp    $0x58,%al
  je     L234
  movzbl 0x0(%r13),%edi
  test   %ebx,%ebx
  jne    L104
  movq   $0x8,0x8(%rsp)
  mov    $0x8,%ebx
  jmp    L52
L234:
  movzbl 0x2(%r13),%edi
  mov    $0x10,%ebx
  add    $0x2,%r13
  movq   $0x10,0x8(%rsp)
  jmp    L52
```

assistant: ```c
long int __strtol_internal(const char *nptr, char **endptr, int base, int group) {
  int negative;
  register unsigned long int cutoff;
  register unsigned int cutlim;
  register unsigned long int i;
  register const char *s;
  register unsigned char c;
  const char *save, *end;
  int overflow;
  if (base < 0 || base == 1 || base > 36) {
    errno = (EINVAL);
    return 0;
  }
  save = s = nptr;
  while ((1 && isspace(*s)))
    ++s;
  if (*s == '\0')
    goto noconv;
  if (*s == '-') {
    negative = 1;
    ++s;
  } else if (*s == '+') {
    negative = 0;
    ++s;
  } else
    negative = 0;
  if (*s == '0') {
    if ((base == 0 || base == 16) && (1 ? toupper(s[1]) : (s[1])) == 'X') {
      s += 2;
      base = 16;
    } else if (base == 0)
      base = 8;
  } else if (base == 0)
    base = 10;
  save = s;
  end = NULL;
  cutoff = ULONG_MAX / (unsigned long int)base;
  cutlim = ULONG_MAX % (unsigned long int)base;
  overflow = 0;
  i = 0;
  for (c = *s; c != '\0'; c = *++s) {
    if (s == end)
      break;
    if (c >= '0' && c <= '9')
      c -= '0';
    else if ((1 && isalpha(c)))
      c = (1 ? toupper(c) : (c)) - 'A' + 10;
    else
      break;
    if ((int)c >= base)
      break;
    if (i > cutoff || (i == cutoff && c > cutlim))
      overflow = 1;
    else {
      i *= (unsigned long int)base;
      i += c;
    }
  }
  if (s == save)
    goto noconv;
  if (endptr != NULL)
    *endptr = (char *)s;
  if (overflow == 0 && i > (negative ? -((unsigned long int)(LONG_MIN + 1)) + 1 : (unsigned long int)LONG_MAX))
    overflow = 1;
  if (overflow) {
    errno = (ERANGE);
    return negative ? LONG_MIN : LONG_MAX;
  }
  return negative ? -i : i;
noconv:
  if (endptr != NULL) {
    if (save - nptr >= 2 && (1 ? toupper(save[-1]) : (save[-1])) == 'X' && save[-2] == '0')
      *endptr = (char *)&save[-1];
    else
      *endptr = (char *)nptr;
  }
  return 0L;
}
```