// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: fx_c_s_op_s_opssqq_direct
static s7_pointer fx_c_s_op_s_opssqq_direct(s7_scheme *sc, s7_pointer code)
                {
                    s7_pointer args, val1;
                    args = caddr(code);
                    val1 = caddr(args);
                    return(((s7_p_pp_t)opt3_direct(code))(sc,
                                lookup(sc, cadr(code)),
                                ((s7_p_pp_t)opt2_direct(cdr(code)))(sc,
                                lookup(sc, cadr(args)),
                                ((s7_p_pp_t)opt3_direct(cdr(code)))(sc, lookup(sc, cadr(val1)), lookup(sc, caddr(val1))))));
                }

// Assembly:
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
movq %rdi, %rbx
movq 0x10(%rsi), %rdi
movq 0x8(%rdi), %r9
movq 0x10(%rdi), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rax
movq 0x10(%rax), %r8
movq 0x8(%rbx), %rcx
movq 0x18(%rcx), %rdx
movq 0x20(%r9), %r11
cmpq %r11, %rdx
je 0xbfad0
movq %rcx, %r10
movq %rdx, %r14
jle 0xbfac7
movq %rcx, %r10
movq 0x10(%r10), %r10
movq 0x18(%r10), %r14
cmpq %r14, %r11
jl 0xbfaba
cmpq %r11, %r14
jne 0xbfbb8
movq 0x18(%r9), %r9
movq 0x10(%r9), %r14
movq 0x8(%r8), %r8
movq 0x8(%rax), %rax
movq 0x20(%rax), %r10
cmpq %r10, %rdx
je 0xbfb0a
movq %rcx, %r9
movq %rdx, %r11
jle 0xbfb01
movq %rcx, %r9
movq 0x10(%r9), %r9
movq 0x18(%r9), %r11
cmpq %r11, %r10
jl 0xbfaf4
cmpq %r10, %r11
jne 0xbfc04
movq 0x18(%rax), %rax
movq 0x10(%rax), %r15
movq 0x10(%r8), %r9
movq 0x8(%r9), %r8
movq 0x20(%r8), %rax
cmpq %rax, %rdx
je 0xbfb44
movq %rcx, %r10
movq %rdx, %r11
jle 0xbfb3b
movq %rcx, %r10
movq 0x10(%r10), %r10
movq 0x18(%r10), %r11
cmpq %r11, %rax
jl 0xbfb2e
cmpq %rax, %r11
jne 0xbfc4f
movq 0x18(%r8), %rax
movq 0x10(%rax), %rax
movq 0x28(%rsi), %r10
movq 0x20(%rdi), %r12
movq 0x28(%rdi), %r8
movq 0x10(%r9), %rsi
movq 0x8(%rsi), %rsi
movq 0x20(%rsi), %rdi
cmpq %rdi, %rdx
je 0xbfb81
jle 0xbfb78
movq 0x10(%rcx), %rcx
movq 0x18(%rcx), %rdx
cmpq %rdx, %rdi
jl 0xbfb6b
cmpq %rdi, %rdx
jne 0xbfc9c
movq %r10, %r13
movq 0x18(%rsi), %rcx
movq 0x10(%rcx), %rdx
movq %rbx, %rdi
movq %rax, %rsi
callq *%r8
movq %rbx, %rdi
movq %r15, %rsi
movq %rax, %rdx
callq *%r12
movq %rbx, %rdi
movq %r14, %rsi
movq %rax, %rdx
movq %r13, %rax
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
jmpq *%rax
cmpb $0x1c, (%r10)
jne 0xbfbee
movq 0x8(%r10), %r15
testq %r15, %r15
sete %r11b
je 0xbfbdb
cmpq %r9, 0x8(%r15)
je 0xbfbd7
movq 0x18(%r15), %r15
jmp 0xbfbc2
movq 0x10(%r15), %r14
testb %r11b, %r11b
je 0xbfad8
movq 0x10(%r10), %r10
cmpb $0x1c, (%r10)
je 0xbfbbe
movq 0x10(%r9), %r9
cmpb $0x20, (%r9)
je 0xbfad4
xorl %r14d, %r14d
jmp 0xbfad8
cmpb $0x1c, (%r9)
jne 0xbfc3a
movq 0x8(%r9), %r11
testq %r11, %r11
sete %r10b
je 0xbfc27
cmpq %rax, 0x8(%r11)
je 0xbfc23
movq 0x18(%r11), %r11
jmp 0xbfc0e
movq 0x10(%r11), %r15
testb %r10b, %r10b
je 0xbfb12
movq 0x10(%r9), %r9
cmpb $0x1c, (%r9)
je 0xbfc0a
movq 0x10(%rax), %rax
cmpb $0x20, (%rax)
je 0xbfb0e
xorl %r15d, %r15d
jmp 0xbfb12
cmpb $0x1c, (%r10)
jne 0xbfc88
movq 0x8(%r10), %r12
testq %r12, %r12
sete %r11b
je 0xbfc75
cmpq %r8, 0x8(%r12)
je 0xbfc70
movq 0x18(%r12), %r12
jmp 0xbfc59
movq 0x10(%r12), %rax
testb %r11b, %r11b
je 0xbfb4c
movq 0x10(%r10), %r10
cmpb $0x1c, (%r10)
je 0xbfc55
movq 0x10(%r8), %rax
cmpb $0x20, (%rax)
je 0xbfb48
xorl %eax, %eax
jmp 0xbfb4c
cmpb $0x1c, (%rcx)
jne 0xbfccc
movq 0x8(%rcx), %r9
testq %r9, %r9
sete %dil
je 0xbfcbe
cmpq %rsi, 0x8(%r9)
je 0xbfcba
movq 0x18(%r9), %r9
jmp 0xbfca5
movq 0x10(%r9), %rdx
testb %dil, %dil
je 0xbfce3
movq 0x10(%rcx), %rcx
cmpb $0x1c, (%rcx)
je 0xbfca1
movq %r10, %r13
movq 0x10(%rsi), %rcx
cmpb $0x20, (%rcx)
je 0xbfb88
xorl %edx, %edx
jmp 0xbfb8c
movq %r10, %r13
jmp 0xbfb8c