// File: /workspace/github_c_makefile_star2_O1/BernardTatin[P]s7sh/s7.c
// Function: op_do_no_vars
static bool op_do_no_vars(s7_scheme *sc)
                {
                    s7_pointer p, form;
                    int32_t i;
                    form = sc->code;
                    set_current_code(sc, form);
                    sc->code = cdr(sc->code);
                    sc->pc = 0;
                    reset_opts(sc);
                    for (i = 0, p = cddr(sc->code); is_pair(p); i++, p = cdr(p))
                        if (!cell_optimize(sc, p))
                            break;
                    if (is_null(p))
                    {
                        s7_pointer end;
                        end = cadr(sc->code);
                        new_frame(sc, sc->envir, sc->envir);
                        if (i == 1)
                        {
                            while (true)
                            {
                                sc->value = fx_call(sc, end);
                                if (is_true(sc, sc->value))
                                {
                                    sc->code = cdr(end);
                                    return(true);
                                }
                                sc->pc = 0;
                                sc->opts[0]->v[0].fp(sc->opts[0]);
                            }
                        }
                        else
                        {
                            if (i == 0) /* null body! */
                            {
                                s7_function endf;
                                s7_pointer endp;
                                endf = c_call(end);
                                endp = car(end);
                                while (!is_true(sc, sc->value = endf(sc, endp))); /* the assignment is (normally) in the noise */
                                sc->code = cdr(end);
                                return(true);
                            }
                            while (true)
                            {
                                int32_t k;
                                sc->value = fx_call(sc, end);
                                if (is_true(sc, sc->value))
                                {
                                    sc->code = cdr(end);
                                    return(true);
                                }
                                sc->pc = -1;
                                for (k = 0; k < i; k++)
                                {
                                    opt_info *o;
                                    o = sc->opts[++sc->pc];
                                    o->v[0].fp(o);
                                }
                            }
                        }
                    }
                    /* back out */
                    pair_set_syntax_op(form, OP_DO_NO_VARS_NO_OPT);
                    sc->envir = new_frame_in_env(sc, sc->envir);
                    sc->value = fx_call(sc, cadr(sc->code));
                    if (is_true(sc, sc->value))
                    {
                        sc->code = cdadr(sc->code);
                        return(true);
                    }
                    push_stack_no_args(sc, OP_DO_NO_VARS_NO_OPT_1, sc->code);
                    sc->code = T_Pair(cddr(sc->code));
                    return(false);
                }

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq (%rdi), %r15
movq %r15, 0x28(%rdi)
movq 0x10(%r15), %rax
movq %rax, (%rdi)
movl $0x0, 0x2258(%rdi)
movq 0x10(%rax), %rax
movq 0x10(%rax), %r14
xorl %ebp, %ebp
cmpb $0x1, (%r14)
jne 0xcf70e
xorl %ebp, %ebp
movq %rbx, %rdi
movq %r14, %rsi
callq 0xa8bbb
testb %al, %al
je 0xcf70e
incl %ebp
movq 0x10(%r14), %r14
cmpb $0x1, (%r14)
je 0xcf6f3
cmpq 0x110(%rbx), %r14
je 0xcf7c1
movw $0x2fb, 0x4(%r15)       # imm = 0x2FB
movw $0x201, (%r15)          # imm = 0x201
movq 0x8(%rbx), %r14
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0xcf744
movq %rbx, %rdi
callq 0xb389
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movq $0x20001c, (%rax)       # imm = 0x20001C
movq 0x250(%rbx), %rcx
incq %rcx
movq %rcx, 0x250(%rbx)
movq %rcx, 0x18(%rax)
movq $0x0, 0x8(%rax)
movq %r14, 0x10(%rax)
movq %rax, 0x8(%rbx)
movq (%rbx), %rax
movq 0x10(%rax), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rsi
movq %rbx, %rdi
callq *0x20(%rax)
movq %rax, 0x20(%rbx)
movq (%rbx), %rcx
cmpq 0x120(%rbx), %rax
setne %bpl
je 0xcf8db
addq $0x10, %rcx
movl $0x8, %eax
jmp 0xcf907
movq (%rbx), %rax
movq 0x90(%rbx), %rcx
movq 0x10(%rax), %rax
movq 0x8(%rax), %r15
cmpq 0x98(%rbx), %rcx
ja 0xcf7e4
movq %rbx, %rdi
callq 0xb389
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movq $0x20001c, (%rax)       # imm = 0x20001C
movq 0x250(%rbx), %rcx
incq %rcx
movq %rcx, 0x250(%rbx)
movq %rcx, 0x18(%rax)
movq $0x0, 0x8(%rax)
movq 0x8(%rbx), %rcx
movq %rcx, 0x10(%rax)
movq %rax, 0x8(%rbx)
testl %ebp, %ebp
je 0xcf926
cmpl $0x1, %ebp
jne 0xcf87a
movq 0x8(%r15), %rsi
movq %rbx, %rdi
callq *0x20(%r15)
movq %rax, 0x20(%rbx)
movb $0x1, %bpl
cmpq 0x120(%rbx), %rax
jne 0xcf90e
movl $0x0, 0x2258(%rbx)
movq 0x2260(%rbx), %rdi
callq *(%rdi)
movq 0x8(%r15), %rsi
movq %rbx, %rdi
callq *0x20(%r15)
movq %rax, 0x20(%rbx)
jmp 0xcf849
movq 0x8(%r15), %rsi
movq %rbx, %rdi
callq *0x20(%r15)
movq %rax, %r14
movq %rax, 0x20(%rbx)
movq 0x120(%rbx), %r12
cmpq %r12, %rax
je 0xcf8a1
movq 0x10(%r15), %rax
movq %rax, (%rbx)
jmp 0xcf8d1
movl $0xffffffff, 0x2258(%rbx) # imm = 0xFFFFFFFF
testl %ebp, %ebp
je 0xcf8d1
movl %ebp, %r13d
movslq 0x2258(%rbx), %rax
leal 0x1(%rax), %ecx
movl %ecx, 0x2258(%rbx)
movq 0x2268(%rbx,%rax,8), %rdi
callq *(%rdi)
decl %r13d
jne 0xcf8b2
cmpq %r12, %r14
je 0xcf87a
movb $0x1, %bpl
jmp 0xcf915
movq 0x50(%rbx), %rax
movq %rcx, (%rax)
movq 0x8(%rbx), %rax
movq 0x50(%rbx), %rcx
movq %rax, 0x8(%rcx)
movq 0x50(%rbx), %rax
movq $0x2fc, 0x18(%rax)      # imm = 0x2FC
addq $0x20, 0x50(%rbx)
movl $0x10, %eax
movq %rbx, %rcx
movq (%rcx), %rcx
movq (%rcx,%rax), %r15
movq 0x10(%r15), %rax
movq %rax, (%rbx)
movl %ebp, %eax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movq 0x8(%r15), %r14
movq 0x20(%r15), %r12
movq %rbx, %rdi
movq %r14, %rsi
callq *%r12
movq %rax, 0x20(%rbx)
cmpq 0x120(%rbx), %rax
je 0xcf92e
movb $0x1, %bpl
jmp 0xcf90e