// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: multivector_to_port
static int32_t multivector_to_port(s7_scheme *sc, s7_pointer vec, s7_pointer port,
            int32_t out_len, int32_t flat_ref, int32_t dimension, int32_t dimensions, bool *last,
            use_write_t use_write, shared_info *ci)
    {
        int32_t i;
        if (use_write != P_READABLE)
        {
            if (*last)
                port_write_string(port)(sc, " (", 2, port);
            else port_write_character(port)(sc, '(', port);
            (*last) = false;
        }

        for (i = 0; i < vector_dimension(vec, dimension); i++)
        {
            if (dimension == (dimensions - 1))
            {
                if (flat_ref < out_len)
                {
                    object_to_port_with_circle_check(sc, vector_getter(vec)(sc, vec, flat_ref), port, NOT_P_DISPLAY(use_write), ci);

                    if (use_write == P_READABLE)
                        port_write_string(port)(sc, ") ", 2, port);
                    flat_ref++;
                }
                else
                {
                    port_write_string(port)(sc, "...)", 4, port);
                    return(flat_ref);
                }
                if ((use_write != P_READABLE) &&
                        (i < (vector_dimension(vec, dimension) - 1)))
                    port_write_character(port)(sc, ' ', port);
            }
            else
            {
                if (flat_ref < out_len)
                    flat_ref = multivector_to_port(sc, vec, port, out_len, flat_ref, dimension + 1, dimensions, last, NOT_P_DISPLAY(use_write), ci);
                else
                {
                    port_write_string(port)(sc, "...)", 4, port);
                    return(flat_ref);
                }
            }
        }
        if (use_write != P_READABLE)
            port_write_character(port)(sc, ')', port);
        (*last) = true;
        return(flat_ref);
    }

// Assembly:
pushq %rbx
subq $0xe0, %rsp
movq 0x108(%rsp), %rax
movl 0x100(%rsp), %eax
movq 0xf8(%rsp), %rax
movl 0xf0(%rsp), %eax
movq %rdi, 0xd0(%rsp)
movq %rsi, 0xc8(%rsp)
movq %rdx, 0xc0(%rsp)
movl %ecx, 0xbc(%rsp)
movl %r8d, 0xb8(%rsp)
movl %r9d, 0xb4(%rsp)
cmpl $0x2, 0x100(%rsp)
je 0x1ae186
movq 0xf8(%rsp), %rax
testb $0x1, (%rax)
je 0x1ae150
movq 0xc0(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x48(%rax), %rax
movq 0x10(%rax), %rax
movq 0xd0(%rsp), %rdi
movq 0xc0(%rsp), %rcx
leaq 0x44421(%rip), %rsi     # 0x1f2568
movl $0x2, %edx
callq *%rax
jmp 0x1ae17b
movq 0xc0(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x48(%rax), %rax
movq 0x8(%rax), %rax
movq 0xd0(%rsp), %rdi
movq 0xc0(%rsp), %rdx
movl $0x28, %esi
callq *%rax
movq 0xf8(%rsp), %rax
movb $0x0, (%rax)
movl $0x0, 0xb0(%rsp)
movslq 0xb0(%rsp), %rax
movq 0xc8(%rsp), %rcx
movq 0x18(%rcx), %rcx
movq 0x20(%rcx), %rcx
movq (%rcx), %rcx
movslq 0xb4(%rsp), %rdx
cmpq (%rcx,%rdx,8), %rax
jge 0x1ae5cb
movl 0xb4(%rsp), %eax
movl 0xf0(%rsp), %ecx
subl $0x1, %ecx
cmpl %ecx, %eax
jne 0x1ae485
movl 0xb8(%rsp), %eax
cmpl 0xbc(%rsp), %eax
jge 0x1ae3d6
jmp 0x1ae1ed
movq 0xc8(%rsp), %rax
movq 0x20(%rax), %rax
movq 0xd0(%rsp), %rdi
movq 0xc8(%rsp), %rsi
movslq 0xb8(%rsp), %rdx
callq *%rax
movq %rax, 0xa8(%rsp)
cmpq $0x0, 0x108(%rsp)
je 0x1ae2f9
movq 0xa8(%rsp), %rax
movzbl (%rax), %eax
movl %eax, %ecx
leaq 0x73c52(%rip), %rax     # 0x221e90
testb $0x1, (%rax,%rcx)
je 0x1ae2f9
movq 0xa8(%rsp), %rax
movzbl (%rax), %eax
cmpl $0x15, %eax
jne 0x1ae272
movq 0xa8(%rsp), %rax
movzwl 0x6(%rax), %eax
andl $0x100, %eax            # imm = 0x100
cmpl $0x0, %eax
jne 0x1ae2f9
movq 0xd0(%rsp), %rax
movq %rax, 0x90(%rsp)
movq 0xa8(%rsp), %rax
movq %rax, 0x98(%rsp)
movq 0xc0(%rsp), %rax
movq %rax, 0xa0(%rsp)
cmpl $0x0, 0x100(%rsp)
jne 0x1ae2ba
movl $0x1, %eax
movl %eax, 0x8c(%rsp)
jmp 0x1ae2c8
movl 0x100(%rsp), %eax
movl %eax, 0x8c(%rsp)
movq 0xa0(%rsp), %rdx
movq 0x98(%rsp), %rsi
movq 0x90(%rsp), %rdi
movl 0x8c(%rsp), %ecx
movq 0x108(%rsp), %r8
callq 0xd0220
jmp 0x1ae385
movq 0xa8(%rsp), %rax
movzbl (%rax), %eax
movl %eax, %ecx
leaq 0x73bc3(%rip), %rax     # 0x221ed0
movq (%rax,%rcx,8), %rax
movq %rax, 0x68(%rsp)
movq 0xd0(%rsp), %rax
movq %rax, 0x70(%rsp)
movq 0xa8(%rsp), %rax
movq %rax, 0x78(%rsp)
movq 0xc0(%rsp), %rax
movq %rax, 0x80(%rsp)
cmpl $0x0, 0x100(%rsp)
jne 0x1ae355
movl $0x1, %eax
movl %eax, 0x64(%rsp)
jmp 0x1ae360
movl 0x100(%rsp), %eax
movl %eax, 0x64(%rsp)
movq 0x68(%rsp), %rax
movq 0x80(%rsp), %rdx
movq 0x78(%rsp), %rsi
movq 0x70(%rsp), %rdi
movl 0x64(%rsp), %ecx
movq 0x108(%rsp), %r8
callq *%rax
jmp 0x1ae387
cmpl $0x2, 0x100(%rsp)
jne 0x1ae3c3
movq 0xc0(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x48(%rax), %rax
movq 0x10(%rax), %rax
movq 0xd0(%rsp), %rdi
movq 0xc0(%rsp), %rcx
leaq 0x4431f(%rip), %rsi     # 0x1f26db
movl $0x2, %edx
callq *%rax
movl 0xb8(%rsp), %eax
addl $0x1, %eax
movl %eax, 0xb8(%rsp)
jmp 0x1ae41b
movq 0xc0(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x48(%rax), %rax
movq 0x10(%rax), %rax
movq 0xd0(%rsp), %rdi
movq 0xc0(%rsp), %rcx
leaq 0x42208(%rip), %rsi     # 0x1f0609
movl $0x4, %edx
callq *%rax
movl 0xb8(%rsp), %eax
movl %eax, 0xdc(%rsp)
jmp 0x1ae619
cmpl $0x2, 0x100(%rsp)
je 0x1ae480
movslq 0xb0(%rsp), %rax
movq 0xc8(%rsp), %rcx
movq 0x18(%rcx), %rcx
movq 0x20(%rcx), %rcx
movq (%rcx), %rcx
movslq 0xb4(%rsp), %rdx
movq (%rcx,%rdx,8), %rcx
subq $0x1, %rcx
cmpq %rcx, %rax
jge 0x1ae480
movq 0xc0(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x48(%rax), %rax
movq 0x8(%rax), %rax
movq 0xd0(%rsp), %rdi
movq 0xc0(%rsp), %rdx
movl $0x20, %esi
callq *%rax
jmp 0x1ae5b3
movl 0xb8(%rsp), %eax
cmpl 0xbc(%rsp), %eax
jge 0x1ae56f
movq 0xd0(%rsp), %rax
movq %rax, 0x30(%rsp)
movq 0xc8(%rsp), %rax
movq %rax, 0x38(%rsp)
movq 0xc0(%rsp), %rax
movq %rax, 0x40(%rsp)
movl 0xbc(%rsp), %eax
movl %eax, 0x48(%rsp)
movl 0xb8(%rsp), %eax
movl %eax, 0x4c(%rsp)
movl 0xb4(%rsp), %eax
addl $0x1, %eax
movl %eax, 0x50(%rsp)
movl 0xf0(%rsp), %eax
movl %eax, 0x54(%rsp)
movq 0xf8(%rsp), %rax
movq %rax, 0x58(%rsp)
cmpl $0x0, 0x100(%rsp)
jne 0x1ae511
movl $0x1, %eax
movl %eax, 0x2c(%rsp)
jmp 0x1ae51c
movl 0x100(%rsp), %eax
movl %eax, 0x2c(%rsp)
movq 0x58(%rsp), %r11
movl 0x54(%rsp), %ebx
movl 0x50(%rsp), %r9d
movl 0x4c(%rsp), %r8d
movl 0x48(%rsp), %ecx
movq 0x40(%rsp), %rdx
movq 0x38(%rsp), %rsi
movq 0x30(%rsp), %rdi
movl 0x2c(%rsp), %r10d
movq 0x108(%rsp), %rax
movl %ebx, (%rsp)
movq %r11, 0x8(%rsp)
movl %r10d, 0x10(%rsp)
movq %rax, 0x18(%rsp)
callq 0x1ae0b0
movl %eax, 0xb8(%rsp)
jmp 0x1ae5b1
movq 0xc0(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x48(%rax), %rax
movq 0x10(%rax), %rax
movq 0xd0(%rsp), %rdi
movq 0xc0(%rsp), %rcx
leaq 0x4206f(%rip), %rsi     # 0x1f0609
movl $0x4, %edx
callq *%rax
movl 0xb8(%rsp), %eax
movl %eax, 0xdc(%rsp)
jmp 0x1ae619
jmp 0x1ae5b3
jmp 0x1ae5b5
movl 0xb0(%rsp), %eax
addl $0x1, %eax
movl %eax, 0xb0(%rsp)
jmp 0x1ae191
cmpl $0x2, 0x100(%rsp)
je 0x1ae600
movq 0xc0(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x48(%rax), %rax
movq 0x8(%rax), %rax
movq 0xd0(%rsp), %rdi
movq 0xc0(%rsp), %rdx
movl $0x29, %esi
callq *%rax
movq 0xf8(%rsp), %rax
movb $0x1, (%rax)
movl 0xb8(%rsp), %eax
movl %eax, 0xdc(%rsp)
movl 0xdc(%rsp), %eax
addq $0xe0, %rsp
popq %rbx
retq
nopl (%rax)