// File: /workspace/github_c_makefile_star2_O0/blakemcbride[P]LISP9/ls9.c
// Function: prstr
void prstr(int sl, cell x) {
	int	i, c;

	if (sl) {
		writec('"');
		for (i=0; i<stringlen(x)-1; i++) {
			c = (byte) string(x)[i];
			if ('"' == c)
				prints("\\\"");
			else if ('\\' == c)
				prints("\\\\");
			else if (10 == c)
				prints("\\n");
			else if (c < ' ' || c > 126) {
				writec('\\');
				if (octalp(string(x)[i+1])) {
					if (c < 100) writec('0');
					if (c < 10) writec('0');
				}
				prints(ntoa(c, 8));
			}
			else
				writec(c);
		}
		writec('"');
	}
	else {
		printb(string(x));
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x10, %rsp
movl %edi, -0x4(%rbp)
movl %esi, -0x8(%rbp)
cmpl $0x0, -0x4(%rbp)
je 0x6f37
movl $0x22, %edi
callq 0x2de0
movl $0x0, -0xc(%rbp)
movl -0xc(%rbp), %eax
movq 0x196e5(%rip), %rcx     # 0x20358
movq 0x196ce(%rip), %rdx     # 0x20348
movslq -0x8(%rbp), %rsi
movl (%rdx,%rsi,4), %edx
subl $0x1, %edx
movslq %edx, %rdx
movl (%rcx,%rdx,4), %ecx
subl $0x1, %ecx
cmpl %ecx, %eax
jge 0x6f2b
movq 0x196bc(%rip), %rax     # 0x20358
movq 0x196a5(%rip), %rcx     # 0x20348
movslq -0x8(%rbp), %rdx
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movslq -0xc(%rbp), %rcx
movzbl (%rax,%rcx), %eax
movl %eax, -0x10(%rbp)
movl $0x22, %eax
cmpl -0x10(%rbp), %eax
jne 0x6cd8
leaq 0x149bc(%rip), %rdi     # 0x1b68a
callq 0x25a0
jmp 0x6f1b
movl $0x5c, %eax
cmpl -0x10(%rbp), %eax
jne 0x6cf3
leaq 0x149a4(%rip), %rdi     # 0x1b68d
callq 0x25a0
jmp 0x6f19
movl $0xa, %eax
cmpl -0x10(%rbp), %eax
jne 0x6d0e
leaq 0x1498c(%rip), %rdi     # 0x1b690
callq 0x25a0
jmp 0x6f17
cmpl $0x20, -0x10(%rbp)
jl 0x6d1e
cmpl $0x7e, -0x10(%rbp)
jle 0x6f0d
movl $0x5c, %edi
callq 0x2de0
movq 0x19629(%rip), %rax     # 0x20358
movq 0x19612(%rip), %rcx     # 0x20348
movslq -0x8(%rbp), %rdx
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movl -0xc(%rbp), %ecx
addl $0x1, %ecx
movslq %ecx, %rcx
movzbl (%rax,%rcx), %ecx
movl $0x30, %eax
cmpl %ecx, %eax
je 0x6ed4
movq 0x195f2(%rip), %rax     # 0x20358
movq 0x195db(%rip), %rcx     # 0x20348
movslq -0x8(%rbp), %rdx
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movl -0xc(%rbp), %ecx
addl $0x1, %ecx
movslq %ecx, %rcx
movzbl (%rax,%rcx), %ecx
movl $0x31, %eax
cmpl %ecx, %eax
je 0x6ed4
movq 0x195bb(%rip), %rax     # 0x20358
movq 0x195a4(%rip), %rcx     # 0x20348
movslq -0x8(%rbp), %rdx
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movl -0xc(%rbp), %ecx
addl $0x1, %ecx
movslq %ecx, %rcx
movzbl (%rax,%rcx), %ecx
movl $0x32, %eax
cmpl %ecx, %eax
je 0x6ed4
movq 0x19584(%rip), %rax     # 0x20358
movq 0x1956d(%rip), %rcx     # 0x20348
movslq -0x8(%rbp), %rdx
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movl -0xc(%rbp), %ecx
addl $0x1, %ecx
movslq %ecx, %rcx
movzbl (%rax,%rcx), %ecx
movl $0x33, %eax
cmpl %ecx, %eax
je 0x6ed4
movq 0x1954d(%rip), %rax     # 0x20358
movq 0x19536(%rip), %rcx     # 0x20348
movslq -0x8(%rbp), %rdx
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movl -0xc(%rbp), %ecx
addl $0x1, %ecx
movslq %ecx, %rcx
movzbl (%rax,%rcx), %ecx
movl $0x34, %eax
cmpl %ecx, %eax
je 0x6ed4
movq 0x19516(%rip), %rax     # 0x20358
movq 0x194ff(%rip), %rcx     # 0x20348
movslq -0x8(%rbp), %rdx
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movl -0xc(%rbp), %ecx
addl $0x1, %ecx
movslq %ecx, %rcx
movzbl (%rax,%rcx), %ecx
movl $0x35, %eax
cmpl %ecx, %eax
je 0x6ed4
movq 0x194e3(%rip), %rax     # 0x20358
movq 0x194cc(%rip), %rcx     # 0x20348
movslq -0x8(%rbp), %rdx
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movl -0xc(%rbp), %ecx
addl $0x1, %ecx
movslq %ecx, %rcx
movzbl (%rax,%rcx), %ecx
movl $0x36, %eax
cmpl %ecx, %eax
je 0x6ed4
movq 0x194b0(%rip), %rax     # 0x20358
movq 0x19499(%rip), %rcx     # 0x20348
movslq -0x8(%rbp), %rdx
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movl -0xc(%rbp), %ecx
addl $0x1, %ecx
movslq %ecx, %rcx
movzbl (%rax,%rcx), %ecx
movl $0x37, %eax
cmpl %ecx, %eax
jne 0x6ef6
cmpl $0x64, -0x10(%rbp)
jge 0x6ee4
movl $0x30, %edi
callq 0x2de0
cmpl $0xa, -0x10(%rbp)
jge 0x6ef4
movl $0x30, %edi
callq 0x2de0
jmp 0x6ef6
movl -0x10(%rbp), %edi
movl $0x8, %esi
callq 0x25f0
movq %rax, %rdi
callq 0x25a0
jmp 0x6f15
movl -0x10(%rbp), %edi
callq 0x2de0
jmp 0x6f17
jmp 0x6f19
jmp 0x6f1b
jmp 0x6f1d
movl -0xc(%rbp), %eax
addl $0x1, %eax
movl %eax, -0xc(%rbp)
jmp 0x6c69
movl $0x22, %edi
callq 0x2de0
jmp 0x6f59
movq 0x1941a(%rip), %rdi     # 0x20358
movq 0x19403(%rip), %rax     # 0x20348
movslq -0x8(%rbp), %rcx
movslq (%rax,%rcx,4), %rax
shlq $0x2, %rax
addq %rax, %rdi
callq 0x25a0
addq $0x10, %rsp
popq %rbp
retq
nop