// File: /workspace/github_c_makefile_star2_O0/BernardTatin[P]s7sh/s7.c
// Function: init_ctables
static void init_ctables(void)
    {
        int32_t i;

        exponent_table = (bool *)calloc(CTABLE_SIZE, sizeof(bool));
        slashify_table = (bool *)calloc(CTABLE_SIZE, sizeof(bool));
        symbol_slashify_table = (bool *)calloc(CTABLE_SIZE, sizeof(bool));
        char_ok_in_a_name = (bool *)calloc(CTABLE_SIZE, sizeof(bool));
        white_space = (bool *)calloc(CTABLE_SIZE + 1, sizeof(bool));
        white_space++;      /* leave white_space[-1] false for white_space[EOF] */
        number_table = (bool *)calloc(CTABLE_SIZE, sizeof(bool));
        digits = (int32_t *)calloc(CTABLE_SIZE, sizeof(int32_t));

        for (i = 0; i < CTABLE_SIZE; i++)
        {
            char_ok_in_a_name[i] = true;
            white_space[i] = false;
            digits[i] = 256;
            number_table[i] = false;
        }

        char_ok_in_a_name[0] = false;
        char_ok_in_a_name[(uint8_t)'('] = false;  /* cast for C++ */
        char_ok_in_a_name[(uint8_t)')'] = false;
        char_ok_in_a_name[(uint8_t)';'] = false;
        char_ok_in_a_name[(uint8_t)'\t'] = false;
        char_ok_in_a_name[(uint8_t)'\n'] = false;
        char_ok_in_a_name[(uint8_t)'\r'] = false;
        char_ok_in_a_name[(uint8_t)' '] = false;
        char_ok_in_a_name[(uint8_t)'"'] = false;

        white_space[(uint8_t)'\t'] = true;
        white_space[(uint8_t)'\n'] = true;
        white_space[(uint8_t)'\r'] = true;
        white_space[(uint8_t)'\f'] = true;
        white_space[(uint8_t)'\v'] = true;
        white_space[(uint8_t)' '] = true;
        white_space[(uint8_t)'\205'] = true; /* 133 */
        white_space[(uint8_t)'\240'] = true; /* 160 */

        /* surely only 'e' is needed... */
        exponent_table[(uint8_t)'e'] = true; exponent_table[(uint8_t)'E'] = true;
        exponent_table[(uint8_t)'@'] = true;
#if WITH_EXTRA_EXPONENT_MARKERS
        exponent_table[(uint8_t)'s'] = true; exponent_table[(uint8_t)'S'] = true;
        exponent_table[(uint8_t)'f'] = true; exponent_table[(uint8_t)'F'] = true;
        exponent_table[(uint8_t)'d'] = true; exponent_table[(uint8_t)'D'] = true;
        exponent_table[(uint8_t)'l'] = true; exponent_table[(uint8_t)'L'] = true;
#endif

        for (i = 0; i < 32; i++)
            slashify_table[i] = true;
        for (i = 127; i < 160; i++)
            slashify_table[i] = true;
        slashify_table[(uint8_t)'\\'] = true;
        slashify_table[(uint8_t)'"'] = true;
        slashify_table[(uint8_t)'\n'] = false;

        for (i = 0; i < CTABLE_SIZE; i++)
            symbol_slashify_table[i] = ((slashify_table[i]) || (!char_ok_in_a_name[i])); /* force use of (symbol ...) for cases like '(ab) as symbol */

        digits[(uint8_t)'0'] = 0; digits[(uint8_t)'1'] = 1; digits[(uint8_t)'2'] = 2; digits[(uint8_t)'3'] = 3; digits[(uint8_t)'4'] = 4;
        digits[(uint8_t)'5'] = 5; digits[(uint8_t)'6'] = 6; digits[(uint8_t)'7'] = 7; digits[(uint8_t)'8'] = 8; digits[(uint8_t)'9'] = 9;
        digits[(uint8_t)'a'] = 10; digits[(uint8_t)'A'] = 10;
        digits[(uint8_t)'b'] = 11; digits[(uint8_t)'B'] = 11;
        digits[(uint8_t)'c'] = 12; digits[(uint8_t)'C'] = 12;
        digits[(uint8_t)'d'] = 13; digits[(uint8_t)'D'] = 13;
        digits[(uint8_t)'e'] = 14; digits[(uint8_t)'E'] = 14;
        digits[(uint8_t)'f'] = 15; digits[(uint8_t)'F'] = 15;

        number_table[(uint8_t)'0'] = true; number_table[(uint8_t)'1'] = true; number_table[(uint8_t)'2'] = true; number_table[(uint8_t)'3'] = true;
        number_table[(uint8_t)'4'] = true; number_table[(uint8_t)'5'] = true; number_table[(uint8_t)'6'] = true; number_table[(uint8_t)'7'] = true;
        number_table[(uint8_t)'8'] = true; number_table[(uint8_t)'9'] = true; number_table[(uint8_t)'.'] = true;
        number_table[(uint8_t)'+'] = true;
        number_table[(uint8_t)'-'] = true;
        number_table[(uint8_t)'#'] = true;
    }

// Assembly:
pushq %rax
movl $0x100, %edi            # imm = 0x100
movl $0x1, %esi
callq 0x9360
movq %rax, 0x1c3d51(%rip)    # 0x221e78
movl $0x100, %edi            # imm = 0x100
movl $0x1, %esi
callq 0x9360
movq %rax, 0x1c6ebb(%rip)    # 0x224ff8
movl $0x100, %edi            # imm = 0x100
movl $0x1, %esi
callq 0x9360
movq %rax, 0x1c6ead(%rip)    # 0x225000
movl $0x100, %edi            # imm = 0x100
movl $0x1, %esi
callq 0x9360
movq %rax, 0x1c3ca7(%rip)    # 0x221e10
movl $0x101, %edi            # imm = 0x101
movl $0x1, %esi
callq 0x9360
movq %rax, 0x1c3c99(%rip)    # 0x221e18
movq 0x1c3c92(%rip), %rax    # 0x221e18
addq $0x1, %rax
movq %rax, 0x1c3c87(%rip)    # 0x221e18
movl $0x100, %edi            # imm = 0x100
movl $0x1, %esi
callq 0x9360
movq %rax, 0x1c3c79(%rip)    # 0x221e20
movl $0x100, %edi            # imm = 0x100
movl $0x4, %esi
callq 0x9360
movq %rax, 0x1bf7db(%rip)    # 0x21d998
movl $0x0, 0x4(%rsp)
cmpl $0x100, 0x4(%rsp)       # imm = 0x100
jge 0x5e21f
movq 0x1c3c3a(%rip), %rax    # 0x221e10
movslq 0x4(%rsp), %rcx
movb $0x1, (%rax,%rcx)
movq 0x1c3c32(%rip), %rax    # 0x221e18
movslq 0x4(%rsp), %rcx
movb $0x0, (%rax,%rcx)
movq 0x1bf7a2(%rip), %rax    # 0x21d998
movslq 0x4(%rsp), %rcx
movl $0x100, (%rax,%rcx,4)   # imm = 0x100
movq 0x1c3c17(%rip), %rax    # 0x221e20
movslq 0x4(%rsp), %rcx
movb $0x0, (%rax,%rcx)
movl 0x4(%rsp), %eax
addl $0x1, %eax
movl %eax, 0x4(%rsp)
jmp 0x5e1c5
movq 0x1c3bea(%rip), %rax    # 0x221e10
movb $0x0, (%rax)
movq 0x1c3be0(%rip), %rax    # 0x221e10
movb $0x0, 0x28(%rax)
movq 0x1c3bd5(%rip), %rax    # 0x221e10
movb $0x0, 0x29(%rax)
movq 0x1c3bca(%rip), %rax    # 0x221e10
movb $0x0, 0x3b(%rax)
movq 0x1c3bbf(%rip), %rax    # 0x221e10
movb $0x0, 0x9(%rax)
movq 0x1c3bb4(%rip), %rax    # 0x221e10
movb $0x0, 0xa(%rax)
movq 0x1c3ba9(%rip), %rax    # 0x221e10
movb $0x0, 0xd(%rax)
movq 0x1c3b9e(%rip), %rax    # 0x221e10
movb $0x0, 0x20(%rax)
movq 0x1c3b93(%rip), %rax    # 0x221e10
movb $0x0, 0x22(%rax)
movq 0x1c3b90(%rip), %rax    # 0x221e18
movb $0x1, 0x9(%rax)
movq 0x1c3b85(%rip), %rax    # 0x221e18
movb $0x1, 0xa(%rax)
movq 0x1c3b7a(%rip), %rax    # 0x221e18
movb $0x1, 0xd(%rax)
movq 0x1c3b6f(%rip), %rax    # 0x221e18
movb $0x1, 0xc(%rax)
movq 0x1c3b64(%rip), %rax    # 0x221e18
movb $0x1, 0xb(%rax)
movq 0x1c3b59(%rip), %rax    # 0x221e18
movb $0x1, 0x20(%rax)
movq 0x1c3b4e(%rip), %rax    # 0x221e18
movb $0x1, 0x85(%rax)
movq 0x1c3b40(%rip), %rax    # 0x221e18
movb $0x1, 0xa0(%rax)
movq 0x1c3b92(%rip), %rax    # 0x221e78
movb $0x1, 0x65(%rax)
movq 0x1c3b87(%rip), %rax    # 0x221e78
movb $0x1, 0x45(%rax)
movq 0x1c3b7c(%rip), %rax    # 0x221e78
movb $0x1, 0x40(%rax)
movl $0x0, 0x4(%rsp)
cmpl $0x20, 0x4(%rsp)
jge 0x5e32c
movq 0x1c6ce2(%rip), %rax    # 0x224ff8
movslq 0x4(%rsp), %rcx
movb $0x1, (%rax,%rcx)
movl 0x4(%rsp), %eax
addl $0x1, %eax
movl %eax, 0x4(%rsp)
jmp 0x5e308
movl $0x7f, 0x4(%rsp)
cmpl $0xa0, 0x4(%rsp)
jge 0x5e35b
movq 0x1c6cb3(%rip), %rax    # 0x224ff8
movslq 0x4(%rsp), %rcx
movb $0x1, (%rax,%rcx)
movl 0x4(%rsp), %eax
addl $0x1, %eax
movl %eax, 0x4(%rsp)
jmp 0x5e334
movq 0x1c6c96(%rip), %rax    # 0x224ff8
movb $0x1, 0x5c(%rax)
movq 0x1c6c8b(%rip), %rax    # 0x224ff8
movb $0x1, 0x22(%rax)
movq 0x1c6c80(%rip), %rax    # 0x224ff8
movb $0x0, 0xa(%rax)
movl $0x0, 0x4(%rsp)
cmpl $0x100, 0x4(%rsp)       # imm = 0x100
jge 0x5e3de
movq 0x1c6c63(%rip), %rcx    # 0x224ff8
movslq 0x4(%rsp), %rdx
movb $0x1, %al
testb $0x1, (%rcx,%rdx)
movb %al, 0x3(%rsp)
jne 0x5e3bb
movq 0x1c3a63(%rip), %rax    # 0x221e10
movslq 0x4(%rsp), %rcx
movb (%rax,%rcx), %al
xorb $-0x1, %al
movb %al, 0x3(%rsp)
movb 0x3(%rsp), %dl
movq 0x1c6c3a(%rip), %rax    # 0x225000
movslq 0x4(%rsp), %rcx
andb $0x1, %dl
movb %dl, (%rax,%rcx)
movl 0x4(%rsp), %eax
addl $0x1, %eax
movl %eax, 0x4(%rsp)
jmp 0x5e384
movq 0x1bf5b3(%rip), %rax    # 0x21d998
movl $0x0, 0xc0(%rax)
movq 0x1bf5a2(%rip), %rax    # 0x21d998
movl $0x1, 0xc4(%rax)
movq 0x1bf591(%rip), %rax    # 0x21d998
movl $0x2, 0xc8(%rax)
movq 0x1bf580(%rip), %rax    # 0x21d998
movl $0x3, 0xcc(%rax)
movq 0x1bf56f(%rip), %rax    # 0x21d998
movl $0x4, 0xd0(%rax)
movq 0x1bf55e(%rip), %rax    # 0x21d998
movl $0x5, 0xd4(%rax)
movq 0x1bf54d(%rip), %rax    # 0x21d998
movl $0x6, 0xd8(%rax)
movq 0x1bf53c(%rip), %rax    # 0x21d998
movl $0x7, 0xdc(%rax)
movq 0x1bf52b(%rip), %rax    # 0x21d998
movl $0x8, 0xe0(%rax)
movq 0x1bf51a(%rip), %rax    # 0x21d998
movl $0x9, 0xe4(%rax)
movq 0x1bf509(%rip), %rax    # 0x21d998
movl $0xa, 0x184(%rax)
movq 0x1bf4f8(%rip), %rax    # 0x21d998
movl $0xa, 0x104(%rax)
movq 0x1bf4e7(%rip), %rax    # 0x21d998
movl $0xb, 0x188(%rax)
movq 0x1bf4d6(%rip), %rax    # 0x21d998
movl $0xb, 0x108(%rax)
movq 0x1bf4c5(%rip), %rax    # 0x21d998
movl $0xc, 0x18c(%rax)
movq 0x1bf4b4(%rip), %rax    # 0x21d998
movl $0xc, 0x10c(%rax)
movq 0x1bf4a3(%rip), %rax    # 0x21d998
movl $0xd, 0x190(%rax)
movq 0x1bf492(%rip), %rax    # 0x21d998
movl $0xd, 0x110(%rax)
movq 0x1bf481(%rip), %rax    # 0x21d998
movl $0xe, 0x194(%rax)
movq 0x1bf470(%rip), %rax    # 0x21d998
movl $0xe, 0x114(%rax)
movq 0x1bf45f(%rip), %rax    # 0x21d998
movl $0xf, 0x198(%rax)
movq 0x1bf44e(%rip), %rax    # 0x21d998
movl $0xf, 0x118(%rax)
movq 0x1c38c5(%rip), %rax    # 0x221e20
movb $0x1, 0x30(%rax)
movq 0x1c38ba(%rip), %rax    # 0x221e20
movb $0x1, 0x31(%rax)
movq 0x1c38af(%rip), %rax    # 0x221e20
movb $0x1, 0x32(%rax)
movq 0x1c38a4(%rip), %rax    # 0x221e20
movb $0x1, 0x33(%rax)
movq 0x1c3899(%rip), %rax    # 0x221e20
movb $0x1, 0x34(%rax)
movq 0x1c388e(%rip), %rax    # 0x221e20
movb $0x1, 0x35(%rax)
movq 0x1c3883(%rip), %rax    # 0x221e20
movb $0x1, 0x36(%rax)
movq 0x1c3878(%rip), %rax    # 0x221e20
movb $0x1, 0x37(%rax)
movq 0x1c386d(%rip), %rax    # 0x221e20
movb $0x1, 0x38(%rax)
movq 0x1c3862(%rip), %rax    # 0x221e20
movb $0x1, 0x39(%rax)
movq 0x1c3857(%rip), %rax    # 0x221e20
movb $0x1, 0x2e(%rax)
movq 0x1c384c(%rip), %rax    # 0x221e20
movb $0x1, 0x2b(%rax)
movq 0x1c3841(%rip), %rax    # 0x221e20
movb $0x1, 0x2d(%rax)
movq 0x1c3836(%rip), %rax    # 0x221e20
movb $0x1, 0x23(%rax)
popq %rax
retq