// File: /workspace/github_c_makefile_star2_O2/azhai[P]mlite/mlite.c
// Function: init
void init(void) {
	int	i;

	for (i=2; i<MAX_STREAMS; i++)
		Streams[i] = NULL;
	Streams[0] = stdin;
	Streams[1] = stdout;
	Streams[2] = stderr;
	Stream_flags[0] = LOCK_TAG;
	Stream_flags[1] = LOCK_TAG;
	Stream_flags[2] = LOCK_TAG;
	Instream = 0;
	Outstream = 1;
	Errstream = 2;
	Cons_segment_size = INITIAL_SEGMENT_SIZE;
	Vec_segment_size = INITIAL_SEGMENT_SIZE;
	Cons_pool_size = 0,
	Vec_pool_size = 0;
	Car = NULL,
	Cdr = NULL;
	Tag = NULL;
	Free_list = NIL;
	Vectors = NULL;
	Free_vecs = 0;
	Memory_limit_kn = DEFAULT_LIMIT_KN * 1024L;
	Stack = NIL,
	Stack_bottom = NIL;
	State_stack = NIL;
	Tmp_car = NIL;
	Tmp_cdr = NIL;
	Tmp = NIL;
	Symbols = NIL;
	Program = NIL;
	Exnstack = NIL;
	Exceptions = NIL;
	Proc_ptr = 0;
	Proc_max = 3;
	Environment = NIL;
	Acc = NIL;
	Level = 0;
	Guard_lev = 0;
	Line_no = 1;
	Error_flag = 0;
	Load_level = 0;
	Displaying = 0;
	Printer_limit = 0;
	Quiet_mode = 0;
	Command_line = NULL;
	Run_stats = 0;
	new_cons_segment();
	new_vec_segment();
	gc();
	S_also = symbol_ref("also");
	S_begin = symbol_ref("begin");
	S_callcc = symbol_ref("call/cc");
	S_cons = symbol_ref("::");
	S_define = symbol_ref("define");
	S_define_syntax = symbol_ref("define_syntax");
	S_define_type = symbol_ref("define_type");
	S_else = symbol_ref("else");
	S_equal = symbol_ref("=");
	S_fn = symbol_ref("fn");
	S_from = symbol_ref(">>");
	S_greater = symbol_ref(">");
	S_if = symbol_ref("if");
	S_ignore = symbol_ref("_");
	S_less = symbol_ref("<");
	S_letrec = symbol_ref("letrec");
	S_list = symbol_ref("list");
	S_or = symbol_ref("or");
	S_quasiquote = symbol_ref("quasiquote");
	S_quote = symbol_ref("quote");
	S_raise = symbol_ref("%raise");
	S_ref = symbol_ref("ref");
	S_register = symbol_ref("%register");
	S_setb = symbol_ref("set!");
	S_to = symbol_ref("<<");
	S_tuple = symbol_ref("tuple");
	S_typecheck = symbol_ref("%typecheck");
	S_unquote = symbol_ref("unquote");
	S_unquote_splicing = symbol_ref("unquote-splicing");
	S_unregister = symbol_ref("%unregister");
	Tmp = symbol_ref("x");
	S_primlist = node(S_cons, NIL);
	S_primlist = node(Tmp, S_primlist);
	Tmp = NIL;
	S_primlist = node(S_cons, S_primlist);
	S_primlist = node(S_primlist, NIL);
	S_primlist = node(S_quote, S_primlist);
	init_ops();
	make_initial_env();
	reset_calltrace();
}

// Assembly:
pushq $0x2
popq %rax
leaq 0x9128(%rip), %rcx      # 0x1c180
cmpq $0x20, %rax
je 0x13068
andq $0x0, (%rcx,%rax,8)
incq %rax
jmp 0x13058
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
andl $0x0, 0x9623(%rip)      # 0x1c698
andl $0x0, 0x9558(%rip)      # 0x1c5d4
andl $0x0, 0x956d(%rip)      # 0x1c5f0
andq $0x0, 0x90e5(%rip)      # 0x1c170
andq $0x0, 0x952d(%rip)      # 0x1c5c0
andq $0x0, 0x9545(%rip)      # 0x1c5e0
orq $-0x1, 0x9595(%rip)     # 0x1c638
movq 0x7f2e(%rip), %rax      # 0x1afd8
andq $0x0, 0x9536(%rip)      # 0x1c5e8
movq (%rax), %rax
andq $0x0, 0x95bb(%rip)      # 0x1c678
movq %rax, 0x90bc(%rip)      # 0x1c180
orq $-0x1, 0x905c(%rip)     # 0x1c128
movq 0x7efd(%rip), %rax      # 0x1afd0
orq $-0x1, 0x9055(%rip)     # 0x1c130
movq (%rax), %rax
orq $-0x1, 0x9052(%rip)     # 0x1c138
movq %rax, 0x909b(%rip)      # 0x1c188
orq $-0x1, 0x9023(%rip)     # 0x1c118
movq 0x7efc(%rip), %rax      # 0x1aff8
orq $-0x1, 0x901c(%rip)     # 0x1c120
movq (%rax), %rax
orq $-0x1, 0x9001(%rip)     # 0x1c110
movq %rax, 0x907a(%rip)      # 0x1c190
orq $-0x1, 0x8fe2(%rip)     # 0x1c100
movw $0x8080, 0x94d9(%rip)   # imm = 0x8080
orq $-0x1, 0x8fc9(%rip)     # 0x1c0f8
movb $-0x80, 0x94cc(%rip)    # 0x1c602
orq $-0x1, 0x902a(%rip)     # 0x1c168
pushq $0x1
popq %rax
orq $-0x1, 0x9017(%rip)     # 0x1c160
movl %eax, 0x9131(%rip)      # 0x1c280
andl $0x0, 0x945a(%rip)      # 0x1c5b0
movl $0x2, 0x9ab8(%rip)      # 0x1cc18
orq $-0x1, 0x8fa0(%rip)     # 0x1c108
movl $0x8000, %ecx           # imm = 0x8000
orq $-0x1, 0x8fcb(%rip)     # 0x1c140
movl %ecx, 0x945d(%rip)      # 0x1c5d8
andl $0x0, 0x94fe(%rip)      # 0x1c680
movl %ecx, 0x946c(%rip)      # 0x1c5f4
andl $0x0, 0x9551(%rip)      # 0x1c6e0
movq $0xc1a000, 0x94d6(%rip) # imm = 0xC1A000
movl $0x3, 0x90e8(%rip)      # 0x1c28c
movl %eax, 0x9426(%rip)      # 0x1c5d0
xorl %eax, %eax
movl %eax, 0x9402(%rip)      # 0x1c5b4
andl $0x0, 0x94cf(%rip)      # 0x1c688
andl $0x0, 0x9500(%rip)      # 0x1c6c0
andl $0x0, 0x90bd(%rip)      # 0x1c284
andl $0x0, 0x93ea(%rip)      # 0x1c5b8
andq $0x0, 0x9a02(%rip)      # 0x1cbd8
andl $0x0, 0x9443(%rip)      # 0x1c620
callq 0x3a00
callq 0x3b21
callq 0x3dd2
leaq 0x14b2(%rip), %rdi      # 0x146a5
callq 0x69ff
movq %rax, 0x94e9(%rip)      # 0x1c6e8
leaq 0x2260(%rip), %rdi      # 0x15466
callq 0x69ff
movq %rax, 0x9546(%rip)      # 0x1c758
leaq 0x1dbd(%rip), %rdi      # 0x14fd6
callq 0x69ff
movq %rax, 0x950b(%rip)      # 0x1c730
leaq 0xf81(%rip), %rdi       # 0x141ad
callq 0x69ff
movq %rax, 0x9458(%rip)      # 0x1c690
leaq 0x222d(%rip), %rdi      # 0x1546c
callq 0x69ff
movq %rax, 0x9515(%rip)      # 0x1c760
leaq 0x2221(%rip), %rdi      # 0x15473
callq 0x69ff
movq %rax, 0x9532(%rip)      # 0x1c790
leaq 0x221c(%rip), %rdi      # 0x15481
callq 0x69ff
movq %rax, 0x94ff(%rip)      # 0x1c770
leaq 0x143e(%rip), %rdi      # 0x146b6
callq 0x69ff
movq %rax, 0x9974(%rip)      # 0x1cbf8
leaq 0xf12(%rip), %rdi       # 0x1419d
callq 0x69ff
movq %rax, 0x9461(%rip)      # 0x1c6f8
leaq 0x1356(%rip), %rdi      # 0x145f4
callq 0x69ff
movq %rax, 0x945e(%rip)      # 0x1c708
leaq 0x13f1(%rip), %rdi      # 0x146a2
callq 0x69ff
movq %rax, 0x948b(%rip)      # 0x1c748
leaq 0xedd(%rip), %rdi       # 0x141a1
callq 0x69ff
movq %rax, 0x94b0(%rip)      # 0x1c780
leaq 0x13f8(%rip), %rdi      # 0x146cf
callq 0x69ff
movq %rax, 0x945d(%rip)      # 0x1c740
leaq 0x21a3(%rip), %rdi      # 0x1548d
callq 0x69ff
movq %rax, 0x98ea(%rip)      # 0x1cbe0
leaq 0x13a3(%rip), %rdi      # 0x146a0
callq 0x69ff
movq %rax, 0x946f(%rip)      # 0x1c778
leaq 0x217f(%rip), %rdi      # 0x1548f
callq 0x69ff
movq %rax, 0x944c(%rip)      # 0x1c768
leaq 0x1455(%rip), %rdi      # 0x14778
callq 0x69ff
movq %rax, 0x93e9(%rip)      # 0x1c718
leaq 0x1d10(%rip), %rdi      # 0x15046
callq 0x69ff
movq %rax, 0x93be(%rip)      # 0x1c700
leaq 0x214d(%rip), %rdi      # 0x15496
callq 0x69ff
movq %rax, 0x934b(%rip)      # 0x1c6a0
leaq 0x213f(%rip), %rdi      # 0x1549b
callq 0x69ff
movq %rax, 0x9340(%rip)      # 0x1c6a8
leaq 0x2132(%rip), %rdi      # 0x154a1
callq 0x69ff
movq %rax, 0x93bd(%rip)      # 0x1c738
leaq 0x1980(%rip), %rdi      # 0x14d02
callq 0x69ff
movq %rax, 0x9382(%rip)      # 0x1c710
leaq 0x1d20(%rip), %rdi      # 0x150b5
callq 0x69ff
movq %rax, 0x9387(%rip)      # 0x1c728
leaq 0x2100(%rip), %rdi      # 0x154a8
callq 0x69ff
movq %rax, 0x93d4(%rip)      # 0x1c788
leaq 0x12e4(%rip), %rdi      # 0x1469f
callq 0x69ff
movq %rax, 0x9389(%rip)      # 0x1c750
leaq 0x13be(%rip), %rdi      # 0x1478c
callq 0x69ff
movq %rax, 0x9316(%rip)      # 0x1c6f0
leaq 0x1ce2(%rip), %rdi      # 0x150c3
callq 0x69ff
movq %rax, 0x93b3(%rip)      # 0x1c7a0
leaq 0x20b9(%rip), %rdi      # 0x154ad
callq 0x69ff
movq %rax, 0x92b8(%rip)      # 0x1c6b8
leaq 0x20ae(%rip), %rdi      # 0x154b5
callq 0x69ff
movq %rax, 0x929d(%rip)      # 0x1c6b0
leaq 0x1cb4(%rip), %rdi      # 0x150ce
callq 0x69ff
movq %rax, 0x92fa(%rip)      # 0x1c720
leaq 0x1c30(%rip), %rdi      # 0x1505d
callq 0x69ff
movq %rax, 0x8cd7(%rip)      # 0x1c110
movq 0x9250(%rip), %rdi      # 0x1c690
pushq $-0x1
popq %rbx
movq %rbx, %rsi
xorl %edx, %edx
callq 0x3613
movq %rax, 0x9344(%rip)      # 0x1c798
movq 0x8cb5(%rip), %rdi      # 0x1c110
movq %rax, %rsi
xorl %edx, %edx
callq 0x3613
movq %rax, 0x932c(%rip)      # 0x1c798
orq $-0x1, 0x8c9c(%rip)     # 0x1c110
movq 0x9215(%rip), %rdi      # 0x1c690
movq %rax, %rsi
xorl %edx, %edx
callq 0x3613
movq %rax, 0x930c(%rip)      # 0x1c798
movq %rax, %rdi
movq %rbx, %rsi
xorl %edx, %edx
callq 0x3613
movq %rax, 0x92f8(%rip)      # 0x1c798
movq 0x9201(%rip), %rdi      # 0x1c6a8
movq %rax, %rsi
xorl %edx, %edx
callq 0x3613
movq %rax, 0x92e0(%rip)      # 0x1c798
callq 0x8725
callq 0x12ea5
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x124f7