// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: fx_c_opssq_opssq
static s7_pointer fx_c_opssq_opssq(s7_scheme *sc, s7_pointer arg)
                {
                    s7_pointer largs;
#if S7_DEBUGGING
                    if (sc->stack_end >= sc->stack_resize_trigger) fprintf(stderr, "%s[%d]: skipped stack resize\n", __func__, __LINE__);
#endif
                    largs = cdr(arg);
                    set_car(sc->t2_1, lookup(sc, cadar(largs)));
                    set_car(sc->t2_2, lookup(sc, opt2_sym(cdar(largs))));
                    gc_protect_direct(sc, c_call(car(largs))(sc, sc->t2_1));
                    largs = cadr(largs);
                    set_car(sc->t2_1, lookup(sc, cadr(largs)));
                    set_car(sc->t2_2, lookup(sc, opt2_sym(cdr(largs))));
                    set_car(sc->t2_2, c_call(largs)(sc, sc->t2_1));
                    set_car(sc->t2_1, sc->stack_end[-2]);
                    sc->stack_end -= 4;
                    return(c_call(arg)(sc, sc->t2_1));
                }

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rsi, %r14
movq %rdi, %rbx
movq 0x10(%rsi), %r15
movq 0x8(%r15), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq 0x8(%rdi), %rcx
movq 0x18(%rcx), %rsi
movq 0x20(%rax), %rdx
cmpq %rdx, %rsi
je 0xbbe77
jle 0xbbe6e
movq 0x10(%rcx), %rcx
movq 0x18(%rcx), %rsi
cmpq %rsi, %rdx
jl 0xbbe61
cmpq %rdx, %rsi
jne 0xbbfd4
movq 0x18(%rax), %rax
movq 0x10(%rax), %rdx
movq 0x570(%rbx), %rax
movq %rdx, 0x8(%rax)
movq 0x8(%r15), %rax
movq 0x10(%rax), %rax
movq 0x20(%rax), %rax
movq 0x8(%rbx), %rcx
movq 0x18(%rcx), %rsi
movq 0x20(%rax), %rdx
cmpq %rdx, %rsi
je 0xbbebf
jle 0xbbeb6
movq 0x10(%rcx), %rcx
movq 0x18(%rcx), %rsi
cmpq %rsi, %rdx
jl 0xbbea9
cmpq %rdx, %rsi
jne 0xbc01c
movq 0x18(%rax), %rax
movq 0x10(%rax), %rdx
movq 0x578(%rbx), %rax
movq %rdx, 0x8(%rax)
movq 0x8(%r15), %rax
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(%r15), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rcx
movq 0x8(%rcx), %rcx
movq 0x8(%rbx), %rdx
movq 0x18(%rdx), %rdi
movq 0x20(%rcx), %rsi
cmpq %rsi, %rdi
je 0xbbf38
jle 0xbbf2f
movq 0x10(%rdx), %rdx
movq 0x18(%rdx), %rdi
cmpq %rdi, %rsi
jl 0xbbf22
cmpq %rsi, %rdi
jne 0xbc064
movq 0x18(%rcx), %rcx
movq 0x10(%rcx), %rsi
movq 0x570(%rbx), %rcx
movq %rsi, 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 0xbbf7c
jle 0xbbf73
movq 0x10(%rdx), %rdx
movq 0x18(%rdx), %rdi
cmpq %rdi, %rsi
jl 0xbbf66
cmpq %rsi, %rdi
jne 0xbc0ac
movq 0x18(%rcx), %rcx
movq 0x10(%rcx), %rsi
movq 0x578(%rbx), %rcx
movq %rsi, 0x8(%rcx)
movq 0x570(%rbx), %rsi
movq %rbx, %rdi
callq *0x20(%rax)
movq 0x578(%rbx), %rcx
movq %rax, 0x8(%rcx)
movq 0x50(%rbx), %rax
movq -0x10(%rax), %rax
movq 0x570(%rbx), %rcx
movq %rax, 0x8(%rcx)
addq $-0x20, 0x50(%rbx)
movq 0x20(%r14), %rax
movq 0x570(%rbx), %rsi
movq %rbx, %rdi
popq %rbx
popq %r14
popq %r15
jmpq *%rax
cmpb $0x1c, (%rcx)
jne 0xbc008
movq 0x8(%rcx), %rdi
testq %rdi, %rdi
sete %sil
je 0xbbff6
cmpq %rax, 0x8(%rdi)
je 0xbbff2
movq 0x18(%rdi), %rdi
jmp 0xbbfdd
movq 0x10(%rdi), %rdx
testb %sil, %sil
je 0xbbe7f
movq 0x10(%rcx), %rcx
cmpb $0x1c, (%rcx)
je 0xbbfd9
movq 0x10(%rax), %rax
cmpb $0x20, (%rax)
je 0xbbe7b
xorl %edx, %edx
jmp 0xbbe7f
cmpb $0x1c, (%rcx)
jne 0xbc050
movq 0x8(%rcx), %rdi
testq %rdi, %rdi
sete %sil
je 0xbc03e
cmpq %rax, 0x8(%rdi)
je 0xbc03a
movq 0x18(%rdi), %rdi
jmp 0xbc025
movq 0x10(%rdi), %rdx
testb %sil, %sil
je 0xbbec7
movq 0x10(%rcx), %rcx
cmpb $0x1c, (%rcx)
je 0xbc021
movq 0x10(%rax), %rax
cmpb $0x20, (%rax)
je 0xbbec3
xorl %edx, %edx
jmp 0xbbec7
cmpb $0x1c, (%rdx)
jne 0xbc098
movq 0x8(%rdx), %r8
testq %r8, %r8
sete %dil
je 0xbc086
cmpq %rcx, 0x8(%r8)
je 0xbc082
movq 0x18(%r8), %r8
jmp 0xbc06d
movq 0x10(%r8), %rsi
testb %dil, %dil
je 0xbbf40
movq 0x10(%rdx), %rdx
cmpb $0x1c, (%rdx)
je 0xbc069
movq 0x10(%rcx), %rcx
cmpb $0x20, (%rcx)
je 0xbbf3c
xorl %esi, %esi
jmp 0xbbf40
cmpb $0x1c, (%rdx)
jne 0xbc0e0
movq 0x8(%rdx), %r8
testq %r8, %r8
sete %dil
je 0xbc0ce
cmpq %rcx, 0x8(%r8)
je 0xbc0ca
movq 0x18(%r8), %r8
jmp 0xbc0b5
movq 0x10(%r8), %rsi
testb %dil, %dil
je 0xbbf84
movq 0x10(%rdx), %rdx
cmpb $0x1c, (%rdx)
je 0xbc0b1
movq 0x10(%rcx), %rcx
cmpb $0x20, (%rcx)
je 0xbbf80
xorl %esi, %esi
jmp 0xbbf84