/** \file c128.c * \brief C128 basic stuff * * \author Andreas Boose * \author Ettore Perazzoli * \author Marco van den Heuvel * \author Jouko Valta */ /* * 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, wrie 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 "c128-cmdline-options.h" #include "c128-resources.h" #include "c128-snapshot.h" #include "c128.h" #include "c128cart.h" #include "c128fastiec.h" #include "c128mem.h" #include "c128memrom.h" #include "c128mmu.h" #include "c128ui.h" #include "c64-midi.h" #define CARTRIDGE_INCLUDE_SLOTMAIN_API #include "c64cartsystem.h" #undef CARTRIDGE_INCLUDE_SLOTMAIN_API #include "c64_256k.h" #include "c64cia.h" #include "c64iec.h" #include "c64keyboard.h" #include "c64memrom.h" #include "c64parallel.h" #include "c64rsuser.h" #include "cardkey.h" #include "cartridge.h" #include "cia.h" #include "clockport-mp3at64.h" #include "datasette.h" #include "datasette-sound.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 "fmopl.h" #include "fsdevice.h" #include "functionrom.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 "resources.h" #include "machine-drive.h" #include "machine-printer.h" #include "machine-video.h" #include "machine.h" #include "maincpu.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 "plus60k.h" #include "plus256k.h" #include "printer.h" #include "protopad.h" #include "rs232drv.h" #include "rsuser.h" #include "sampler.h" #include "sampler2bit.h" #include "sampler4bit.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 "tape.h" #include "tape_diag_586220_harness.h" #include "tapeport.h" #include "tapecart.h" #include "tpi.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_diag_586220_harness.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_funmp3.h" #include "userport_woj_joystick.h" #include "vdc.h" #include "vdc-mem.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" #include "waasoft_dongle.h" #include "z80.h" #include "z80mem.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 /* dummy functions until the C128 version of the 256K expansion can be made */ int c64_256k_enabled = 0; int c64_256k_start = 0xdf80; void c64_256k_store(uint16_t addr, uint8_t byte) { } uint8_t c64_256k_read(uint16_t addr) { return 0xff; } uint8_t c64_256k_ram_segment2_read(uint16_t addr) { return mem_ram[addr]; } void c64_256k_ram_segment2_store(uint16_t addr, uint8_t byte) { mem_ram[addr] = byte; } void c64_256k_cia_set_vbank(int ciabank) { } /* dummy functions until the C128 version of the +60K expansion can be made */ int plus60k_enabled = 0; uint8_t plus60k_ram_read(uint16_t addr) { return mem_ram[addr]; } void plus60k_ram_store(uint16_t addr, uint8_t value) { mem_ram[addr] = value; } /* dummy functions until the C128 version of the +256K expansion can be made */ int plus256k_enabled = 0; uint8_t plus256k_ram_high_read(uint16_t addr) { return mem_ram[addr]; } void plus256k_ram_high_store(uint16_t addr, uint8_t byte) { mem_ram[addr] = byte; } #if defined(HAVE_MOUSE) && defined(HAVE_LIGHTPEN) /* Lightpen trigger function; needs to trigger both VICII and VDC */ static void c128_trigger_light_pen(CLOCK mclk) { vicii_trigger_light_pen(mclk); vdc_trigger_light_pen(mclk); } #endif machine_context_t machine_context; const char machine_name[] = "C128"; int machine_class = VICE_MACHINE_C128; static void machine_vsync_hook(void); /* FIXME: add different keyboard types */ 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; } /* For use in the UI's, the actuall keymaps still need to be generated */ static kbdtype_info_t kbdinfo[] = { { "International", C128_MACHINE_INT, 0 }, { "Finnish", C128_MACHINE_FINNISH, 0 }, { "French", C128_MACHINE_FRENCH, 0 }, { "German", C128_MACHINE_GERMAN, 0 }, { "Italian", C128_MACHINE_ITALIAN, 0 }, { "Norwegian", C128_MACHINE_NORWEGIAN, 0 }, { "Swedish", C128_MACHINE_SWEDISH, 0 }, { "Swiss", C128_MACHINE_SWISS, 0 }, { NULL, 0, 0 } }; kbdtype_info_t *machine_get_keyboard_info_list(void) { return kbdinfo; } /* ------------------------------------------------------------------------- */ static const trap_t c128_serial_traps[] = { { "SerialListen", 0xE355, 0xE5BA, { 0x20, 0x73, 0xE5 }, serial_trap_attention, c128memrom_trap_read, c128memrom_trap_store }, { "SerialSaListen", 0xE37C, 0xE5BA, { 0x20, 0x73, 0xE5 }, serial_trap_attention, c128memrom_trap_read, c128memrom_trap_store }, { "SerialSendByte", 0xE38C, 0xE5BA, { 0x20, 0x73, 0xE5 }, serial_trap_send, c128memrom_trap_read, c128memrom_trap_store }, { "SerialReceiveByte", 0xE43E, 0xE5BA, { 0x20, 0x73, 0xE5 }, serial_trap_receive, c128memrom_trap_read, c128memrom_trap_store }, { "Serial ready", 0xE569, 0xE572, { 0xAD, 0x00, 0xDD }, serial_trap_ready, c128memrom_trap_read, c128memrom_trap_store }, { "Serial ready", 0xE4F5, 0xE572, { 0xAD, 0x00, 0xDD }, serial_trap_ready, c128memrom_trap_read, c128memrom_trap_store }, { "SerialListen", 0xED24, 0xEDAB, { 0x20, 0x97, 0xEE }, serial_trap_attention, c64memrom_trap_read, c64memrom_trap_store }, { "SerialSaListen", 0xED37, 0xEDAB, { 0x20, 0x8E, 0xEE }, serial_trap_attention, c64memrom_trap_read, c64memrom_trap_store }, { "SerialSendByte", 0xED41, 0xEDAB, { 0x20, 0x97, 0xEE }, serial_trap_send, c64memrom_trap_read, c64memrom_trap_store }, { "SerialReceiveByte", 0xEE14, 0xEDAB, { 0xA9, 0x00, 0x85 }, serial_trap_receive, c64memrom_trap_read, c64memrom_trap_store }, { "SerialReady", 0xEEA9, 0xEDAB, { 0xAD, 0x00, 0xDD }, serial_trap_ready, c64memrom_trap_read, c64memrom_trap_store }, { NULL, 0, 0, { 0, 0, 0 }, NULL, NULL, NULL } }; /* Tape traps. */ static const trap_t c128_tape_traps[] = { { "TapeFindHeader", 0xE8D3, 0xE8D6, { 0x20, 0xF2, 0xE9 }, tape_find_header_trap, c128memrom_trap_read, c128memrom_trap_store }, { "TapeReceive", 0xEA60, 0xEE57, { 0x20, 0x9B, 0xEE }, tape_receive_trap, c128memrom_trap_read, c128memrom_trap_store }, { "TapeFindHeader", 0xF72F, 0xF732, { 0x20, 0x41, 0xF8 }, tape_find_header_trap, c64memrom_trap_read, c64memrom_trap_store }, { "TapeReceive", 0xF8A1, 0xFC93, { 0x20, 0xBD, 0xFC }, tape_receive_trap, c64memrom_trap_read, c64memrom_trap_store }, { NULL, 0, 0, { 0, 0, 0 }, NULL, NULL, NULL } }; static const tape_init_t tapeinit_c128_mode = { 0xb2, 0x90, 0x93, 0xa09, 0, 0xc1, 0xae, 0x34a, 0xd0, c128_tape_traps, 36 * 8, 54 * 8, 55 * 8, 73 * 8, 74 * 8, 100 * 8 }; static const tape_init_t tapeinit_c64_mode = { 0xb2, 0x90, 0x93, 0x29f, 0, 0xc1, 0xae, 0x277, 0xc6, c128_tape_traps, 36 * 8, 54 * 8, 55 * 8, 73 * 8, 74 * 8, 100 * 8 }; static int tapemode = 0; void machine_tape_init_c64(void) { /* CAUTION: only call trap init functions when traps have been initialized */ if (traps_ready() && (tapemode != 1)) { if (tapemode == 0) { tape_init(&tapeinit_c64_mode); } else { tape_reinit(&tapeinit_c64_mode); } tapemode = 1; } } void machine_tape_init_c128(void) { /* CAUTION: only call trap init functions when traps have been initialized */ if (traps_ready() && (tapemode != 2)) { if (tapemode == 0) { tape_init(&tapeinit_c128_mode); } else { tape_reinit(&tapeinit_c128_mode); } tapemode = 2; } } static log_t c128_log = LOG_DEFAULT; static machine_timing_t machine_timing; /* ------------------------------------------------------------------------ */ static int cia2_dump(void) { return ciacore_dump(machine_context.cia2); } /* ------------------------------------------------------------------------ */ /* C128-specific I/O initialization. */ static io_source_t vicii_d000_device = { "VIC-IIe", /* 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, /* 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-IIe $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, /* 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, 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 vicii_d200_device = { "VIC-IIe $D200-$D2FF 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 */ 0xd200, 0xd2ff, 0x3f, /* 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, 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 vicii_d300_device = { "VIC-IIe $D300-$D3FF 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 */ 0xd300, 0xd3ff, 0x3f, /* 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, 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 SID registers $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_HIGH, /* high priority, mirrors 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 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 vdc_d600_device = { "VDC", /* 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, 0x01, /* regs: $d600-$d601, mirrors: $d602-$d6ff */ 1, /* read is always valid */ vdc_store, /* store function */ NULL, /* NO poke function */ vdc_read, /* read function */ vdc_peek, /* peek function */ vdc_dump, /* chip state information dump function */ IO_CART_ID_NONE, /* not a cartridge */ IO_PRIO_NORMAL, /* high priority, 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 cia2_dd00_device = { "CIA2", /* 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 */ 0xdd00, 0xddff, 0x0f, /* main CIA2 registers $dd00-$dd0f, mirrors: $dd10-$ddff */ 1, /* read is always valid */ cia2_store, /* store function */ NULL, /* NO poke function */ cia2_read, /* read function */ cia2_peek, /* peek function */ cia2_dump, /* chip state information dump function */ IO_CART_ID_NONE, /* not a cartridge */ IO_PRIO_HIGH, /* high priority, 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_list_t *vicii_d000_list_item = NULL; static io_source_list_t *vicii_d100_list_item = NULL; static io_source_list_t *vicii_d200_list_item = NULL; static io_source_list_t *vicii_d300_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 *vdc_d600_list_item = NULL; static io_source_list_t *cia2_dd00_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); vicii_d200_list_item = io_source_register(&vicii_d200_device); vicii_d300_list_item = io_source_register(&vicii_d300_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; } if (vicii_d200_list_item != NULL) { io_source_unregister(vicii_d200_list_item); vicii_d200_list_item = NULL; } if (vicii_d300_list_item != NULL) { io_source_unregister(vicii_d300_list_item); vicii_d300_list_item = NULL; } } static void c128io_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); vdc_d600_list_item = io_source_register(&vdc_d600_device); cia2_dd00_list_item = io_source_register(&cia2_dd00_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); } /* C128-specific resource initialization. This is called before initializing the machine itself with `machine_init()'. */ int machine_resources_init(void) { c128cartridge_setup_interface(); if (traps_resources_init() < 0) { init_resource_fail("traps"); return -1; } if (rombanks_resources_init() < 0) { init_resource_fail("rombanks"); return -1; } if (c128_resources_init() < 0) { init_resource_fail("c128"); return -1; } if (export_resources_init() < 0) { init_resource_fail("c128export"); return -1; } if (vicii_resources_init() < 0) { init_resource_fail("vicii"); return -1; } if (vdc_resources_init() < 0) { init_resource_fail("vdc"); 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; } 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 (tapeport_resources_init(1) < 0) { init_resource_fail("tapeport"); return -1; } if (cartridge_resources_init() < 0) { init_resource_fail("cartridge"); return -1; } if (c128cartridge_resources_init() < 0) { init_resource_fail("c128 cartridge"); return -1; } if (mmu_resources_init() < 0) { init_resource_fail("mmu"); return -1; } if (cartio_resources_init() < 0) { init_resource_fail("cartio"); return -1; } if (functionrom_resources_init() < 0) { init_resource_fail("functionrom"); 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(); c128_resources_shutdown(); rs232drv_resources_shutdown(); printer_resources_shutdown(); drive_resources_shutdown(); cartridge_resources_shutdown(); functionrom_resources_shutdown(); rombanks_resources_shutdown(); userport_resources_shutdown(); cartio_shutdown(); fsdevice_resources_shutdown(); disk_image_resources_shutdown(); sampler_resources_shutdown(); tapeport_resources_shutdown(); tapecart_exit(); joyport_resources_shutdown(); } /* C128-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 (c128_cmdline_options_init() < 0) { init_cmdline_options_fail("c128"); return -1; } if (vicii_cmdline_options_init() < 0) { init_cmdline_options_fail("vicii"); return -1; } if (vdc_cmdline_options_init() < 0) { init_cmdline_options_fail("vdc"); 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 (tapeport_cmdline_options_init() < 0) { init_cmdline_options_fail("tapeport"); return -1; } if (cartridge_cmdline_options_init() < 0) { init_cmdline_options_fail("cartridge"); return -1; } if (c128cartridge_cmdline_options_init() < 0) { init_cmdline_options_fail("c128 cartridge"); return -1; } if (mmu_cmdline_options_init() < 0) { init_cmdline_options_fail("mmu"); return -1; } if (functionrom_cmdline_options_init() < 0) { init_cmdline_options_fail("functionrom"); return -1; } if (cartio_cmdline_options_init() < 0) { init_cmdline_options_fail("cartio"); return -1; } return 0; } static void c128_monitor_init(void) { unsigned int dnr; monitor_cpu_type_t asm6502, asmz80, asmR65C02; monitor_interface_t *drive_interface_init[NUM_DISK_UNITS]; monitor_cpu_type_t *asmarray[4]; asmarray[0] = &asm6502; asmarray[1] = &asmz80; asmarray[2] = &asmR65C02; asmarray[3] = NULL; asm6502_init(&asm6502); asmz80_init(&asmz80); asmR65C02_init(&asmR65C02); 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); /* Set the monitor to be in Z80 mode initially */ monitor_cpu_type_set_value(CPU_Z80); } 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); } /* C128-specific initialization. */ int machine_specific_init(void) { c128_log = log_open("C128"); if (mem_load() < 0) { return -1; } event_init(); if (z80mem_load() < 0) { return -1; } /* Setup trap handling. */ traps_init(); /* Initialize serial traps. */ if (serial_init(c128_serial_traps) < 0) { return -1; } serial_trap_init(0xa4); serial_iec_bus_init(); if (!video_disabled_mode) { joystick_init(); } gfxoutput_init(); /* initialize RS232 handler */ rs232drv_init(); c64_rsuser_init(); /* initialize print devices */ printer_init(); /* Initialize the tape emulation. */ machine_tape_init_c128(); /* Initialize the datasette emulation. */ datasette_init(); /* Fire up the hardware-level drive emulation. */ drive_init(); disk_image_init(); /* Initialize autostart. */ autostart_init(3, 1); /* Pre-init C128-specific parts of the menus before vdc_init() and vicii_init() create canvas windows with menubars at the top. */ if (!console_mode) { c128ui_init_early(); } /* We init VICII first, so the VICII GtkWindow gets window index 0, which * the UI code expects for x128 */ if (vicii_init(VICII_EXTENDED) == NULL) { return -1; } if (vdc_init() == NULL) { return -1; } cia1_init(machine_context.cia1); cia2_init(machine_context.cia2); /* Initialize the keyboard. */ c64keyboard_init(); c128_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(); userport_digimax_sound_chip_init(); /* Initialize mp3@64 */ #ifdef USE_MPG123 clockport_mp3at64_sound_chip_init(); #endif #if defined(USE_MPG123) && defined (HAVE_GLOB_H) userport_funmp3_sound_chip_init(); #endif drive_sound_init(); datasette_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); fmopl_set_machine_parameter(machine_timing.cycles_per_sec); /* Initialize keyboard buffer. */ kbdbuf_init(842, 208, 10, (CLOCK)(machine_timing.rfsh_per_sec * machine_timing.cycles_per_rfsh * KBDBUF_ALARM_DELAY)); /* Initialize the C128-specific I/O */ c128io_init(); /* Initialize the C128-specific part of the UI. */ if (!console_mode) { c128ui_init(); } #ifdef HAVE_MOUSE /* Initialize mouse support (if present). */ mouse_init(); #ifdef HAVE_LIGHTPEN /* Initialize lightpen support and register VICII/VDC callbacks */ lightpen_init(); lightpen_register_timing_callback(vicii_lightpen_timing, 1); lightpen_register_timing_callback(vdc_lightpen_timing, 0); lightpen_register_trigger_callback(c128_trigger_light_pen); #endif #endif c64iec_init(); c128fastiec_init(); cartridge_init(); mmu_init(); machine_drive_stub(); return 0; } /* C128-specific reset sequence. */ void machine_specific_reset(void) { serial_traps_reset(); /* These calls must be before the CIA initialization */ rs232drv_reset(); userport_reset(); ciacore_reset(machine_context.cia1); ciacore_reset(machine_context.cia2); sid_reset(); printer_reset(); vdc_reset(); /* The VIC-II must be the *last* to be reset. */ vicii_reset(); cartridge_reset(); drive_reset(); datasette_reset(); z80mem_initialize(); z80_reset(); sampler_reset(); } void machine_specific_powerup(void) { cartridge_powerup(); userport_powerup(); tapeport_powerup(); joyport_powerup(); } void machine_specific_shutdown(void) { /* and the tape */ tape_image_detach_internal(TAPEPORT_PORT_1 + 1); /* and cartridge */ cartridge_detach_image(-1); ciacore_shutdown(machine_context.cia1); ciacore_shutdown(machine_context.cia2); cartridge_shutdown(); #ifdef HAVE_MOUSE mouse_shutdown(); #endif /* close the video chip(s) */ vicii_shutdown(); vdc_shutdown(); sid_cmdline_options_shutdown(); if (!console_mode) { c128ui_shutdown(); } } void machine_handle_pending_alarms(CLOCK num_write_cycles) { vicii_handle_pending_alarms_external(num_write_cycles); } /* ------------------------------------------------------------------------- */ void machine_kbdbuf_reset_c128(void) { kbdbuf_reset(842, 208, 10, (CLOCK)(machine_timing.rfsh_per_sec * machine_timing.cycles_per_rfsh)); } void machine_kbdbuf_reset_c64(void) { kbdbuf_reset(631, 198, 10, (CLOCK)(machine_timing.rfsh_per_sec * machine_timing.cycles_per_rfsh)); } /* FIXME: check if this is really needed and remove eventually */ void machine_autostart_reset_c128(void) { /* autostart_reinit(3, 1); */ } /* FIXME: check if this is really needed and remove eventually */ void machine_autostart_reset_c64(void) { /* autostart_reinit(3, 1); */ } /* ------------------------------------------------------------------------- */ /* This hook is called at the end of every frame. */ static void machine_vsync_hook(void) { 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 = vicii_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 = C128_PAL_CYCLES_PER_SEC; machine_timing.cycles_per_rfsh = C128_PAL_CYCLES_PER_RFSH; machine_timing.rfsh_per_sec = C128_PAL_RFSH_PER_SEC; machine_timing.cycles_per_line = C128_PAL_CYCLES_PER_LINE; machine_timing.screen_lines = C128_PAL_SCREEN_LINES; machine_timing.power_freq = powerfreq; break; case MACHINE_SYNC_NTSC: machine_timing.cycles_per_sec = C128_NTSC_CYCLES_PER_SEC; machine_timing.cycles_per_rfsh = C128_NTSC_CYCLES_PER_RFSH; machine_timing.rfsh_per_sec = C128_NTSC_RFSH_PER_SEC; machine_timing.cycles_per_line = C128_NTSC_CYCLES_PER_LINE; machine_timing.screen_lines = C128_NTSC_SCREEN_LINES; machine_timing.power_freq = powerfreq; break; default: log_error(c128_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); fmopl_set_machine_parameter(machine_timing.cycles_per_sec); rsuser_change_timing(machine_timing.cycles_per_sec); machine_trigger_reset(MACHINE_RESET_MODE_POWER_CYCLE); } /* ------------------------------------------------------------------------- */ int machine_write_snapshot(const char *name, int save_roms, int save_disks, int event_mode) { int err = c128_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 = c128_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()) { vicii_screenshot(screenshot); return 0; } if (canvas == vdc_get_canvas()) { vdc_screenshot(screenshot); return 0; } return -1; } int machine_canvas_async_refresh(struct canvas_refresh_s *refresh, struct video_canvas_s *canvas) { if (canvas == vicii_get_canvas()) { vicii_async_refresh(refresh); return 0; } if (canvas == vdc_get_canvas()) { vdc_async_refresh(refresh); return 0; } return -1; } 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 TAPE_CAS_TYPE_PRG; } uint8_t machine_tape_behaviour(void) { return TAPE_BEHAVIOUR_NORMAL; } /* this is currently only used by the autostart code */ int machine_addr_in_ram(unsigned int addr) { uint8_t mmucfg = mmu_peek(0); if (mmu_is_c64config()) { /* c64 mode */ return ( addr < 0xe000 && !(addr >= 0xa000 && addr < 0xc000) && !(addr >= 0x0073 && addr <= 0x008a) ); } /* FIXME: C128 is a special beast, as it would execute some stuff in system RAM - which this special case hack checks. without this check eg autostarting a prg file with autostartmode= "disk image" will fail. (exit from ROM at $some RAM address) */ if ((addr >= 0x2a2) && (addr <= 0x3d1)) { return 0; } /* printf("addr: %04x mmucfg: %02x\n", addr, mmucfg); */ if ((addr >= 0xd000) && (addr <= 0xdfff)) { /* d000-dfff */ if ((mmucfg & 0x01) == 0x00) { /* 00000001 */ return 0; /* else what is selected by bits 4/5 */ } } if ((addr >= 0xc000) && (addr <= 0xffff)) { /* c000-ffff */ if ((mmucfg & 0x30) == 0x30) { /* 00110000 */ if (!((addr >= 0xff18) && (addr <= 0xff3c))) { /* exclude IRQ/NMI handler */ return 1; } } } if ((addr >= 0x8000) && (addr <= 0xbfff)) { /* 8000-bfff */ if ((mmucfg & 0xc0) == 0xc0) { /* 00001100 */ return 1; } } if ((addr >= 0x4000) && (addr <= 0x7fff)) { /* 4000-7fff */ if ((mmucfg & 0x02) == 0x02) { /* 00000010 */ return 1; } } if (/* (addr >= 0x0000) && */ (addr <= 0x3fff)) { /* 0000-3fff */ return 1; } return 0; } const char *machine_get_name(void) { return machine_name; } /* ------------------------------------------------------------------------- */ static void c128_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 */ c128_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; }