// File: /workspace/github_c_makefile_star2_O3/blakemcbride[P]LISP9/ls9.c
// Function: repl
void repl(void) {
	cell	x;

	if (setjmp(Restart) && Quiet)
		exit(EXIT_FAILURE);
	if (!Quiet) signal(SIGINT, kbdintr);
	for (;;) {
		reset_stdports();
		clrtrace();
		initrts();
		bindset(S_errtag, NIL);
		Protected = NIL;
		Run = 0;
		Intr = 0;
		if (!Quiet) {
			prints("* ");
			flush();
		}
		x = xread();
		if (EOFMARK == x && !Intr) break;
		Mxlev = 0;
		x = eval(x, 0);
		bindset(S_starstar, x);
		print(x);
	}
	if (!Quiet) nl();
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
leaq 0x88e1(%rip), %rdi      # 0x19480
callq 0x20f0
testl %eax, %eax
setne %cl
movl 0x8db1(%rip), %eax      # 0x19960
testl %eax, %eax
setne %dl
andb %cl, %dl
cmpb $0x1, %dl
je 0x10d91
testl %eax, %eax
jne 0x10bd4
leaq -0xc7(%rip), %rsi       # 0x10b03
movl $0x2, %edi
callq 0x2110
movl $0xffffffff, %ebp       # imm = 0xFFFFFFFF
xorl %r12d, %r12d
movl $0x1, %r13d
leaq 0x361f(%rip), %rbx      # 0x14208
callq 0x3ffd
pcmpeqd %xmm0, %xmm0
movdqa %xmm0, 0x8786(%rip)     # 0x19380
movdqa %xmm0, 0x876e(%rip)     # 0x19370
movq $-0x1, 0x8783(%rip) # 0x19390
movl %ebp, 0x8549(%rip)      # 0x1915c
movl $0xffffffed, %edi       # imm = 0xFFFFFFED
movl $0x1000, %esi           # imm = 0x1000
callq 0x32cf
movq 0x871f(%rip), %r14      # 0x19348
movslq %eax, %r15
movslq (%r14,%r15,4), %rax
shlq $0x2, %rax
movq %rax, %rdi
addq 0x871a(%rip), %rdi      # 0x19358
movl $0xff, %esi
movl $0x1000, %edx           # imm = 0x1000
callq 0x20b0
movl %r15d, 0x8508(%rip)     # 0x1915c
movl $0x400, 0x8566(%rip)    # imm = 0x400
movl %ebp, 0x84fc(%rip)      # 0x19160
movl %ebp, 0x855e(%rip)      # 0x191c8
movl 0x84d4(%rip), %edx      # 0x19144
cmpl %ebp, %edx
je 0x10caa
movl 0x8722(%rip), %ecx      # 0x1939c
movq 0x86bf(%rip), %rax      # 0x19340
movslq %edx, %rsi
movslq (%rax,%rsi,4), %rdx
cmpl %ecx, (%rax,%rdx,4)
je 0x10c9a
movl (%r14,%rsi,4), %esi
movl %esi, %edx
cmpl $-0x1, %esi
jne 0x10c81
jmp 0x10caa
cmpl $-0x1, %edx
je 0x10caa
movslq (%r14,%rdx,4), %rcx
movl $0xffffffff, (%rax,%rcx,4) # imm = 0xFFFFFFFF
movl $0xffffffff, 0x84bc(%rip) # imm = 0xFFFFFFFF
movl %r12d, 0x8ca1(%rip)     # 0x1995c
movl %r12d, 0x896e(%rip)     # 0x19630
cmpl %r12d, 0x8c97(%rip)     # 0x19960
jne 0x10ce1
leaq 0x31d9(%rip), %rdi      # 0x13eab
movl $0x2, %esi
callq 0x29c1
callq 0x2937
callq 0x5116
cmpl $-0x3, %eax
jne 0x10cf4
cmpl $0x0, 0x893e(%rip)      # 0x19630
je 0x10d68
movl %eax, %edi
movl $0x0, 0x8c48(%rip)      # 0x19948
movl %r12d, %esi
callq 0x9aff
movl %eax, %esi
movl 0x8434(%rip), %edi      # 0x19144
cmpl $-0x1, %edi
je 0x10d50
movl 0x8c49(%rip), %edx      # 0x19964
movq 0x861e(%rip), %rax      # 0x19340
movq 0x861f(%rip), %rcx      # 0x19348
movslq %edi, %r8
movslq (%rax,%r8,4), %rdi
cmpl %edx, (%rax,%rdi,4)
je 0x10d44
movl (%rcx,%r8,4), %r8d
movl %r8d, %edi
cmpl $-0x1, %r8d
jne 0x10d29
jmp 0x10d50
cmpl $-0x1, %edi
je 0x10d50
movslq (%rcx,%rdi,4), %rcx
movl %esi, (%rax,%rcx,4)
movl %r13d, %edi
callq 0x5be9
movq %rbx, %rdi
movl %r13d, %esi
callq 0x29c1
jmp 0x10be9
cmpl $0x0, 0x8bf1(%rip)      # 0x19960
jne 0x10d82
leaq 0x3490(%rip), %rdi      # 0x14208
movl $0x1, %esi
callq 0x29c1
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movl $0x1, %edi
callq 0x21f0