LLM4Binary/decompile-bench-makefile huggingface dataset:
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: g_set_port_line_number
static s7_pointer g_set_port_line_number(s7_scheme *sc, s7_pointer args)
    {
        s7_pointer p, line;

        if ((is_null(car(args))) ||
                ((is_null(cdr(args))) && (is_t_integer(car(args)))))
            p = sc->input_port;
        else
        {
            p = car(args);
            if (!(is_input_port(p)))
                return(s7_wrong_type_arg_error(sc, "set! port-line-number", 1, p, "an input port"));
        }

        line = (is_null(cdr(args)) ? car(args) : cadr(args));
        if (!is_t_integer(line))
            return(s7_wrong_type_arg_error(sc, "set! port-line-number", 2, line, "an integer"));
        port_line_number(p) = integer(line);
        return(line);
    }

// Assembly:
subq $0x38, %rsp
movq %rdi, 0x28(%rsp)
movq %rsi, 0x20(%rsp)
movq 0x20(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x28(%rsp), %rcx
cmpq 0x110(%rcx), %rax
je 0xa474d
movq 0x20(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x28(%rsp), %rcx
cmpq 0x110(%rcx), %rax
jne 0xa4760
movq 0x20(%rsp), %rax
movq 0x8(%rax), %rax
movzbl (%rax), %eax
cmpl $0xb, %eax
jne 0xa4760
movq 0x28(%rsp), %rax
movq 0x170(%rax), %rax
movq %rax, 0x18(%rsp)
jmp 0xa47a9
movq 0x20(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x23, %eax
je 0xa47a7
movq 0x28(%rsp), %rdi
movq 0x18(%rsp), %rcx
leaq 0x14f7fe(%rip), %rsi    # 0x1f3f8a
movl $0x1, %edx
leaq 0x13ea1c(%rip), %r8     # 0x1e31b4
callq 0x12540
movq %rax, 0x30(%rsp)
jmp 0xa4843
jmp 0xa47a9
movq 0x20(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x28(%rsp), %rcx
cmpq 0x110(%rcx), %rax
jne 0xa47d0
movq 0x20(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x8(%rsp)
jmp 0xa47e2
movq 0x20(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rax
movzbl (%rax), %eax
cmpl $0xb, %eax
je 0xa4822
movq 0x28(%rsp), %rdi
movq 0x10(%rsp), %rcx
leaq 0x14f780(%rip), %rsi    # 0x1f3f8a
movl $0x2, %edx
leaq 0x14a41c(%rip), %r8     # 0x1eec32
callq 0x12540
movq %rax, 0x30(%rsp)
jmp 0xa4843
movq 0x10(%rsp), %rax
movq 0x8(%rax), %rax
movl %eax, %ecx
movq 0x18(%rsp), %rax
movq 0x8(%rax), %rax
movl %ecx, 0x20(%rax)
movq 0x10(%rsp), %rax
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
addq $0x38, %rsp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: g_set_port_position
static s7_pointer g_set_port_position(s7_scheme *sc, s7_pointer args)
    {
        s7_pointer port, pos;
        s7_int position;

        port = car(args);
        if (!(is_input_port(port)))
            return(s7_wrong_type_arg_error(sc, "set! port-position", 1, port, "an input port"));
        if (port_is_closed(port))
            return(s7_wrong_type_arg_error(sc, "set! port-position", 1, port, "an open input port"));

        pos = cadr(args);
        if (!is_t_integer(pos))
            return(s7_wrong_type_arg_error(sc, "set! port-position", 2, pos, "an integer"));
        position = s7_integer(pos);
        if (position < 0)
            return(out_of_range(sc, sc->port_position_symbol, small_int(2), pos, its_negative_string));

        if (is_string_port(port))
            port_position(port) = position;
#if (!MS_WINDOWS)
        else
        {
            if (is_file_port(port))
            {
                rewind(port_file(port));
                fseek(port_file(port), (long)position, SEEK_SET);
            }
        }
#endif
        return(pos);
    }

// Assembly:
subq $0x38, %rsp
movq %rdi, 0x28(%rsp)
movq %rsi, 0x20(%rsp)
movq 0x20(%rsp), %rax
movq 0x8(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x18(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x23, %eax
je 0xa48a5
movq 0x28(%rsp), %rdi
movq 0x18(%rsp), %rcx
leaq 0x14f716(%rip), %rsi    # 0x1f3fa0
movl $0x1, %edx
leaq 0x13e91e(%rip), %r8     # 0x1e31b4
callq 0x12540
movq %rax, 0x30(%rsp)
jmp 0xa49db
movq 0x18(%rsp), %rax
movq 0x8(%rax), %rax
testb $0x1, 0x2(%rax)
je 0xa48e0
movq 0x28(%rsp), %rdi
movq 0x18(%rsp), %rcx
leaq 0x14f6db(%rip), %rsi    # 0x1f3fa0
movl $0x1, %edx
leaq 0x14ecee(%rip), %r8     # 0x1f35bf
callq 0x12540
movq %rax, 0x30(%rsp)
jmp 0xa49db
movq 0x20(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x10(%rsp), %rax
movzbl (%rax), %eax
cmpl $0xb, %eax
je 0xa492b
movq 0x28(%rsp), %rdi
movq 0x10(%rsp), %rcx
leaq 0x14f690(%rip), %rsi    # 0x1f3fa0
movl $0x2, %edx
leaq 0x14a316(%rip), %r8     # 0x1eec32
callq 0x12540
movq %rax, 0x30(%rsp)
jmp 0xa49db
movq 0x10(%rsp), %rdi
callq 0x10790
movq %rax, 0x8(%rsp)
cmpq $0x0, 0x8(%rsp)
jge 0xa4976
movq 0x28(%rsp), %rdi
movq 0x28(%rsp), %rax
movq 0x1400(%rax), %rax
movq 0x8(%rax), %rsi
movq 0x171b32(%rip), %rdx    # 0x216490
movq 0x10(%rsp), %rcx
movq 0x175c0e(%rip), %r8     # 0x21a578
callq 0x13880
movq %rax, 0x30(%rsp)
jmp 0xa49db
movq 0x18(%rsp), %rax
movq 0x8(%rax), %rax
cmpl $0x1, 0x4(%rax)
jne 0xa4995
movq 0x8(%rsp), %rcx
movq 0x18(%rsp), %rax
movq %rcx, 0x20(%rax)
jmp 0xa49d1
movq 0x18(%rsp), %rax
movq 0x8(%rax), %rax
cmpl $0x0, 0x4(%rax)
jne 0xa49cf
movq 0x18(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rdi
callq 0x91e0
movq 0x18(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rdi
movq 0x8(%rsp), %rsi
xorl %edx, %edx
callq 0x9500
jmp 0xa49d1
movq 0x10(%rsp), %rax
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
addq $0x38, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: float_vector_ref_d_7pii
static s7_double float_vector_ref_d_7pii(s7_scheme *sc, s7_pointer v, s7_int i1, s7_int i2)
                {
                    if ((i1 >= 0) && (i1 < vector_dimension(v, 0)))
                    {
                        if ((i2 >= 0) && (i2 < vector_dimension(v, 1)))
                            return(float_vector(v, i2 + (i1 * vector_offset(v, 0))));
                        out_of_range(sc, sc->float_vector_ref_symbol, small_int(3), wrap_integer1(sc, i2), (i2 < 0) ? its_negative_string : its_too_large_string);
                    }
                    out_of_range(sc, sc->float_vector_ref_symbol, small_int(2), wrap_integer1(sc, i1), (i1 < 0) ? its_negative_string : its_too_large_string);
                    return(0);
                }

// Assembly:
subq $0x78, %rsp
movq %rdi, 0x68(%rsp)
movq %rsi, 0x60(%rsp)
movq %rdx, 0x58(%rsp)
movq %rcx, 0x50(%rsp)
cmpq $0x0, 0x58(%rsp)
jl 0xa738f
movq 0x58(%rsp), %rax
movq 0x60(%rsp), %rcx
movq 0x18(%rcx), %rcx
movq 0x20(%rcx), %rcx
movq (%rcx), %rcx
cmpq (%rcx), %rax
jge 0xa738f
cmpq $0x0, 0x50(%rsp)
jl 0xa7310
movq 0x50(%rsp), %rax
movq 0x60(%rsp), %rcx
movq 0x18(%rcx), %rcx
movq 0x20(%rcx), %rcx
movq (%rcx), %rcx
cmpq 0x8(%rcx), %rax
jge 0xa7310
movq 0x60(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x50(%rsp), %rcx
movq 0x58(%rsp), %rdx
movq 0x60(%rsp), %rsi
movq 0x18(%rsi), %rsi
movq 0x20(%rsi), %rsi
movq 0x18(%rsi), %rsi
imulq (%rsi), %rdx
addq %rdx, %rcx
movsd (%rax,%rcx,8), %xmm0
movsd %xmm0, 0x70(%rsp)
jmp 0xa7414
movq 0x68(%rsp), %rax
movq %rax, 0x30(%rsp)
movq 0x68(%rsp), %rax
movq 0xef0(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x38(%rsp)
movq 0x16f162(%rip), %rax    # 0x216498
movq %rax, 0x40(%rsp)
movq 0x68(%rsp), %rdi
movq 0x50(%rsp), %rsi
callq 0x12430
movq %rax, 0x48(%rsp)
cmpq $0x0, 0x50(%rsp)
jge 0xa7365
movq 0x17321a(%rip), %rax    # 0x21a578
movq %rax, 0x28(%rsp)
jmp 0xa7371
movq 0x173204(%rip), %rax    # 0x21a570
movq %rax, 0x28(%rsp)
movq 0x48(%rsp), %rcx
movq 0x40(%rsp), %rdx
movq 0x38(%rsp), %rsi
movq 0x30(%rsp), %rdi
movq 0x28(%rsp), %r8
callq 0x13880
movq 0x68(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x68(%rsp), %rax
movq 0xef0(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x16f0db(%rip), %rax    # 0x216490
movq %rax, 0x18(%rsp)
movq 0x68(%rsp), %rdi
movq 0x58(%rsp), %rsi
callq 0x12430
movq %rax, 0x20(%rsp)
cmpq $0x0, 0x58(%rsp)
jge 0xa73e3
movq 0x17319b(%rip), %rax    # 0x21a578
movq %rax, (%rsp)
jmp 0xa73ee
movq 0x173186(%rip), %rax    # 0x21a570
movq %rax, (%rsp)
movq 0x20(%rsp), %rcx
movq 0x18(%rsp), %rdx
movq 0x10(%rsp), %rsi
movq 0x8(%rsp), %rdi
movq (%rsp), %r8
callq 0x13880
xorps %xmm0, %xmm0
movsd %xmm0, 0x70(%rsp)
movsd 0x70(%rsp), %xmm0
addq $0x78, %rsp
retq
nop
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: float_vector_set_d_7piid
static s7_double float_vector_set_d_7piid(s7_scheme *sc, s7_pointer v, s7_int i1, s7_int i2, s7_double x)
                {
                    if ((i1 >= 0) && (i1 < vector_dimension(v, 0)))
                    {
                        if ((i2 >= 0) && (i2 < vector_dimension(v, 1)))
                        {
                            float_vector(v, i2 + (i1 * vector_offset(v, 0))) = x;
                            return(x);
                        }
                        out_of_range(sc, sc->float_vector_set_symbol, small_int(3), wrap_integer1(sc, i2), (i2 < 0) ? its_negative_string : its_too_large_string);
                    }
                    out_of_range(sc, sc->float_vector_set_symbol, small_int(2), wrap_integer1(sc, i1), (i1 < 0) ? its_negative_string : its_too_large_string);
                    return(x);
                }

// Assembly:
subq $0x88, %rsp
movq %rdi, 0x78(%rsp)
movq %rsi, 0x70(%rsp)
movq %rdx, 0x68(%rsp)
movq %rcx, 0x60(%rsp)
movsd %xmm0, 0x58(%rsp)
cmpq $0x0, 0x68(%rsp)
jl 0xa75f7
movq 0x68(%rsp), %rax
movq 0x70(%rsp), %rcx
movq 0x18(%rcx), %rcx
movq 0x20(%rcx), %rcx
movq (%rcx), %rcx
cmpq (%rcx), %rax
jge 0xa75f7
cmpq $0x0, 0x60(%rsp)
jl 0xa7578
movq 0x60(%rsp), %rax
movq 0x70(%rsp), %rcx
movq 0x18(%rcx), %rcx
movq 0x20(%rcx), %rcx
movq (%rcx), %rcx
cmpq 0x8(%rcx), %rax
jge 0xa7578
movsd 0x58(%rsp), %xmm0
movq 0x70(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x60(%rsp), %rcx
movq 0x68(%rsp), %rdx
movq 0x70(%rsp), %rsi
movq 0x18(%rsi), %rsi
movq 0x20(%rsi), %rsi
movq 0x18(%rsi), %rsi
imulq (%rsi), %rdx
addq %rdx, %rcx
movsd %xmm0, (%rax,%rcx,8)
movsd 0x58(%rsp), %xmm0
movsd %xmm0, 0x80(%rsp)
jmp 0xa7685
movq 0x78(%rsp), %rax
movq %rax, 0x38(%rsp)
movq 0x78(%rsp), %rax
movq 0xef8(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x40(%rsp)
movq 0x16eefa(%rip), %rax    # 0x216498
movq %rax, 0x48(%rsp)
movq 0x78(%rsp), %rdi
movq 0x60(%rsp), %rsi
callq 0x12430
movq %rax, 0x50(%rsp)
cmpq $0x0, 0x60(%rsp)
jge 0xa75cd
movq 0x172fb2(%rip), %rax    # 0x21a578
movq %rax, 0x30(%rsp)
jmp 0xa75d9
movq 0x172f9c(%rip), %rax    # 0x21a570
movq %rax, 0x30(%rsp)
movq 0x50(%rsp), %rcx
movq 0x48(%rsp), %rdx
movq 0x40(%rsp), %rsi
movq 0x38(%rsp), %rdi
movq 0x30(%rsp), %r8
callq 0x13880
movq 0x78(%rsp), %rax
movq %rax, 0x10(%rsp)
movq 0x78(%rsp), %rax
movq 0xef8(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x16ee73(%rip), %rax    # 0x216490
movq %rax, 0x20(%rsp)
movq 0x78(%rsp), %rdi
movq 0x68(%rsp), %rsi
callq 0x12430
movq %rax, 0x28(%rsp)
cmpq $0x0, 0x68(%rsp)
jge 0xa764c
movq 0x172f33(%rip), %rax    # 0x21a578
movq %rax, 0x8(%rsp)
jmp 0xa7658
movq 0x172f1d(%rip), %rax    # 0x21a570
movq %rax, 0x8(%rsp)
movq 0x28(%rsp), %rcx
movq 0x20(%rsp), %rdx
movq 0x18(%rsp), %rsi
movq 0x10(%rsp), %rdi
movq 0x8(%rsp), %r8
callq 0x13880
movsd 0x58(%rsp), %xmm0
movsd %xmm0, 0x80(%rsp)
movsd 0x80(%rsp), %xmm0
addq $0x88, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: int_vector_ref_i_7pi
static s7_int int_vector_ref_i_7pi(s7_scheme *sc, s7_pointer v, s7_int i)
                {
                    if ((i >= 0) && (i < vector_length(v)))
                        return(int_vector(v, i));
                    out_of_range(sc, sc->int_vector_ref_symbol, small_int(2), wrap_integer1(sc, i), (i < 0) ? its_negative_string : its_too_large_string);
                    return(0);
                }

// Assembly:
subq $0x48, %rsp
movq %rdi, 0x38(%rsp)
movq %rsi, 0x30(%rsp)
movq %rdx, 0x28(%rsp)
cmpq $0x0, 0x28(%rsp)
jl 0xa7c77
movq 0x28(%rsp), %rax
movq 0x30(%rsp), %rcx
cmpq 0x8(%rcx), %rax
jge 0xa7c77
movq 0x30(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x28(%rsp), %rcx
movq (%rax,%rcx,8), %rax
movq %rax, 0x40(%rsp)
jmp 0xa7cfc
movq 0x38(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x38(%rsp), %rax
movq 0xfa8(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x16e7f3(%rip), %rax    # 0x216490
movq %rax, 0x18(%rsp)
movq 0x38(%rsp), %rdi
movq 0x28(%rsp), %rsi
callq 0x12430
movq %rax, 0x20(%rsp)
cmpq $0x0, 0x28(%rsp)
jge 0xa7ccb
movq 0x1728b3(%rip), %rax    # 0x21a578
movq %rax, (%rsp)
jmp 0xa7cd6
movq 0x17289e(%rip), %rax    # 0x21a570
movq %rax, (%rsp)
movq 0x20(%rsp), %rcx
movq 0x18(%rsp), %rdx
movq 0x10(%rsp), %rsi
movq 0x8(%rsp), %rdi
movq (%rsp), %r8
callq 0x13880
movq $0x0, 0x40(%rsp)
movq 0x40(%rsp), %rax
addq $0x48, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: int_vector_ref_i_7pii
static s7_int int_vector_ref_i_7pii(s7_scheme *sc, s7_pointer v, s7_int i1, s7_int i2)
                {
                    if ((i1 >= 0) && (i1 < vector_dimension(v, 0)))
                    {
                        if ((i2 >= 0) && (i2 < vector_dimension(v, 1)))
                            return(int_vector(v, i2 + (i1 * vector_offset(v, 0))));
                        out_of_range(sc, sc->int_vector_ref_symbol, small_int(3), wrap_integer1(sc, i2), (i2 < 0) ? its_negative_string : its_too_large_string);
                    }
                    out_of_range(sc, sc->int_vector_ref_symbol, small_int(2), wrap_integer1(sc, i1), (i1 < 0) ? its_negative_string : its_too_large_string);
                    return(0);
                }

// Assembly:
subq $0x78, %rsp
movq %rdi, 0x68(%rsp)
movq %rsi, 0x60(%rsp)
movq %rdx, 0x58(%rsp)
movq %rcx, 0x50(%rsp)
cmpq $0x0, 0x58(%rsp)
jl 0xa7e5d
movq 0x58(%rsp), %rax
movq 0x60(%rsp), %rcx
movq 0x18(%rcx), %rcx
movq 0x20(%rcx), %rcx
movq (%rcx), %rcx
cmpq (%rcx), %rax
jge 0xa7e5d
cmpq $0x0, 0x50(%rsp)
jl 0xa7dde
movq 0x50(%rsp), %rax
movq 0x60(%rsp), %rcx
movq 0x18(%rcx), %rcx
movq 0x20(%rcx), %rcx
movq (%rcx), %rcx
cmpq 0x8(%rcx), %rax
jge 0xa7dde
movq 0x60(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x50(%rsp), %rcx
movq 0x58(%rsp), %rdx
movq 0x60(%rsp), %rsi
movq 0x18(%rsi), %rsi
movq 0x20(%rsi), %rsi
movq 0x18(%rsi), %rsi
imulq (%rsi), %rdx
addq %rdx, %rcx
movq (%rax,%rcx,8), %rax
movq %rax, 0x70(%rsp)
jmp 0xa7ee2
movq 0x68(%rsp), %rax
movq %rax, 0x30(%rsp)
movq 0x68(%rsp), %rax
movq 0xfa8(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x38(%rsp)
movq 0x16e694(%rip), %rax    # 0x216498
movq %rax, 0x40(%rsp)
movq 0x68(%rsp), %rdi
movq 0x50(%rsp), %rsi
callq 0x12430
movq %rax, 0x48(%rsp)
cmpq $0x0, 0x50(%rsp)
jge 0xa7e33
movq 0x17274c(%rip), %rax    # 0x21a578
movq %rax, 0x28(%rsp)
jmp 0xa7e3f
movq 0x172736(%rip), %rax    # 0x21a570
movq %rax, 0x28(%rsp)
movq 0x48(%rsp), %rcx
movq 0x40(%rsp), %rdx
movq 0x38(%rsp), %rsi
movq 0x30(%rsp), %rdi
movq 0x28(%rsp), %r8
callq 0x13880
movq 0x68(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x68(%rsp), %rax
movq 0xfa8(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x16e60d(%rip), %rax    # 0x216490
movq %rax, 0x18(%rsp)
movq 0x68(%rsp), %rdi
movq 0x58(%rsp), %rsi
callq 0x12430
movq %rax, 0x20(%rsp)
cmpq $0x0, 0x58(%rsp)
jge 0xa7eb1
movq 0x1726cd(%rip), %rax    # 0x21a578
movq %rax, (%rsp)
jmp 0xa7ebc
movq 0x1726b8(%rip), %rax    # 0x21a570
movq %rax, (%rsp)
movq 0x20(%rsp), %rcx
movq 0x18(%rsp), %rdx
movq 0x10(%rsp), %rsi
movq 0x8(%rsp), %rdi
movq (%rsp), %r8
callq 0x13880
movq $0x0, 0x70(%rsp)
movq 0x70(%rsp), %rax
addq $0x78, %rsp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: int_vector_set_i_7pii
static s7_int int_vector_set_i_7pii(s7_scheme *sc, s7_pointer v, s7_int i, s7_int x)
                {
                    if ((i < 0) || (i >= vector_length(v)))
                        out_of_range(sc, sc->int_vector_set_symbol, small_int(2), wrap_integer1(sc, i), (i < 0) ? its_negative_string : its_too_large_string);
                    int_vector(v, i) = x;
                    return(x);
                }

// Assembly:
subq $0x48, %rsp
movq %rdi, 0x40(%rsp)
movq %rsi, 0x38(%rsp)
movq %rdx, 0x30(%rsp)
movq %rcx, 0x28(%rsp)
cmpq $0x0, 0x30(%rsp)
jl 0xa8240
movq 0x30(%rsp), %rax
movq 0x38(%rsp), %rcx
cmpq 0x8(%rcx), %rax
jl 0xa82bc
movq 0x40(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x40(%rsp), %rax
movq 0xfb0(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x16e22a(%rip), %rax    # 0x216490
movq %rax, 0x18(%rsp)
movq 0x40(%rsp), %rdi
movq 0x30(%rsp), %rsi
callq 0x12430
movq %rax, 0x20(%rsp)
cmpq $0x0, 0x30(%rsp)
jge 0xa8294
movq 0x1722ea(%rip), %rax    # 0x21a578
movq %rax, (%rsp)
jmp 0xa829f
movq 0x1722d5(%rip), %rax    # 0x21a570
movq %rax, (%rsp)
movq 0x20(%rsp), %rcx
movq 0x18(%rsp), %rdx
movq 0x10(%rsp), %rsi
movq 0x8(%rsp), %rdi
movq (%rsp), %r8
callq 0x13880
movq 0x28(%rsp), %rdx
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x30(%rsp), %rcx
movq %rdx, (%rax,%rcx,8)
movq 0x28(%rsp), %rax
addq $0x48, %rsp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: int_vector_set_i_7piii
static s7_int int_vector_set_i_7piii(s7_scheme *sc, s7_pointer v, s7_int i1, s7_int i2, s7_int i3)
                {
                    if ((i1 >= 0) && (i1 < vector_dimension(v, 0)))
                    {
                        if ((i2 >= 0) && (i2 < vector_dimension(v, 1)))
                        {
                            int_vector(v, i2 + (i1 * vector_offset(v, 0))) = i3;
                            return(i3);
                        }
                        out_of_range(sc, sc->int_vector_set_symbol, small_int(3), wrap_integer1(sc, i2), (i2 < 0) ? its_negative_string : its_too_large_string);
                    }
                    out_of_range(sc, sc->int_vector_set_symbol, small_int(2), wrap_integer1(sc, i1), (i1 < 0) ? its_negative_string : its_too_large_string);
                    return(0);
                }

// Assembly:
subq $0x88, %rsp
movq %rdi, 0x78(%rsp)
movq %rsi, 0x70(%rsp)
movq %rdx, 0x68(%rsp)
movq %rcx, 0x60(%rsp)
movq %r8, 0x58(%rsp)
cmpq $0x0, 0x68(%rsp)
jl 0xa8412
movq 0x68(%rsp), %rax
movq 0x70(%rsp), %rcx
movq 0x18(%rcx), %rcx
movq 0x20(%rcx), %rcx
movq (%rcx), %rcx
cmpq (%rcx), %rax
jge 0xa8412
cmpq $0x0, 0x60(%rsp)
jl 0xa8393
movq 0x60(%rsp), %rax
movq 0x70(%rsp), %rcx
movq 0x18(%rcx), %rcx
movq 0x20(%rcx), %rcx
movq (%rcx), %rcx
cmpq 0x8(%rcx), %rax
jge 0xa8393
movq 0x58(%rsp), %rdx
movq 0x70(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x60(%rsp), %rcx
movq 0x68(%rsp), %rsi
movq 0x70(%rsp), %rdi
movq 0x18(%rdi), %rdi
movq 0x20(%rdi), %rdi
movq 0x18(%rdi), %rdi
imulq (%rdi), %rsi
addq %rsi, %rcx
movq %rdx, (%rax,%rcx,8)
movq 0x58(%rsp), %rax
movq %rax, 0x80(%rsp)
jmp 0xa849d
movq 0x78(%rsp), %rax
movq %rax, 0x38(%rsp)
movq 0x78(%rsp), %rax
movq 0xfb0(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x40(%rsp)
movq 0x16e0df(%rip), %rax    # 0x216498
movq %rax, 0x48(%rsp)
movq 0x78(%rsp), %rdi
movq 0x60(%rsp), %rsi
callq 0x12430
movq %rax, 0x50(%rsp)
cmpq $0x0, 0x60(%rsp)
jge 0xa83e8
movq 0x172197(%rip), %rax    # 0x21a578
movq %rax, 0x30(%rsp)
jmp 0xa83f4
movq 0x172181(%rip), %rax    # 0x21a570
movq %rax, 0x30(%rsp)
movq 0x50(%rsp), %rcx
movq 0x48(%rsp), %rdx
movq 0x40(%rsp), %rsi
movq 0x38(%rsp), %rdi
movq 0x30(%rsp), %r8
callq 0x13880
movq 0x78(%rsp), %rax
movq %rax, 0x10(%rsp)
movq 0x78(%rsp), %rax
movq 0xfb0(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x16e058(%rip), %rax    # 0x216490
movq %rax, 0x20(%rsp)
movq 0x78(%rsp), %rdi
movq 0x68(%rsp), %rsi
callq 0x12430
movq %rax, 0x28(%rsp)
cmpq $0x0, 0x68(%rsp)
jge 0xa8467
movq 0x172118(%rip), %rax    # 0x21a578
movq %rax, 0x8(%rsp)
jmp 0xa8473
movq 0x172102(%rip), %rax    # 0x21a570
movq %rax, 0x8(%rsp)
movq 0x28(%rsp), %rcx
movq 0x20(%rsp), %rdx
movq 0x18(%rsp), %rsi
movq 0x10(%rsp), %rdi
movq 0x8(%rsp), %r8
callq 0x13880
movq $0x0, 0x80(%rsp)
movq 0x80(%rsp), %rax
addq $0x88, %rsp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: byte_vector_ref_i_7pi
static s7_int byte_vector_ref_i_7pi(s7_scheme *sc, s7_pointer p1, s7_int i1)
                {
                    if ((i1 >= 0) && (i1 < byte_vector_length(p1)))
                        return((s7_int)((byte_vector(p1, i1))));
                    out_of_range(sc, sc->byte_vector_ref_symbol, small_int(2), wrap_integer1(sc, i1), (i1 < 0) ? its_negative_string : its_too_large_string);
                    return(0);
                }

// Assembly:
subq $0x48, %rsp
movq %rdi, 0x38(%rsp)
movq %rsi, 0x30(%rsp)
movq %rdx, 0x28(%rsp)
cmpq $0x0, 0x28(%rsp)
jl 0xa84f7
movq 0x28(%rsp), %rax
movq 0x30(%rsp), %rcx
cmpq 0x8(%rcx), %rax
jge 0xa84f7
movq 0x30(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x28(%rsp), %rcx
movzbl (%rax,%rcx), %eax
movq %rax, 0x40(%rsp)
jmp 0xa857c
movq 0x38(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x38(%rsp), %rax
movq 0xc30(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x16df73(%rip), %rax    # 0x216490
movq %rax, 0x18(%rsp)
movq 0x38(%rsp), %rdi
movq 0x28(%rsp), %rsi
callq 0x12430
movq %rax, 0x20(%rsp)
cmpq $0x0, 0x28(%rsp)
jge 0xa854b
movq 0x172033(%rip), %rax    # 0x21a578
movq %rax, (%rsp)
jmp 0xa8556
movq 0x17201e(%rip), %rax    # 0x21a570
movq %rax, (%rsp)
movq 0x20(%rsp), %rcx
movq 0x18(%rsp), %rdx
movq 0x10(%rsp), %rsi
movq 0x8(%rsp), %rdi
movq (%rsp), %r8
callq 0x13880
movq $0x0, 0x40(%rsp)
movq 0x40(%rsp), %rax
addq $0x48, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: byte_vector_ref_i_7pii
static s7_int byte_vector_ref_i_7pii(s7_scheme *sc, s7_pointer v, s7_int i1, s7_int i2)
                {
                    if ((i1 >= 0) && (i1 < vector_dimension(v, 0)))
                    {
                        if ((i2 >= 0) && (i2 < vector_dimension(v, 1)))
                            return((s7_int)byte_vector(v, i2 + (i1 * vector_offset(v, 0))));
                        out_of_range(sc, sc->byte_vector_ref_symbol, small_int(3), wrap_integer1(sc, i2), (i2 < 0) ? its_negative_string : its_too_large_string);
                    }
                    out_of_range(sc, sc->byte_vector_ref_symbol, small_int(2), wrap_integer1(sc, i1), (i1 < 0) ? its_negative_string : its_too_large_string);
                    return(0);
                }

// Assembly:
subq $0x78, %rsp
movq %rdi, 0x68(%rsp)
movq %rsi, 0x60(%rsp)
movq %rdx, 0x58(%rsp)
movq %rcx, 0x50(%rsp)
cmpq $0x0, 0x58(%rsp)
jl 0xa86ad
movq 0x58(%rsp), %rax
movq 0x60(%rsp), %rcx
movq 0x18(%rcx), %rcx
movq 0x20(%rcx), %rcx
movq (%rcx), %rcx
cmpq (%rcx), %rax
jge 0xa86ad
cmpq $0x0, 0x50(%rsp)
jl 0xa862e
movq 0x50(%rsp), %rax
movq 0x60(%rsp), %rcx
movq 0x18(%rcx), %rcx
movq 0x20(%rcx), %rcx
movq (%rcx), %rcx
cmpq 0x8(%rcx), %rax
jge 0xa862e
movq 0x60(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x50(%rsp), %rcx
movq 0x58(%rsp), %rdx
movq 0x60(%rsp), %rsi
movq 0x18(%rsi), %rsi
movq 0x20(%rsi), %rsi
movq 0x18(%rsi), %rsi
imulq (%rsi), %rdx
addq %rdx, %rcx
movzbl (%rax,%rcx), %eax
movq %rax, 0x70(%rsp)
jmp 0xa8732
movq 0x68(%rsp), %rax
movq %rax, 0x30(%rsp)
movq 0x68(%rsp), %rax
movq 0xc30(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x38(%rsp)
movq 0x16de44(%rip), %rax    # 0x216498
movq %rax, 0x40(%rsp)
movq 0x68(%rsp), %rdi
movq 0x50(%rsp), %rsi
callq 0x12430
movq %rax, 0x48(%rsp)
cmpq $0x0, 0x50(%rsp)
jge 0xa8683
movq 0x171efc(%rip), %rax    # 0x21a578
movq %rax, 0x28(%rsp)
jmp 0xa868f
movq 0x171ee6(%rip), %rax    # 0x21a570
movq %rax, 0x28(%rsp)
movq 0x48(%rsp), %rcx
movq 0x40(%rsp), %rdx
movq 0x38(%rsp), %rsi
movq 0x30(%rsp), %rdi
movq 0x28(%rsp), %r8
callq 0x13880
movq 0x68(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x68(%rsp), %rax
movq 0xc30(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x16ddbd(%rip), %rax    # 0x216490
movq %rax, 0x18(%rsp)
movq 0x68(%rsp), %rdi
movq 0x58(%rsp), %rsi
callq 0x12430
movq %rax, 0x20(%rsp)
cmpq $0x0, 0x58(%rsp)
jge 0xa8701
movq 0x171e7d(%rip), %rax    # 0x21a578
movq %rax, (%rsp)
jmp 0xa870c
movq 0x171e68(%rip), %rax    # 0x21a570
movq %rax, (%rsp)
movq 0x20(%rsp), %rcx
movq 0x18(%rsp), %rdx
movq 0x10(%rsp), %rsi
movq 0x8(%rsp), %rdi
movq (%rsp), %r8
callq 0x13880
movq $0x0, 0x70(%rsp)
movq 0x70(%rsp), %rax
addq $0x78, %rsp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: byte_vector_set_i_7pii
static s7_int byte_vector_set_i_7pii(s7_scheme *sc, s7_pointer p1, s7_int i1, s7_int i2)
                {
                    if (!is_byte_vector(p1))
                        simple_wrong_type_argument_with_type(sc, sc->byte_vector_set_symbol, p1, a_byte_vector_string);
                    if ((i2 < 0) || (i2 > 255))
                        simple_wrong_type_argument_with_type(sc, sc->byte_vector_set_symbol, wrap_integer1(sc, i2), an_unsigned_byte_string);
                    if ((i1 >= 0) && (i1 < byte_vector_length(p1)))
                        byte_vector(p1, i1) = (uint8_t)i2;
                    else simple_out_of_range(sc, sc->byte_vector_set_symbol, wrap_integer1(sc, i1), (i1 < 0) ? its_negative_string : its_too_large_string);
                    return(i2);
                }

// Assembly:
subq $0x58, %rsp
movq %rdi, 0x50(%rsp)
movq %rsi, 0x48(%rsp)
movq %rdx, 0x40(%rsp)
movq %rcx, 0x38(%rsp)
movq 0x48(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x18, %eax
je 0xa8797
movq 0x50(%rsp), %rdi
movq 0x50(%rsp), %rax
movq 0xc38(%rax), %rax
movq 0x8(%rax), %rsi
movq 0x48(%rsp), %rdx
movq 0x50(%rsp), %rax
movq 0x140(%rax), %rcx
movq 0x17ca36(%rip), %r8     # 0x2251c8
callq 0x14a60
cmpq $0x0, 0x38(%rsp)
jl 0xa87aa
cmpq $0xff, 0x38(%rsp)
jle 0xa87fd
movq 0x50(%rsp), %rax
movq %rax, 0x28(%rsp)
movq 0x50(%rsp), %rax
movq 0xc38(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x30(%rsp)
movq 0x50(%rsp), %rdi
movq 0x38(%rsp), %rsi
callq 0x12430
movq 0x28(%rsp), %rdi
movq 0x30(%rsp), %rsi
movq %rax, %rdx
movq 0x50(%rsp), %rax
movq 0x140(%rax), %rcx
movq 0x17a3b8(%rip), %r8     # 0x222bb0
callq 0x14a60
cmpq $0x0, 0x40(%rsp)
jl 0xa882f
movq 0x40(%rsp), %rax
movq 0x48(%rsp), %rcx
cmpq 0x8(%rcx), %rax
jge 0xa882f
movq 0x38(%rsp), %rax
movb %al, %dl
movq 0x48(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x40(%rsp), %rcx
movb %dl, (%rax,%rcx)
jmp 0xa889d
movq 0x50(%rsp), %rax
movq %rax, 0x10(%rsp)
movq 0x50(%rsp), %rax
movq 0xc38(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x50(%rsp), %rdi
movq 0x40(%rsp), %rsi
callq 0x12430
movq %rax, 0x20(%rsp)
cmpq $0x0, 0x40(%rsp)
jge 0xa8878
movq 0x171d07(%rip), %rax    # 0x21a578
movq %rax, 0x8(%rsp)
jmp 0xa8884
movq 0x171cf1(%rip), %rax    # 0x21a570
movq %rax, 0x8(%rsp)
movq 0x20(%rsp), %rdx
movq 0x18(%rsp), %rsi
movq 0x10(%rsp), %rdi
movq 0x8(%rsp), %rcx
callq 0x45240
movq 0x38(%rsp), %rax
addq $0x58, %rsp
retq
nopw (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: vector_ref_p_pp
static inline s7_pointer vector_ref_p_pp(s7_scheme *sc, s7_pointer vec, s7_pointer ind)
                {
                    s7_int index;
                    if ((!is_any_vector(vec)) ||
                            (vector_rank(vec) != 1) ||
                            (!s7_is_integer(ind)))
                        return(g_vector_ref(sc, set_plist_2(sc, vec, ind)));
                    index = s7_integer(ind);
                    if ((index < 0) || (index >= vector_length(vec)))
                        return(out_of_range(sc, sc->vector_ref_symbol, small_int(2), ind, (index < 0) ? its_negative_string : its_too_large_string));
                    return(vector_getter(vec)(sc, vec, index));
                }

// Assembly:
subq $0x68, %rsp
movq %rdi, 0x58(%rsp)
movq %rsi, 0x50(%rsp)
movq %rdx, 0x48(%rsp)
movq 0x50(%rsp), %rax
movzbl (%rax), %eax
movl %eax, %ecx
leaq 0x171c0c(%rip), %rax    # 0x21a750
testb $0x1, (%rax,%rcx)
je 0xa8b97
movq 0x50(%rsp), %rax
movq 0x18(%rax), %rax
cmpq $0x0, 0x20(%rax)
je 0xa8b72
movq 0x50(%rsp), %rax
movq 0x18(%rax), %rax
movq 0x20(%rax), %rax
movq 0x10(%rax), %rax
movq %rax, 0x38(%rsp)
jmp 0xa8b7e
movl $0x1, %eax
movq %rax, 0x38(%rsp)
jmp 0xa8b7e
movq 0x38(%rsp), %rax
cmpq $0x1, %rax
jne 0xa8b97
movq 0x48(%rsp), %rdi
callq 0x11340
testb $0x1, %al
jne 0xa8bcc
movq 0x58(%rsp), %rax
movq %rax, 0x30(%rsp)
movq 0x58(%rsp), %rdi
movq 0x50(%rsp), %rsi
movq 0x48(%rsp), %rdx
callq 0x36f70
movq 0x30(%rsp), %rdi
movq %rax, %rsi
callq 0x998c0
movq %rax, 0x60(%rsp)
jmp 0xa8c8e
movq 0x48(%rsp), %rdi
callq 0x10790
movq %rax, 0x40(%rsp)
cmpq $0x0, 0x40(%rsp)
jl 0xa8bf3
movq 0x40(%rsp), %rax
movq 0x50(%rsp), %rcx
cmpq 0x8(%rcx), %rax
jl 0xa8c6f
movq 0x58(%rsp), %rax
movq %rax, 0x10(%rsp)
movq 0x58(%rsp), %rax
movq 0x1660(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x18(%rsp)
movq 0x16d877(%rip), %rax    # 0x216490
movq %rax, 0x20(%rsp)
movq 0x48(%rsp), %rax
movq %rax, 0x28(%rsp)
cmpq $0x0, 0x40(%rsp)
jge 0xa8c3e
movq 0x171941(%rip), %rax    # 0x21a578
movq %rax, 0x8(%rsp)
jmp 0xa8c4a
movq 0x17192b(%rip), %rax    # 0x21a570
movq %rax, 0x8(%rsp)
movq 0x28(%rsp), %rcx
movq 0x20(%rsp), %rdx
movq 0x18(%rsp), %rsi
movq 0x10(%rsp), %rdi
movq 0x8(%rsp), %r8
callq 0x13880
movq %rax, 0x60(%rsp)
jmp 0xa8c8e
movq 0x50(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x58(%rsp), %rdi
movq 0x50(%rsp), %rsi
movq 0x40(%rsp), %rdx
callq *%rax
movq %rax, 0x60(%rsp)
movq 0x60(%rsp), %rax
addq $0x68, %rsp
retq
nopl (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: vector_ref_p_pi
static s7_pointer vector_ref_p_pi(s7_scheme *sc, s7_pointer v, s7_int i)
                {
                    if ((!is_any_vector(v)) ||
                            (vector_rank(v) > 1) ||
                            (i < 0) ||
                            (i >= vector_length(v)))
                        return(g_vector_ref(sc, set_plist_2(sc, v, make_integer(sc, i))));
                    return(vector_getter(v)(sc, v, i));
                }

// Assembly:
subq $0x68, %rsp
movq %rdi, 0x58(%rsp)
movq %rsi, 0x50(%rsp)
movq %rdx, 0x48(%rsp)
movq 0x50(%rsp), %rax
movzbl (%rax), %eax
movl %eax, %ecx
leaq 0x171a5c(%rip), %rax    # 0x21a750
testb $0x1, (%rax,%rcx)
je 0xa8d55
movq 0x50(%rsp), %rax
movq 0x18(%rax), %rax
cmpq $0x0, 0x20(%rax)
je 0xa8d22
movq 0x50(%rsp), %rax
movq 0x18(%rax), %rax
movq 0x20(%rax), %rax
movq 0x10(%rax), %rax
movq %rax, 0x20(%rsp)
jmp 0xa8d2e
movl $0x1, %eax
movq %rax, 0x20(%rsp)
jmp 0xa8d2e
movq 0x20(%rsp), %rax
cmpq $0x1, %rax
jg 0xa8d55
cmpq $0x0, 0x48(%rsp)
jl 0xa8d55
movq 0x48(%rsp), %rax
movq 0x50(%rsp), %rcx
cmpq 0x8(%rcx), %rax
jl 0xa8e4b
movq 0x58(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x58(%rsp), %rax
movq %rax, 0x10(%rsp)
movq 0x50(%rsp), %rax
movq %rax, 0x18(%rsp)
movq 0x48(%rsp), %rax
movq %rax, 0x40(%rsp)
movq 0x40(%rsp), %rax
andq $-0x800, %rax           # imm = 0xF800
cmpq $0x0, %rax
jne 0xa8da4
movq 0x40(%rsp), %rcx
leaq 0x16d6e6(%rip), %rax    # 0x216480
movq (%rax,%rcx,8), %rax
movq %rax, (%rsp)
jmp 0xa8e1a
jmp 0xa8da6
movq 0x58(%rsp), %rax
movq 0x90(%rax), %rax
movq 0x58(%rsp), %rcx
cmpq 0x98(%rcx), %rax
ja 0xa8dca
movq 0x58(%rsp), %rdi
callq 0xc670
movq 0x58(%rsp), %rcx
movq 0x90(%rcx), %rax
movq %rax, %rdx
addq $-0x8, %rdx
movq %rdx, 0x90(%rcx)
movq -0x8(%rax), %rax
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq $0xb, (%rax)
movq 0x40(%rsp), %rcx
movq 0x30(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x30(%rsp), %rax
movq %rax, 0x28(%rsp)
movq 0x28(%rsp), %rax
movq %rax, (%rsp)
movq 0x18(%rsp), %rsi
movq 0x10(%rsp), %rdi
movq (%rsp), %rax
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rdx
callq 0x36f70
movq 0x8(%rsp), %rdi
movq %rax, %rsi
callq 0x998c0
movq %rax, 0x60(%rsp)
jmp 0xa8e6a
movq 0x50(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x58(%rsp), %rdi
movq 0x50(%rsp), %rsi
movq 0x48(%rsp), %rdx
callq *%rax
movq %rax, 0x60(%rsp)
movq 0x60(%rsp), %rax
addq $0x68, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: vector_set_p_pip
static s7_pointer vector_set_p_pip(s7_scheme *sc, s7_pointer v, s7_int i, s7_pointer p)
                {
                    if ((!is_any_vector(v)) ||
                            (vector_rank(v) > 1) ||
                            (i < 0) ||
                            (i >= vector_length(v)))
                        return(g_vector_set(sc, set_plist_3(sc, v, make_integer(sc, i), p)));

                    if (is_typed_vector(v))
                        return(typed_vector_setter(sc, v, i, p));

                    vector_setter(v)(sc, v, i, p);
                    return(p);
                }

// Assembly:
subq $0x78, %rsp
movq %rdi, 0x68(%rsp)
movq %rsi, 0x60(%rsp)
movq %rdx, 0x58(%rsp)
movq %rcx, 0x50(%rsp)
movq 0x60(%rsp), %rax
movzbl (%rax), %eax
movl %eax, %ecx
leaq 0x171507(%rip), %rax    # 0x21a750
testb $0x1, (%rax,%rcx)
je 0xa92aa
movq 0x60(%rsp), %rax
movq 0x18(%rax), %rax
cmpq $0x0, 0x20(%rax)
je 0xa9277
movq 0x60(%rsp), %rax
movq 0x18(%rax), %rax
movq 0x20(%rax), %rax
movq 0x10(%rax), %rax
movq %rax, 0x28(%rsp)
jmp 0xa9283
movl $0x1, %eax
movq %rax, 0x28(%rsp)
jmp 0xa9283
movq 0x28(%rsp), %rax
cmpq $0x1, %rax
jg 0xa92aa
cmpq $0x0, 0x58(%rsp)
jl 0xa92aa
movq 0x58(%rsp), %rax
movq 0x60(%rsp), %rcx
cmpq 0x8(%rcx), %rax
jl 0xa93a8
movq 0x68(%rsp), %rax
movq %rax, 0x10(%rsp)
movq 0x68(%rsp), %rax
movq %rax, 0x18(%rsp)
movq 0x60(%rsp), %rax
movq %rax, 0x20(%rsp)
movq 0x58(%rsp), %rax
movq %rax, 0x48(%rsp)
movq 0x48(%rsp), %rax
andq $-0x800, %rax           # imm = 0xF800
cmpq $0x0, %rax
jne 0xa92fa
movq 0x48(%rsp), %rcx
leaq 0x16d191(%rip), %rax    # 0x216480
movq (%rax,%rcx,8), %rax
movq %rax, 0x8(%rsp)
jmp 0xa9371
jmp 0xa92fc
movq 0x68(%rsp), %rax
movq 0x90(%rax), %rax
movq 0x68(%rsp), %rcx
cmpq 0x98(%rcx), %rax
ja 0xa9320
movq 0x68(%rsp), %rdi
callq 0xc670
movq 0x68(%rsp), %rcx
movq 0x90(%rcx), %rax
movq %rax, %rdx
addq $-0x8, %rdx
movq %rdx, 0x90(%rcx)
movq -0x8(%rax), %rax
movq %rax, 0x38(%rsp)
movq 0x38(%rsp), %rax
movq $0xb, (%rax)
movq 0x48(%rsp), %rcx
movq 0x38(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x38(%rsp), %rax
movq %rax, 0x30(%rsp)
movq 0x30(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x20(%rsp), %rsi
movq 0x18(%rsp), %rdi
movq 0x8(%rsp), %rax
movq %rax, 0x40(%rsp)
movq 0x40(%rsp), %rdx
movq 0x50(%rsp), %rcx
callq 0x359a0
movq 0x10(%rsp), %rdi
movq %rax, %rsi
callq 0x99950
movq %rax, 0x70(%rsp)
jmp 0xa9402
movq 0x60(%rsp), %rax
movzwl 0x6(%rax), %eax
andl $0x2, %eax
cmpl $0x0, %eax
je 0xa93d9
movq 0x68(%rsp), %rdi
movq 0x60(%rsp), %rsi
movq 0x58(%rsp), %rdx
movq 0x50(%rsp), %rcx
callq 0x34290
movq %rax, 0x70(%rsp)
jmp 0xa9402
movq 0x60(%rsp), %rax
movq 0x28(%rax), %rax
movq 0x68(%rsp), %rdi
movq 0x60(%rsp), %rsi
movq 0x58(%rsp), %rdx
movq 0x50(%rsp), %rcx
callq *%rax
movq 0x50(%rsp), %rax
movq %rax, 0x70(%rsp)
movq 0x70(%rsp), %rax
addq $0x78, %rsp
retq
nopl (%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: vector_ref_p_pi_direct
static s7_pointer vector_ref_p_pi_direct(s7_scheme *sc, s7_pointer v, s7_int i)
                {
                    if ((i >= 0) && (i < vector_length(v)))
                        return(vector_getter(v)(sc, v, i));
                    out_of_range(sc, sc->vector_ref_symbol, small_int(2), wrap_integer1(sc, i), (i < 0) ? its_negative_string : its_too_large_string);
                    return(v);
                }

// Assembly:
subq $0x48, %rsp
movq %rdi, 0x38(%rsp)
movq %rsi, 0x30(%rsp)
movq %rdx, 0x28(%rsp)
cmpq $0x0, 0x28(%rsp)
jl 0xa986f
movq 0x28(%rsp), %rax
movq 0x30(%rsp), %rcx
cmpq 0x8(%rcx), %rax
jge 0xa986f
movq 0x30(%rsp), %rax
movq 0x20(%rax), %rax
movq 0x38(%rsp), %rdi
movq 0x30(%rsp), %rsi
movq 0x28(%rsp), %rdx
callq *%rax
movq %rax, 0x40(%rsp)
jmp 0xa98f5
movq 0x38(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x38(%rsp), %rax
movq 0x1660(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x16cbfb(%rip), %rax    # 0x216490
movq %rax, 0x18(%rsp)
movq 0x38(%rsp), %rdi
movq 0x28(%rsp), %rsi
callq 0x12430
movq %rax, 0x20(%rsp)
cmpq $0x0, 0x28(%rsp)
jge 0xa98c3
movq 0x170cbb(%rip), %rax    # 0x21a578
movq %rax, (%rsp)
jmp 0xa98ce
movq 0x170ca6(%rip), %rax    # 0x21a570
movq %rax, (%rsp)
movq 0x20(%rsp), %rcx
movq 0x18(%rsp), %rdx
movq 0x10(%rsp), %rsi
movq 0x8(%rsp), %rdi
movq (%rsp), %r8
callq 0x13880
movq 0x30(%rsp), %rax
movq %rax, 0x40(%rsp)
movq 0x40(%rsp), %rax
addq $0x48, %rsp
retq
nop
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: vector_set_p_pip_direct
static s7_pointer vector_set_p_pip_direct(s7_scheme *sc, s7_pointer v, s7_int i, s7_pointer p)
                {
                    if ((i >= 0) && (i < vector_length(v)))
                        vector_element(v, i) = p;
                    else out_of_range(sc, sc->vector_set_symbol, small_int(2), wrap_integer1(sc, i), (i < 0) ? its_negative_string : its_too_large_string);
                    return(p);
                }

// Assembly:
subq $0x48, %rsp
movq %rdi, 0x40(%rsp)
movq %rsi, 0x38(%rsp)
movq %rdx, 0x30(%rsp)
movq %rcx, 0x28(%rsp)
cmpq $0x0, 0x30(%rsp)
jl 0xa9979
movq 0x30(%rsp), %rax
movq 0x38(%rsp), %rcx
cmpq 0x8(%rcx), %rax
jge 0xa9979
movq 0x28(%rsp), %rdx
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x30(%rsp), %rcx
movq %rdx, (%rax,%rcx,8)
jmp 0xa99f5
movq 0x40(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x40(%rsp), %rax
movq 0x1668(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x16caf1(%rip), %rax    # 0x216490
movq %rax, 0x18(%rsp)
movq 0x40(%rsp), %rdi
movq 0x30(%rsp), %rsi
callq 0x12430
movq %rax, 0x20(%rsp)
cmpq $0x0, 0x30(%rsp)
jge 0xa99cd
movq 0x170bb1(%rip), %rax    # 0x21a578
movq %rax, (%rsp)
jmp 0xa99d8
movq 0x170b9c(%rip), %rax    # 0x21a570
movq %rax, (%rsp)
movq 0x20(%rsp), %rcx
movq 0x18(%rsp), %rdx
movq 0x10(%rsp), %rsi
movq 0x8(%rsp), %rdi
movq (%rsp), %r8
callq 0x13880
movq 0x28(%rsp), %rax
addq $0x48, %rsp
retq
nop
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: list_ref_p_pi_direct
static s7_pointer list_ref_p_pi_direct(s7_scheme *sc, s7_pointer p1, s7_int i1)
                {
                    s7_pointer p;
                    s7_int i;
                    if ((i1 < 0) || (i1 > sc->max_list_length))
                        out_of_range(sc, sc->list_ref_symbol, small_int(2), wrap_integer1(sc, i1), (i1 < 0) ? its_negative_string : its_too_large_string);
                    for (i = 0, p = p1; ((is_pair(p)) && (i < i1)); i++, p = cdr(p));
                    if (!is_pair(p))
                    {
                        if (type(p) == T_NIL)
                            out_of_range(sc, sc->list_ref_symbol, small_int(2), wrap_integer1(sc, i1), its_too_large_string);
                        else simple_wrong_type_argument_with_type(sc, sc->list_ref_symbol, p1, a_proper_list_string);
                    }
                    return(car(p));
                }

// Assembly:
subq $0x78, %rsp
movq %rdi, 0x70(%rsp)
movq %rsi, 0x68(%rsp)
movq %rdx, 0x60(%rsp)
cmpq $0x0, 0x60(%rsp)
jl 0xa9dae
movq 0x60(%rsp), %rax
movq 0x70(%rsp), %rcx
cmpq 0x2b0(%rcx), %rax
jle 0xa9e2d
movq 0x70(%rsp), %rax
movq %rax, 0x30(%rsp)
movq 0x70(%rsp), %rax
movq 0x1258(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x38(%rsp)
movq 0x16c6bc(%rip), %rax    # 0x216490
movq %rax, 0x40(%rsp)
movq 0x70(%rsp), %rdi
movq 0x60(%rsp), %rsi
callq 0x12430
movq %rax, 0x48(%rsp)
cmpq $0x0, 0x60(%rsp)
jge 0xa9e03
movq 0x17077c(%rip), %rax    # 0x21a578
movq %rax, 0x28(%rsp)
jmp 0xa9e0f
movq 0x170766(%rip), %rax    # 0x21a570
movq %rax, 0x28(%rsp)
movq 0x48(%rsp), %rcx
movq 0x40(%rsp), %rdx
movq 0x38(%rsp), %rsi
movq 0x30(%rsp), %rdi
movq 0x28(%rsp), %r8
callq 0x13880
movq $0x0, 0x50(%rsp)
movq 0x68(%rsp), %rax
movq %rax, 0x58(%rsp)
movq 0x58(%rsp), %rax
movzbl (%rax), %ecx
xorl %eax, %eax
cmpl $0x1, %ecx
movb %al, 0x27(%rsp)
jne 0xa9e64
movq 0x50(%rsp), %rax
cmpq 0x60(%rsp), %rax
setl %al
movb %al, 0x27(%rsp)
movb 0x27(%rsp), %al
testb $0x1, %al
jne 0xa9e6e
jmp 0xa9e8e
jmp 0xa9e70
movq 0x50(%rsp), %rax
addq $0x1, %rax
movq %rax, 0x50(%rsp)
movq 0x58(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x58(%rsp)
jmp 0xa9e40
movq 0x58(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x1, %eax
je 0xa9f3a
movq 0x58(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x2, %eax
jne 0xa9f06
movq 0x70(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x70(%rsp), %rax
movq 0x1258(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x16c5be(%rip), %rax    # 0x216490
movq %rax, 0x18(%rsp)
movq 0x70(%rsp), %rdi
movq 0x60(%rsp), %rsi
callq 0x12430
movq 0x8(%rsp), %rdi
movq 0x10(%rsp), %rsi
movq 0x18(%rsp), %rdx
movq %rax, %rcx
movq 0x170671(%rip), %r8     # 0x21a570
callq 0x13880
jmp 0xa9f38
movq 0x70(%rsp), %rdi
movq 0x70(%rsp), %rax
movq 0x1258(%rax), %rax
movq 0x8(%rax), %rsi
movq 0x68(%rsp), %rdx
movq 0x70(%rsp), %rax
movq 0x140(%rax), %rcx
movq 0x178835(%rip), %r8     # 0x222768
callq 0x14a60
jmp 0xa9f3a
movq 0x58(%rsp), %rax
movq 0x8(%rax), %rax
addq $0x78, %rsp
retq
nopl (%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: list_set_p_pip_direct
static s7_pointer list_set_p_pip_direct(s7_scheme *sc, s7_pointer p1, s7_int i1, s7_pointer p2)
                {
                    s7_pointer p;
                    s7_int i;
                    if ((i1 < 0) || (i1 > sc->max_list_length))
                        out_of_range(sc, sc->list_set_symbol, small_int(2), wrap_integer1(sc, i1), (i1 < 0) ? its_negative_string : its_too_large_string);
                    for (i = 0, p = p1; ((is_pair(p)) && (i < i1)); i++, p = cdr(p));
                    if (!is_pair(p))
                    {
                        if (type(p) == T_NIL)
                            out_of_range(sc, sc->list_set_symbol, small_int(2), wrap_integer1(sc, i1), its_too_large_string);
                        else simple_wrong_type_argument_with_type(sc, sc->list_set_symbol, p1, a_proper_list_string);
                    }
                    set_car(p, p2);
                    return(p2);
                }

// Assembly:
subq $0x78, %rsp
movq %rdi, 0x70(%rsp)
movq %rsi, 0x68(%rsp)
movq %rdx, 0x60(%rsp)
movq %rcx, 0x58(%rsp)
cmpq $0x0, 0x60(%rsp)
jl 0xa9f83
movq 0x60(%rsp), %rax
movq 0x70(%rsp), %rcx
cmpq 0x2b0(%rcx), %rax
jle 0xaa002
movq 0x70(%rsp), %rax
movq %rax, 0x28(%rsp)
movq 0x70(%rsp), %rax
movq 0x1260(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x30(%rsp)
movq 0x16c4e7(%rip), %rax    # 0x216490
movq %rax, 0x38(%rsp)
movq 0x70(%rsp), %rdi
movq 0x60(%rsp), %rsi
callq 0x12430
movq %rax, 0x40(%rsp)
cmpq $0x0, 0x60(%rsp)
jge 0xa9fd8
movq 0x1705a7(%rip), %rax    # 0x21a578
movq %rax, 0x20(%rsp)
jmp 0xa9fe4
movq 0x170591(%rip), %rax    # 0x21a570
movq %rax, 0x20(%rsp)
movq 0x40(%rsp), %rcx
movq 0x38(%rsp), %rdx
movq 0x30(%rsp), %rsi
movq 0x28(%rsp), %rdi
movq 0x20(%rsp), %r8
callq 0x13880
movq $0x0, 0x48(%rsp)
movq 0x68(%rsp), %rax
movq %rax, 0x50(%rsp)
movq 0x50(%rsp), %rax
movzbl (%rax), %ecx
xorl %eax, %eax
cmpl $0x1, %ecx
movb %al, 0x1f(%rsp)
jne 0xaa039
movq 0x48(%rsp), %rax
cmpq 0x60(%rsp), %rax
setl %al
movb %al, 0x1f(%rsp)
movb 0x1f(%rsp), %al
testb $0x1, %al
jne 0xaa043
jmp 0xaa063
jmp 0xaa045
movq 0x48(%rsp), %rax
addq $0x1, %rax
movq %rax, 0x48(%rsp)
movq 0x50(%rsp), %rax
movq 0x10(%rax), %rax
movq %rax, 0x50(%rsp)
jmp 0xaa015
movq 0x50(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x1, %eax
je 0xaa10d
movq 0x50(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x2, %eax
jne 0xaa0d9
movq 0x70(%rsp), %rax
movq %rax, (%rsp)
movq 0x70(%rsp), %rax
movq 0x1260(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x8(%rsp)
movq 0x16c3ea(%rip), %rax    # 0x216490
movq %rax, 0x10(%rsp)
movq 0x70(%rsp), %rdi
movq 0x60(%rsp), %rsi
callq 0x12430
movq (%rsp), %rdi
movq 0x8(%rsp), %rsi
movq 0x10(%rsp), %rdx
movq %rax, %rcx
movq 0x17049e(%rip), %r8     # 0x21a570
callq 0x13880
jmp 0xaa10b
movq 0x70(%rsp), %rdi
movq 0x70(%rsp), %rax
movq 0x1260(%rax), %rax
movq 0x8(%rax), %rsi
movq 0x68(%rsp), %rdx
movq 0x70(%rsp), %rax
movq 0x140(%rax), %rcx
movq 0x178662(%rip), %r8     # 0x222768
callq 0x14a60
jmp 0xaa10d
movq 0x58(%rsp), %rcx
movq 0x50(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x58(%rsp), %rax
addq $0x78, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: string_ref_p_pi
static s7_pointer string_ref_p_pi(s7_scheme *sc, s7_pointer p1, s7_int i1)
    {
        if (!is_string(p1))
            simple_wrong_type_argument(sc, sc->string_ref_symbol, p1, T_STRING);
        if ((i1 >= 0) && (i1 < string_length(p1)))
            return(chars[((uint8_t *)string_value(p1))[i1]]);
        out_of_range(sc, sc->string_ref_symbol, small_int(2), wrap_integer1(sc, i1), (i1 < 0) ? its_negative_string : its_too_large_string);
        return(p1);
    }

// Assembly:
subq $0x48, %rsp
movq %rdi, 0x38(%rsp)
movq %rsi, 0x30(%rsp)
movq %rdx, 0x28(%rsp)
movq 0x30(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x13, %eax
je 0xaa182
movq 0x38(%rsp), %rdi
movq 0x38(%rsp), %rax
movq 0x1548(%rax), %rax
movq 0x8(%rax), %rsi
movq 0x30(%rsp), %rdx
movq 0x38(%rsp), %rax
movq 0x140(%rax), %rcx
movq 0x1704ab(%rip), %r8     # 0x21a628
callq 0x14a60
cmpq $0x0, 0x28(%rsp)
jl 0xaa1c1
movq 0x28(%rsp), %rax
movq 0x30(%rsp), %rcx
cmpq 0x8(%rcx), %rax
jge 0xaa1c1
movq 0x1703e7(%rip), %rax    # 0x21a588
movq 0x30(%rsp), %rcx
movq 0x10(%rcx), %rcx
movq 0x28(%rsp), %rdx
movzbl (%rcx,%rdx), %ecx
movq (%rax,%rcx,8), %rax
movq %rax, 0x40(%rsp)
jmp 0xaa247
movq 0x38(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x38(%rsp), %rax
movq 0x1548(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x16c2a9(%rip), %rax    # 0x216490
movq %rax, 0x18(%rsp)
movq 0x38(%rsp), %rdi
movq 0x28(%rsp), %rsi
callq 0x12430
movq %rax, 0x20(%rsp)
cmpq $0x0, 0x28(%rsp)
jge 0xaa215
movq 0x170369(%rip), %rax    # 0x21a578
movq %rax, (%rsp)
jmp 0xaa220
movq 0x170354(%rip), %rax    # 0x21a570
movq %rax, (%rsp)
movq 0x20(%rsp), %rcx
movq 0x18(%rsp), %rdx
movq 0x10(%rsp), %rsi
movq 0x8(%rsp), %rdi
movq (%rsp), %r8
callq 0x13880
movq 0x30(%rsp), %rax
movq %rax, 0x40(%rsp)
movq 0x40(%rsp), %rax
addq $0x48, %rsp
retq
nopw %cs:(%rax,%rax)
// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: string_set_p_pip
static s7_pointer string_set_p_pip(s7_scheme *sc, s7_pointer p1, s7_int i1, s7_pointer p2)
    {
        if (!is_string(p1))
            simple_wrong_type_argument(sc, sc->string_set_symbol, p1, T_STRING);
        if (!s7_is_character(p2))
            simple_wrong_type_argument(sc, sc->string_set_symbol, p2, T_CHARACTER);
        if ((i1 >= 0) && (i1 < string_length(p1)))
            string_value(p1)[i1] = s7_character(p2);
        else out_of_range(sc, sc->string_set_symbol, small_int(2), wrap_integer1(sc, i1), (i1 < 0) ? its_negative_string : its_too_large_string);
        return(p2);
    }

// Assembly:
subq $0x48, %rsp
movq %rdi, 0x40(%rsp)
movq %rsi, 0x38(%rsp)
movq %rdx, 0x30(%rsp)
movq %rcx, 0x28(%rsp)
movq 0x38(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x13, %eax
je 0xaa367
movq 0x40(%rsp), %rdi
movq 0x40(%rsp), %rax
movq 0x1550(%rax), %rax
movq 0x8(%rax), %rsi
movq 0x38(%rsp), %rdx
movq 0x40(%rsp), %rax
movq 0x140(%rax), %rcx
movq 0x1702c6(%rip), %r8     # 0x21a628
callq 0x14a60
movq 0x28(%rsp), %rdi
callq 0x14430
testb $0x1, %al
jne 0xaa3a7
movq 0x40(%rsp), %rdi
movq 0x40(%rsp), %rax
movq 0x1550(%rax), %rax
movq 0x8(%rax), %rsi
movq 0x28(%rsp), %rdx
movq 0x40(%rsp), %rax
movq 0x140(%rax), %rcx
movq 0x17022e(%rip), %r8     # 0x21a5d0
callq 0x14a60
cmpq $0x0, 0x30(%rsp)
jl 0xaa3de
movq 0x30(%rsp), %rax
movq 0x38(%rsp), %rcx
cmpq 0x8(%rcx), %rax
jge 0xaa3de
movq 0x28(%rsp), %rdi
callq 0x14450
movb %al, %dl
movq 0x38(%rsp), %rax
movq 0x10(%rax), %rax
movq 0x30(%rsp), %rcx
movb %dl, (%rax,%rcx)
jmp 0xaa45a
movq 0x40(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0x40(%rsp), %rax
movq 0x1550(%rax), %rax
movq 0x8(%rax), %rax
movq %rax, 0x10(%rsp)
movq 0x16c08c(%rip), %rax    # 0x216490
movq %rax, 0x18(%rsp)
movq 0x40(%rsp), %rdi
movq 0x30(%rsp), %rsi
callq 0x12430
movq %rax, 0x20(%rsp)
cmpq $0x0, 0x30(%rsp)
jge 0xaa432
movq 0x17014c(%rip), %rax    # 0x21a578
movq %rax, (%rsp)
jmp 0xaa43d
movq 0x170137(%rip), %rax    # 0x21a570
movq %rax, (%rsp)
movq 0x20(%rsp), %rcx
movq 0x18(%rsp), %rdx
movq 0x10(%rsp), %rsi
movq 0x8(%rsp), %rdi
movq (%rsp), %r8
callq 0x13880
movq 0x28(%rsp), %rax
addq $0x48, %rsp
retq
nopw %cs:(%rax,%rax)