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     L75
  mov    %edx,%ebx
  mov    %rdi,%r13
  cmp    $0x24,%edx
  jbe    L258
L75:
  mov    D56(%rip),%rax
  xor    %r15d,%r15d
  mov    (%rax),%edx
  mov    D103(%rip),%rax
  mov    %edx,(%rax)
L116:
  add    $0x38,%rsp
  mov    %r15,%rax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopw   0x0(%rax,%rax,1)
L38:
  add    $0x1,%r13
L258:
  movsbl 0x0(%r13),%edi
  call   <isspace@plt>
  mov    %rax,%r15
  test   %rax,%rax
  jne    L38
  movzbl 0x0(%r13),%edi
  test   %dil,%dil
  je     L183
  cmp    $0x2d,%dil
  je     L139
  movl   $0x0,0x2c(%rsp)
  cmp    $0x2b,%dil
  jne    L173
  movzbl 0x1(%r13),%edi
  add    $0x1,%r13
L173:
  cmp    $0x30,%dil
  je     L322
  test   %ebx,%ebx
  je     L417
L291:
  movslq %ebx,%rax
  mov    %rax,0x8(%rsp)
L391:
  mov    D58(%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     L344
L343:
  xor    %r14d,%r14d
  xor    %r12d,%r12d
  jmp    L263
  nopw   0x0(%rax,%rax,1)
L390:
  je     L357
L304:
  mov    0x8(%rsp),%rsi
  movzbl %al,%eax
  imul   %r12,%rsi
  lea    (%rax,%rsi,1),%r12
L33:
  movzbl 0x1(%r13),%edx
  add    $0x1,%r13
  test   %dl,%dl
  je     L438
L263:
  lea    -0x30(%rdx),%eax
  cmp    $0x9,%al
  ja     L380
L315:
  movzbl %al,%edx
  cmp    %ebx,%edx
  jge    L438
  cmp    %r12,%rbp
  jae    L390
  mov    $0x1,%r14d
  jmp    L33
  nopw   0x0(%rax,%rax,1)
L139:
  movzbl 0x1(%r13),%edi
  movl   $0x1,0x2c(%rsp)
  add    $0x1,%r13
  jmp    L173
  cs nopw 0x0(%rax,%rax,1)
L380:
  movzbl %dl,%edi
  mov    %dl,0x7(%rsp)
  call   <isalpha@plt>
  test   %rax,%rax
  je     L438
  movsbl 0x7(%rsp),%edi
  call   <toupper@plt>
  sub    $0x37,%eax
  jmp    L315
L357:
  cmp    0x28(%rsp),%edx
  jbe    L304
  mov    $0x1,%r14d
  jmp    L33
  nopw   0x0(%rax,%rax,1)
L438:
  cmp    %r13,0x20(%rsp)
  je     L344
  mov    0x10(%rsp),%rax
  test   %rax,%rax
  je     L137
  mov    %r13,(%rax)
L137:
  test   %r14d,%r14d
  je     L170
  mov    D70(%rip),%rax
  mov    (%rax),%edx
  mov    D103(%rip),%rax
  mov    %edx,(%rax)
  mov    0x2c(%rsp),%eax
  test   %eax,%eax
  je     L229
  mov    D5(%rip),%rax
  mov    (%rax),%r15
  jmp    L116
  nopw   0x0(%rax,%rax,1)
L183:
  cmpq   $0x0,0x10(%rsp)
  je     L116
L346:
  mov    0x10(%rsp),%rax
  mov    0x18(%rsp),%rcx
  mov    %rcx,(%rax)
  jmp    L116
  cs nopw 0x0(%rax,%rax,1)
L170:
  mov    0x2c(%rsp),%edx
  test   %edx,%edx
  je     L220
  mov    D5(%rip),%rax
  mov    (%rax),%r15
  mov    %r15,%rax
  neg    %rax
  cmp    %rax,%r12
  ja     L62
  mov    %r12,%r15
  neg    %r15
  jmp    L116
L322:
  test   $0xffffffef,%ebx
  je     L402
  mov    D58(%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    L343
  nopl   0x0(%rax)
L417:
  movq   $0xa,0x8(%rsp)
  mov    $0xa,%ebx
  jmp    L391
  nopl   0x0(%rax,%rax,1)
L220:
  mov    D119(%rip),%rax
  mov    (%rax),%r15
  cmp    %r15,%r12
  ja     L62
  mov    %r12,%r15
  jmp    L116
  nop
L344:
  cmpq   $0x0,0x10(%rsp)
  je     L116
  mov    0x20(%rsp),%rcx
  mov    %rcx,%rax
  sub    0x18(%rsp),%rax
  cmp    $0x1,%rax
  jle    L346
  movsbl -0x1(%rcx),%edi
  call   <toupper@plt>
  cmp    $0x58,%al
  jne    L346
  mov    0x20(%rsp),%rax
  cmpb   $0x30,-0x2(%rax)
  jne    L346
  mov    0x10(%rsp),%rcx
  sub    $0x1,%rax
  mov    %rax,(%rcx)
  jmp    L116
L229:
  mov    D119(%rip),%rax
  mov    (%rax),%r15
  jmp    L116
  nopl   0x0(%rax,%rax,1)
L62:
  mov    D70(%rip),%rax
  mov    (%rax),%edx
  mov    D103(%rip),%rax
  mov    %edx,(%rax)
  jmp    L116
L402:
  movsbl 0x1(%r13),%edi
  call   <toupper@plt>
  cmp    $0x58,%al
  je     L149
  movzbl 0x0(%r13),%edi
  test   %ebx,%ebx
  jne    L291
  movq   $0x8,0x8(%rsp)
  mov    $0x8,%ebx
  jmp    L391
L149:
  movzbl 0x2(%r13),%edi
  mov    $0x10,%ebx
  add    $0x2,%r13
  movq   $0x10,0x8(%rsp)
  jmp    L391
```

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