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

```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     L147
  mov    %edx,%ebx
  mov    %rdi,%r13
  cmp    $0x24,%edx
  jbe    L441
L147:
  mov    D50(%rip),%rax
  xor    %r15d,%r15d
  mov    (%rax),%edx
  mov    D25(%rip),%rax
  mov    %edx,(%rax)
L70:
  add    $0x38,%rsp
  mov    %r15,%rax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopw   0x0(%rax,%rax,1)
L467:
  add    $0x1,%r13
L441:
  movsbl 0x0(%r13),%edi
  call   <isspace@plt>
  mov    %rax,%r15
  test   %rax,%rax
  jne    L467
  movzbl 0x0(%r13),%edi
  test   %dil,%dil
  je     L244
  cmp    $0x2d,%dil
  je     L465
  movl   $0x0,0x2c(%rsp)
  cmp    $0x2b,%dil
  jne    L374
  movzbl 0x1(%r13),%edi
  add    $0x1,%r13
L374:
  cmp    $0x30,%dil
  je     L29
  test   %ebx,%ebx
  je     L160
L305:
  movslq %ebx,%rax
  mov    %rax,0x8(%rsp)
L292:
  mov    D45(%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     L426
L448:
  xor    %r14d,%r14d
  xor    %r12d,%r12d
  jmp    L381
  nopw   0x0(%rax,%rax,1)
L64:
  je     L7
L435:
  mov    0x8(%rsp),%rsi
  movzbl %al,%eax
  imul   %r12,%rsi
  lea    (%rax,%rsi,1),%r12
L216:
  movzbl 0x1(%r13),%edx
  add    $0x1,%r13
  test   %dl,%dl
  je     L262
L381:
  lea    -0x30(%rdx),%eax
  cmp    $0x9,%al
  ja     L71
L431:
  movzbl %al,%edx
  cmp    %edx,%ebx
  jle    L262
  cmp    %r12,%rbp
  jae    L64
  mov    $0x1,%r14d
  jmp    L216
  nopw   0x0(%rax,%rax,1)
L465:
  movzbl 0x1(%r13),%edi
  movl   $0x1,0x2c(%rsp)
  add    $0x1,%r13
  jmp    L374
  cs nopw 0x0(%rax,%rax,1)
L71:
  movzbl %dl,%edi
  mov    %dl,0x7(%rsp)
  call   <isalpha@plt>
  test   %rax,%rax
  je     L262
  movsbl 0x7(%rsp),%edi
  call   <toupper@plt>
  sub    $0x37,%eax
  jmp    L431
L7:
  cmp    %edx,0x28(%rsp)
  jae    L435
  mov    $0x1,%r14d
  jmp    L216
  nopw   0x0(%rax,%rax,1)
L262:
  cmp    %r13,0x20(%rsp)
  je     L426
  mov    0x10(%rsp),%rax
  test   %rax,%rax
  je     L129
  mov    %r13,(%rax)
L129:
  test   %r14d,%r14d
  je     L414
  mov    D82(%rip),%rax
  mov    (%rax),%edx
  mov    D25(%rip),%rax
  mov    %edx,(%rax)
  mov    0x2c(%rsp),%eax
  test   %eax,%eax
  je     L221
  mov    D119(%rip),%rax
  mov    (%rax),%r15
  jmp    L70
  nopw   0x0(%rax,%rax,1)
L244:
  cmpq   $0x0,0x10(%rsp)
  je     L70
L189:
  mov    0x10(%rsp),%rax
  mov    0x18(%rsp),%rcx
  mov    %rcx,(%rax)
  jmp    L70
  cs nopw 0x0(%rax,%rax,1)
L414:
  mov    0x2c(%rsp),%edx
  test   %edx,%edx
  je     L124
  mov    D119(%rip),%rax
  mov    (%rax),%r15
  mov    %r15,%rax
  neg    %rax
  cmp    %rax,%r12
  ja     L151
  mov    %r12,%r15
  neg    %r15
  jmp    L70
L29:
  test   $0xffffffef,%ebx
  je     L298
  mov    D45(%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    L448
  nopl   0x0(%rax)
L160:
  movq   $0xa,0x8(%rsp)
  mov    $0xa,%ebx
  jmp    L292
  nopl   0x0(%rax,%rax,1)
L124:
  mov    D74(%rip),%rax
  mov    (%rax),%r15
  cmp    %r15,%r12
  ja     L151
  mov    %r12,%r15
  jmp    L70
  nop
L426:
  cmpq   $0x0,0x10(%rsp)
  je     L70
  mov    0x20(%rsp),%rcx
  mov    %rcx,%rax
  sub    0x18(%rsp),%rax
  cmp    $0x1,%rax
  jle    L189
  movsbl -0x1(%rcx),%edi
  call   <toupper@plt>
  cmp    $0x58,%al
  jne    L189
  mov    0x20(%rsp),%rax
  cmpb   $0x30,-0x2(%rax)
  jne    L189
  mov    0x10(%rsp),%rcx
  sub    $0x1,%rax
  mov    %rax,(%rcx)
  jmp    L70
L221:
  mov    D74(%rip),%rax
  mov    (%rax),%r15
  jmp    L70
  nopl   0x0(%rax,%rax,1)
L151:
  mov    D82(%rip),%rax
  mov    (%rax),%edx
  mov    D25(%rip),%rax
  mov    %edx,(%rax)
  jmp    L70
L298:
  movsbl 0x1(%r13),%edi
  call   <toupper@plt>
  cmp    $0x58,%al
  je     L265
  movzbl 0x0(%r13),%edi
  test   %ebx,%ebx
  jne    L305
  movq   $0x8,0x8(%rsp)
  mov    $0x8,%ebx
  jmp    L292
L265:
  movzbl 0x2(%r13),%edi
  mov    $0x10,%ebx
  add    $0x2,%r13
  movq   $0x10,0x8(%rsp)
  jmp    L292
```

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;
}
```