// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: opt_i_7piii_args
static bool opt_i_7piii_args(s7_scheme *sc, opt_info *opc, opt_type_t otype, s7_pointer indexp1, s7_pointer indexp2, s7_pointer valp)
                {
                    s7_pointer slot;
                    slot = opt_integer_symbol(sc, car(indexp2));
                    if (slot)
                    {
                        opc->v[3].p = slot;
                        slot = opt_integer_symbol(sc, car(indexp1));
                        if (slot)
                        {
                            opc->v[2].p = slot;
                            if (is_t_integer(car(valp)))
                            {
                                opc->v[0].fi = opt_i_7piii_sssc;
                                opc->v[4].i = integer(car(valp));
                                return(oo_set_type_3(opc, 6, 1, 2, 3, otype, OO_I, OO_I));
                            }
                            slot = opt_integer_symbol(sc, car(valp));
                            if (slot)
                            {
                                opc->v[4].p = slot;
                                opc->v[0].fi = opt_i_7piii_ssss;
                                return(oo_set_type_4(opc, 6, 1, 2, 3, 4, otype, OO_I, OO_I, OO_I));
                            }
                            if (int_optimize(sc, valp))
                            {
                                opc->v[0].fi = opt_i_7piii_sssf;
                                return(oo_set_type_3(opc, 6, 1, 2, 3, otype, OO_I, OO_I));
                            }
                        }
                        return(return_false(sc, NULL, __func__, __LINE__));
                    }
                    if ((int_optimize(sc, indexp1)) &&
                            (int_optimize(sc, indexp2)) &&
                            (int_optimize(sc, valp)))
                    {
                        opc->v[0].fi = opt_i_7piii_sfff;
                        return(oo_set_type_1(opc, 6, 1, otype));
                    }
                    return(return_false(sc, indexp1, __func__, __LINE__));
                }

// Assembly:
subq $0x78, %rsp
movq %rdi, 0x68(%rsp)
movq %rsi, 0x60(%rsp)
movl %edx, 0x5c(%rsp)
movq %rcx, 0x50(%rsp)
movq %r8, 0x48(%rsp)
movq %r9, 0x40(%rsp)
movq 0x68(%rsp), %rdi
movq 0x48(%rsp), %rax
movq 0x8(%rax), %rsi
callq 0xe5260
movq %rax, 0x38(%rsp)
cmpq $0x0, 0x38(%rsp)
je 0xe9665
movq 0x38(%rsp), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x18(%rax)
movq 0x68(%rsp), %rdi
movq 0x50(%rsp), %rax
movq 0x8(%rax), %rsi
callq 0xe5260
movq %rax, 0x38(%rsp)
cmpq $0x0, 0x38(%rsp)
je 0xe965b
movq 0x38(%rsp), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x10(%rax)
movq 0x40(%rsp), %rax
movq 0x8(%rax), %rax
movzbl (%rax), %eax
cmpl $0xb, %eax
jne 0xe953d
movq 0x60(%rsp), %rax
leaq 0x21e(%rip), %rcx       # 0xe96f0
movq %rcx, (%rax)
movq 0x40(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x20(%rax)
movq 0x60(%rsp), %rdi
movl 0x5c(%rsp), %r9d
movl $0x6, %esi
movl $0x1, %edx
movl $0x2, %ecx
movl $0x3, %r8d
leaq 0x105d6e(%rip), %rax    # 0x1ef27f
movl $0x1, (%rsp)
movl $0x1, 0x8(%rsp)
movq %rax, 0x10(%rsp)
movl $0xdc07, 0x18(%rsp)     # imm = 0xDC07
callq 0xe53d0
andb $0x1, %al
movb %al, 0x77(%rsp)
jmp 0xe96e5
movq 0x68(%rsp), %rdi
movq 0x40(%rsp), %rax
movq 0x8(%rax), %rsi
callq 0xe5260
movq %rax, 0x38(%rsp)
cmpq $0x0, 0x38(%rsp)
je 0xe95e3
movq 0x38(%rsp), %rcx
movq 0x60(%rsp), %rax
movq %rcx, 0x20(%rax)
movq 0x60(%rsp), %rax
leaq 0x1c5(%rip), %rcx       # 0xe9740
movq %rcx, (%rax)
movq 0x60(%rsp), %rdi
movl 0x5c(%rsp), %r10d
movl $0x6, %esi
movl $0x1, %edx
movl $0x2, %ecx
movl $0x3, %r8d
movl $0x4, %r9d
leaq 0x105cd5(%rip), %rax    # 0x1ef27f
movl %r10d, (%rsp)
movl $0x1, 0x8(%rsp)
movl $0x1, 0x10(%rsp)
movl $0x1, 0x18(%rsp)
movq %rax, 0x20(%rsp)
movl $0xdc0e, 0x28(%rsp)     # imm = 0xDC0E
callq 0xe6280
andb $0x1, %al
movb %al, 0x77(%rsp)
jmp 0xe96e5
movq 0x68(%rsp), %rdi
movq 0x40(%rsp), %rsi
callq 0xe59c0
testb $0x1, %al
jne 0xe95f8
jmp 0xe9659
movq 0x60(%rsp), %rax
leaq 0x19c(%rip), %rcx       # 0xe97a0
movq %rcx, (%rax)
movq 0x60(%rsp), %rdi
movl 0x5c(%rsp), %r9d
movl $0x6, %esi
movl $0x1, %edx
movl $0x2, %ecx
movl $0x3, %r8d
leaq 0x105c52(%rip), %rax    # 0x1ef27f
movl $0x1, (%rsp)
movl $0x1, 0x8(%rsp)
movq %rax, 0x10(%rsp)
movl $0xdc13, 0x18(%rsp)     # imm = 0xDC13
callq 0xe53d0
andb $0x1, %al
movb %al, 0x77(%rsp)
jmp 0xe96e5
jmp 0xe965b
movb $0x0, 0x77(%rsp)
jmp 0xe96e5
movq 0x68(%rsp), %rdi
movq 0x50(%rsp), %rsi
callq 0xe59c0
testb $0x1, %al
jne 0xe967a
jmp 0xe96e0
movq 0x68(%rsp), %rdi
movq 0x48(%rsp), %rsi
callq 0xe59c0
testb $0x1, %al
jne 0xe968f
jmp 0xe96e0
movq 0x68(%rsp), %rdi
movq 0x40(%rsp), %rsi
callq 0xe59c0
testb $0x1, %al
jne 0xe96a4
jmp 0xe96e0
movq 0x60(%rsp), %rax
leaq 0x1c0(%rip), %rcx       # 0xe9870
movq %rcx, (%rax)
movq 0x60(%rsp), %rdi
movl 0x5c(%rsp), %ecx
movl $0x6, %esi
movl $0x1, %edx
leaq 0x105bb2(%rip), %r8     # 0x1ef27f
movl $0xdc1d, %r9d           # imm = 0xDC1D
callq 0xe4950
andb $0x1, %al
movb %al, 0x77(%rsp)
jmp 0xe96e5
movb $0x0, 0x77(%rsp)
movb 0x77(%rsp), %al
andb $0x1, %al
addq $0x78, %rsp
retq