// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: fx_c_op_opssq_sq_s
static s7_pointer fx_c_op_opssq_sq_s(s7_scheme *sc, s7_pointer code)
                {
                    s7_pointer arg;
                    arg = opt3_pair(code); /* cadadr(code); */
                    set_car(sc->t2_1, lookup(sc, cadr(arg)));
                    set_car(sc->t2_2, lookup(sc, opt2_sym(cdr(arg))));
                    set_car(sc->t2_1, c_call(arg)(sc, sc->t2_1));
                    set_car(sc->t2_2, lookup(sc, caddr(cadr(code))));
                    set_car(sc->t2_1, c_call(cadr(code))(sc, sc->t2_1));
                    set_car(sc->t2_2, lookup(sc, caddr(code)));
                    return(c_call(code)(sc, sc->t2_1));
                }

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rsi, %r14
movq %rdi, %rbx
movq 0x28(%rsi), %rax
movq 0x10(%rax), %rcx
movq 0x8(%rcx), %rcx
movq 0x8(%rdi), %rdx
movq 0x18(%rdx), %rdi
movq 0x20(%rcx), %rsi
cmpq %rsi, %rdi
je 0xc6e87
jle 0xc6e7e
movq 0x10(%rdx), %rdx
movq 0x18(%rdx), %rdi
cmpq %rdi, %rsi
jl 0xc6e71
cmpq %rsi, %rdi
jne 0xc6fc5
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 0xc6ecb
jle 0xc6ec2
movq 0x10(%rdx), %rdx
movq 0x18(%rdx), %rdi
cmpq %rdi, %rsi
jl 0xc6eb5
cmpq %rsi, %rdi
jne 0xc700d
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 0x570(%rbx), %rcx
movq %rax, 0x8(%rcx)
movq 0x10(%r14), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq 0x8(%rbx), %rcx
movq 0x18(%rcx), %rsi
movq 0x20(%rax), %rdx
cmpq %rdx, %rsi
je 0xc6f33
jle 0xc6f2a
movq 0x10(%rcx), %rcx
movq 0x18(%rcx), %rsi
cmpq %rsi, %rdx
jl 0xc6f1d
cmpq %rdx, %rsi
jne 0xc7055
movq 0x18(%rax), %rax
movq 0x10(%rax), %rdx
movq 0x578(%rbx), %rax
movq %rdx, 0x8(%rax)
movq 0x10(%r14), %rax
movq 0x8(%rax), %rax
movq 0x570(%rbx), %rsi
movq %rbx, %rdi
callq *0x20(%rax)
movq 0x570(%rbx), %rcx
movq %rax, 0x8(%rcx)
movq 0x10(%r14), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq 0x8(%rbx), %rcx
movq 0x18(%rcx), %rsi
movq 0x20(%rax), %rdx
cmpq %rdx, %rsi
je 0xc6f9b
jle 0xc6f92
movq 0x10(%rcx), %rcx
movq 0x18(%rcx), %rsi
cmpq %rsi, %rdx
jl 0xc6f85
cmpq %rdx, %rsi
jne 0xc709d
movq 0x18(%rax), %rax
movq 0x10(%rax), %rdx
movq 0x578(%rbx), %rax
movq %rdx, 0x8(%rax)
movq 0x20(%r14), %rax
movq 0x570(%rbx), %rsi
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
jmpq *%rax
cmpb $0x1c, (%rdx)
jne 0xc6ff9
movq 0x8(%rdx), %r8
testq %r8, %r8
sete %dil
je 0xc6fe7
cmpq %rcx, 0x8(%r8)
je 0xc6fe3
movq 0x18(%r8), %r8
jmp 0xc6fce
movq 0x10(%r8), %rsi
testb %dil, %dil
je 0xc6e8f
movq 0x10(%rdx), %rdx
cmpb $0x1c, (%rdx)
je 0xc6fca
movq 0x10(%rcx), %rcx
cmpb $0x20, (%rcx)
je 0xc6e8b
xorl %esi, %esi
jmp 0xc6e8f
cmpb $0x1c, (%rdx)
jne 0xc7041
movq 0x8(%rdx), %r8
testq %r8, %r8
sete %dil
je 0xc702f
cmpq %rcx, 0x8(%r8)
je 0xc702b
movq 0x18(%r8), %r8
jmp 0xc7016
movq 0x10(%r8), %rsi
testb %dil, %dil
je 0xc6ed3
movq 0x10(%rdx), %rdx
cmpb $0x1c, (%rdx)
je 0xc7012
movq 0x10(%rcx), %rcx
cmpb $0x20, (%rcx)
je 0xc6ecf
xorl %esi, %esi
jmp 0xc6ed3
cmpb $0x1c, (%rcx)
jne 0xc7089
movq 0x8(%rcx), %rdi
testq %rdi, %rdi
sete %sil
je 0xc7077
cmpq %rax, 0x8(%rdi)
je 0xc7073
movq 0x18(%rdi), %rdi
jmp 0xc705e
movq 0x10(%rdi), %rdx
testb %sil, %sil
je 0xc6f3b
movq 0x10(%rcx), %rcx
cmpb $0x1c, (%rcx)
je 0xc705a
movq 0x10(%rax), %rax
cmpb $0x20, (%rax)
je 0xc6f37
xorl %edx, %edx
jmp 0xc6f3b
cmpb $0x1c, (%rcx)
jne 0xc70d1
movq 0x8(%rcx), %rdi
testq %rdi, %rdi
sete %sil
je 0xc70bf
cmpq %rax, 0x8(%rdi)
je 0xc70bb
movq 0x18(%rdi), %rdi
jmp 0xc70a6
movq 0x10(%rdi), %rdx
testb %sil, %sil
je 0xc6fa3
movq 0x10(%rcx), %rcx
cmpb $0x1c, (%rcx)
je 0xc70a2
movq 0x10(%rax), %rax
cmpb $0x20, (%rax)
je 0xc6f9f
xorl %edx, %edx
jmp 0xc6fa3