// File: /workspace/github_c_makefile_star2_O1/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 %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
leaq 0x9159(%rip), %rdi      # 0x1e190
xorl %r14d, %r14d
movl $0xf0, %edx
xorl %esi, %esi
callq 0x30d0
movq 0x7f8b(%rip), %rax      # 0x1cfd8
movq (%rax), %rax
movq %rax, 0x9129(%rip)      # 0x1e180
movq 0x7f72(%rip), %rax      # 0x1cfd0
movq (%rax), %rax
movq %rax, 0x9120(%rip)      # 0x1e188
movq 0x7f89(%rip), %rax      # 0x1cff8
movq (%rax), %rax
movq %rax, 0x9117(%rip)      # 0x1e190
movw $0x8080, 0x957e(%rip)   # imm = 0x8080
movb $-0x80, 0x9579(%rip)    # 0x1e602
movl %r14d, 0x9608(%rip)     # 0x1e698
movl $0x1, %eax
movl %eax, 0x91e5(%rip)      # 0x1e280
movl $0x2, 0x9b73(%rip)      # 0x1ec18
movl $0x8000, %ecx           # imm = 0x8000
movl %ecx, 0x9528(%rip)      # 0x1e5d8
movl %ecx, 0x953e(%rip)      # 0x1e5f4
movl %r14d, 0x9517(%rip)     # 0x1e5d4
movl %r14d, 0x952c(%rip)     # 0x1e5f0
movq %r14, 0x90a5(%rip)      # 0x1e170
movq %r14, 0x94ee(%rip)      # 0x1e5c0
movq %r14, 0x9507(%rip)      # 0x1e5e0
movq $-0x1, %rbx
movq %rbx, 0x9551(%rip)      # 0x1e638
movq %r14, 0x94fa(%rip)      # 0x1e5e8
movq %r14, 0x9583(%rip)      # 0x1e678
movq $0xc1a000, 0x9570(%rip) # imm = 0xC1A000
movq %rbx, 0x9021(%rip)      # 0x1e128
movq %rbx, 0x9022(%rip)      # 0x1e130
movq %rbx, 0x9023(%rip)      # 0x1e138
movq %rbx, 0x8ffc(%rip)      # 0x1e118
movq %rbx, 0x8ffd(%rip)      # 0x1e120
movq %rbx, 0x8fe6(%rip)      # 0x1e110
movq %rbx, 0x8fcf(%rip)      # 0x1e100
movq %rbx, 0x8fc0(%rip)      # 0x1e0f8
movq %rbx, 0x9029(%rip)      # 0x1e168
movq %rbx, 0x901a(%rip)      # 0x1e160
movl %r14d, 0x9463(%rip)     # 0x1e5b0
movl $0x3, 0x9135(%rip)      # 0x1e28c
movq %rbx, 0x8faa(%rip)      # 0x1e108
movq %rbx, 0x8fdb(%rip)      # 0x1e140
movl %r14d, 0x9514(%rip)     # 0x1e680
movl %r14d, 0x956d(%rip)     # 0x1e6e0
movl %eax, 0x9457(%rip)      # 0x1e5d0
movl %r14d, 0x9434(%rip)     # 0x1e5b4
movl %r14d, 0x9501(%rip)     # 0x1e688
movl %r14d, 0x9532(%rip)     # 0x1e6c0
movl %r14d, 0x90ef(%rip)     # 0x1e284
movl %r14d, 0x941c(%rip)     # 0x1e5b8
movq %r14, 0x9a35(%rip)      # 0x1ebd8
movl %r14d, 0x9476(%rip)     # 0x1e620
callq 0x3b02
callq 0x3c2f
callq 0x3ef8
leaq 0x14fd(%rip), %rdi      # 0x166bd
callq 0x729e
movq %rax, 0x951c(%rip)      # 0x1e6e8
leaq 0x22ae(%rip), %rdi      # 0x17481
callq 0x729e
movq %rax, 0x9579(%rip)      # 0x1e758
leaq 0x1e0b(%rip), %rdi      # 0x16ff1
callq 0x729e
movq %rax, 0x953e(%rip)      # 0x1e730
leaq 0xfcc(%rip), %rdi       # 0x161c5
callq 0x729e
movq %rax, 0x948b(%rip)      # 0x1e690
leaq 0x227b(%rip), %rdi      # 0x17487
callq 0x729e
movq %rax, 0x9548(%rip)      # 0x1e760
leaq 0x226f(%rip), %rdi      # 0x1748e
callq 0x729e
movq %rax, 0x9565(%rip)      # 0x1e790
leaq 0x226a(%rip), %rdi      # 0x1749c
callq 0x729e
movq %rax, 0x9532(%rip)      # 0x1e770
leaq 0x1489(%rip), %rdi      # 0x166ce
callq 0x729e
movq %rax, 0x99a7(%rip)      # 0x1ebf8
leaq 0xf5d(%rip), %rdi       # 0x161b5
callq 0x729e
movq %rax, 0x9494(%rip)      # 0x1e6f8
leaq 0x13a1(%rip), %rdi      # 0x1660c
callq 0x729e
movq %rax, 0x9491(%rip)      # 0x1e708
leaq 0x143c(%rip), %rdi      # 0x166ba
callq 0x729e
movq %rax, 0x94be(%rip)      # 0x1e748
leaq 0xf28(%rip), %rdi       # 0x161b9
callq 0x729e
movq %rax, 0x94e3(%rip)      # 0x1e780
leaq 0x1443(%rip), %rdi      # 0x166e7
callq 0x729e
movq %rax, 0x9490(%rip)      # 0x1e740
leaq 0x21f1(%rip), %rdi      # 0x174a8
callq 0x729e
movq %rax, 0x991d(%rip)      # 0x1ebe0
leaq 0x13ee(%rip), %rdi      # 0x166b8
callq 0x729e
movq %rax, 0x94a2(%rip)      # 0x1e778
leaq 0x21cd(%rip), %rdi      # 0x174aa
callq 0x729e
movq %rax, 0x947f(%rip)      # 0x1e768
leaq 0x14a3(%rip), %rdi      # 0x16793
callq 0x729e
movq %rax, 0x941c(%rip)      # 0x1e718
leaq 0x1d5e(%rip), %rdi      # 0x17061
callq 0x729e
movq %rax, 0x93f1(%rip)      # 0x1e700
leaq 0x219b(%rip), %rdi      # 0x174b1
callq 0x729e
movq %rax, 0x937e(%rip)      # 0x1e6a0
leaq 0x218d(%rip), %rdi      # 0x174b6
callq 0x729e
movq %rax, 0x9373(%rip)      # 0x1e6a8
leaq 0x2180(%rip), %rdi      # 0x174bc
callq 0x729e
movq %rax, 0x93f0(%rip)      # 0x1e738
leaq 0x19ce(%rip), %rdi      # 0x16d1d
callq 0x729e
movq %rax, 0x93b5(%rip)      # 0x1e710
leaq 0x1d6e(%rip), %rdi      # 0x170d0
callq 0x729e
movq %rax, 0x93ba(%rip)      # 0x1e728
leaq 0x214e(%rip), %rdi      # 0x174c3
callq 0x729e
movq %rax, 0x9407(%rip)      # 0x1e788
leaq 0x132f(%rip), %rdi      # 0x166b7
callq 0x729e
movq %rax, 0x93bc(%rip)      # 0x1e750
leaq 0x140c(%rip), %rdi      # 0x167a7
callq 0x729e
movq %rax, 0x9349(%rip)      # 0x1e6f0
leaq 0x1d30(%rip), %rdi      # 0x170de
callq 0x729e
movq %rax, 0x93e6(%rip)      # 0x1e7a0
leaq 0x2107(%rip), %rdi      # 0x174c8
callq 0x729e
movq %rax, 0x92eb(%rip)      # 0x1e6b8
leaq 0x20fc(%rip), %rdi      # 0x174d0
callq 0x729e
movq %rax, 0x92d0(%rip)      # 0x1e6b0
leaq 0x1d02(%rip), %rdi      # 0x170e9
callq 0x729e
movq %rax, 0x932d(%rip)      # 0x1e720
leaq 0x1c7e(%rip), %rdi      # 0x17078
callq 0x729e
movq %rax, 0x8d0a(%rip)      # 0x1e110
movq 0x9283(%rip), %rdi      # 0x1e690
movq $-0x1, %rsi
xorl %edx, %edx
callq 0x36e8
movq %rax, 0x9376(%rip)      # 0x1e798
movq 0x8ce7(%rip), %rdi      # 0x1e110
movq %rax, %rsi
xorl %edx, %edx
callq 0x36e8
movq %rax, 0x935e(%rip)      # 0x1e798
movq %rbx, 0x8ccf(%rip)      # 0x1e110
movq 0x9248(%rip), %rdi      # 0x1e690
movq %rax, %rsi
xorl %edx, %edx
callq 0x36e8
movq %rax, 0x933f(%rip)      # 0x1e798
movq %rax, %rdi
movq $-0x1, %rsi
xorl %edx, %edx
callq 0x36e8
movq %rax, 0x9327(%rip)      # 0x1e798
movq 0x9230(%rip), %rdi      # 0x1e6a8
movq %rax, %rsi
xorl %edx, %edx
callq 0x36e8
movq %rax, 0x930f(%rip)      # 0x1e798
callq 0x94bd
callq 0x14e61
leaq 0x8df6(%rip), %rdi      # 0x1e290
movl $0x320, %edx            # imm = 0x320
movl $0xff, %esi
popq %rbx
popq %r14
popq %rbp
jmp 0x30d0