static void
erl_init(int ncpu)
{
init_benchmarking();
#ifdef ERTS_SMP
erts_system_block_init();
#endif
erts_init_monitors();
erts_init_gc();
erts_init_time();
erts_init_sys_common_misc();
erts_init_process(ncpu);
erts_init_scheduling(use_multi_run_queue,
no_schedulers,
no_schedulers_online);
erts_init_cpu_topology(); /* Must be after init_scheduling */
H_MIN_SIZE = erts_next_heap_size(H_MIN_SIZE, 0);
BIN_VH_MIN_SIZE = erts_next_heap_size(BIN_VH_MIN_SIZE, 0);
erts_init_trace();
erts_init_binary();
erts_init_bits();
erts_init_fun_table();
init_atom_table();
init_export_table();
init_module_table();
init_register_table();
init_message();
erts_bif_info_init();
erts_ddll_init();
init_emulator();
erts_bp_init();
init_db(); /* Must be after init_emulator */
erts_bif_timer_init();
erts_init_node_tables();
init_dist();
erl_drv_thr_init();
init_io();
init_copy();
init_load();
erts_init_bif();
erts_init_bif_chksum();
erts_init_bif_binary();
erts_init_bif_re();
erts_init_unicode(); /* after RE to get access to PCRE unicode */
erts_delay_trap = erts_export_put(am_erlang, am_delay_trap, 2);
erts_late_init_process();
#if HAVE_ERTS_MSEG
erts_mseg_late_init(); /* Must be after timer (erts_init_time()) and thread
initializations */
#endif
#ifdef HIPE
hipe_mode_switch_init(); /* Must be after init_load/beam_catches/init */
#endif
packet_parser_init();
erl_nif_init();
}
static void init_xtrs(JNIEnv* env, jint model, jstring romFile, Ushort entryAddr, jstring xtrsCassette,
jstring xtrsDisk0, jstring xtrsDisk1, jstring xtrsDisk2, jstring xtrsDisk3) {
int debug = FALSE;
program_name = "xtrs";
check_endian();
trs_model = model;
init_emulator();
const char* path = (*env)->GetStringUTFChars(env, romFile, NULL);
char* dest = NULL;
switch(model) {
case 1:
dest = romfile;
break;
case 3:
dest = romfile3;
break;
case 4:
case 5:
dest = romfile4p;
break;
}
strncpy(dest, path, FILENAME_MAX);
(*env)->ReleaseStringUTFChars(env, romFile, path);
trs_autodelay = 1;
trs_emtsafe = 1;
trs_show_led = 0;
timer_overclock = 0;
grafyx_set_microlabs(0);
trs_disk_doubler = TRSDISK_BOTH;
trs_disk_truedam = 0;
trs_uart_name = "UART";
trs_uart_switches = 0;
trs_kb_bracket(0);
mem_init();
trs_rom_init();
trs_screen_init();
trs_timer_init();
trs_reset(1);
// Cassette
trs_cassette_remove();
if (xtrsCassette != NULL) {
path = (*env)->GetStringUTFChars(env, xtrsCassette, NULL);
trs_cassette_insert((char*) path);
(*env)->ReleaseStringUTFChars(env, xtrsCassette, path);
}
// Disk 0
trs_disk_remove(0);
if (xtrsDisk0 != NULL) {
path = (*env)->GetStringUTFChars(env, xtrsDisk0, NULL);
if (ends_with(path, ".cmd")) {
FILE* f = fopen(path, "rb");
load_cmd(f, memory, NULL, 0, NULL, -1, NULL, &entryAddr, 1);
fclose(f);
} else {
trs_disk_insert(0, (char *) path);
}
(*env)->ReleaseStringUTFChars(env, xtrsDisk0, path);
}
// Disk 1
trs_disk_remove(1);
if (xtrsDisk1 != NULL) {
path = (*env)->GetStringUTFChars(env, xtrsDisk1, NULL);
trs_disk_insert(1, (char*) path);
(*env)->ReleaseStringUTFChars(env, xtrsDisk1, path);
}
// Disk 2
trs_disk_remove(2);
if (xtrsDisk2 != NULL) {
path = (*env)->GetStringUTFChars(env, xtrsDisk2, NULL);
trs_disk_insert(2, (char*) path);
(*env)->ReleaseStringUTFChars(env, xtrsDisk2, path);
}
// Disk 3
trs_disk_remove(3);
if (xtrsDisk3 != NULL) {
path = (*env)->GetStringUTFChars(env, xtrsDisk3, NULL);
trs_disk_insert(3, (char*) path);
(*env)->ReleaseStringUTFChars(env, xtrsDisk3, path);
}
trs_disk_init(1);
z80_state.pc.word = entryAddr;
clear_paste_string();
}
static void
erl_init(int ncpu,
int proc_tab_sz,
int legacy_proc_tab,
int port_tab_sz,
int port_tab_sz_ignore_files,
int legacy_port_tab)
{
init_benchmarking();
erts_init_monitors();
erts_init_time();
erts_init_sys_common_misc();
erts_init_process(ncpu, proc_tab_sz, legacy_proc_tab);
erts_init_scheduling(no_schedulers,
no_schedulers_online);
erts_init_cpu_topology(); /* Must be after init_scheduling */
erts_init_gc(); /* Must be after init_scheduling */
erts_alloc_late_init();
H_MIN_SIZE = erts_next_heap_size(H_MIN_SIZE, 0);
BIN_VH_MIN_SIZE = erts_next_heap_size(BIN_VH_MIN_SIZE, 0);
erts_init_trace();
erts_init_binary();
erts_init_bits();
erts_code_ix_init();
erts_init_fun_table();
init_atom_table();
init_export_table();
init_module_table();
init_register_table();
init_message();
erts_bif_info_init();
erts_ddll_init();
init_emulator();
erts_ptab_init(); /* Must be after init_emulator() */
erts_bp_init();
init_db(); /* Must be after init_emulator */
erts_bif_timer_init();
erts_init_node_tables();
init_dist();
erl_drv_thr_init();
erts_init_async();
erts_init_io(port_tab_sz, port_tab_sz_ignore_files, legacy_port_tab);
init_load();
erts_init_bif();
erts_init_bif_chksum();
erts_init_bif_binary();
erts_init_bif_re();
erts_init_unicode(); /* after RE to get access to PCRE unicode */
erts_init_external();
erts_delay_trap = erts_export_put(am_erlang, am_delay_trap, 2);
erts_late_init_process();
#if HAVE_ERTS_MSEG
erts_mseg_late_init(); /* Must be after timer (erts_init_time()) and thread
initializations */
#endif
#ifdef HIPE
hipe_mode_switch_init(); /* Must be after init_load/beam_catches/init */
#endif
packet_parser_init();
erl_nif_init();
}
