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

```asm
<ctype_test>:
  endbr64
  sub    $0x8,%rsp
  mov    $0x41,%edi
  call   <isupper@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  mov    $0x61,%edi
  call   <isupper@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x39,%edi
  call   <isupper@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  xor    %edi,%edi
  call   <isupper@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x41,%edi
  call   <islower@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x61,%edi
  call   <islower@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  mov    $0x39,%edi
  call   <islower@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  xor    %edi,%edi
  call   <islower@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x41,%edi
  call   <isdigit@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x61,%edi
  call   <isdigit@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x39,%edi
  call   <isdigit@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  xor    %edi,%edi
  call   <isdigit@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x41,%edi
  call   <isxdigit@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  mov    $0x61,%edi
  call   <isxdigit@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  mov    $0x68,%edi
  call   <isxdigit@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x39,%edi
  call   <isxdigit@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  xor    %edi,%edi
  call   <isxdigit@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x20,%edi
  call   <isspace@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  mov    $0x39,%edi
  call   <isspace@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  xor    %edi,%edi
  call   <isspace@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x41,%edi
  call   <isalpha@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  mov    $0x61,%edi
  call   <isalpha@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  mov    $0x68,%edi
  call   <isalpha@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  mov    $0x39,%edi
  call   <isalpha@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  xor    %edi,%edi
  call   <isalpha@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x20,%edi
  call   <isprint@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  mov    $0x41,%edi
  call   <isprint@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  mov    $0x61,%edi
  call   <isprint@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  mov    $0x68,%edi
  call   <isprint@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  mov    $0x39,%edi
  call   <isprint@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  xor    %edi,%edi
  call   <isprint@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x20,%edi
  call   <isgraph@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x41,%edi
  call   <isgraph@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  mov    $0x61,%edi
  call   <isgraph@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  mov    $0x68,%edi
  call   <isgraph@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  mov    $0x39,%edi
  call   <isgraph@plt>
  mov    %eax,%edi
  call   <CT_ASSERT@plt>
  xor    %edi,%edi
  call   <isgraph@plt>
  xor    %edi,%edi
  test   %eax,%eax
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x63,%edi
  call   <toupper@plt>
  xor    %edi,%edi
  cmp    $0x43,%al
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x43,%edi
  call   <toupper@plt>
  xor    %edi,%edi
  cmp    $0x43,%al
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x39,%edi
  call   <toupper@plt>
  xor    %edi,%edi
  cmp    $0x39,%al
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x63,%edi
  call   <tolower@plt>
  xor    %edi,%edi
  cmp    $0x63,%al
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x43,%edi
  call   <tolower@plt>
  xor    %edi,%edi
  cmp    $0x63,%al
  sete   %dil
  call   <CT_ASSERT@plt>
  mov    $0x39,%edi
  call   <tolower@plt>
  xor    %edi,%edi
  cmp    $0x39,%al
  sete   %dil
  add    $0x8,%rsp
  jmp    1120 <CT_ASSERT@plt>
```

assistant: ```c
void ctype_test() {
  CT_ASSERT(isupper('A'));
  CT_ASSERT(!isupper('a'));
  CT_ASSERT(!isupper('9'));
  CT_ASSERT(!isupper('\000'));
  CT_ASSERT(!islower('A'));
  CT_ASSERT(islower('a'));
  CT_ASSERT(!islower('9'));
  CT_ASSERT(!islower('\000'));
  CT_ASSERT(!isdigit('A'));
  CT_ASSERT(!isdigit('a'));
  CT_ASSERT(isdigit('9'));
  CT_ASSERT(!isdigit('\000'));
  CT_ASSERT(isxdigit('A'));
  CT_ASSERT(isxdigit('a'));
  CT_ASSERT(!isxdigit('h'));
  CT_ASSERT(isxdigit('9'));
  CT_ASSERT(!isxdigit('\000'));
  CT_ASSERT(isspace(' '));
  CT_ASSERT(!isspace('9'));
  CT_ASSERT(!isspace('\000'));
  CT_ASSERT(isalpha('A'));
  CT_ASSERT(isalpha('a'));
  CT_ASSERT(isalpha('h'));
  CT_ASSERT(!isalpha('9'));
  CT_ASSERT(!isalpha('\000'));
  CT_ASSERT(isprint(' '));
  CT_ASSERT(isprint('A'));
  CT_ASSERT(isprint('a'));
  CT_ASSERT(isprint('h'));
  CT_ASSERT(isprint('9'));
  CT_ASSERT(!isprint('\000'));
  CT_ASSERT(!isgraph(' '));
  CT_ASSERT(isgraph('A'));
  CT_ASSERT(isgraph('a'));
  CT_ASSERT(isgraph('h'));
  CT_ASSERT(isgraph('9'));
  CT_ASSERT(!isgraph('\000'));
  CT_ASSERT(toupper('c') == 'C');
  CT_ASSERT(toupper('C') == 'C');
  CT_ASSERT(toupper('9') == '9');
  CT_ASSERT(tolower('c') == 'c');
  CT_ASSERT(tolower('C') == 'c');
  CT_ASSERT(tolower('9') == '9');
  ;
}
```