// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: make_standard_ports
static void make_standard_ports(s7_scheme *sc)
    {
        s7_pointer x;

        /* standard output */
        x = alloc_pointer(sc);
#if S7_DEBUGGING
        permanent_ports += 3;
#endif
        set_type(x, T_OUTPUT_PORT | T_IMMUTABLE | T_UNHEAP);
        port_port(x) = (port_t *)calloc(1, sizeof(port_t));
        port_type(x) = FILE_PORT;
        port_data(x) = NULL;
        port_data_block(x) = NULL;
        port_set_closed(x, false);
        port_filename_length(x) = 8;
        port_set_filename(sc, x, "*stdout*", 8);
        port_file_number(x) = remember_file_name(sc, port_filename(x)); /* these numbers need to be correct for the evaluator (__FUNC__ data) */
        port_line_number(x) = 0;
        port_file(x) = stdout;
        port_needs_free(x) = false;
        port_port(x)->pf = &stdout_functions;
        sc->standard_output = x;

        /* standard error */
        x = alloc_pointer(sc);
        set_type(x, T_OUTPUT_PORT | T_IMMUTABLE | T_UNHEAP);
        port_port(x) = (port_t *)calloc(1, sizeof(port_t));
        port_type(x) = FILE_PORT;
        port_data(x) = NULL;
        port_data_block(x) = NULL;
        port_set_closed(x, false);
        port_filename_length(x) = 8;
        port_set_filename(sc, x, "*stderr*", 8);
        port_file_number(x) = remember_file_name(sc, port_filename(x));
        port_line_number(x) = 0;
        port_file(x) = stderr;
        port_needs_free(x) = false;
        port_port(x)->pf = &stderr_functions;
        sc->standard_error = x;

        /* standard input */
        x = alloc_pointer(sc);
        set_type(x, T_INPUT_PORT | T_IMMUTABLE | T_UNHEAP);
        port_port(x) = (port_t *)calloc(1, sizeof(port_t));
        port_type(x) = FILE_PORT;
        port_set_closed(x, false);
        port_original_input_string(x) = sc->nil;
        port_filename_length(x) = 7;
        port_set_filename(sc, x, "*stdin*", 7);
        port_file_number(x) = remember_file_name(sc, port_filename(x));
        port_line_number(x) = 0;
        port_file(x) = stdin;
        port_data_block(x) = NULL;
        port_needs_free(x) = false;
        port_port(x)->pf = &stdin_functions;
        sc->standard_input = x;

        s7_define_constant_with_documentation(sc, "*stdin*", sc->standard_input, "*stdin* is the built-in input port, C's stdin");
        s7_define_constant_with_documentation(sc, "*stdout*", sc->standard_output, "*stdout* is the built-in buffered output port, C's stdout");
        s7_define_constant_with_documentation(sc, "*stderr*", sc->standard_error, "*stderr* is the built-in unbuffered output port, C's stderr");

        sc->input_port = sc->standard_input;
        sc->output_port = sc->standard_output;
        sc->error_port = sc->standard_error;
        sc->current_file = NULL;
        sc->current_line = -1;
    }

// Assembly:
subq $0x18, %rsp
movq %rdi, 0x10(%rsp)
movq 0x10(%rsp), %rdi
callq 0x148a0
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movabsq $0x4000000001000022, %rcx # imm = 0x4000000001000022
movq %rcx, (%rax)
movl $0x1, %edi
movl $0x60, %esi
callq 0x9360
movq %rax, %rcx
movq 0x8(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movl $0x0, 0x4(%rax)
movq 0x8(%rsp), %rax
movq $0x0, 0x10(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq $0x0, 0x38(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movb $0x0, 0x2(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq $0x8, 0x30(%rax)
movq 0x10(%rsp), %rdi
movq 0x8(%rsp), %rsi
leaq 0x191e57(%rip), %rdx    # 0x1f3319
movl $0x8, %ecx
callq 0x15600
movq 0x10(%rsp), %rdi
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rsi
callq 0xcfb10
movl %eax, %ecx
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movl %ecx, 0x24(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movl $0x0, 0x20(%rax)
movq 0x1b3ac8(%rip), %rax    # 0x214fd0
movq (%rax), %rcx
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movb $0x0, (%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
leaq 0x1b4bfc(%rip), %rcx    # 0x216130
movq %rcx, 0x48(%rax)
movq 0x8(%rsp), %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x1d0(%rax)
movq 0x10(%rsp), %rdi
callq 0x148a0
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movabsq $0x4000000001000022, %rcx # imm = 0x4000000001000022
movq %rcx, (%rax)
movl $0x1, %edi
movl $0x60, %esi
callq 0x9360
movq %rax, %rcx
movq 0x8(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movl $0x0, 0x4(%rax)
movq 0x8(%rsp), %rax
movq $0x0, 0x10(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq $0x0, 0x38(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movb $0x0, 0x2(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq $0x8, 0x30(%rax)
movq 0x10(%rsp), %rdi
movq 0x8(%rsp), %rsi
leaq 0x191d40(%rip), %rdx    # 0x1f3322
movl $0x8, %ecx
callq 0x15600
movq 0x10(%rsp), %rdi
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rsi
callq 0xcfb10
movl %eax, %ecx
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movl %ecx, 0x24(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movl $0x0, 0x20(%rax)
movq 0x1b39d0(%rip), %rax    # 0x214ff8
movq (%rax), %rcx
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movb $0x0, (%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
leaq 0x1b4b2c(%rip), %rcx    # 0x216180
movq %rcx, 0x48(%rax)
movq 0x8(%rsp), %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x1d8(%rax)
movq 0x10(%rsp), %rdi
callq 0x148a0
movq %rax, 0x8(%rsp)
movq 0x8(%rsp), %rax
movabsq $0x4000000001000023, %rcx # imm = 0x4000000001000023
movq %rcx, (%rax)
movl $0x1, %edi
movl $0x60, %esi
callq 0x9360
movq %rax, %rcx
movq 0x8(%rsp), %rax
movq %rcx, 0x8(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movl $0x0, 0x4(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movb $0x0, 0x2(%rax)
movq 0x10(%rsp), %rax
movq 0x110(%rax), %rcx
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq %rcx, 0x40(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq $0x7, 0x30(%rax)
movq 0x10(%rsp), %rdi
movq 0x8(%rsp), %rsi
leaq 0x191c2e(%rip), %rdx    # 0x1f332b
movl $0x7, %ecx
callq 0x15600
movq 0x10(%rsp), %rdi
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq 0x10(%rax), %rsi
callq 0xcfb10
movl %eax, %ecx
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movl %ecx, 0x24(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movl $0x0, 0x20(%rax)
movq 0x1b3895(%rip), %rax    # 0x214fd8
movq (%rax), %rcx
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movq $0x0, 0x38(%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
movb $0x0, (%rax)
movq 0x8(%rsp), %rax
movq 0x8(%rax), %rax
leaq 0x1b4a50(%rip), %rcx    # 0x2161d0
movq %rcx, 0x48(%rax)
movq 0x8(%rsp), %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x1c8(%rax)
movq 0x10(%rsp), %rdi
movq 0x10(%rsp), %rax
movq 0x1c8(%rax), %rdx
leaq 0x191b7e(%rip), %rsi    # 0x1f332b
leaq 0x191b7f(%rip), %rcx    # 0x1f3333
callq 0x10410
movq 0x10(%rsp), %rdi
movq 0x10(%rsp), %rax
movq 0x1d0(%rax), %rdx
leaq 0x191b48(%rip), %rsi    # 0x1f3319
leaq 0x191b89(%rip), %rcx    # 0x1f3361
callq 0x10410
movq 0x10(%rsp), %rdi
movq 0x10(%rsp), %rax
movq 0x1d8(%rax), %rdx
leaq 0x191b2d(%rip), %rsi    # 0x1f3322
leaq 0x191b9f(%rip), %rcx    # 0x1f339b
callq 0x10410
movq 0x10(%rsp), %rax
movq 0x1c8(%rax), %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x170(%rax)
movq 0x10(%rsp), %rax
movq 0x1d0(%rax), %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x188(%rax)
movq 0x10(%rsp), %rax
movq 0x1d8(%rax), %rcx
movq 0x10(%rsp), %rax
movq %rcx, 0x190(%rax)
movq 0x10(%rsp), %rax
movq $0x0, 0x6a8(%rax)
movq 0x10(%rsp), %rax
movq $-0x1, 0x690(%rax)
addq $0x18, %rsp
retq
nop