// File: /workspace/github_c_makefile_star2_O1/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
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq 0xb5c9(%rip), %rax      # 0x19340
movq 0xb5ca(%rip), %rcx      # 0x19348
movslq 0xb3d7(%rip), %rdx      # 0x1915c
movslq (%rcx,%rdx,4), %rdx
shlq $0x2, %rdx
addq 0xb5c4(%rip), %rdx      # 0x19358
movslq 0xb3c5(%rip), %rsi      # 0x19160
movslq -0x8(%rdx,%rsi,4), %rdx
movslq (%rcx,%rdx,4), %rcx
movslq (%rax,%rcx,4), %r14
cmpl %edi, %r14d
jl 0xe02a
movl %edi, %ebx
movl 0xb3b7(%rip), %esi      # 0x19170
movl $0xffffffff, %ebp       # imm = 0xFFFFFFFF
movl $0xffffffff, %edi       # imm = 0xFFFFFFFF
xorl %edx, %edx
callq 0x3162
movl %eax, 0xb3a0(%rip)      # 0x19170
movq %rbx, (%rsp)
cmpl %ebx, %r14d
je 0xde5e
movl 0xb37d(%rip), %eax      # 0x19160
movq (%rsp), %rcx
subl %ecx, %eax
addl $-0x3, %eax
movslq %eax, %r15
movl %ecx, %r12d
subl %r14d, %r12d
leaq 0xb544(%rip), %r13      # 0x19340
leaq 0xb545(%rip), %rbx      # 0x19348
movq 0xb536(%rip), %rax      # 0x19340
movq 0xb537(%rip), %rcx      # 0x19348
movslq 0xb344(%rip), %rdx      # 0x1915c
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq 0xb531(%rip), %rcx      # 0x19358
movslq (%rcx,%r15,4), %rcx
movl (%rax,%rcx,4), %edi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
xorl %edx, %edx
callq 0x3162
movq %rbx, %rcx
cmpl $-0x1, %ebp
jne 0xde4b
movl 0xb328(%rip), %ebp      # 0x19170
movq %r13, %rcx
movq (%rcx), %rcx
movslq %ebp, %rdx
movl %eax, (%rcx,%rdx,4)
decq %r15
movl %eax, %ebp
incl %r12d
jne 0xde03
movl $0x1, %edi
callq 0x33d7
movq (%rsp), %rbx
cmpl %ebx, %r14d
jle 0xde78
movl %eax, %ebp
jmp 0xdf5c
movl $0xffffffff, %ebp       # imm = 0xFFFFFFFF
movl %ebp, 0xb2f1(%rip)      # 0x19174
movl $0x1, %edi
callq 0xd64a
movl %ebp, 0xb2e1(%rip)      # 0x19174
movslq 0xb2c6(%rip), %rcx      # 0x19160
leaq 0x1(%rcx), %rax
movl %eax, 0xb2bc(%rip)      # 0x19160
movq 0xb4ad(%rip), %rdx      # 0x19358
movq 0xb496(%rip), %rax      # 0x19348
movslq 0xb2a3(%rip), %rsi      # 0x1915c
movslq (%rax,%rsi,4), %rsi
leaq (%rdx,%rsi,4), %rsi
movl %ebp, 0x4(%rsi,%rcx,4)
cmpl $-0x2, %r14d
jl 0xdf11
leal 0x2(%r14), %ecx
movslq 0xb28a(%rip), %rsi      # 0x19160
movslq %ecx, %rcx
leaq (,%rcx,4), %rdi
leaq (%rdi,%rsi,4), %rsi
shlq $0x2, %r14
subq %r14, %rsi
addq %rsi, %rdx
addq $-0xc, %rdx
incq %rcx
movslq 0xb25f(%rip), %rsi      # 0x1915c
movslq (%rax,%rsi,4), %rsi
movl (%rdx,%rsi,4), %edi
movl %edi, 0x4(%rdx,%rsi,4)
addq $-0x4, %rdx
decq %rcx
jg 0xdef6
leal 0x1(%rbx), %edi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
movl $0x1, %edx
callq 0x3162
movl $0xfffffff2, %edi       # imm = 0xFFFFFFF2
movl %eax, %esi
movl $0x1, %edx
callq 0x3162
movq 0xb40d(%rip), %rcx      # 0x19348
movslq 0xb21a(%rip), %rdx      # 0x1915c
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq 0xb407(%rip), %rcx      # 0x19358
movslq 0xb208(%rip), %rdx      # 0x19160
movl %eax, -0x8(%rcx,%rdx,4)
movl %ebp, %edi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
xorl %edx, %edx
callq 0x3162
movq 0xb3d7(%rip), %rcx      # 0x19348
movslq 0xb1e4(%rip), %rdx      # 0x1915c
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq 0xb3d1(%rip), %rcx      # 0x19358
movslq 0xb1d2(%rip), %rdx      # 0x19160
movslq %ebx, %rsi
subq %rsi, %rdx
movl %eax, -0xc(%rcx,%rdx,4)
movl 0xb22a(%rip), %edi      # 0x191c8
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
movl $0x1, %edx
callq 0x3162
movl $0xfffffff2, %edi       # imm = 0xFFFFFFF2
movl %eax, %esi
movl $0x1, %edx
callq 0x3162
movl %eax, %ebx
movl %eax, 0xb1ae(%rip)      # 0x19174
movl $0x1, %edi
callq 0xd64a
movl $0xffffffff, 0xb19a(%rip) # imm = 0xFFFFFFFF
movslq 0xb17f(%rip), %rax      # 0x19160
leaq 0x1(%rax), %rcx
movl %ecx, 0xb175(%rip)      # 0x19160
movq 0xb356(%rip), %rcx      # 0x19348
movslq 0xb163(%rip), %rdx      # 0x1915c
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq 0xb350(%rip), %rcx      # 0x19358
movl %ebx, 0x4(%rcx,%rax,4)
movl 0xb14e(%rip), %eax      # 0x19160
addl $-0x4, %eax
movl %eax, 0xb1ad(%rip)      # 0x191c8
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0x57ca(%rip), %rdi      # 0x137fb
movl $0xfffffffc, %esi       # imm = 0xFFFFFFFC
callq 0x264c