// File: /workspace/github_c_makefile_star2_O0/blakemcbride[P]LISP9/ls9.c
// Function: applis
int applis(int tail) {
	cell	a, p, new;
	int	k, i;

	a = boxref(stackref(Sp));
	if (!pairp(a) && a != NIL) error("apply: expected list", a);
	k = conses(a);
	stkalloc(k);
	Sp += k;
	i = Sp-1;
	for (p = a; p != NIL; p = cdr(p)) {
		if (atomp(p)) error("apply: dotted list", a);
		new = box(car(p));
		stackset(i, new);
		i--;
	}
	new = mkfix(k);
	stackset(Sp, new);
	return apply(tail);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x20, %rsp
movl %edi, -0x4(%rbp)
movq 0xd4fe(%rip), %rax      # 0x20340
movq 0xd50f(%rip), %rcx      # 0x20358
movq 0xd4f8(%rip), %rdx      # 0x20348
movslq 0xd305(%rip), %rsi      # 0x2015c
movslq (%rdx,%rsi,4), %rdx
shlq $0x2, %rdx
addq %rdx, %rcx
movslq 0xd2f7(%rip), %rdx      # 0x20160
movslq (%rcx,%rdx,4), %rcx
movl (%rax,%rcx,4), %eax
movl %eax, -0x8(%rbp)
cmpl $0x0, -0x8(%rbp)
jl 0x12ea7
movq 0xd4d0(%rip), %rax      # 0x20350
movslq -0x8(%rbp), %rcx
movzbl (%rax,%rcx), %eax
andl $0x1, %eax
cmpl $0x0, %eax
jne 0x12ea7
movq 0xd4b9(%rip), %rax      # 0x20350
movslq -0x8(%rbp), %rcx
movzbl (%rax,%rcx), %eax
andl $0x8, %eax
cmpl $0x0, %eax
je 0x12ebc
cmpl $-0x1, -0x8(%rbp)
je 0x12ebc
movl -0x8(%rbp), %esi
leaq 0x8e6b(%rip), %rdi      # 0x1bd22
callq 0x26c0
movl -0x8(%rbp), %edi
callq 0x12db0
movl %eax, -0x14(%rbp)
movl -0x14(%rbp), %edi
callq 0x12650
movl -0x14(%rbp), %eax
addl 0xd288(%rip), %eax      # 0x20160
movl %eax, 0xd282(%rip)      # 0x20160
movl 0xd27c(%rip), %eax      # 0x20160
subl $0x1, %eax
movl %eax, -0x18(%rbp)
movl -0x8(%rbp), %eax
movl %eax, -0xc(%rbp)
cmpl $-0x1, -0xc(%rbp)
je 0x12fa3
cmpl $0x0, -0xc(%rbp)
jl 0x12f2e
movq 0xd449(%rip), %rax      # 0x20350
movslq -0xc(%rbp), %rcx
movzbl (%rax,%rcx), %eax
andl $0x1, %eax
cmpl $0x0, %eax
jne 0x12f2e
movq 0xd432(%rip), %rax      # 0x20350
movslq -0xc(%rbp), %rcx
movzbl (%rax,%rcx), %eax
andl $0x8, %eax
cmpl $0x0, %eax
je 0x12f3d
movl -0x8(%rbp), %esi
leaq 0x8dff(%rip), %rdi      # 0x1bd37
callq 0x26c0
movq 0xd3fc(%rip), %rax      # 0x20340
movslq -0xc(%rbp), %rcx
movl (%rax,%rcx,4), %edi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
xorl %edx, %edx
callq 0x3990
movl %eax, -0x10(%rbp)
movl -0x10(%rbp), %edx
movq 0xd3f4(%rip), %rax      # 0x20358
movq 0xd3dd(%rip), %rcx      # 0x20348
movslq 0xd1ea(%rip), %rsi      # 0x2015c
movslq (%rcx,%rsi,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movslq -0x18(%rbp), %rcx
movl %edx, (%rax,%rcx,4)
movl -0x18(%rbp), %eax
addl $-0x1, %eax
movl %eax, -0x18(%rbp)
movq 0xd3b4(%rip), %rax      # 0x20348
movslq -0xc(%rbp), %rcx
movl (%rax,%rcx,4), %eax
movl %eax, -0xc(%rbp)
jmp 0x12ef0
movl -0x14(%rbp), %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, -0x10(%rbp)
movl -0x10(%rbp), %edx
movq 0xd385(%rip), %rax      # 0x20358
movq 0xd36e(%rip), %rcx      # 0x20348
movslq 0xd17b(%rip), %rsi      # 0x2015c
movslq (%rcx,%rsi,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movslq 0xd16d(%rip), %rcx      # 0x20160
movl %edx, (%rax,%rcx,4)
movl -0x4(%rbp), %edi
callq 0x128c0
addq $0x20, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)