// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: fx_c_s_op_opssq_opssqq
static s7_pointer fx_c_s_op_opssq_opssqq(s7_scheme *sc, s7_pointer code)
                {
                    s7_pointer args, op1, op2;
#if S7_DEBUGGING
                    if (sc->stack_end >= sc->stack_resize_trigger) fprintf(stderr, "%s[%d]: skipped stack resize\n", __func__, __LINE__);
#endif
                    args = caddr(code);
                    op1 = cadr(args);
                    op2 = caddr(args);
                    set_car(sc->t2_1, lookup(sc, cadr(op1)));
                    set_car(sc->t2_2, lookup(sc, opt2_sym(cdr(op1))));
                    gc_protect_direct(sc, c_call(op1)(sc, sc->t2_1));
                    set_car(sc->t2_1, lookup(sc, cadr(op2)));
                    set_car(sc->t2_2, lookup(sc, opt2_sym(cdr(op2))));
                    set_car(sc->t2_2, c_call(op2)(sc, sc->t2_1));
                    set_car(sc->t2_1, sc->stack_end[-2]);
                    set_car(sc->t2_2, c_call(args)(sc, sc->t2_1));
                    set_car(sc->t2_1, lookup(sc, cadr(code)));
                    sc->stack_end -= 4;

                    return(c_call(code)(sc, sc->t2_1));
                }

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rsi, %r14
movq %rdi, %rbx
movq 0x10(%rsi), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %r15
movq 0x10(%r15), %rcx
movq 0x8(%rcx), %rax
movq 0x10(%rcx), %rcx
movq 0x10(%rax), %rdx
movq 0x8(%rdx), %rdx
movq 0x8(%rdi), %rsi
movq 0x18(%rsi), %r8
movq 0x20(%rdx), %rdi
cmpq %rdi, %r8
je 0xbf547
jle 0xbf53e
movq 0x10(%rsi), %rsi
movq 0x18(%rsi), %r8
cmpq %r8, %rdi
jl 0xbf531
cmpq %rdi, %r8
jne 0xbf6ff
movq 0x18(%rdx), %rdi
movq 0x10(%rdi), %rdx
movq 0x8(%rcx), %r12
movq 0x570(%rbx), %rcx
movq %rdx, 0x8(%rcx)
movq 0x10(%rax), %rcx
movq 0x20(%rcx), %rcx
movq 0x8(%rbx), %rdx
movq 0x18(%rdx), %rdi
movq 0x20(%rcx), %rsi
cmpq %rsi, %rdi
je 0xbf58f
jle 0xbf586
movq 0x10(%rdx), %rdx
movq 0x18(%rdx), %rdi
cmpq %rdi, %rsi
jl 0xbf579
cmpq %rsi, %rdi
jne 0xbf727
movq 0x18(%rcx), %rsi
movq 0x10(%rsi), %rcx
movq 0x578(%rbx), %rdx
movq %rcx, 0x8(%rdx)
movq 0x570(%rbx), %rsi
movq %rbx, %rdi
callq *0x20(%rax)
movq 0x50(%rbx), %rcx
movq $0x1, 0x18(%rcx)
movq 0x50(%rbx), %rcx
leaq 0x20(%rcx), %rdx
movq %rdx, 0x50(%rbx)
movq %rax, 0x10(%rcx)
movq 0x10(%r12), %rax
movq 0x8(%rax), %rax
movq 0x8(%rbx), %rcx
movq 0x18(%rcx), %rsi
movq 0x20(%rax), %rdx
cmpq %rdx, %rsi
je 0xbf5fd
jle 0xbf5f4
movq 0x10(%rcx), %rcx
movq 0x18(%rcx), %rsi
cmpq %rsi, %rdx
jl 0xbf5e7
cmpq %rdx, %rsi
jne 0xbf74f
movq 0x18(%rax), %rdx
movq 0x10(%rdx), %rax
movq 0x570(%rbx), %rcx
movq %rax, 0x8(%rcx)
movq 0x10(%r12), %rax
movq 0x20(%rax), %rax
movq 0x8(%rbx), %rcx
movq 0x18(%rcx), %rsi
movq 0x20(%rax), %rdx
cmpq %rdx, %rsi
je 0xbf642
jle 0xbf639
movq 0x10(%rcx), %rcx
movq 0x18(%rcx), %rsi
cmpq %rsi, %rdx
jl 0xbf62c
cmpq %rdx, %rsi
jne 0xbf777
movq 0x18(%rax), %rdx
movq 0x10(%rdx), %rax
movq 0x578(%rbx), %rcx
movq %rax, 0x8(%rcx)
movq 0x570(%rbx), %rsi
movq %rbx, %rdi
callq *0x20(%r12)
movq 0x578(%rbx), %rcx
movq %rax, 0x8(%rcx)
movq 0x50(%rbx), %rax
movq -0x10(%rax), %rax
movq 0x570(%rbx), %rcx
movq %rax, 0x8(%rcx)
movq 0x570(%rbx), %rsi
movq %rbx, %rdi
callq *0x20(%r15)
movq 0x578(%rbx), %rcx
movq %rax, 0x8(%rcx)
movq 0x10(%r14), %rax
movq 0x8(%rax), %rax
movq 0x8(%rbx), %rcx
movq 0x18(%rcx), %rsi
movq 0x20(%rax), %rdx
cmpq %rdx, %rsi
je 0xbf6cc
jle 0xbf6c3
movq 0x10(%rcx), %rcx
movq 0x18(%rcx), %rsi
cmpq %rsi, %rdx
jl 0xbf6b6
cmpq %rdx, %rsi
jne 0xbf79b
movq 0x18(%rax), %rdx
movq 0x10(%rdx), %rax
movq 0x570(%rbx), %rcx
movq %rax, 0x8(%rcx)
addq $-0x20, 0x50(%rbx)
movq 0x20(%r14), %rax
movq 0x570(%rbx), %rsi
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
jmpq *%rax
cmpb $0x1c, (%rsi)
jne 0xbf7bf
movq 0x8(%rsi), %rdi
testq %rdi, %rdi
je 0xbf721
cmpq %rdx, 0x8(%rdi)
je 0xbf54b
movq 0x18(%rdi), %rdi
jmp 0xbf70c
movq 0x10(%rsi), %rsi
jmp 0xbf6ff
cmpb $0x1c, (%rdx)
jne 0xbf7d3
movq 0x8(%rdx), %rsi
testq %rsi, %rsi
je 0xbf749
cmpq %rcx, 0x8(%rsi)
je 0xbf593
movq 0x18(%rsi), %rsi
jmp 0xbf734
movq 0x10(%rdx), %rdx
jmp 0xbf727
cmpb $0x1c, (%rcx)
jne 0xbf7e7
movq 0x8(%rcx), %rdx
testq %rdx, %rdx
je 0xbf771
cmpq %rax, 0x8(%rdx)
je 0xbf601
movq 0x18(%rdx), %rdx
jmp 0xbf75c
movq 0x10(%rcx), %rcx
jmp 0xbf74f
cmpb $0x1c, (%rcx)
jne 0xbf7fb
movq 0x8(%rcx), %rdx
testq %rdx, %rdx
je 0xbf795
cmpq %rax, 0x8(%rdx)
je 0xbf646
movq 0x18(%rdx), %rdx
jmp 0xbf780
movq 0x10(%rcx), %rcx
jmp 0xbf777
cmpb $0x1c, (%rcx)
jne 0xbf80f
movq 0x8(%rcx), %rdx
testq %rdx, %rdx
je 0xbf7b9
cmpq %rax, 0x8(%rdx)
je 0xbf6d0
movq 0x18(%rdx), %rdx
jmp 0xbf7a4
movq 0x10(%rcx), %rcx
jmp 0xbf79b
movq 0x10(%rdx), %rdi
cmpb $0x20, (%rdi)
je 0xbf54b
xorl %edx, %edx
jmp 0xbf54f
movq 0x10(%rcx), %rsi
cmpb $0x20, (%rsi)
je 0xbf593
xorl %ecx, %ecx
jmp 0xbf597
movq 0x10(%rax), %rdx
cmpb $0x20, (%rdx)
je 0xbf601
xorl %eax, %eax
jmp 0xbf605
movq 0x10(%rax), %rdx
cmpb $0x20, (%rdx)
je 0xbf646
xorl %eax, %eax
jmp 0xbf64a
movq 0x10(%rax), %rdx
cmpb $0x20, (%rdx)
je 0xbf6d0
xorl %eax, %eax
jmp 0xbf6d4