// File: /workspace/github_c_makefile_star2_O0/blakemcbride[P]LISP9/ls9.c
// Function: entcol
void entcol(int fix) {
	int	n, na, i, s, d;
	cell	a, x, new;

	na = fixval(stackref(Sp-2));
	if (na < fix)
		error("too few arguments", UNDEF);
	protect(a = NIL);
	i = Sp-fix-3;
	for (n = na-fix; n; n--) {
		x = cons(boxref(stackref(i)), NIL);
		if (NIL == a) {
			a = x;
			car(Protected) = a;
		}
		else {
			cdr(a) = x;
			a = cdr(a);
		}
		i--;
	}
	a = unprot(1);
	if (na > fix) {
		new = box(a);
		stackset(Sp-fix-3, new);
	}
	else {
		push(NIL);
		s = Sp - na - 3;
		d = Sp - na - 2;
		for (i = na + 2; i >= 0; i--)
			stackset(d+i, stackref(s+i));
		new = mkfix(1+fix);
		stackset(Sp-2, new);
		new = box(NIL);
		stackset(Sp-fix-3, new);
	}
	push(mkfix(Fp));
	Fp = Sp-4;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x30, %rsp
movl %edi, -0x4(%rbp)
movq 0xd21e(%rip), %rax      # 0x20340
movq 0xd21f(%rip), %rcx      # 0x20348
movq 0xd228(%rip), %rdx      # 0x20358
movq 0xd211(%rip), %rsi      # 0x20348
movslq 0xd01e(%rip), %rdi      # 0x2015c
movslq (%rsi,%rdi,4), %rsi
shlq $0x2, %rsi
addq %rsi, %rdx
movl 0xd011(%rip), %esi      # 0x20160
subl $0x2, %esi
movslq %esi, %rsi
movslq (%rdx,%rsi,4), %rdx
movslq (%rcx,%rdx,4), %rcx
movl (%rax,%rcx,4), %eax
movl %eax, -0xc(%rbp)
movl -0xc(%rbp), %eax
cmpl -0x4(%rbp), %eax
jge 0x1317c
leaq 0x8729(%rip), %rdi      # 0x1b89b
movl $0xfffffffc, %esi       # imm = 0xFFFFFFFC
callq 0x26c0
movl $0xffffffff, -0x1c(%rbp) # imm = 0xFFFFFFFF
movl 0xcfe7(%rip), %esi      # 0x20170
movl $0xffffffff, %edi       # imm = 0xFFFFFFFF
xorl %edx, %edx
callq 0x3990
movl %eax, 0xcfd5(%rip)      # 0x20170
movl 0xcfbf(%rip), %eax      # 0x20160
subl -0x4(%rbp), %eax
subl $0x3, %eax
movl %eax, -0x10(%rbp)
movl -0xc(%rbp), %eax
subl -0x4(%rbp), %eax
movl %eax, -0x8(%rbp)
cmpl $0x0, -0x8(%rbp)
je 0x1325d
movq 0xd17c(%rip), %rax      # 0x20340
movq 0xd18d(%rip), %rcx      # 0x20358
movq 0xd176(%rip), %rdx      # 0x20348
movslq 0xcf83(%rip), %rsi      # 0x2015c
movslq (%rdx,%rsi,4), %rdx
shlq $0x2, %rdx
addq %rdx, %rcx
movslq -0x10(%rbp), %rdx
movslq (%rcx,%rdx,4), %rcx
movl (%rax,%rcx,4), %edi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
xorl %edx, %edx
callq 0x3990
movl %eax, -0x20(%rbp)
movl $0xffffffff, %eax       # imm = 0xFFFFFFFF
cmpl -0x1c(%rbp), %eax
jne 0x13224
movl -0x20(%rbp), %eax
movl %eax, -0x1c(%rbp)
movl -0x1c(%rbp), %edx
movq 0xd128(%rip), %rax      # 0x20340
movslq 0xcf51(%rip), %rcx      # 0x20170
movl %edx, (%rax,%rcx,4)
jmp 0x13246
movl -0x20(%rbp), %edx
movq 0xd11a(%rip), %rax      # 0x20348
movslq -0x1c(%rbp), %rcx
movl %edx, (%rax,%rcx,4)
movq 0xd10c(%rip), %rax      # 0x20348
movslq -0x1c(%rbp), %rcx
movl (%rax,%rcx,4), %eax
movl %eax, -0x1c(%rbp)
movl -0x10(%rbp), %eax
addl $-0x1, %eax
movl %eax, -0x10(%rbp)
movl -0x8(%rbp), %eax
addl $-0x1, %eax
movl %eax, -0x8(%rbp)
jmp 0x131b3
movl $0x1, %edi
callq 0x3d00
movl %eax, -0x1c(%rbp)
movl -0xc(%rbp), %eax
cmpl -0x4(%rbp), %eax
jle 0x132be
movl -0x1c(%rbp), %edi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
xorl %edx, %edx
callq 0x3990
movl %eax, -0x24(%rbp)
movl -0x24(%rbp), %edx
movq 0xd0ca(%rip), %rax      # 0x20358
movq 0xd0b3(%rip), %rcx      # 0x20348
movslq 0xcec0(%rip), %rsi      # 0x2015c
movslq (%rcx,%rsi,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movl 0xceb3(%rip), %ecx      # 0x20160
subl -0x4(%rbp), %ecx
subl $0x3, %ecx
movslq %ecx, %rcx
movl %edx, (%rax,%rcx,4)
jmp 0x133f9
movl $0xffffffff, %edi       # imm = 0xFFFFFFFF
callq 0x12750
movl 0xce92(%rip), %eax      # 0x20160
subl -0xc(%rbp), %eax
subl $0x3, %eax
movl %eax, -0x14(%rbp)
movl 0xce83(%rip), %eax      # 0x20160
subl -0xc(%rbp), %eax
subl $0x2, %eax
movl %eax, -0x18(%rbp)
movl -0xc(%rbp), %eax
addl $0x2, %eax
movl %eax, -0x10(%rbp)
cmpl $0x0, -0x10(%rbp)
jl 0x13358
movq 0xd05c(%rip), %rax      # 0x20358
movq 0xd045(%rip), %rcx      # 0x20348
movslq 0xce52(%rip), %rdx      # 0x2015c
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movl -0x14(%rbp), %ecx
addl -0x10(%rbp), %ecx
movslq %ecx, %rcx
movl (%rax,%rcx,4), %edx
movq 0xd030(%rip), %rax      # 0x20358
movq 0xd019(%rip), %rcx      # 0x20348
movslq 0xce26(%rip), %rsi      # 0x2015c
movslq (%rcx,%rsi,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movl -0x18(%rbp), %ecx
addl -0x10(%rbp), %ecx
movslq %ecx, %rcx
movl %edx, (%rax,%rcx,4)
movl -0x10(%rbp), %eax
addl $-0x1, %eax
movl %eax, -0x10(%rbp)
jmp 0x132ef
movl -0x4(%rbp), %edi
addl $0x1, %edi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
movl $0x1, %edx
callq 0x3990
movl %eax, %esi
movl $0xfffffff2, %edi       # imm = 0xFFFFFFF2
movl $0x1, %edx
callq 0x3990
movl %eax, -0x24(%rbp)
movl -0x24(%rbp), %edx
movq 0xcfcd(%rip), %rax      # 0x20358
movq 0xcfb6(%rip), %rcx      # 0x20348
movslq 0xcdc3(%rip), %rsi      # 0x2015c
movslq (%rcx,%rsi,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movl 0xcdb6(%rip), %ecx      # 0x20160
subl $0x2, %ecx
movslq %ecx, %rcx
movl %edx, (%rax,%rcx,4)
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
xorl %edx, %edx
movl %esi, %edi
callq 0x3990
movl %eax, -0x24(%rbp)
movl -0x24(%rbp), %edx
movq 0xcf8a(%rip), %rax      # 0x20358
movq 0xcf73(%rip), %rcx      # 0x20348
movslq 0xcd80(%rip), %rsi      # 0x2015c
movslq (%rcx,%rsi,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movl 0xcd73(%rip), %ecx      # 0x20160
subl -0x4(%rbp), %ecx
subl $0x3, %ecx
movslq %ecx, %rcx
movl %edx, (%rax,%rcx,4)
movl 0xcdc9(%rip), %edi      # 0x201c8
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
movl $0x1, %edx
callq 0x3990
movl %eax, %esi
movl $0xfffffff2, %edi       # imm = 0xFFFFFFF2
movl $0x1, %edx
callq 0x3990
movl %eax, %edi
callq 0x12750
movl 0xcd34(%rip), %eax      # 0x20160
subl $0x4, %eax
movl %eax, 0xcd93(%rip)      # 0x201c8
addq $0x30, %rsp
popq %rbp
retq
nopl (%rax,%rax)