// File: /workspace/github_c_makefile_star2_O0/blakemcbride[P]LISP9/ls9.c
// Function: subvec
cell subvec(cell v, cell n0, cell n1) {
	int	k, k0, k1, i, j;
	cell	n;
	cell	*v0, *v1;

	if (!vectorp(v)) expect("subvec", "vector", v);
	if (!fixp(n0)) expect("subvec", "fixnum", n0);
	if (!fixp(n1)) expect("subvec", "fixnum", n1);
	k0 = fixval(n0);
	k1 = fixval(n1);
	if (k0 < 0 || k1 < 0 || k0 > k1 || k1 > veclen(v))
		error("subvec: invalid range", cons(n0, cons(n1, NIL)));
	k = k1-k0;
	n = mkvec(k);
	j = 0;
	v0 = vector(v);
	v1 = vector(n);
	for (i=k0; i<k1; i++) {
		v1[j] = v0[i];
		j++;
	}
	return n;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x40, %rsp
movl %edi, -0x4(%rbp)
movl %esi, -0x8(%rbp)
movl %edx, -0xc(%rbp)
cmpl $0x0, -0x4(%rbp)
jl 0x10613
movq 0xfd62(%rip), %rax      # 0x20350
movslq -0x4(%rbp), %rcx
movzbl (%rax,%rcx), %eax
andl $0x8, %eax
cmpl $0x0, %eax
je 0x10613
movq 0xfd3b(%rip), %rcx      # 0x20340
movslq -0x4(%rbp), %rdx
movl $0xffffffed, %eax       # imm = 0xFFFFFFED
cmpl (%rcx,%rdx,4), %eax
je 0x10629
movl -0x4(%rbp), %edx
leaq 0xb491(%rip), %rdi      # 0x1baae
leaq 0xb420(%rip), %rsi      # 0x1ba44
callq 0x2950
cmpl $0x0, -0x8(%rbp)
jl 0x1065b
movq 0xfd1a(%rip), %rax      # 0x20350
movslq -0x8(%rbp), %rcx
movzbl (%rax,%rcx), %eax
andl $0x1, %eax
cmpl $0x0, %eax
je 0x1065b
movq 0xfcf3(%rip), %rcx      # 0x20340
movslq -0x8(%rbp), %rdx
movl $0xfffffff2, %eax       # imm = 0xFFFFFFF2
cmpl (%rcx,%rdx,4), %eax
je 0x10671
movl -0x8(%rbp), %edx
leaq 0xb449(%rip), %rdi      # 0x1baae
leaq 0xb2b3(%rip), %rsi      # 0x1b91f
callq 0x2950
cmpl $0x0, -0xc(%rbp)
jl 0x106a3
movq 0xfcd2(%rip), %rax      # 0x20350
movslq -0xc(%rbp), %rcx
movzbl (%rax,%rcx), %eax
andl $0x1, %eax
cmpl $0x0, %eax
je 0x106a3
movq 0xfcab(%rip), %rcx      # 0x20340
movslq -0xc(%rbp), %rdx
movl $0xfffffff2, %eax       # imm = 0xFFFFFFF2
cmpl (%rcx,%rdx,4), %eax
je 0x106b9
movl -0xc(%rbp), %edx
leaq 0xb401(%rip), %rdi      # 0x1baae
leaq 0xb26b(%rip), %rsi      # 0x1b91f
callq 0x2950
movq 0xfc80(%rip), %rax      # 0x20340
movq 0xfc81(%rip), %rcx      # 0x20348
movslq -0x8(%rbp), %rdx
movslq (%rcx,%rdx,4), %rcx
movl (%rax,%rcx,4), %eax
movl %eax, -0x14(%rbp)
movq 0xfc64(%rip), %rax      # 0x20340
movq 0xfc65(%rip), %rcx      # 0x20348
movslq -0xc(%rbp), %rdx
movslq (%rcx,%rdx,4), %rcx
movl (%rax,%rcx,4), %eax
movl %eax, -0x18(%rbp)
cmpl $0x0, -0x14(%rbp)
jl 0x10741
cmpl $0x0, -0x18(%rbp)
jl 0x10741
movl -0x14(%rbp), %eax
cmpl -0x18(%rbp), %eax
jg 0x10741
movslq -0x18(%rbp), %rax
movq 0xfc48(%rip), %rcx      # 0x20358
movq 0xfc31(%rip), %rdx      # 0x20348
movslq -0x4(%rbp), %rsi
movl (%rdx,%rsi,4), %edx
subl $0x1, %edx
movslq %edx, %rdx
movslq (%rcx,%rdx,4), %rcx
addq $0x4, %rcx
subq $0x1, %rcx
shrq $0x2, %rcx
addq $0x2, %rcx
subq $0x2, %rcx
cmpq %rcx, %rax
jbe 0x10770
movl -0x8(%rbp), %eax
movl %eax, -0x3c(%rbp)
movl -0xc(%rbp), %edi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
xorl %edx, %edx
callq 0x3990
movl -0x3c(%rbp), %edi
movl %eax, %esi
xorl %edx, %edx
callq 0x3990
movl %eax, %esi
leaq 0xb34a(%rip), %rdi      # 0x1bab5
callq 0x26c0
movl -0x18(%rbp), %eax
subl -0x14(%rbp), %eax
movl %eax, -0x10(%rbp)
movl -0x10(%rbp), %edi
callq 0x3d80
movl %eax, -0x24(%rbp)
movl $0x0, -0x20(%rbp)
movq 0xfbc6(%rip), %rax      # 0x20358
movq 0xfbaf(%rip), %rcx      # 0x20348
movslq -0x4(%rbp), %rdx
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movq %rax, -0x30(%rbp)
movq 0xfba5(%rip), %rax      # 0x20358
movq 0xfb8e(%rip), %rcx      # 0x20348
movslq -0x24(%rbp), %rdx
movslq (%rcx,%rdx,4), %rcx
shlq $0x2, %rcx
addq %rcx, %rax
movq %rax, -0x38(%rbp)
movl -0x14(%rbp), %eax
movl %eax, -0x1c(%rbp)
movl -0x1c(%rbp), %eax
cmpl -0x18(%rbp), %eax
jge 0x10805
movq -0x30(%rbp), %rax
movslq -0x1c(%rbp), %rcx
movl (%rax,%rcx,4), %edx
movq -0x38(%rbp), %rax
movslq -0x20(%rbp), %rcx
movl %edx, (%rax,%rcx,4)
movl -0x20(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x20(%rbp)
movl -0x1c(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x1c(%rbp)
jmp 0x107d3
movl -0x24(%rbp), %eax
addq $0x40, %rsp
popq %rbp
retq
nop