// File: /workspace/github_c_makefile_star2_O0/blakemcbride[P]LISP9/ls9.c
// Function: rdchar
cell rdchar(void) {
	char	name[TOKLEN+1];
	int	i, c, v;

	c = readc();
	name[0] = c;
	c = readc();
	for (i=1; i<TOKLEN; i++) {
		if (Intr || Readerr) return NIL;
		if (!isalpha(c) && !isdigit(c)) break;
		name[i] = c;
		c = readc();
	}
	name[i] = 0;
	rejectc(c);
	if (TOKLEN == i)
		rderror("char name too long",
			mkstr(name, strlen(name)));
	if (!strcmp_ci(name, "ht")) return mkchar(9);
	if (!strcmp_ci(name, "nl")) return mkchar(10);
	if (!strcmp_ci(name, "sp")) return mkchar(' ');
	v = octchar(&name[1]);
	if ('\\' == *name && v >= 0) return mkchar(v);
	if (i != 1) rderror("bad character name",
			mkstr(name, strlen(name)));
	return mkchar(name[0]);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x80, %rsp
callq 0x29f0
movl %eax, -0x68(%rbp)
movl -0x68(%rbp), %eax
movb %al, -0x60(%rbp)
callq 0x29f0
movl %eax, -0x68(%rbp)
movl $0x1, -0x64(%rbp)
cmpl $0x50, -0x64(%rbp)
jge 0x5685
movl 0x1b01c(%rip), %eax     # 0x20630
cmpl $0x0, %eax
jne 0x5623
cmpq $0x0, 0x1b007(%rip)     # 0x20628
je 0x562f
movl $0xffffffff, -0x4(%rbp) # imm = 0xFFFFFFFF
jmp 0x583e
callq 0x2230
movq (%rax), %rax
movslq -0x68(%rbp), %rcx
movzwl (%rax,%rcx,2), %eax
andl $0x400, %eax            # imm = 0x400
cmpl $0x0, %eax
jne 0x5665
callq 0x2230
movq (%rax), %rax
movslq -0x68(%rbp), %rcx
movzwl (%rax,%rcx,2), %eax
andl $0x800, %eax            # imm = 0x800
cmpl $0x0, %eax
jne 0x5665
jmp 0x5685
movl -0x68(%rbp), %eax
movb %al, %cl
movslq -0x64(%rbp), %rax
movb %cl, -0x60(%rbp,%rax)
callq 0x29f0
movl %eax, -0x68(%rbp)
movl -0x64(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x64(%rbp)
jmp 0x5608
movslq -0x64(%rbp), %rax
movb $0x0, -0x60(%rbp,%rax)
movl -0x68(%rbp), %edi
callq 0x2ab0
movl $0x50, %eax
cmpl -0x64(%rbp), %eax
jne 0x56ca
leaq -0x60(%rbp), %rax
movq %rax, -0x78(%rbp)
leaq -0x60(%rbp), %rdi
callq 0x2090
movq -0x78(%rbp), %rdi
movl %eax, %esi
callq 0x2880
movl %eax, %esi
leaq 0x15e4e(%rip), %rdi     # 0x1b513
callq 0x55a0
leaq -0x60(%rbp), %rdi
leaq 0x15e51(%rip), %rsi     # 0x1b526
callq 0x5530
cmpl $0x0, %eax
jne 0x570c
movl $0x9, %edi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
movl $0x1, %edx
callq 0x3990
movl %eax, %esi
movl $0xfffffff4, %edi       # imm = 0xFFFFFFF4
movl $0x1, %edx
callq 0x3990
movl %eax, -0x4(%rbp)
jmp 0x583e
leaq -0x60(%rbp), %rdi
leaq 0x15e12(%rip), %rsi     # 0x1b529
callq 0x5530
cmpl $0x0, %eax
jne 0x574e
movl $0xa, %edi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
movl $0x1, %edx
callq 0x3990
movl %eax, %esi
movl $0xfffffff4, %edi       # imm = 0xFFFFFFF4
movl $0x1, %edx
callq 0x3990
movl %eax, -0x4(%rbp)
jmp 0x583e
leaq -0x60(%rbp), %rdi
leaq 0x1669c(%rip), %rsi     # 0x1bdf5
callq 0x5530
cmpl $0x0, %eax
jne 0x5790
movl $0x20, %edi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
movl $0x1, %edx
callq 0x3990
movl %eax, %esi
movl $0xfffffff4, %edi       # imm = 0xFFFFFFF4
movl $0x1, %edx
callq 0x3990
movl %eax, -0x4(%rbp)
jmp 0x583e
leaq -0x60(%rbp), %rdi
addq $0x1, %rdi
callq 0x5380
movl %eax, -0x6c(%rbp)
movsbl -0x60(%rbp), %ecx
movl $0x5c, %eax
cmpl %ecx, %eax
jne 0x57e1
cmpl $0x0, -0x6c(%rbp)
jl 0x57e1
movl -0x6c(%rbp), %edi
andl $0xff, %edi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
movl $0x1, %edx
callq 0x3990
movl %eax, %esi
movl $0xfffffff4, %edi       # imm = 0xFFFFFFF4
movl $0x1, %edx
callq 0x3990
movl %eax, -0x4(%rbp)
jmp 0x583e
cmpl $0x1, -0x64(%rbp)
je 0x5811
leaq -0x60(%rbp), %rax
movq %rax, -0x80(%rbp)
leaq -0x60(%rbp), %rdi
callq 0x2090
movq -0x80(%rbp), %rdi
movl %eax, %esi
callq 0x2880
movl %eax, %esi
leaq 0x15d20(%rip), %rdi     # 0x1b52c
callq 0x55a0
movsbl -0x60(%rbp), %edi
andl $0xff, %edi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
movl $0x1, %edx
callq 0x3990
movl %eax, %esi
movl $0xfffffff4, %edi       # imm = 0xFFFFFFF4
movl $0x1, %edx
callq 0x3990
movl %eax, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0x80, %rsp
popq %rbp
retq
nopw (%rax,%rax)