/* * scpu64.c * * Written by * Kajtar Zsolt * Andreas Boose * Ettore Perazzoli * Teemu Rantanen * Marco van den Heuvel * * This file is part of VICE, the Versatile Commodore Emulator. * See README for copyright notice. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA * 02111-1307 USA. * */ #include "vice.h" #include #include #include "attach.h" #include "autostart.h" #include "bbrtc.h" #include "c64cart.h" #define CARTRIDGE_INCLUDE_SLOTMAIN_API #include "c64cartsystem.h" #undef CARTRIDGE_INCLUDE_SLOTMAIN_API #include "c64cia.h" #include "c64fastiec.h" #include "scpu64gluelogic.h" #include "c64iec.h" #include "c64keyboard.h" #include "scpu64mem.h" #include "c64parallel.h" #include "c64rsuser.h" #include "cardkey.h" #include "cartio.h" #include "cartridge.h" #include "cia.h" #include "coplin_keypad.h" #include "cx21.h" #include "cx85.h" #include "debug.h" #include "diskimage.h" #include "drive-cmdline-options.h" #include "drive-resources.h" #include "drive-sound.h" #include "drive.h" #include "export.h" #include "fliplist.h" #include "fsdevice.h" #include "gfxoutput.h" #include "imagecontents.h" #include "inception.h" #include "init.h" #include "joyport.h" #include "joyport_io_sim.h" #include "joystick.h" #include "kbdbuf.h" #include "keyboard.h" #include "log.h" #include "machine-drive.h" #include "machine-printer.h" #include "machine-video.h" #include "machine.h" #include "main65816cpu.h" #include "mem.h" #include "monitor.h" #include "multijoy.h" #include "network.h" #include "ninja_snespad.h" #include "paperclip64.h" #include "paperclip64e.h" #include "paperclip64sc.h" #include "paperclip2.h" #include "parallel.h" #include "printer.h" #include "protopad.h" #include "resources.h" #include "rs232drv.h" #include "rsuser.h" #include "rushware_keypad.h" #include "sampler.h" #include "sampler2bit.h" #include "sampler4bit.h" #include "scpu64-cmdline-options.h" #include "scpu64-resources.h" #include "scpu64-snapshot.h" #include "scpu64.h" #include "scpu64cpu.h" #include "scpu64ui.h" #include "screenshot.h" #include "script64_dongle.h" #include "serial.h" #include "sid-cmdline-options.h" #include "sid-resources.h" #include "sid.h" #include "sound.h" #include "spaceballs.h" #include "tapecart.h" #include "traps.h" #include "trapthem_snespad.h" #include "types.h" #include "userport.h" #include "userport_4bit_sampler.h" #include "userport_8bss.h" #include "userport_dac.h" #include "userport_digimax.h" #include "userport_hks_joystick.h" #include "userport_hummer_joystick.h" #include "userport_io_sim.h" #include "userport_joystick.h" #include "userport_petscii_snespad.h" #include "userport_rtc_58321a.h" #include "userport_rtc_ds1307.h" #include "userport_spt_joystick.h" #include "userport_superpad64.h" #include "userport_synergy_joystick.h" #include "userport_wic64.h" #include "userport_woj_joystick.h" #include "userport_funmp3.h" #include "vice-event.h" #include "vicii.h" #include "vicii-mem.h" #include "video.h" #include "video-sound.h" #include "vizawrite64_dongle.h" #include "vsync.h" #ifdef HAVE_MOUSE #include "lightpen.h" #include "mouse.h" #endif /** \brief Delay in seconds before pasting -keybuf argument into the buffer */ #define KBDBUF_ALARM_DELAY 1 machine_context_t machine_context; const char machine_name[] = "SCPU64"; static void machine_vsync_hook(void); int machine_get_keyboard_type(void) { #if 0 int type; if (resources_get_int("KeyboardType", &type) < 0) { return 0; } return type; #endif return 0; } char *machine_get_keyboard_type_name(int type) { return NULL; /* return 0 if no different types exist */ } /* return number of available keyboard types for this machine */ int machine_get_num_keyboard_types(void) { return 1; } kbdtype_info_t *machine_get_keyboard_info_list(void) { return NULL; /* return 0 if no different types exist */ } /* ------------------------------------------------------------------------- */ static const trap_t scpu64_serial_traps[] = { { "SerialListen", 0xED24, 0xEDAB, { 0x20, 0x97, 0xEE }, serial_trap_attention, scpu64_trap_read, scpu64_trap_store }, { "SerialSaListen", 0xED37, 0xEDAB, { 0x20, 0x8E, 0xEE }, serial_trap_attention, scpu64_trap_read, scpu64_trap_store }, { "SerialSendByte", 0xED41, 0xEDAB, { 0x20, 0x97, 0xEE }, serial_trap_send, scpu64_trap_read, scpu64_trap_store }, { "SerialReceiveByte", 0xEE14, 0xEDAB, { 0xA9, 0x00, 0x85 }, serial_trap_receive, scpu64_trap_read, scpu64_trap_store }, { "SerialReady", 0xEEA9, 0xEDAB, { 0xAD, 0x00, 0xDD }, serial_trap_ready, scpu64_trap_read, scpu64_trap_store }, { NULL, 0, 0, { 0, 0, 0 }, NULL, NULL, NULL } }; static log_t scpu64_log = LOG_DEFAULT; static machine_timing_t machine_timing; /* ------------------------------------------------------------------------ */ static io_source_t vicii_d000_device = { "VIC-II", /* name of the chip */ IO_DETACH_NEVER, /* chip is never involved in collisions, so no detach */ IO_DETACH_NO_RESOURCE, /* does not use a resource for detach */ 0xd000, 0xd0ff, 0x3f, /* range for the chip, regs:$d000-$d03f, mirrors:$d040-$d0ff */ 1, /* read is always valid */ vicii_store, /* store function */ NULL, /* NO poke function */ vicii_read, /* read function */ vicii_peek, /* peek function */ vicii_dump, /* chip state information dump function */ IO_CART_ID_NONE, /* not a cartridge */ IO_PRIO_HIGH, /* high priority, chip and mirrors never involved in collisions */ 0, /* insertion order, gets filled in by the registration function */ IO_MIRROR_MASK /* contains mirrors, defined by mask */ }; static io_source_t vicii_d100_device = { "VIC-II $D100-$D1FF mirrors", /* name of the chip */ IO_DETACH_NEVER, /* chip is never involved in collisions, so no detach */ IO_DETACH_NO_RESOURCE, /* does not use a resource for detach */ 0xd100, 0xd1ff, 0x3f, /* range for the chip, mirrors of $d000-$d03f */ 1, /* read is always valid */ vicii_store, /* store function */ NULL, /* NO poke function */ vicii_read, /* read function */ vicii_peek, /* peek function */ vicii_dump, /* chip state information dump function */ IO_CART_ID_NONE, /* not a cartridge */ IO_PRIO_HIGH, /* high priority, chip and mirrors never involved in collisions */ 0, /* insertion order, gets filled in by the registration function */ IO_MIRROR_OTHER /* this is a mirror of another registered device */ }; static io_source_t sid_d400_device = { "SID", /* name of the chip */ IO_DETACH_NEVER, /* chip is never involved in collisions, so no detach */ IO_DETACH_NO_RESOURCE, /* does not use a resource for detach */ 0xd400, 0xd41f, 0x1f, /* main registers */ 1, /* read is always valid */ sid_store, /* store function */ NULL, /* NO poke function */ sid_read, /* read function */ sid_peek, /* peek function */ sid_dump, /* chip state information dump function */ IO_CART_ID_NONE, /* not a cartridge */ IO_PRIO_HIGH, /* high priority, chip never involved in collisions */ 0, /* insertion order, gets filled in by the registration function */ IO_MIRROR_NONE /* this is not a mirror */ }; static io_source_t sid_d420_device = { "SID $D420-$D4FF mirrors", /* name of the chip */ IO_DETACH_NEVER, /* chip is never involved in collisions, so no detach */ IO_DETACH_NO_RESOURCE, /* does not use a resource for detach */ 0xd420, 0xd4ff, 0x1f, /* mirrors of $d400-$d41f */ 1, /* read is always valid */ sid_store, /* store function */ NULL, /* NO poke function */ sid_read, /* read function */ sid_peek, /* peek function */ sid_dump, /* chip state information dump function */ IO_CART_ID_NONE, /* not a cartridge */ IO_PRIO_LOW, /* low priority, chip never involved in collisions, this is to allow additional SID chips in the same range */ 0, /* insertion order, gets filled in by the registration function */ IO_MIRROR_OTHER /* this is a mirror of another registered device */ }; static io_source_t sid_d500_device = { "SID $D500-$D5FF mirrors", /* name of the chip */ IO_DETACH_NEVER, /* chip is never involved in collisions, so no detach */ IO_DETACH_NO_RESOURCE, /* does not use a resource for detach */ 0xd500, 0xd5ff, 0x1f, /* mirrors of $d400-$d41f */ 1, /* read is always valid */ sid_store, /* store function */ NULL, /* NO poke function */ sid_read, /* read function */ sid_peek, /* peek function */ sid_dump, /* chip state information dump function */ IO_CART_ID_NONE, /* not a cartridge */ IO_PRIO_LOW, /* low priority, chip never involved in collisions, this is to allow additional SID chips in the same range */ 0, /* insertion order, gets filled in by the registration function */ IO_MIRROR_OTHER /* this is a mirror of another registered device */ }; static io_source_t sid_d600_device = { "SID $D600-$D6FF mirrors", /* name of the chip */ IO_DETACH_NEVER, /* chip is never involved in collisions, so no detach */ IO_DETACH_NO_RESOURCE, /* does not use a resource for detach */ 0xd600, 0xd6ff, 0x1f, /* mirrors of $d400-$d41f */ 1, /* read is always valid */ sid_store, /* store function */ NULL, /* NO poke function */ sid_read, /* read function */ sid_peek, /* peek function */ sid_dump, /* chip state information dump function */ IO_CART_ID_NONE, /* not a cartridge */ IO_PRIO_LOW, /* low priority, chip never involved in collisions, this is to allow additional SID chips in the same range */ 0, /* insertion order, gets filled in by the registration function */ IO_MIRROR_OTHER /* this is a mirror of another registered device */ }; static io_source_t sid_d700_device = { "SID $D700-$D7FF mirrors", /* name of the chip */ IO_DETACH_NEVER, /* chip is never involved in collisions, so no detach */ IO_DETACH_NO_RESOURCE, /* does not use a resource for detach */ 0xd700, 0xd7ff, 0x1f, /* mirrors of $d400-$d41f */ 1, /* read is always valid */ sid_store, /* store function */ NULL, /* NO poke function */ sid_read, /* read function */ sid_peek, /* peek function */ sid_dump, /* chip state information dump function */ IO_CART_ID_NONE, /* not a cartridge */ IO_PRIO_LOW, /* low priority, chip never involved in collisions, this is to allow additional SID chips in the same range */ 0, /* insertion order, gets filled in by the registration function */ IO_MIRROR_OTHER /* this is a mirror of another registered device */ }; static io_source_list_t *vicii_d000_list_item = NULL; static io_source_list_t *vicii_d100_list_item = NULL; static io_source_list_t *sid_d400_list_item = NULL; static io_source_list_t *sid_d420_list_item = NULL; static io_source_list_t *sid_d500_list_item = NULL; static io_source_list_t *sid_d600_list_item = NULL; static io_source_list_t *sid_d700_list_item = NULL; void c64io_vicii_init(void) { vicii_d000_list_item = io_source_register(&vicii_d000_device); vicii_d100_list_item = io_source_register(&vicii_d100_device); } void c64io_vicii_deinit(void) { if (vicii_d000_list_item != NULL) { io_source_unregister(vicii_d000_list_item); vicii_d000_list_item = NULL; } if (vicii_d100_list_item != NULL) { io_source_unregister(vicii_d100_list_item); vicii_d100_list_item = NULL; } } /* C64-specific I/O initialization. */ static void c64io_init(void) { c64io_vicii_init(); sid_d400_list_item = io_source_register(&sid_d400_device); sid_d420_list_item = io_source_register(&sid_d420_device); sid_d500_list_item = io_source_register(&sid_d500_device); sid_d600_list_item = io_source_register(&sid_d600_device); sid_d700_list_item = io_source_register(&sid_d700_device); } /* ------------------------------------------------------------------------ */ static joyport_port_props_t control_port_1 = { "Control port 1", 1, /* has a potentiometer connected to this port */ 1, /* has lightpen support on this port */ 1, /* has joystick adapter on this port */ 1, /* has output support on this port */ 1, /* has +5vdc line on this port */ 1 /* port is always active */ }; static joyport_port_props_t control_port_2 = { "Control port 2", 1, /* has a potentiometer connected to this port */ 0, /* has NO lightpen support on this port */ 1, /* has joystick adapter on this port */ 1, /* has output support on this port */ 1, /* has +5vdc line on this port */ 1 /* port is always active */ }; static joyport_port_props_t joy_adapter_control_port_1 = { "Joystick adapter port 1", 0, /* has NO potentiometer connected to this port */ 0, /* has NO lightpen support on this port */ 0, /* has NO joystick adapter on this port */ 1, /* has output support on this port */ 0, /* default for joystick adapter ports is NO +5vdc line on this port, can be changed by the joystick adapter when activated */ 0 /* port can be switched on/off */ }; static joyport_port_props_t joy_adapter_control_port_2 = { "Joystick adapter port 2", 0, /* has NO potentiometer connected to this port */ 0, /* has NO lightpen support on this port */ 0, /* has NO joystick adapter on this port */ 1, /* has output support on this port */ 0, /* default for joystick adapter ports is NO +5vdc line on this port, can be changed by the joystick adapter when activated */ 0 /* port can be switched on/off */ }; static joyport_port_props_t joy_adapter_control_port_3 = { "Joystick adapter port 3", 0, /* has NO potentiometer connected to this port */ 0, /* has NO lightpen support on this port */ 0, /* has NO joystick adapter on this port */ 1, /* has output support on this port */ 0, /* default for joystick adapter ports is NO +5vdc line on this port, can be changed by the joystick adapter when activated */ 0 /* port can be switched on/off */ }; static joyport_port_props_t joy_adapter_control_port_4 = { "Joystick adapter port 4", 0, /* has NO potentiometer connected to this port */ 0, /* has NO lightpen support on this port */ 0, /* has NO joystick adapter on this port */ 1, /* has output support on this port */ 0, /* default for joystick adapter ports is NO +5vdc line on this port, can be changed by the joystick adapter when activated */ 0 /* port can be switched on/off */ }; static joyport_port_props_t joy_adapter_control_port_5 = { "Joystick adapter port 5", 0, /* has NO potentiometer connected to this port */ 0, /* has NO lightpen support on this port */ 0, /* has NO joystick adapter on this port */ 1, /* has output support on this port */ 0, /* default for joystick adapter ports is NO +5vdc line on this port, can be changed by the joystick adapter when activated */ 0 /* port can be switched on/off */ }; static joyport_port_props_t joy_adapter_control_port_6 = { "Joystick adapter port 6", 0, /* has NO potentiometer connected to this port */ 0, /* has NO lightpen support on this port */ 0, /* has NO joystick adapter on this port */ 1, /* has output support on this port */ 0, /* default for joystick adapter ports is NO +5vdc line on this port, can be changed by the joystick adapter when activated */ 0 /* port can be switched on/off */ }; static joyport_port_props_t joy_adapter_control_port_7 = { "Joystick adapter port 7", 0, /* has NO potentiometer connected to this port */ 0, /* has NO lightpen support on this port */ 0, /* has NO joystick adapter on this port */ 1, /* has output support on this port */ 0, /* default for joystick adapter ports is NO +5vdc line on this port, can be changed by the joystick adapter when activated */ 0 /* port can be switched on/off */ }; static joyport_port_props_t joy_adapter_control_port_8 = { "Joystick adapter port 8", 0, /* has NO potentiometer connected to this port */ 0, /* has NO lightpen support on this port */ 0, /* has NO joystick adapter on this port */ 1, /* has output support on this port */ 0, /* default for joystick adapter ports is NO +5vdc line on this port, can be changed by the joystick adapter when activated */ 0 /* port can be switched on/off */ }; static int init_joyport_ports(void) { if (joyport_port_register(JOYPORT_1, &control_port_1) < 0) { return -1; } if (joyport_port_register(JOYPORT_2, &control_port_2) < 0) { return -1; } if (joyport_port_register(JOYPORT_3, &joy_adapter_control_port_1) < 0) { return -1; } if (joyport_port_register(JOYPORT_4, &joy_adapter_control_port_2) < 0) { return -1; } if (joyport_port_register(JOYPORT_5, &joy_adapter_control_port_3) < 0) { return -1; } if (joyport_port_register(JOYPORT_6, &joy_adapter_control_port_4) < 0) { return -1; } if (joyport_port_register(JOYPORT_7, &joy_adapter_control_port_5) < 0) { return -1; } if (joyport_port_register(JOYPORT_8, &joy_adapter_control_port_6) < 0) { return -1; } if (joyport_port_register(JOYPORT_9, &joy_adapter_control_port_7) < 0) { return -1; } return joyport_port_register(JOYPORT_10, &joy_adapter_control_port_8); } /* SCPU64-specific resource initialization. This is called before initializing the machine itself with `machine_init()'. */ int machine_resources_init(void) { if (traps_resources_init() < 0) { init_resource_fail("traps"); return -1; } if (rombanks_resources_init() < 0) { init_resource_fail("rombanks"); return -1; } if (scpu64_resources_init() < 0) { init_resource_fail("scpu64"); return -1; } if (export_resources_init() < 0) { init_resource_fail("scpu64export"); return -1; } if (vicii_resources_init() < 0) { init_resource_fail("vicii"); return -1; } if (sid_resources_init() < 0) { init_resource_fail("sid"); return -1; } if (rs232drv_resources_init() < 0) { init_resource_fail("rs232drv"); return -1; } if (userport_resources_init() < 0) { init_resource_fail("userport devices"); return -1; } if (serial_resources_init() < 0) { init_resource_fail("serial"); return -1; } /* CAUTION: must come after userport and serial */ if (printer_resources_init() < 0) { init_resource_fail("printer"); return -1; } if (init_joyport_ports() < 0) { init_resource_fail("joyport ports"); return -1; } if (joyport_resources_init() < 0) { init_resource_fail("joyport devices"); return -1; } if (joystick_resources_init() < 0) { init_resource_fail("joystick"); return -1; } if (sampler_resources_init() < 0) { init_resource_fail("samplerdrv"); return -1; } if (fliplist_resources_init() < 0) { init_resource_fail("flip list"); return -1; } if (file_system_resources_init() < 0) { init_resource_fail("file system"); return -1; } /* Initialize file system device-specific resources. */ if (fsdevice_resources_init() < 0) { init_resource_fail("file system device"); return -1; } if (disk_image_resources_init() < 0) { init_resource_fail("disk image"); return -1; } if (event_resources_init() < 0) { init_resource_fail("event"); return -1; } if (kbdbuf_resources_init() < 0) { init_resource_fail("Keyboard"); return -1; } if (autostart_resources_init() < 0) { init_resource_fail("autostart"); return -1; } #ifdef HAVE_NETWORK if (network_resources_init() < 0) { init_resource_fail("network"); return -1; } #endif #ifdef DEBUG if (debug_resources_init() < 0) { init_resource_fail("debug"); return -1; } #endif #ifdef HAVE_MOUSE if (mouse_resources_init() < 0) { init_resource_fail("mouse"); return -1; } #endif if (scpu64_glue_resources_init() < 0) { init_resource_fail("scpu64 glue"); return -1; } if (cartio_resources_init() < 0) { init_resource_fail("cartio"); return -1; } if (cartridge_resources_init() < 0) { init_resource_fail("cartridge"); return -1; } /* Must be called after initializing cartridge resources. Some carts provide * additional busses. The drive resources check the validity of the drive * type against the available busses on the system. So if you had e.g. an * IEEE cart enabled and an IEEE defined, on startup the drive code would * reset the drive type to the default for the IEC bus. */ if (drive_resources_init() < 0) { init_resource_fail("drive"); return -1; } return 0; } void machine_resources_shutdown(void) { serial_shutdown(); scpu64_resources_shutdown(); rs232drv_resources_shutdown(); printer_resources_shutdown(); drive_resources_shutdown(); cartridge_resources_shutdown(); rombanks_resources_shutdown(); userport_resources_shutdown(); cartio_shutdown(); fsdevice_resources_shutdown(); disk_image_resources_shutdown(); sampler_resources_shutdown(); joyport_resources_shutdown(); } /* C64-specific command-line option initialization. */ int machine_cmdline_options_init(void) { if (traps_cmdline_options_init() < 0) { init_cmdline_options_fail("traps"); return -1; } if (scpu64_cmdline_options_init() < 0) { init_cmdline_options_fail("scpu64"); return -1; } if (vicii_cmdline_options_init() < 0) { init_cmdline_options_fail("vicii"); return -1; } if (sid_cmdline_options_init(SIDTYPE_SID) < 0) { init_cmdline_options_fail("sid"); return -1; } if (rs232drv_cmdline_options_init() < 0) { init_cmdline_options_fail("rs232drv"); return -1; } if (serial_cmdline_options_init() < 0) { init_cmdline_options_fail("serial"); return -1; } if (printer_cmdline_options_init() < 0) { init_cmdline_options_fail("printer"); return -1; } if (joyport_cmdline_options_init() < 0) { init_cmdline_options_fail("joyport"); return -1; } if (joystick_cmdline_options_init() < 0) { init_cmdline_options_fail("joystick"); return -1; } if (userport_cmdline_options_init() < 0) { init_cmdline_options_fail("userport"); return -1; } if (sampler_cmdline_options_init() < 0) { init_cmdline_options_fail("samplerdrv"); return -1; } if (fliplist_cmdline_options_init() < 0) { init_cmdline_options_fail("flip list"); return -1; } if (file_system_cmdline_options_init() < 0) { init_cmdline_options_fail("attach"); return -1; } if (fsdevice_cmdline_options_init() < 0) { init_cmdline_options_fail("file system"); return -1; } if (disk_image_cmdline_options_init() < 0) { init_cmdline_options_fail("disk image"); return -1; } if (event_cmdline_options_init() < 0) { init_cmdline_options_fail("event"); return -1; } if (kbdbuf_cmdline_options_init() < 0) { init_cmdline_options_fail("keyboard"); return -1; } if (autostart_cmdline_options_init() < 0) { init_cmdline_options_fail("autostart"); return -1; } #ifdef HAVE_NETWORK if (network_cmdline_options_init() < 0) { init_cmdline_options_fail("network"); return -1; } #endif #ifdef DEBUG if (debug_cmdline_options_init() < 0) { init_cmdline_options_fail("debug"); return -1; } #endif #ifdef HAVE_MOUSE if (mouse_cmdline_options_init() < 0) { init_cmdline_options_fail("mouse"); return -1; } #endif if (drive_cmdline_options_init() < 0) { init_cmdline_options_fail("drive"); return -1; } if (scpu64_glue_cmdline_options_init() < 0) { init_cmdline_options_fail("scpu64 glue"); return -1; } if (cartio_cmdline_options_init() < 0) { init_cmdline_options_fail("cartio"); return -1; } if (cartridge_cmdline_options_init() < 0) { init_cmdline_options_fail("cartridge"); return -1; } return 0; } static void scpu64_monitor_init(void) { unsigned int dnr; monitor_cpu_type_t asm6502, asmR65C02, asm65816; monitor_interface_t *drive_interface_init[NUM_DISK_UNITS]; monitor_cpu_type_t *asmarray[4]; asmarray[0] = &asm65816; asmarray[1] = &asmR65C02; asmarray[2] = &asm6502; asmarray[3] = NULL; asm6502_init(&asm65816); asmR65C02_init(&asmR65C02); asm65816_init(&asm6502); for (dnr = 0; dnr < NUM_DISK_UNITS; dnr++) { drive_interface_init[dnr] = drive_cpu_monitor_interface_get(dnr); } /* Initialize the monitor. */ monitor_init(maincpu_monitor_interface_get(), drive_interface_init, asmarray); } void machine_setup_context(void) { cia1_setup_context(&machine_context); cia2_setup_context(&machine_context); cartridge_setup_context(&machine_context); machine_printer_setup_context(&machine_context); } /* C64-specific initialization. */ int machine_specific_init(void) { scpu64_log = log_open("SCPU64"); if (mem_load() < 0) { return -1; } event_init(); /* Setup trap handling. */ traps_init(); gfxoutput_init(); /* Initialize serial traps. */ if (serial_init(scpu64_serial_traps) < 0) { return -1; } serial_trap_init(0xa4); serial_iec_bus_init(); /* Initialize RS232 handler. */ rs232drv_init(); c64_rsuser_init(); /* Initialize print devices. */ printer_init(); /* Fire up the hardware-level drive emulation. */ drive_init(); disk_image_init(); /* Initialize autostart. */ autostart_init(3, 1); /* Pre-init C64-specific parts of the menus before vicii_init() creates a canvas window with a menubar at the top. */ if (!console_mode) { scpu64ui_init_early(); } if (vicii_init(VICII_STANDARD) == NULL && !video_disabled_mode) { return -1; } scpu64_mem_init(); cia1_init(machine_context.cia1); cia2_init(machine_context.cia2); /* Initialize the keyboard. */ c64keyboard_init(); scpu64_monitor_init(); /* Initialize vsync and register our hook function. */ vsync_init(machine_vsync_hook); vsync_set_machine_parameter(machine_timing.rfsh_per_sec, machine_timing.cycles_per_sec); /* Initialize native sound chip */ sid_sound_chip_init(); /* Initialize cartridge based sound chips */ cartridge_sound_chip_init(); /* Initialize userport based sound chips */ userport_dac_sound_chip_init(); #if defined(USE_MPG123) && defined (HAVE_GLOB_H) userport_funmp3_sound_chip_init(); #endif drive_sound_init(); video_sound_init(); /* Initialize sound. Notice that this does not really open the audio device yet. */ sound_init((unsigned int)machine_timing.cycles_per_sec, (unsigned int)machine_timing.cycles_per_rfsh); /* Initialize keyboard buffer. */ kbdbuf_init(631, 198, 10, (CLOCK)(machine_timing.rfsh_per_sec * machine_timing.cycles_per_rfsh * KBDBUF_ALARM_DELAY)); /* Initialize the C64-specific I/O */ c64io_init(); /* Initialize the C64-specific part of the UI. */ if (!console_mode) { scpu64ui_init(); } if (!video_disabled_mode) { joystick_init(); } /* Initialize glue logic. */ scpu64_glue_init(); #ifdef HAVE_MOUSE /* Initialize mouse support (if present). */ mouse_init(); #ifdef HAVE_LIGHTPEN /* Initialize lightpen support and register VICII callbacks */ lightpen_init(); lightpen_register_timing_callback(vicii_lightpen_timing, 0); lightpen_register_trigger_callback(vicii_trigger_light_pen); #endif #endif c64iec_init(); c64fastiec_init(); cartridge_init(); machine_drive_stub(); return 0; } /* SCPU64-specific reset sequence. */ static int reset_poweron = 1; void machine_specific_reset(void) { int iecreset = 1; resources_get_int("IECReset", &iecreset); serial_traps_reset(); ciacore_reset(machine_context.cia1); ciacore_reset(machine_context.cia2); sid_reset(); rs232drv_reset(); /* driver is used by both user- and expansion port ? */ userport_reset(); printer_reset(); /* FIXME: whats actually broken here? */ /* reset_reu(); */ /* The VIC-II must be the *last* to be reset. */ vicii_reset(); cartridge_reset(); if (reset_poweron || iecreset) { drive_reset(); } scpu64_hardware_reset(); sampler_reset(); reset_poweron = 0; } void machine_specific_powerup(void) { cartridge_powerup(); vicii_reset_registers(); userport_powerup(); joyport_powerup(); reset_poweron = 1; } void machine_specific_shutdown(void) { /* and cartridge */ cartridge_detach_image(-1); ciacore_shutdown(machine_context.cia1); ciacore_shutdown(machine_context.cia2); scpu64_mem_shutdown(); /* close the video chip(s) */ vicii_shutdown(); cartridge_shutdown(); #ifdef HAVE_MOUSE mouse_shutdown(); #endif sid_cmdline_options_shutdown(); if (!console_mode) { scpu64ui_shutdown(); } } void machine_handle_pending_alarms(CLOCK num_write_cycles) { vicii_handle_pending_alarms_external(num_write_cycles); } /* ------------------------------------------------------------------------- */ /* This hook is called at the end of every frame. */ static void machine_vsync_hook(void) { network_hook(); drive_vsync_hook(); screenshot_record(); } void machine_set_restore_key(int v) { c64keyboard_restore_key(v); } int machine_has_restore_key(void) { return 1; } /* ------------------------------------------------------------------------- */ long machine_get_cycles_per_second(void) { return machine_timing.cycles_per_sec; } long machine_get_cycles_per_frame(void) { return machine_timing.cycles_per_rfsh; } void machine_get_line_cycle(unsigned int *line, unsigned int *cycle, int *half_cycle) { *line = (unsigned int)((maincpu_clk) / machine_timing.cycles_per_line % machine_timing.screen_lines); *cycle = (unsigned int)((maincpu_clk) % machine_timing.cycles_per_line); *half_cycle = (int)scpu64_get_half_cycle(); } void machine_change_timing(int timeval, int powerfreq, int border_mode) { switch (timeval) { case MACHINE_SYNC_PAL: machine_timing.cycles_per_sec = SCPU64_PAL_CYCLES_PER_SEC; machine_timing.cycles_per_rfsh = SCPU64_PAL_CYCLES_PER_RFSH; machine_timing.rfsh_per_sec = SCPU64_PAL_RFSH_PER_SEC; machine_timing.cycles_per_line = SCPU64_PAL_CYCLES_PER_LINE; machine_timing.screen_lines = SCPU64_PAL_SCREEN_LINES; machine_timing.power_freq = powerfreq; break; case MACHINE_SYNC_NTSC: machine_timing.cycles_per_sec = SCPU64_NTSC_CYCLES_PER_SEC; machine_timing.cycles_per_rfsh = SCPU64_NTSC_CYCLES_PER_RFSH; machine_timing.rfsh_per_sec = SCPU64_NTSC_RFSH_PER_SEC; machine_timing.cycles_per_line = SCPU64_NTSC_CYCLES_PER_LINE; machine_timing.screen_lines = SCPU64_NTSC_SCREEN_LINES; machine_timing.power_freq = powerfreq; break; case MACHINE_SYNC_NTSCOLD: machine_timing.cycles_per_sec = SCPU64_NTSCOLD_CYCLES_PER_SEC; machine_timing.cycles_per_rfsh = SCPU64_NTSCOLD_CYCLES_PER_RFSH; machine_timing.rfsh_per_sec = SCPU64_NTSCOLD_RFSH_PER_SEC; machine_timing.cycles_per_line = SCPU64_NTSCOLD_CYCLES_PER_LINE; machine_timing.screen_lines = SCPU64_NTSCOLD_SCREEN_LINES; machine_timing.power_freq = powerfreq; break; case MACHINE_SYNC_PALN: machine_timing.cycles_per_sec = SCPU64_PALN_CYCLES_PER_SEC; machine_timing.cycles_per_rfsh = SCPU64_PALN_CYCLES_PER_RFSH; machine_timing.rfsh_per_sec = SCPU64_PALN_RFSH_PER_SEC; machine_timing.cycles_per_line = SCPU64_PALN_CYCLES_PER_LINE; machine_timing.screen_lines = SCPU64_PALN_SCREEN_LINES; machine_timing.power_freq = powerfreq; break; default: log_error(scpu64_log, "Unknown machine timing."); } vsync_set_machine_parameter(machine_timing.rfsh_per_sec, machine_timing.cycles_per_sec); sound_set_machine_parameter(machine_timing.cycles_per_sec, machine_timing.cycles_per_rfsh); debug_set_machine_parameter(machine_timing.cycles_per_line, machine_timing.screen_lines); drive_set_machine_parameter(machine_timing.cycles_per_sec); serial_iec_device_set_machine_parameter(machine_timing.cycles_per_sec); sid_set_machine_parameter(machine_timing.cycles_per_sec); #ifdef HAVE_MOUSE mouse_set_machine_parameter(machine_timing.cycles_per_sec); #endif vicii_change_timing(&machine_timing, border_mode); cia1_set_timing(machine_context.cia1, (int)machine_timing.cycles_per_sec, machine_timing.power_freq); cia2_set_timing(machine_context.cia2, (int)machine_timing.cycles_per_sec, machine_timing.power_freq); rsuser_change_timing(machine_timing.cycles_per_sec); machine_trigger_reset(MACHINE_RESET_MODE_RESET_CPU); } /* ------------------------------------------------------------------------- */ int machine_write_snapshot(const char *name, int save_roms, int save_disks, int event_mode) { int err = scpu64_snapshot_write(name, save_roms, save_disks, event_mode); if ((err < 0) && (snapshot_get_error() == SNAPSHOT_NO_ERROR)) { snapshot_set_error(SNAPSHOT_CANNOT_WRITE_SNAPSHOT); } return err; } int machine_read_snapshot(const char *name, int event_mode) { int err = scpu64_snapshot_read(name, event_mode); if ((err < 0) && (snapshot_get_error() == SNAPSHOT_NO_ERROR)) { snapshot_set_error(SNAPSHOT_CANNOT_READ_SNAPSHOT); } return err; } /* ------------------------------------------------------------------------- */ int machine_autodetect_psid(const char *name) { return -1; } int machine_screenshot(screenshot_t *screenshot, struct video_canvas_s *canvas) { if (canvas != vicii_get_canvas()) { return -1; } vicii_screenshot(screenshot); return 0; } int machine_canvas_async_refresh(struct canvas_refresh_s *refresh, struct video_canvas_s *canvas) { if (canvas != vicii_get_canvas()) { return -1; } vicii_async_refresh(refresh); return 0; } void machine_update_memory_ptrs(void) { vicii_update_memory_ptrs_external(); } struct image_contents_s *machine_diskcontents_bus_read(unsigned int unit) { return diskcontents_iec_read(unit); } uint8_t machine_tape_type_default(void) { return 0; } uint8_t machine_tape_behaviour(void) { return 0; } int tapecart_is_valid(const char *filename) { return 0; /* FALSE */ } int tapecart_attach_tcrt(const char *filename, void *unused) { return -1; } static int get_cart_emulation_state(void) { int value; if (resources_get_int("CartridgeType", &value) < 0) { return CARTRIDGE_NONE; } return value; } static int check_cart_range(unsigned int addr) { if (get_cart_emulation_state() == CARTRIDGE_NONE) { return 1; } return (!(addr >= 0x8000 && addr < 0xa000)); } int machine_addr_in_ram(unsigned int addr) { /* hack to make autostarting work */ if (addr < 0x100) { return 0; } return ((addr < 0xe000 && !(addr >= 0xa000 && addr < 0xc000)) && check_cart_range(addr)); } const char *machine_get_name(void) { return machine_name; } /* ------------------------------------------------------------------------- */ static void scpu64_userport_set_flag(uint8_t b) { if (b != 0) { ciacore_set_flag(machine_context.cia2); } } static userport_port_props_t userport_props = { 1, /* port has the pa2 pin */ 1, /* port has the pa3 pin */ scpu64_userport_set_flag, /* port has the flag pin, set flag function */ 1, /* port has the pc pin */ 1, /* port has the cnt1, cnt2 and sp pins */ 1 /* port has the reset pin */ }; int machine_register_userport(void) { userport_port_register(&userport_props); return 0; } /* ------------------------------------------------------------------------- */ /** \brief List of drive type names and ID's supported by SCPU64 * * Convenience function for UI's. This list should be updated whenever drive * types are added or removed. * * XXX: This is here because c64drive.c is compiled into x64dtv, which supports * fewer drive types. */ static drive_type_info_t drive_type_info_list[] = { { DRIVE_NAME_NONE, DRIVE_TYPE_NONE }, { DRIVE_NAME_1540, DRIVE_TYPE_1540 }, { DRIVE_NAME_1541, DRIVE_TYPE_1541 }, { DRIVE_NAME_1541II, DRIVE_TYPE_1541II }, { DRIVE_NAME_1570, DRIVE_TYPE_1570 }, { DRIVE_NAME_1571, DRIVE_TYPE_1571 }, { DRIVE_NAME_1581, DRIVE_TYPE_1581 }, { DRIVE_NAME_2000, DRIVE_TYPE_2000 }, { DRIVE_NAME_4000, DRIVE_TYPE_4000 }, { DRIVE_NAME_CMDHD, DRIVE_TYPE_CMDHD }, { DRIVE_NAME_2031, DRIVE_TYPE_2031 }, { DRIVE_NAME_2040, DRIVE_TYPE_2040 }, { DRIVE_NAME_3040, DRIVE_TYPE_3040 }, { DRIVE_NAME_4040, DRIVE_TYPE_4040 }, { DRIVE_NAME_1001, DRIVE_TYPE_1001 }, { DRIVE_NAME_8050, DRIVE_TYPE_8050 }, { DRIVE_NAME_8250, DRIVE_TYPE_8250 }, { DRIVE_NAME_9000, DRIVE_TYPE_9000 }, { NULL, -1 } }; /** \brief Get a list of (name, id) tuples for the drives handles by SCPU64 * * Usefull for UI's, get a list of currently supported drive types with a name * to display and and ID to use in callbacks. * * \return list of drive types, NULL terminated * * \note 'supported' in this context means the drives SCPU64 can support, not * what actually is supported due to ROMs and other settings */ drive_type_info_t *machine_drive_get_type_info_list(void) { return drive_type_info_list; }