repos/blastem: sms.c annotate

annotate sms.c @ 2534:35dbe1873c8f

Speed up pasting and do some prep for pasting characters that need keys pressed in sequence

author	Michael Pavone <pavone@retrodev.com>
date	Wed, 27 Nov 2024 16:43:56 -0800
parents	f4a471730ba4
children	0c6519125a28

rev	line source
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1 #include <string.h>
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	2 #include <stdlib.h>
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	3 #include <stddef.h>
2202 ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	4 #include "config.h"
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	5 #include "sms.h"
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	6 #include "blastem.h"
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	7 #include "render.h"
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	8 #include "util.h"
1129 6b5c92b6205c Enabled Z80 debugger in PBC mode Michael Pavone <pavone@retrodev.com> parents: 1126 diff changeset	9 #include "debug.h"
1478 da1dce39e846 Refactored save slot related logic to reduce duplication and allow reuse in new UI. Get state loading/saving mostly working in new UI Michael Pavone <pavone@retrodev.com> parents: 1433 diff changeset	10 #include "saves.h"
1583 430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	11 #include "bindings.h"
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	12
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	13 #ifdef NEW_CORE
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	14 #define Z80_CYCLE cycles
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	15 #define Z80_OPTS opts
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	16 #define z80_handle_code_write(...)
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	17 #else
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	18 #define Z80_CYCLE current_cycle
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	19 #define Z80_OPTS options
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	20 #endif
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	21
2528 90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	22 enum {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	23 TAPE_NONE,
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	24 TAPE_STOPPED,
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	25 TAPE_PLAYING,
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	26 TAPE_RECORDING
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	27 };
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	28
2534 35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	29 #define PASTE_DELAY (3420 * 16)
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	30
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	31 static void memory_io_write(uint32_t location, void vcontext, uint8_t value)
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	32 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	33 z80_context *z80 = vcontext;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	34 sms_context *sms = z80->system;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	35 if (location & 1) {
1154 c83ec07ddbac Implemented Mode 4 H conter latching Michael Pavone <pavone@retrodev.com> parents: 1149 diff changeset	36 uint8_t fuzzy_ctrl_0 = sms->io.ports[0].control, fuzzy_ctrl_1 = sms->io.ports[1].control;
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	37 io_control_write(sms->io.ports, (~value) << 5 & 0x60, z80->Z80_CYCLE);
1154 c83ec07ddbac Implemented Mode 4 H conter latching Michael Pavone <pavone@retrodev.com> parents: 1149 diff changeset	38 fuzzy_ctrl_0 \|= sms->io.ports[0].control;
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	39 io_control_write(sms->io.ports+1, (~value) << 3 & 0x60, z80->Z80_CYCLE);
1154 c83ec07ddbac Implemented Mode 4 H conter latching Michael Pavone <pavone@retrodev.com> parents: 1149 diff changeset	40 fuzzy_ctrl_1 \|= sms->io.ports[1].control;
c83ec07ddbac Implemented Mode 4 H conter latching Michael Pavone <pavone@retrodev.com> parents: 1149 diff changeset	41 if (
c83ec07ddbac Implemented Mode 4 H conter latching Michael Pavone <pavone@retrodev.com> parents: 1149 diff changeset	42 (fuzzy_ctrl_0 & 0x40 & (sms->io.ports[0].output ^ (value << 1)) & (value << 1))
c83ec07ddbac Implemented Mode 4 H conter latching Michael Pavone <pavone@retrodev.com> parents: 1149 diff changeset	43 \|\| (fuzzy_ctrl_0 & 0x40 & (sms->io.ports[1].output ^ (value >> 1)) & (value >> 1))
c83ec07ddbac Implemented Mode 4 H conter latching Michael Pavone <pavone@retrodev.com> parents: 1149 diff changeset	44 ) {
c83ec07ddbac Implemented Mode 4 H conter latching Michael Pavone <pavone@retrodev.com> parents: 1149 diff changeset	45 //TH is an output and it went from 0 -> 1
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	46 vdp_run_context(sms->vdp, z80->Z80_CYCLE);
1154 c83ec07ddbac Implemented Mode 4 H conter latching Michael Pavone <pavone@retrodev.com> parents: 1149 diff changeset	47 vdp_latch_hv(sms->vdp);
c83ec07ddbac Implemented Mode 4 H conter latching Michael Pavone <pavone@retrodev.com> parents: 1149 diff changeset	48 }
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	49 io_data_write(sms->io.ports, value << 1, z80->Z80_CYCLE);
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	50 io_data_write(sms->io.ports + 1, value >> 1, z80->Z80_CYCLE);
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	51 } else {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	52 //TODO: memory control write
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	53 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	54 return vcontext;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	55 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	56
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	57 static uint8_t hv_read(uint32_t location, void *vcontext)
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	58 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	59 z80_context *z80 = vcontext;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	60 sms_context *sms = z80->system;
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	61 vdp_run_context(sms->vdp, z80->Z80_CYCLE);
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	62 uint16_t hv = vdp_hv_counter_read(sms->vdp);
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	63 if (location & 1) {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	64 return hv;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	65 } else {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	66 return hv >> 8;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	67 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	68 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	69
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	70 static void sms_psg_write(uint32_t location, void vcontext, uint8_t value)
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	71 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	72 z80_context *z80 = vcontext;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	73 sms_context *sms = z80->system;
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	74 psg_run(sms->psg, z80->Z80_CYCLE);
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	75 psg_write(sms->psg, value);
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	76 return vcontext;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	77 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	78
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	79 static void update_interrupts(sms_context *sms)
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	80 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	81 uint32_t vint = vdp_next_vint(sms->vdp);
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	82 uint32_t hint = vdp_next_hint(sms->vdp);
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	83 #ifdef NEW_CORE
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	84 sms->z80->int_cycle = vint < hint ? vint : hint;
1759 6e4faa10f9ee Store sync_cycle in context rather than in a local in CPU DSL. Fix the timing of a number of instructions in new Z80 core Michael Pavone <pavone@retrodev.com> parents: 1752 diff changeset	85 z80_sync_cycle(sms->z80, sms->z80->sync_cycle);
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	86 #else
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	87 sms->z80->int_pulse_start = vint < hint ? vint : hint;
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	88 #endif
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	89 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	90
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	91 static uint8_t vdp_read(uint32_t location, void *vcontext)
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	92 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	93 z80_context *z80 = vcontext;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	94 sms_context *sms = z80->system;
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	95 vdp_run_context(sms->vdp, z80->Z80_CYCLE);
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	96 if (location & 1) {
1126 63cd87d910cc Clear interrupt status flags after getting the status register value rather than before Michael Pavone <pavone@retrodev.com> parents: 1120 diff changeset	97 uint8_t ret = vdp_control_port_read(sms->vdp);
1119 55ea7f9a4e92 Fix clearing of interrupt pending flags on control port read in PBC mode Michael Pavone <pavone@retrodev.com> parents: 1117 diff changeset	98 sms->vdp->flags2 &= ~(FLAG2_VINT_PENDING\|FLAG2_HINT_PENDING);
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	99 update_interrupts(sms);
1126 63cd87d910cc Clear interrupt status flags after getting the status register value rather than before Michael Pavone <pavone@retrodev.com> parents: 1120 diff changeset	100 return ret;
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	101 } else {
1149 6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	102 return vdp_data_port_read_pbc(sms->vdp);
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	103 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	104 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	105
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	106 static void vdp_write(uint32_t location, void vcontext, uint8_t value)
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	107 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	108 z80_context *z80 = vcontext;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	109 sms_context *sms = z80->system;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	110 if (location & 1) {
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	111 vdp_run_context_full(sms->vdp, z80->Z80_CYCLE);
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	112 vdp_control_port_write_pbc(sms->vdp, value);
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	113 update_interrupts(sms);
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	114 } else {
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	115 vdp_run_context(sms->vdp, z80->Z80_CYCLE);
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	116 vdp_data_port_write_pbc(sms->vdp, value);
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	117 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	118 return vcontext;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	119 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	120
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	121 static uint8_t io_read(uint32_t location, void *vcontext)
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	122 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	123 z80_context *z80 = vcontext;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	124 sms_context *sms = z80->system;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	125 if (location == 0xC0 \|\| location == 0xDC) {
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	126 uint8_t port_a = io_data_read(sms->io.ports, z80->Z80_CYCLE);
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	127 uint8_t port_b = io_data_read(sms->io.ports+1, z80->Z80_CYCLE);
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	128 return (port_a & 0x3F) \| (port_b << 6);
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	129 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	130 if (location == 0xC1 \|\| location == 0xDD) {
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	131 uint8_t port_a = io_data_read(sms->io.ports, z80->Z80_CYCLE);
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	132 uint8_t port_b = io_data_read(sms->io.ports+1, z80->Z80_CYCLE);
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	133 return (port_a & 0x40) \| (port_b >> 2 & 0xF) \| (port_b << 1 & 0x80) \| 0x10;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	134 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	135 return 0xFF;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	136 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	137
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	138 static void i8255_output_updated(i8255 *ppi, uint32_t cycle, uint32_t port, uint8_t data)
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	139 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	140 if (port == 2) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	141 sms_context *sms = ppi->system;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	142 sms->kb_mux = data & 0x7;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	143 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	144 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	145
2528 90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	146 static void cassette_run(sms_context *sms, uint32_t cycle)
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	147 {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	148 if (!sms->cassette) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	149 return;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	150 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	151 if (cycle > sms->cassette_cycle) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	152 uint64_t diff = cycle - sms->cassette_cycle;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	153 diff *= sms->cassette_wave.sample_rate;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	154 diff /= sms->normal_clock;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	155 if (sms->cassette_state == TAPE_PLAYING) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	156 uint64_t bytes_per_sample = sms->cassette_wave.num_channels * sms->cassette_wave.bits_per_sample / 8;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	157 uint64_t offset = diff * bytes_per_sample + sms->cassette_offset;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	158 if (offset > UINT32_MAX \|\| offset > sms->cassette->size - bytes_per_sample) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	159 sms->cassette_offset = sms->cassette->size - bytes_per_sample;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	160 } else {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	161 sms->cassette_offset = offset;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	162 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	163 static uint32_t last_displayed_seconds;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	164 uint32_t seconds = (sms->cassette_offset - (sms->cassette_wave.format_header.size + offsetof(wave_header, audio_format))) / (bytes_per_sample * sms->cassette_wave.sample_rate);
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	165 if (seconds != last_displayed_seconds) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	166 last_displayed_seconds = seconds;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	167 printf("Cassette: %02d:%02d\n", seconds / 60, seconds % 60);
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	168 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	169 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	170 diff *= sms->normal_clock;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	171 diff /= sms->cassette_wave.sample_rate;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	172 sms->cassette_cycle += diff;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	173 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	174 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	175
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	176 static uint8_t cassette_read(sms_context *sms, uint32_t cycle)
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	177 {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	178 cassette_run(sms, cycle);
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	179 if (sms->cassette_state != TAPE_PLAYING) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	180 return 0;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	181 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	182 int64_t sample = 0;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	183 for (uint16_t i = 0; i < sms->cassette_wave.num_channels; i++)
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	184 {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	185 if (sms->cassette_wave.audio_format == 3) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	186 if (sms->cassette_wave.bits_per_sample == 64) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	187 sample += 32767.0 * ((double )(((char )sms->cassette->buffer) + sms->cassette_offset))[i];
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	188 } else if (sms->cassette_wave.bits_per_sample == 32) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	189 sample += 32767.0f * ((float )(((char )sms->cassette->buffer) + sms->cassette_offset))[i];
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	190 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	191 } else if (sms->cassette_wave.audio_format == 1) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	192 if (sms->cassette_wave.bits_per_sample == 32) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	193 sample += ((int32_t )(((char )sms->cassette->buffer) + sms->cassette_offset))[i];
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	194 } else if (sms->cassette_wave.bits_per_sample == 16) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	195 sample += ((int16_t )(((char )sms->cassette->buffer) + sms->cassette_offset))[i];
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	196 } else if (sms->cassette_wave.bits_per_sample == 8) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	197 sample += ((uint8_t *)sms->cassette->buffer)[sms->cassette_offset + i] - 0x80;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	198 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	199 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	200 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	201 uint32_t bytes_per_sample = sms->cassette_wave.num_channels * sms->cassette_wave.bits_per_sample / 8;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	202 if (sms->cassette_offset == sms->cassette->size - bytes_per_sample) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	203 sms->cassette_state = TAPE_STOPPED;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	204 puts("Cassette reached end of file, playback stoped");
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	205 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	206 return sample > 0 ? 0x80 : 0;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	207 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	208
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	209 static void cassette_action(system_header *header, uint8_t action)
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	210 {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	211 sms_context sms = (sms_context)header;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	212 if (!sms->cassette) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	213 return;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	214 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	215 cassette_run(sms, sms->z80->Z80_CYCLE);
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	216 switch(action)
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	217 {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	218 case CASSETTE_PLAY:
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	219 sms->cassette_state = TAPE_PLAYING;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	220 puts("Cassette playback started");
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	221 break;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	222 case CASSETTE_RECORD:
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	223 break;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	224 case CASSETTE_STOP:
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	225 sms->cassette_state = TAPE_STOPPED;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	226 puts("Cassette playback stoped");
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	227 break;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	228 case CASSETTE_REWIND:
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	229 sms->cassette_offset = sms->cassette_wave.format_header.size + offsetof(wave_header, audio_format);
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	230 break;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	231 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	232 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	233
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	234 typedef struct {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	235 uint8_t main;
2534 35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	236 uint8_t mod;
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	237 uint8_t before;
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	238 uint8_t after;
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	239 } cp_keys;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	240
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	241 static cp_keys cp_to_keys(int cp)
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	242 {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	243 uint8_t shift = 0;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	244 if (cp >= 'a' && cp <= 'z') {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	245 shift = 0x12;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	246 cp -= 'a' - 'A';
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	247 } else if (cp >= '!' && cp <= ')') {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	248 shift = 0x12;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	249 cp += '1' - '!';
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	250 } else if (cp >= 0xE0 && cp <= 0xFC) {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	251 //accented latin letters only have a single case
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	252 cp -= 0xE0 - 0xC0;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	253 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	254 switch (cp)
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	255 {
2534 35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	256 case '0': return (cp_keys){0x45};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	257 case '1': return (cp_keys){0x16, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	258 case '2': return (cp_keys){0x1E, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	259 case '3': return (cp_keys){0x26, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	260 case '4': return (cp_keys){0x25, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	261 case '5': return (cp_keys){0x2E, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	262 case '6': return (cp_keys){0x36, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	263 case '7': return (cp_keys){0x3D, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	264 case '8': return (cp_keys){0x3E, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	265 case '9': return (cp_keys){0x46, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	266 case 'A': return (cp_keys){0x1C, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	267 case 'B': return (cp_keys){0x32, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	268 case 'C': return (cp_keys){0x21, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	269 case 'D': return (cp_keys){0x23, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	270 case 'E': return (cp_keys){0x24, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	271 case 'F': return (cp_keys){0x2B, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	272 case 'G': return (cp_keys){0x34, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	273 case 'H': return (cp_keys){0x33, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	274 case 'I': return (cp_keys){0x43, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	275 case 'J': return (cp_keys){0x3B, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	276 case 'K': return (cp_keys){0x42, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	277 case 'L': return (cp_keys){0x4B, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	278 case 'M': return (cp_keys){0x3A, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	279 case 'N': return (cp_keys){0x31, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	280 case 'O': return (cp_keys){0x44, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	281 case 'P': return (cp_keys){0x4D, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	282 case 'Q': return (cp_keys){0x15, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	283 case 'R': return (cp_keys){0x2D, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	284 case 'S': return (cp_keys){0x1B, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	285 case 'T': return (cp_keys){0x2C, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	286 case 'U': return (cp_keys){0x3C, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	287 case 'V': return (cp_keys){0x2A, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	288 case 'W': return (cp_keys){0x1D, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	289 case 'X': return (cp_keys){0x22, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	290 case 'Y': return (cp_keys){0x35, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	291 case 'Z': return (cp_keys){0x1A, shift};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	292 case '-': return (cp_keys){0x4E};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	293 case '=': return (cp_keys){0x4E, 0x12};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	294 case ';': return (cp_keys){0x4C};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	295 case '+': return (cp_keys){0x4C, 0x12};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	296 case ':': return (cp_keys){0x52};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	297 case '*': return (cp_keys){0x52, 0x12};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	298 case ',': return (cp_keys){0x41};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	299 case '<': return (cp_keys){0x41, 0x12};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	300 case '.': return (cp_keys){0x49};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	301 case '>': return (cp_keys){0x49, 0x12};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	302 case '/': return (cp_keys){0x4A};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	303 case '?': return (cp_keys){0x4A, 0x12};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	304 case '^': return (cp_keys){0x55};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	305 case '~': return (cp_keys){0x55, 0x12};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	306 case '[': return (cp_keys){0x54};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	307 case '{': return (cp_keys){0x54, 0x12};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	308 case ']': return (cp_keys){0x5B};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	309 case '}': return (cp_keys){0x5B, 0x12};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	310 case '@': return (cp_keys){0x85};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	311 case '`': return (cp_keys){0x85, 0x12};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	312 case '\n': return (cp_keys){0x5A};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	313 case ' ': return (cp_keys){0x29};
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	314 case 0xA5: return (cp_keys){0x5D};//¥
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	315 //Accented latin letters will only work right with export BASIC
2534 35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	316 case 0xA1: return (cp_keys){0x32, 0x81};//¡
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	317 case 0xA3: return (cp_keys){0x5D, 0x81};//£
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	318 case 0xBF: return (cp_keys){0x2A, 0x81};//¿
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	319 case 0xC0: return (cp_keys){0x1D, 0x81};//À
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	320 case 0xC1: return (cp_keys){0x15, 0x81};//Á
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	321 case 0xC2: return (cp_keys){0x16, 0x81};//Â
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	322 case 0xC3: return (cp_keys){0x23, 0x81};//Ã
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	323 case 0xC4: return (cp_keys){0x1C, 0x81};//Ä
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	324 case 0xC5: return (cp_keys){0x1B, 0x81};//Å
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	325 case 0xC7: return (cp_keys){0x21, 0x81};//Ç
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	326 case 0xC8: return (cp_keys){0x2D, 0x81};//È
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	327 case 0xC9: return (cp_keys){0x24, 0x81};//É
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	328 case 0xCA: return (cp_keys){0x26, 0x81};//Ê
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	329 case 0xCB: return (cp_keys){0x2E, 0x81};//Ë
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	330 case 0xCC: return (cp_keys){0x44, 0x81};//Ì
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	331 case 0xCD: return (cp_keys){0x4B, 0x81};//Í
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	332 case 0xCE: return (cp_keys){0x49, 0x81};//Î
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	333 case 0xCF: return (cp_keys){0x4C, 0x81};//Ï
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	334 case 0xD1: return (cp_keys){0x2C, 0x81};//Ñ
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	335 case 0xD2: return (cp_keys){0x85, 0x81};//Ò
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	336 case 0xD3: return (cp_keys){0x4D, 0x81};//Ó
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	337 case 0xD4: return (cp_keys){0x45, 0x81};//Ô
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	338 case 0xD5: return (cp_keys){0x0E, 0x81};//Õ
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	339 case 0xD6: return (cp_keys){0x52, 0x81};//Ö
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	340 //character in font doesn't really look like a phi to me
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	341 //but Wikipedia lists it as such
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	342 case 0x3A6: //Φ
2534 35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	343 case 0xD8: return (cp_keys){0x54, 0x81};//Ø
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	344 case 0xD9: return (cp_keys){0x43, 0x81};//Ù
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	345 case 0xDA: return (cp_keys){0x3C, 0x81};//Ú
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	346 case 0xDB: return (cp_keys){0x3D, 0x81};//Û
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	347 case 0xDC: return (cp_keys){0x42, 0x81};//Ü
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	348 case 0x3A3: return (cp_keys){0x5B, 0x81};//Σ
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	349 case 0x3A9: return (cp_keys){0x3A, 0x81};//Ω
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	350 case 0x3B1: return (cp_keys){0x34, 0x81};//α
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	351 case 0x3B2: return (cp_keys){0x33, 0x81};//β
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	352 case 0x3B8: return (cp_keys){0x3B, 0x81};//θ
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	353 case 0x3BB: return (cp_keys){0x22, 0x81};//λ
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	354 case 0xB5://µ
2534 35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	355 case 0x3BC: return (cp_keys){0x1A, 0x81};//μ
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	356 case 0x3C0: return (cp_keys){0x0E, 0x12};//π
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	357 default: return (cp_keys){0};
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	358 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	359 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	360
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	361 static void advance_paste_buffer(sms_context sms, const char paste)
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	362 {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	363 if (!*paste) {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	364 free(sms->header.paste_buffer);
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	365 sms->header.paste_buffer = NULL;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	366 } else {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	367 sms->header.paste_cur_char = paste - sms->header.paste_buffer;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	368 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	369 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	370
2534 35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	371
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	372 static uint8_t paste_internal(sms_context *sms, uint8_t prev_key)
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	373 {
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	374 const char *paste = sms->header.paste_buffer + sms->header.paste_cur_char;
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	375 int cp = utf8_codepoint(&paste);
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	376 cp_keys keys = cp_to_keys(cp);
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	377 if (!keys.main) {
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	378 advance_paste_buffer(sms, paste);
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	379 return 0;
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	380 }
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	381 if (sms->paste_toggle) {
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	382 //key up
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	383 sms->header.keyboard_up(&sms->header, keys.main);
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	384 if (keys.mod) {
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	385 sms->header.keyboard_up(&sms->header, keys.mod);
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	386 }
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	387 advance_paste_buffer(sms, paste);
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	388 } else {
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	389 //key down
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	390 if (prev_key == keys.main) {
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	391 // we're pressing the key that was just released, we need to wait to the next scan
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	392 return 0;
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	393 }
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	394 sms->header.keyboard_down(&sms->header, keys.main);
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	395 if (keys.mod) {
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	396 sms->header.keyboard_down(&sms->header, keys.mod);
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	397 }
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	398 }
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	399 sms->paste_toggle = !sms->paste_toggle;
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	400 return keys.main;
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	401 }
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	402
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	403 static void process_paste(sms_context *sms, uint32_t cycle)
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	404 {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	405 if (sms->header.paste_buffer && cycle > sms->last_paste_cycle && cycle - sms->last_paste_cycle >= PASTE_DELAY) {
2534 35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	406
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	407 uint8_t main_key;
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	408 if ((main_key = paste_internal(sms, 0))) {
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	409 sms->last_paste_cycle = cycle;
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	410 if (sms->header.paste_buffer && !sms->paste_toggle) {
35dbe1873c8f Speed up pasting and do some prep for pasting characters that need keys pressed in sequence Michael Pavone <pavone@retrodev.com> parents: 2532 diff changeset	411 paste_internal(sms, main_key);
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	412 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	413 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	414 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	415 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	416
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	417 static uint8_t i8255_input_poll(i8255 *ppi, uint32_t cycle, uint32_t port)
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	418 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	419 if (port > 1) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	420 return 0xFF;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	421 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	422 sms_context *sms = ppi->system;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	423 if (sms->kb_mux == 7) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	424 if (port) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	425 //TODO: printer port BUSY/FAULT
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	426 uint8_t port_b = io_data_read(sms->io.ports+1, cycle);
2528 90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	427 return (port_b >> 2 & 0xF) \| 0x10 \| cassette_read(sms, cycle);
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	428 } else {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	429 uint8_t port_a = io_data_read(sms->io.ports, cycle);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	430 uint8_t port_b = io_data_read(sms->io.ports+1, cycle);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	431 return (port_a & 0x3F) \| (port_b << 6);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	432 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	433 }
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	434 process_events();
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	435 process_paste(sms, cycle);
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	436 //TODO: keyboard matrix ghosting
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	437 if (port) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	438 //TODO: printer port BUSY/FAULT
2528 90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	439 return (sms->keystate[sms->kb_mux] >> 8) \| 0x10 \| cassette_read(sms, cycle);
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	440 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	441 return sms->keystate[sms->kb_mux];
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	442 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	443
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	444 static void update_mem_map(uint32_t location, sms_context *sms, uint8_t value)
1141 7e199bebde2f Initial support for Sega's family of SMS mappers Michael Pavone <pavone@retrodev.com> parents: 1130 diff changeset	445 {
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	446 z80_context *z80 = sms->z80;
1142 5c8b1c33ca10 Invalidate translated code on a cartridge bank change in SMS mode. Fix handling of bank 0 Michael Pavone <pavone@retrodev.com> parents: 1141 diff changeset	447 void *old_value;
5c8b1c33ca10 Invalidate translated code on a cartridge bank change in SMS mode. Fix handling of bank 0 Michael Pavone <pavone@retrodev.com> parents: 1141 diff changeset	448 if (location) {
5c8b1c33ca10 Invalidate translated code on a cartridge bank change in SMS mode. Fix handling of bank 0 Michael Pavone <pavone@retrodev.com> parents: 1141 diff changeset	449 uint32_t idx = location - 1;
5c8b1c33ca10 Invalidate translated code on a cartridge bank change in SMS mode. Fix handling of bank 0 Michael Pavone <pavone@retrodev.com> parents: 1141 diff changeset	450 old_value = z80->mem_pointers[idx];
5c8b1c33ca10 Invalidate translated code on a cartridge bank change in SMS mode. Fix handling of bank 0 Michael Pavone <pavone@retrodev.com> parents: 1141 diff changeset	451 z80->mem_pointers[idx] = sms->rom + (value << 14 & (sms->rom_size-1));
5c8b1c33ca10 Invalidate translated code on a cartridge bank change in SMS mode. Fix handling of bank 0 Michael Pavone <pavone@retrodev.com> parents: 1141 diff changeset	452 if (old_value != z80->mem_pointers[idx]) {
5c8b1c33ca10 Invalidate translated code on a cartridge bank change in SMS mode. Fix handling of bank 0 Michael Pavone <pavone@retrodev.com> parents: 1141 diff changeset	453 //invalidate any code we translated for the relevant bank
5c8b1c33ca10 Invalidate translated code on a cartridge bank change in SMS mode. Fix handling of bank 0 Michael Pavone <pavone@retrodev.com> parents: 1141 diff changeset	454 z80_invalidate_code_range(z80, idx ? idx * 0x4000 : 0x400, idx * 0x4000 + 0x4000);
5c8b1c33ca10 Invalidate translated code on a cartridge bank change in SMS mode. Fix handling of bank 0 Michael Pavone <pavone@retrodev.com> parents: 1141 diff changeset	455 }
5c8b1c33ca10 Invalidate translated code on a cartridge bank change in SMS mode. Fix handling of bank 0 Michael Pavone <pavone@retrodev.com> parents: 1141 diff changeset	456 } else {
1149 6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	457 old_value = z80->mem_pointers[2];
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	458 if (value & 8) {
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	459 //cartridge RAM is enabled
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	460 z80->mem_pointers[2] = sms->cart_ram + (value & 4 ? (SMS_CART_RAM_SIZE/2) : 0);
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	461 } else {
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	462 //cartridge RAM is disabled
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	463 z80->mem_pointers[2] = sms->rom + (sms->bank_regs[3] << 14 & (sms->rom_size-1));
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	464 }
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	465 if (old_value != z80->mem_pointers[2]) {
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	466 //invalidate any code we translated for the relevant bank
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	467 z80_invalidate_code_range(z80, 0x8000, 0xC000);
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	468 }
1141 7e199bebde2f Initial support for Sega's family of SMS mappers Michael Pavone <pavone@retrodev.com> parents: 1130 diff changeset	469 }
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	470 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	471
2320 8016dbb0fcde Initial work on ROM DB support for SMS/GG games Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	472 void sms_sega_mapper_write(uint32_t location, void vcontext, uint8_t value)
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	473 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	474 z80_context *z80 = vcontext;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	475 sms_context *sms = z80->system;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	476 location &= 3;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	477 sms->ram[0x1FFC + location] = value;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	478 sms->bank_regs[location] = value;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	479 update_mem_map(location, sms, value);
1141 7e199bebde2f Initial support for Sega's family of SMS mappers Michael Pavone <pavone@retrodev.com> parents: 1130 diff changeset	480 return vcontext;
7e199bebde2f Initial support for Sega's family of SMS mappers Michael Pavone <pavone@retrodev.com> parents: 1130 diff changeset	481 }
7e199bebde2f Initial support for Sega's family of SMS mappers Michael Pavone <pavone@retrodev.com> parents: 1130 diff changeset	482
2321 2eda5f81f91e More fully baked ROM db support for SMS Michael Pavone <pavone@retrodev.com> parents: 2320 diff changeset	483 void sms_cart_ram_write(uint32_t location, void vcontext, uint8_t value)
1149 6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	484 {
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	485 z80_context *z80 = vcontext;
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	486 sms_context *sms = z80->system;
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	487 if (sms->bank_regs[0] & 8) {
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	488 //cartridge RAM is enabled
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	489 location &= 0x3FFF;
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	490 z80->mem_pointers[2][location] = value;
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	491 z80_handle_code_write(0x8000 + location, z80);
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	492 }
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	493 return vcontext;
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	494 }
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	495
2325 26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	496 static z80_context codemasters_write(uint8_t bank, z80_context z80, uint8_t value)
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	497 {
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	498 sms_context *sms = z80->system;
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	499 if (value != sms->bank_regs[bank]) {
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	500 sms->bank_regs[bank] = value;
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	501 value &= 0x7F;
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	502 z80->mem_pointers[bank] = sms->rom + (value << 14 & (sms->rom_size-1));
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	503 z80_invalidate_code_range(z80, bank * 0x4000, bank * 0x4000 + 0x4000);
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	504 }
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	505 return z80;
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	506 }
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	507
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	508 void sms_codemasters_bank0_write(uint32_t location, void vcontext, uint8_t value)
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	509 {
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	510 return codemasters_write(0, vcontext, value);
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	511 }
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	512
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	513 void sms_codemasters_bank1_write(uint32_t location, void vcontext, uint8_t value)
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	514 {
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	515 return codemasters_write(1, vcontext, value);
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	516 }
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	517
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	518 void sms_codemasters_bank2_write(uint32_t location, void vcontext, uint8_t value)
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	519 {
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	520 //TODO: Handle Ernie Els Golf cart RAM
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	521 return codemasters_write(2, vcontext, value);
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	522 }
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	523
1149 6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	524 uint8_t debug_commands(system_header system, char input_buf)
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	525 {
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	526 sms_context sms = (sms_context )system;
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	527 switch(input_buf[0])
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	528 {
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	529 case 'v':
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	530 if (input_buf[1] == 'r') {
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	531 vdp_print_reg_explain(sms->vdp);
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	532 } else if (input_buf[1] == 's') {
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	533 vdp_print_sprite_table(sms->vdp);
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	534 } else {
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	535 return 0;
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	536 }
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	537 break;
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	538 }
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	539 return 1;
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	540 }
6b0da6021544 Don't lock up CPU if performing a read with writes configured when in PBC mode. Allow access to VDP debug commands from Z80 debugger in PBC mode. Handle Mode 4 in VDP debug print functions Michael Pavone <pavone@retrodev.com> parents: 1148 diff changeset	541
2195 40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	542 static uint8_t gg_io_read(uint32_t location, void *vcontext)
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	543 {
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	544 z80_context *z80 = vcontext;
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	545 sms_context *sms = z80->system;
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	546 if (!location) {
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	547 return sms->start_button_region;
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	548 } else {
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	549 //TODO: implement link port
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	550 return 0xFF;
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	551 }
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	552 }
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	553
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	554 static void gg_io_write(uint32_t location, void vcontext, uint8_t value)
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	555 {
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	556 //TODO: implement link port
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	557 return vcontext;
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	558 }
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	559 static void psg_pan_write(uint32_t location, void vcontext, uint8_t value)
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	560 {
2196 2648081f3100 Implement Game Gear PSG panning Michael Pavone <pavone@retrodev.com> parents: 2195 diff changeset	561 z80_context *z80 = vcontext;
2648081f3100 Implement Game Gear PSG panning Michael Pavone <pavone@retrodev.com> parents: 2195 diff changeset	562 sms_context *sms = z80->system;
2648081f3100 Implement Game Gear PSG panning Michael Pavone <pavone@retrodev.com> parents: 2195 diff changeset	563 psg_run(sms->psg, z80->Z80_CYCLE);
2648081f3100 Implement Game Gear PSG panning Michael Pavone <pavone@retrodev.com> parents: 2195 diff changeset	564 sms->psg->pan = value;
2527 7e1215d17571 Log Game Gear PSG Pan to VGM Michael Pavone <pavone@retrodev.com> parents: 2525 diff changeset	565 if (sms->psg->vgm) {
7e1215d17571 Log Game Gear PSG Pan to VGM Michael Pavone <pavone@retrodev.com> parents: 2525 diff changeset	566 vgm_gg_pan_write(sms->psg->vgm, sms->psg->cycles, sms->psg->pan);
7e1215d17571 Log Game Gear PSG Pan to VGM Michael Pavone <pavone@retrodev.com> parents: 2525 diff changeset	567 }
2195 40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	568 return vcontext;
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	569 }
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	570
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	571 static void ppi_write(uint32_t location, void vcontext, uint8_t value)
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	572 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	573 z80_context *z80 = vcontext;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	574 sms_context *sms = z80->system;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	575 i8255_write(location, sms->i8255, value, z80->Z80_CYCLE);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	576 return vcontext;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	577 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	578
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	579 static uint8_t ppi_read(uint32_t location, void *vcontext)
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	580 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	581 z80_context *z80 = vcontext;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	582 sms_context *sms = z80->system;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	583 return i8255_read(location, sms->i8255, z80->Z80_CYCLE);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	584 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	585
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	586 static void all_write(uint32_t location, void vcontext, uint8_t value)
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	587 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	588 vdp_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	589 sms_psg_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	590 return ppi_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	591 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	592
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	593 static uint8_t ppi_vdp_read(uint32_t location, void *vcontext)
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	594 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	595 //TODO: "corrupt" PPI value by VDP value
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	596 vdp_read(location, vcontext);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	597 return ppi_read(location, vcontext);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	598 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	599
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	600 static void vdp_psg_write(uint32_t location, void vcontext, uint8_t value)
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	601 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	602 vdp_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	603 return sms_psg_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	604 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	605
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	606 static void ppi_psg_write(uint32_t location, void vcontext, uint8_t value)
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	607 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	608 vdp_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	609 return ppi_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	610 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	611
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	612 static void ppi_vdp_write(uint32_t location, void vcontext, uint8_t value)
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	613 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	614 vdp_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	615 return ppi_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	616 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	617
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	618 static memmap_chunk io_map[] = {
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	619 {0x00, 0x40, 0xFF, .write_8 = memory_io_write},
9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	620 {0x40, 0x80, 0xFF, .read_8 = hv_read, .write_8 = sms_psg_write},
9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	621 {0x80, 0xC0, 0xFF, .read_8 = vdp_read, .write_8 = vdp_write},
9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	622 {0xC0, 0x100,0xFF, .read_8 = io_read}
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	623 };
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	624
2195 40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	625 static memmap_chunk io_gg[] = {
2197 74b92e20e2ef Fix off by one in PSG pan register mapping Michael Pavone <pavone@retrodev.com> parents: 2196 diff changeset	626 {0x00, 0x06, 0xFF, .read_8 = gg_io_read, .write_8 = gg_io_write},
74b92e20e2ef Fix off by one in PSG pan register mapping Michael Pavone <pavone@retrodev.com> parents: 2196 diff changeset	627 {0x06, 0x07, 0xFF, .write_8 = psg_pan_write},
2195 40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	628 {0x08, 0x40, 0xFF, .write_8 = memory_io_write},
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	629 {0x40, 0x80, 0xFF, .read_8 = hv_read, .write_8 = sms_psg_write},
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	630 {0x80, 0xC0, 0xFF, .read_8 = vdp_read, .write_8 = vdp_write},
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	631 {0xC0, 0x100,0xFF, .read_8 = io_read}
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	632 };
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	633
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	634 static memmap_chunk io_sc[] = {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	635 {0x00, 0x20, 0x03, .read_8 = ppi_vdp_read, .write_8 = all_write},
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	636 {0x20, 0x40, 0xFF, .read_8 = vdp_read, .write_8 = vdp_psg_write},
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	637 {0x40, 0x60, 0x03, .read_8 = ppi_read, .write_8 = ppi_psg_write},
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	638 {0x60, 0x80, 0xFF, .write_8 = sms_psg_write},
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	639 {0x80, 0xA0, 0x03, .read_8 = ppi_vdp_read, .write_8 = ppi_vdp_write},
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	640 {0xA0, 0xC0, 0xFF, .read_8 = vdp_read, .write_8 = vdp_write},
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	641 {0xD0, 0x100, 0x03, .read_8 = ppi_read, .write_8 = ppi_write}
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	642 };
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	643
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	644 static void set_speed_percent(system_header * system, uint32_t percent)
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	645 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	646 sms_context context = (sms_context )system;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	647 uint32_t old_clock = context->master_clock;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	648 context->master_clock = ((uint64_t)context->normal_clock * (uint64_t)percent) / 100;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	649
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	650 psg_adjust_master_clock(context->psg, context->master_clock);
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	651 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	652
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	653 void sms_serialize(sms_context sms, serialize_buffer buf)
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	654 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	655 start_section(buf, SECTION_Z80);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	656 z80_serialize(sms->z80, buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	657 end_section(buf);
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	658
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	659 start_section(buf, SECTION_VDP);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	660 vdp_serialize(sms->vdp, buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	661 end_section(buf);
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	662
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	663 start_section(buf, SECTION_PSG);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	664 psg_serialize(sms->psg, buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	665 end_section(buf);
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	666
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	667 start_section(buf, SECTION_SEGA_IO_1);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	668 io_serialize(sms->io.ports, buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	669 end_section(buf);
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	670
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	671 start_section(buf, SECTION_SEGA_IO_2);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	672 io_serialize(sms->io.ports + 1, buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	673 end_section(buf);
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	674
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	675 start_section(buf, SECTION_MAIN_RAM);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	676 save_int8(buf, sizeof(sms->ram) / 1024);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	677 save_buffer8(buf, sms->ram, sizeof(sms->ram));
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	678 end_section(buf);
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	679
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	680 start_section(buf, SECTION_MAPPER);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	681 save_int8(buf, 1);//mapper type, 1 for Sega mapper
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	682 save_buffer8(buf, sms->bank_regs, sizeof(sms->bank_regs));
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	683 end_section(buf);
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	684
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	685 start_section(buf, SECTION_CART_RAM);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	686 save_int8(buf, SMS_CART_RAM_SIZE / 1024);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	687 save_buffer8(buf, sms->cart_ram, SMS_CART_RAM_SIZE);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	688 end_section(buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	689 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	690
1690 319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	691 static uint8_t serialize(system_header sys, size_t *size_out)
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	692 {
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	693 sms_context sms = (sms_context )sys;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	694 serialize_buffer state;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	695 init_serialize(&state);
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	696 sms_serialize(sms, &state);
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	697 if (size_out) {
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	698 *size_out = state.size;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	699 }
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	700 return state.data;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	701 }
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	702
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	703 static void ram_deserialize(deserialize_buffer buf, void vsms)
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	704 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	705 sms_context *sms = vsms;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	706 uint32_t ram_size = load_int8(buf) * 1024;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	707 if (ram_size > sizeof(sms->ram)) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	708 fatal_error("State has a RAM size of %d bytes", ram_size);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	709 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	710 load_buffer8(buf, sms->ram, ram_size);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	711 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	712
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	713 static void cart_ram_deserialize(deserialize_buffer buf, void vsms)
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	714 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	715 sms_context *sms = vsms;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	716 uint32_t ram_size = load_int8(buf) * 1024;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	717 if (ram_size > SMS_CART_RAM_SIZE) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	718 fatal_error("State has a cart RAM size of %d bytes", ram_size);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	719 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	720 load_buffer8(buf, sms->cart_ram, ram_size);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	721 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	722
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	723 static void mapper_deserialize(deserialize_buffer buf, void vsms)
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	724 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	725 sms_context *sms = vsms;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	726 uint8_t mapper_type = load_int8(buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	727 if (mapper_type != 1) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	728 warning("State contains an unrecognized mapper type %d, it may be from a newer version of BlastEm\n", mapper_type);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	729 return;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	730 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	731 for (int i = 0; i < sizeof(sms->bank_regs); i++)
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	732 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	733 sms->bank_regs[i] = load_int8(buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	734 update_mem_map(i, sms, sms->bank_regs[i]);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	735 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	736 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	737
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	738 void sms_deserialize(deserialize_buffer buf, sms_context sms)
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	739 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	740 register_section_handler(buf, (section_handler){.fun = z80_deserialize, .data = sms->z80}, SECTION_Z80);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	741 register_section_handler(buf, (section_handler){.fun = vdp_deserialize, .data = sms->vdp}, SECTION_VDP);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	742 register_section_handler(buf, (section_handler){.fun = psg_deserialize, .data = sms->psg}, SECTION_PSG);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	743 register_section_handler(buf, (section_handler){.fun = io_deserialize, .data = sms->io.ports}, SECTION_SEGA_IO_1);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	744 register_section_handler(buf, (section_handler){.fun = io_deserialize, .data = sms->io.ports + 1}, SECTION_SEGA_IO_2);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	745 register_section_handler(buf, (section_handler){.fun = ram_deserialize, .data = sms}, SECTION_MAIN_RAM);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	746 register_section_handler(buf, (section_handler){.fun = mapper_deserialize, .data = sms}, SECTION_MAPPER);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	747 register_section_handler(buf, (section_handler){.fun = cart_ram_deserialize, .data = sms}, SECTION_CART_RAM);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	748 //TODO: cart RAM
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	749 while (buf->cur_pos < buf->size)
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	750 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	751 load_section(buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	752 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	753 z80_invalidate_code_range(sms->z80, 0xC000, 0x10000);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	754 if (sms->bank_regs[0] & 8) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	755 //cart RAM is enabled, invalidate the region in case there is any code there
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	756 z80_invalidate_code_range(sms->z80, 0x8000, 0xC000);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	757 }
1690 319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	758 free(buf->handlers);
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	759 buf->handlers = NULL;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	760 }
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	761
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	762 static void deserialize(system_header sys, uint8_t data, size_t size)
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	763 {
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	764 sms_context sms = (sms_context )sys;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	765 deserialize_buffer buffer;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	766 init_deserialize(&buffer, data, size);
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	767 sms_deserialize(&buffer, sms);
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	768 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	769
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	770 static void save_state(sms_context *sms, uint8_t slot)
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	771 {
1478 da1dce39e846 Refactored save slot related logic to reduce duplication and allow reuse in new UI. Get state loading/saving mostly working in new UI Michael Pavone <pavone@retrodev.com> parents: 1433 diff changeset	772 char *save_path = get_slot_name(&sms->header, slot, "state");
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	773 serialize_buffer state;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	774 init_serialize(&state);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	775 sms_serialize(sms, &state);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	776 save_to_file(&state, save_path);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	777 printf("Saved state to %s\n", save_path);
1478 da1dce39e846 Refactored save slot related logic to reduce duplication and allow reuse in new UI. Get state loading/saving mostly working in new UI Michael Pavone <pavone@retrodev.com> parents: 1433 diff changeset	778 free(save_path);
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	779 free(state.data);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	780 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	781
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	782 static uint8_t load_state_path(sms_context sms, char path)
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	783 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	784 deserialize_buffer state;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	785 uint8_t ret;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	786 if ((ret = load_from_file(&state, path))) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	787 sms_deserialize(&state, sms);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	788 free(state.data);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	789 printf("Loaded %s\n", path);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	790 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	791 return ret;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	792 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	793
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	794 static uint8_t load_state(system_header *system, uint8_t slot)
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	795 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	796 sms_context sms = (sms_context )system;
1480 8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	797 char *statepath = get_slot_name(system, slot, "state");
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	798 uint8_t ret;
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	799 #ifndef NEW_CORE
1480 8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	800 if (!sms->z80->native_pc) {
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	801 ret = get_modification_time(statepath) != 0;
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	802 if (ret) {
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	803 system->delayed_load_slot = slot + 1;
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	804 }
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	805 goto done;
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	806
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	807 }
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	808 #endif
1480 8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	809 ret = load_state_path(sms, statepath);
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	810 done:
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	811 free(statepath);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	812 return ret;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	813 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	814
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	815 static void run_sms(system_header *system)
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	816 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	817 sms_context sms = (sms_context )system;
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	818 uint32_t target_cycle = sms->z80->Z80_CYCLE + 3420*16;
1184 b1147418254a Overscan is now configurable Michael Pavone <pavone@retrodev.com> parents: 1162 diff changeset	819 //TODO: PAL support
2200 f11f4399d64b Crop display in game gear mode Michael Pavone <pavone@retrodev.com> parents: 2197 diff changeset	820 if (sms->vdp->type == VDP_GAMEGEAR) {
f11f4399d64b Crop display in game gear mode Michael Pavone <pavone@retrodev.com> parents: 2197 diff changeset	821 render_set_video_standard(VID_GAMEGEAR);
f11f4399d64b Crop display in game gear mode Michael Pavone <pavone@retrodev.com> parents: 2197 diff changeset	822 } else {
f11f4399d64b Crop display in game gear mode Michael Pavone <pavone@retrodev.com> parents: 2197 diff changeset	823 render_set_video_standard(VID_NTSC);
f11f4399d64b Crop display in game gear mode Michael Pavone <pavone@retrodev.com> parents: 2197 diff changeset	824 }
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	825 while (!sms->should_return)
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	826 {
1480 8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	827 if (system->delayed_load_slot) {
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	828 load_state(system, system->delayed_load_slot - 1);
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	829 system->delayed_load_slot = 0;
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	830
1480 8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	831 }
2179 9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	832 if (sms->vdp->frame != sms->last_frame) {
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2293 diff changeset	833 #ifndef IS_LIB
2243 0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	834 if (sms->psg->scope) {
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	835 scope_render(sms->psg->scope);
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	836 }
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2293 diff changeset	837 #endif
2179 9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	838 uint32_t elapsed = sms->vdp->frame - sms->last_frame;
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	839 sms->last_frame = sms->vdp->frame;
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	840 if (system->enter_debugger_frames) {
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	841 if (elapsed >= system->enter_debugger_frames) {
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	842 system->enter_debugger_frames = 0;
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	843 system->enter_debugger = 1;
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	844 } else {
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	845 system->enter_debugger_frames -= elapsed;
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	846 }
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	847 }
2194 01ff005b08f6 Very rudimentary support for Game Gear VDP emulation Michael Pavone <pavone@retrodev.com> parents: 2179 diff changeset	848
2179 9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	849 if(exit_after){
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	850 if (elapsed >= exit_after) {
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	851 exit(0);
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	852 } else {
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	853 exit_after -= elapsed;
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	854 }
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	855 }
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	856 }
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2424 diff changeset	857 #ifndef NEW_CORE
2424 767ec72acca7 Avoid conflicts between watchpoints and normal debugger entry Michael Pavone <pavone@retrodev.com> parents: 2400 diff changeset	858 if ((system->enter_debugger \|\| sms->z80->wp_hit) && sms->z80->pc) {
767ec72acca7 Avoid conflicts between watchpoints and normal debugger entry Michael Pavone <pavone@retrodev.com> parents: 2400 diff changeset	859 if (!sms->z80->wp_hit) {
767ec72acca7 Avoid conflicts between watchpoints and normal debugger entry Michael Pavone <pavone@retrodev.com> parents: 2400 diff changeset	860 system->enter_debugger = 0;
767ec72acca7 Avoid conflicts between watchpoints and normal debugger entry Michael Pavone <pavone@retrodev.com> parents: 2400 diff changeset	861 }
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2293 diff changeset	862 #ifndef IS_LIB
1129 6b5c92b6205c Enabled Z80 debugger in PBC mode Michael Pavone <pavone@retrodev.com> parents: 1126 diff changeset	863 zdebugger(sms->z80, sms->z80->pc);
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2293 diff changeset	864 #endif
1129 6b5c92b6205c Enabled Z80 debugger in PBC mode Michael Pavone <pavone@retrodev.com> parents: 1126 diff changeset	865 }
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2424 diff changeset	866 #endif
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	867 #ifdef NEW_CORE
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	868 if (sms->z80->nmi_cycle == CYCLE_NEVER) {
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	869 #else
1377 e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	870 if (sms->z80->nmi_start == CYCLE_NEVER) {
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	871 #endif
1377 e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	872 uint32_t nmi = vdp_next_nmi(sms->vdp);
e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	873 if (nmi != CYCLE_NEVER) {
e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	874 z80_assert_nmi(sms->z80, nmi);
e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	875 }
e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	876 }
2400 c97609fe8315 Implement watchpoints in Z80 debugger Michael Pavone <pavone@retrodev.com> parents: 2384 diff changeset	877
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2424 diff changeset	878 #ifndef NEW_CORE
2424 767ec72acca7 Avoid conflicts between watchpoints and normal debugger entry Michael Pavone <pavone@retrodev.com> parents: 2400 diff changeset	879 if (system->enter_debugger \|\| sms->z80->wp_hit) {
2400 c97609fe8315 Implement watchpoints in Z80 debugger Michael Pavone <pavone@retrodev.com> parents: 2384 diff changeset	880 target_cycle = sms->z80->Z80_CYCLE + 1;
c97609fe8315 Implement watchpoints in Z80 debugger Michael Pavone <pavone@retrodev.com> parents: 2384 diff changeset	881 }
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2424 diff changeset	882 #endif
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	883 z80_run(sms->z80, target_cycle);
1209 5ee6b6345ea9 Implement SMS hardware soft reset (note only available on real hardware on the Genesis in PBC mode) Michael Pavone <pavone@retrodev.com> parents: 1201 diff changeset	884 if (sms->z80->reset) {
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	885 z80_clear_reset(sms->z80, sms->z80->Z80_CYCLE + 128*15);
1209 5ee6b6345ea9 Implement SMS hardware soft reset (note only available on real hardware on the Genesis in PBC mode) Michael Pavone <pavone@retrodev.com> parents: 1201 diff changeset	886 }
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	887 target_cycle = sms->z80->Z80_CYCLE;
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	888 vdp_run_context(sms->vdp, target_cycle);
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	889 psg_run(sms->psg, target_cycle);
2528 90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	890 cassette_run(sms, target_cycle);
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	891
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	892 if (system->save_state) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	893 while (!sms->z80->pc) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	894 //advance Z80 to an instruction boundary
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	895 z80_run(sms->z80, sms->z80->Z80_CYCLE + 1);
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	896 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	897 save_state(sms, system->save_state - 1);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	898 system->save_state = 0;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	899 }
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	900
1377 e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	901 target_cycle += 3420*16;
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	902 if (target_cycle > 0x10000000) {
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	903 uint32_t adjust = sms->z80->Z80_CYCLE - 34202622;
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	904 io_adjust_cycles(sms->io.ports, sms->z80->Z80_CYCLE, adjust);
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	905 io_adjust_cycles(sms->io.ports+1, sms->z80->Z80_CYCLE, adjust);
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	906 z80_adjust_cycles(sms->z80, adjust);
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	907 vdp_adjust_cycles(sms->vdp, adjust);
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	908 sms->psg->cycles -= adjust;
2528 90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	909 sms->cassette_cycle -= adjust;
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	910 if (sms->last_paste_cycle > adjust) {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	911 sms->last_paste_cycle -= adjust;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	912 } else {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	913 sms->last_paste_cycle = 0;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	914 }
2525 1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	915 if (sms->psg->vgm) {
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	916 vgm_adjust_cycles(sms->psg->vgm, adjust);
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	917 }
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	918 target_cycle -= adjust;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	919 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	920 }
1980 81df9aa2de9b Less hacky run on audio thread mode Michael Pavone <pavone@retrodev.com> parents: 1932 diff changeset	921 if (sms->header.force_release \|\| render_should_release_on_exit()) {
1932 b387f1c5a1d0 WIP new sync mode that runs emulation on audio thread Michael Pavone <pavone@retrodev.com> parents: 1906 diff changeset	922 bindings_release_capture();
b387f1c5a1d0 WIP new sync mode that runs emulation on audio thread Michael Pavone <pavone@retrodev.com> parents: 1906 diff changeset	923 vdp_release_framebuffer(sms->vdp);
b387f1c5a1d0 WIP new sync mode that runs emulation on audio thread Michael Pavone <pavone@retrodev.com> parents: 1906 diff changeset	924 render_pause_source(sms->psg->audio);
b387f1c5a1d0 WIP new sync mode that runs emulation on audio thread Michael Pavone <pavone@retrodev.com> parents: 1906 diff changeset	925 }
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	926 sms->should_return = 0;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	927 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	928
1401 b56c8c51ca5d Properly release and reacquire framebuffer pointer when switching contexts. Hopefully fixes the LOCKRECT issue some people are seeing with the SDL 2 fallback renderer Michael Pavone <pavone@retrodev.com> parents: 1384 diff changeset	929 static void resume_sms(system_header *system)
b56c8c51ca5d Properly release and reacquire framebuffer pointer when switching contexts. Hopefully fixes the LOCKRECT issue some people are seeing with the SDL 2 fallback renderer Michael Pavone <pavone@retrodev.com> parents: 1384 diff changeset	930 {
b56c8c51ca5d Properly release and reacquire framebuffer pointer when switching contexts. Hopefully fixes the LOCKRECT issue some people are seeing with the SDL 2 fallback renderer Michael Pavone <pavone@retrodev.com> parents: 1384 diff changeset	931 sms_context sms = (sms_context )system;
1980 81df9aa2de9b Less hacky run on audio thread mode Michael Pavone <pavone@retrodev.com> parents: 1932 diff changeset	932 if (sms->header.force_release \|\| render_should_release_on_exit()) {
81df9aa2de9b Less hacky run on audio thread mode Michael Pavone <pavone@retrodev.com> parents: 1932 diff changeset	933 sms->header.force_release = 0;
1932 b387f1c5a1d0 WIP new sync mode that runs emulation on audio thread Michael Pavone <pavone@retrodev.com> parents: 1906 diff changeset	934 bindings_reacquire_capture();
b387f1c5a1d0 WIP new sync mode that runs emulation on audio thread Michael Pavone <pavone@retrodev.com> parents: 1906 diff changeset	935 vdp_reacquire_framebuffer(sms->vdp);
b387f1c5a1d0 WIP new sync mode that runs emulation on audio thread Michael Pavone <pavone@retrodev.com> parents: 1906 diff changeset	936 render_resume_source(sms->psg->audio);
b387f1c5a1d0 WIP new sync mode that runs emulation on audio thread Michael Pavone <pavone@retrodev.com> parents: 1906 diff changeset	937 }
1401 b56c8c51ca5d Properly release and reacquire framebuffer pointer when switching contexts. Hopefully fixes the LOCKRECT issue some people are seeing with the SDL 2 fallback renderer Michael Pavone <pavone@retrodev.com> parents: 1384 diff changeset	938 run_sms(system);
b56c8c51ca5d Properly release and reacquire framebuffer pointer when switching contexts. Hopefully fixes the LOCKRECT issue some people are seeing with the SDL 2 fallback renderer Michael Pavone <pavone@retrodev.com> parents: 1384 diff changeset	939 }
b56c8c51ca5d Properly release and reacquire framebuffer pointer when switching contexts. Hopefully fixes the LOCKRECT issue some people are seeing with the SDL 2 fallback renderer Michael Pavone <pavone@retrodev.com> parents: 1384 diff changeset	940
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	941 static void start_sms(system_header system, char statefile)
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	942 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	943 sms_context sms = (sms_context )system;
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	944
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	945 z80_assert_reset(sms->z80, 0);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	946 z80_clear_reset(sms->z80, 128*15);
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	947
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	948 if (statefile) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	949 load_state_path(sms, statefile);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	950 }
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	951
1129 6b5c92b6205c Enabled Z80 debugger in PBC mode Michael Pavone <pavone@retrodev.com> parents: 1126 diff changeset	952 if (system->enter_debugger) {
6b5c92b6205c Enabled Z80 debugger in PBC mode Michael Pavone <pavone@retrodev.com> parents: 1126 diff changeset	953 system->enter_debugger = 0;
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2293 diff changeset	954 #ifndef IS_LIB
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	955 zinsert_breakpoint(sms->z80, sms->z80->pc, (uint8_t *)zdebugger);
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2293 diff changeset	956 #endif
1129 6b5c92b6205c Enabled Z80 debugger in PBC mode Michael Pavone <pavone@retrodev.com> parents: 1126 diff changeset	957 }
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	958
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	959 run_sms(system);
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	960 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	961
1209 5ee6b6345ea9 Implement SMS hardware soft reset (note only available on real hardware on the Genesis in PBC mode) Michael Pavone <pavone@retrodev.com> parents: 1201 diff changeset	962 static void soft_reset(system_header *system)
5ee6b6345ea9 Implement SMS hardware soft reset (note only available on real hardware on the Genesis in PBC mode) Michael Pavone <pavone@retrodev.com> parents: 1201 diff changeset	963 {
5ee6b6345ea9 Implement SMS hardware soft reset (note only available on real hardware on the Genesis in PBC mode) Michael Pavone <pavone@retrodev.com> parents: 1201 diff changeset	964 sms_context sms = (sms_context )system;
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	965 z80_assert_reset(sms->z80, sms->z80->Z80_CYCLE);
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	966 #ifndef NEW_CORE
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	967 sms->z80->target_cycle = sms->z80->sync_cycle = sms->z80->Z80_CYCLE;
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	968 #endif
1209 5ee6b6345ea9 Implement SMS hardware soft reset (note only available on real hardware on the Genesis in PBC mode) Michael Pavone <pavone@retrodev.com> parents: 1201 diff changeset	969 }
5ee6b6345ea9 Implement SMS hardware soft reset (note only available on real hardware on the Genesis in PBC mode) Michael Pavone <pavone@retrodev.com> parents: 1201 diff changeset	970
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	971 static void free_sms(system_header *system)
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	972 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	973 sms_context sms = (sms_context )system;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	974 vdp_free(sms->vdp);
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	975 z80_options_free(sms->z80->Z80_OPTS);
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	976 free(sms->z80);
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	977 psg_free(sms->psg);
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	978 free(sms->i8255);
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	979 free(sms);
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	980 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	981
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	982 static uint16_t get_open_bus_value(system_header *system)
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	983 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	984 return 0xFFFF;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	985 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	986
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	987 static void request_exit(system_header *system)
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	988 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	989 sms_context sms = (sms_context )system;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	990 sms->should_return = 1;
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	991 #ifndef NEW_CORE
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	992 sms->z80->target_cycle = sms->z80->sync_cycle = sms->z80->Z80_CYCLE;
d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	993 #endif
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	994 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	995
1120 e9369d6f0101 Somewhat broken implementation of Mode 4 Michael Pavone <pavone@retrodev.com> parents: 1119 diff changeset	996 static void inc_debug_mode(system_header *system)
e9369d6f0101 Somewhat broken implementation of Mode 4 Michael Pavone <pavone@retrodev.com> parents: 1119 diff changeset	997 {
e9369d6f0101 Somewhat broken implementation of Mode 4 Michael Pavone <pavone@retrodev.com> parents: 1119 diff changeset	998 sms_context sms = (sms_context )system;
1643 6909c5d0bbb5 Removed old VDP debug functionality Michael Pavone <pavone@retrodev.com> parents: 1640 diff changeset	999 vdp_inc_debug_mode(sms->vdp);
1120 e9369d6f0101 Somewhat broken implementation of Mode 4 Michael Pavone <pavone@retrodev.com> parents: 1119 diff changeset	1000 }
e9369d6f0101 Somewhat broken implementation of Mode 4 Michael Pavone <pavone@retrodev.com> parents: 1119 diff changeset	1001
1384 1df16f5985f3 Added stub load_save and persist_save functions to SMS system so that we don't crash when switching games via the menu Michael Pavone <pavone@retrodev.com> parents: 1379 diff changeset	1002 static void load_save(system_header *system)
1df16f5985f3 Added stub load_save and persist_save functions to SMS system so that we don't crash when switching games via the menu Michael Pavone <pavone@retrodev.com> parents: 1379 diff changeset	1003 {
1df16f5985f3 Added stub load_save and persist_save functions to SMS system so that we don't crash when switching games via the menu Michael Pavone <pavone@retrodev.com> parents: 1379 diff changeset	1004 //TODO: Implement me
1df16f5985f3 Added stub load_save and persist_save functions to SMS system so that we don't crash when switching games via the menu Michael Pavone <pavone@retrodev.com> parents: 1379 diff changeset	1005 }
1df16f5985f3 Added stub load_save and persist_save functions to SMS system so that we don't crash when switching games via the menu Michael Pavone <pavone@retrodev.com> parents: 1379 diff changeset	1006
1df16f5985f3 Added stub load_save and persist_save functions to SMS system so that we don't crash when switching games via the menu Michael Pavone <pavone@retrodev.com> parents: 1379 diff changeset	1007 static void persist_save(system_header *system)
1df16f5985f3 Added stub load_save and persist_save functions to SMS system so that we don't crash when switching games via the menu Michael Pavone <pavone@retrodev.com> parents: 1379 diff changeset	1008 {
1df16f5985f3 Added stub load_save and persist_save functions to SMS system so that we don't crash when switching games via the menu Michael Pavone <pavone@retrodev.com> parents: 1379 diff changeset	1009 //TODO: Implement me
1df16f5985f3 Added stub load_save and persist_save functions to SMS system so that we don't crash when switching games via the menu Michael Pavone <pavone@retrodev.com> parents: 1379 diff changeset	1010 }
1df16f5985f3 Added stub load_save and persist_save functions to SMS system so that we don't crash when switching games via the menu Michael Pavone <pavone@retrodev.com> parents: 1379 diff changeset	1011
1583 430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1012 static void gamepad_down(system_header *system, uint8_t gamepad_num, uint8_t button)
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1013 {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1014 sms_context sms = (sms_context )system;
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1015 if (gamepad_num == GAMEPAD_MAIN_UNIT) {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1016 if (button == MAIN_UNIT_PAUSE) {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1017 vdp_pbc_pause(sms->vdp);
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1018 }
2195 40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1019 } else if (sms->vdp->type == VDP_GAMEGEAR && gamepad_num == 1 && button == BUTTON_START) {
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1020 sms->start_button_region &= 0x7F;
1583 430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1021 } else {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1022 io_gamepad_down(&sms->io, gamepad_num, button);
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1023 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1024 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1025
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1026 static void gamepad_up(system_header *system, uint8_t gamepad_num, uint8_t button)
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1027 {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1028 sms_context sms = (sms_context )system;
2195 40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1029 if (sms->vdp->type == VDP_GAMEGEAR && gamepad_num == 1 && button == BUTTON_START) {
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1030 sms->start_button_region \|= 0x80;
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1031 } else {
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1032 io_gamepad_up(&sms->io, gamepad_num, button);
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1033 }
1583 430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1034 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1035
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1036 static void mouse_down(system_header *system, uint8_t mouse_num, uint8_t button)
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1037 {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1038 sms_context sms = (sms_context )system;
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1039 io_mouse_down(&sms->io, mouse_num, button);
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1040 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1041
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1042 static void mouse_up(system_header *system, uint8_t mouse_num, uint8_t button)
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1043 {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1044 sms_context sms = (sms_context )system;
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1045 io_mouse_up(&sms->io, mouse_num, button);
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1046 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1047
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1048 static void mouse_motion_absolute(system_header *system, uint8_t mouse_num, uint16_t x, uint16_t y)
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1049 {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1050 sms_context sms = (sms_context )system;
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1051 io_mouse_motion_absolute(&sms->io, mouse_num, x, y);
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1052 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1053
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1054 static void mouse_motion_relative(system_header *system, uint8_t mouse_num, int32_t x, int32_t y)
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1055 {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1056 sms_context sms = (sms_context )system;
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1057 io_mouse_motion_relative(&sms->io, mouse_num, x, y);
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1058 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1059
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1060 uint16_t scancode_map[0x90] = {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1061 [0x1C] = 0x0004,//A
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1062 [0x32] = 0x4008,//B
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1063 [0x21] = 0x2008,//C
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1064 [0x23] = 0x2004,//D
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1065 [0x24] = 0x2002,//E
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1066 [0x2B] = 0x3004,//F
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1067 [0x34] = 0x4004,//G
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1068 [0x33] = 0x5004,//H
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1069 [0x43] = 0x0080,//I
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1070 [0x3B] = 0x6004,//J
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1071 [0x42] = 0x0040,//K
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1072 [0x4B] = 0x1040,//L
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1073 [0x3A] = 0x6008,//M
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1074 [0x31] = 0x5008,//N
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1075 [0x44] = 0x1080,//O
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1076 [0x4D] = 0x2080,//P
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1077 [0x15] = 0x0002,//Q
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1078 [0x2D] = 0x3002,//R
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1079 [0x1B] = 0x1004,//S
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1080 [0x2C] = 0x4002,//T
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1081 [0x3C] = 0x6002,//U
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1082 [0x2A] = 0x3008,//V
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1083 [0x1D] = 0x1002,//W
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1084 [0x22] = 0x1008,//X
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1085 [0x35] = 0x5002,//Y
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1086 [0x1A] = 0x0008,//Z
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1087 [0x16] = 0x0001,//1
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1088 [0x1E] = 0x1001,//2
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1089 [0x26] = 0x2001,//3
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1090 [0x25] = 0x3001,//4
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1091 [0x2E] = 0x4001,//5
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1092 [0x36] = 0x5001,//6
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1093 [0x3D] = 0x6001,//7
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1094 [0x3E] = 0x0100,//8
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1095 [0x46] = 0x1100,//9
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1096 [0x45] = 0x2100,//0
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1097 [0x5A] = 0x5040,//return
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1098 [0x29] = 0x1010,//space
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1099 [0x0D] = 0x5800,//tab mapped to FUNC
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1100 [0x66] = 0x3010,//backspace mapped to INS/DEL
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1101 [0x4E] = 0x3100,// -
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1102 [0x55] = 0x4100,// = mapped to ^ based on position
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1103 [0x54] = 0x4080,// [
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1104 [0x5B] = 0x4040,// ]
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1105 [0x5D] = 0x5100,// \ mapped to Yen based on position/correspondence on PC keyboards
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1106 [0x4C] = 0x2040,// ;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1107 [0x52] = 0x3040,// ' mapped to : based on position
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1108 [0x0E] = 0x3020,// ` mapped to PI because of lack of good options
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1109 [0x41] = 0x0020,// ,
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1110 [0x49] = 0x1020,// .
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1111 [0x4A] = 0x2020,// /
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1112 [0x14] = 0x6400,//lctrl mapped to ctrl
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1113 //rctrl is default keybind for toggle keyboard capture
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1114 //[0x18] = 0x6400,//rctrl mapped to ctrl
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1115 [0x12] = 0x6800,//lshift mapped to shift
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1116 [0x59] = 0x6800,//lshift mapped to shift
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1117 [0x11] = 0x6200,//lalt mapped to GRAPH
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1118 [0x17] = 0x6200,//ralt mapped to GRAPH
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1119 [0x81] = 0x0010,//insert mapped to kana/dieresis key
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1120 [0x86] = 0x5020,//left arrow
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1121 [0x87] = 0x2010,//home mapped to HOME/CLR
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1122 [0x88] = 0x6100,//end mapped to BREAK
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1123 [0x89] = 0x6040,//up arrow
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1124 [0x8A] = 0x4020,//down arrow
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1125 [0x8D] = 0x6020,//right arrow
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	1126 [0x85] = 0x3080,//del mapped to @ because of lack of good options
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1127 };
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1128
1583 430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1129 static void keyboard_down(system_header *system, uint8_t scancode)
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1130 {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1131 sms_context sms = (sms_context )system;
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1132 io_keyboard_down(&sms->io, scancode);
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1133 if (sms->keystate && scancode < 0x90 && scancode_map[scancode]) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1134 uint16_t row = scancode_map[scancode] >> 12;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1135 sms->keystate[row] &= ~(scancode_map[scancode] & 0xFFF);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1136 }
1583 430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1137 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1138
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1139 static void keyboard_up(system_header *system, uint8_t scancode)
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1140 {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1141 sms_context sms = (sms_context )system;
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1142 io_keyboard_up(&sms->io, scancode);
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1143 if (sms->keystate && scancode < 0x90 && scancode_map[scancode]) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1144 uint16_t row = scancode_map[scancode] >> 12;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1145 sms->keystate[row] \|= scancode_map[scancode] & 0xFFF;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1146 }
1583 430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1147 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1148
1796 51417bb557b6 Configurable gain for overall output and individual components Michael Pavone <pavone@retrodev.com> parents: 1759 diff changeset	1149 static void set_gain_config(sms_context *sms)
51417bb557b6 Configurable gain for overall output and individual components Michael Pavone <pavone@retrodev.com> parents: 1759 diff changeset	1150 {
51417bb557b6 Configurable gain for overall output and individual components Michael Pavone <pavone@retrodev.com> parents: 1759 diff changeset	1151 char *config_gain;
51417bb557b6 Configurable gain for overall output and individual components Michael Pavone <pavone@retrodev.com> parents: 1759 diff changeset	1152 config_gain = tern_find_path(config, "audio\0psg_gain\0", TVAL_PTR).ptrval;
51417bb557b6 Configurable gain for overall output and individual components Michael Pavone <pavone@retrodev.com> parents: 1759 diff changeset	1153 render_audio_source_gaindb(sms->psg->audio, config_gain ? atof(config_gain) : 0.0f);
51417bb557b6 Configurable gain for overall output and individual components Michael Pavone <pavone@retrodev.com> parents: 1759 diff changeset	1154 }
51417bb557b6 Configurable gain for overall output and individual components Michael Pavone <pavone@retrodev.com> parents: 1759 diff changeset	1155
1595 360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1156 static void config_updated(system_header *system)
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1157 {
1595 360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1158 sms_context sms = (sms_context )system;
360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1159 setup_io_devices(config, &system->info, &sms->io);
2384 03e6ac327ba0 Handle changes to sample rate while content is running Michael Pavone <pavone@retrodev.com> parents: 2325 diff changeset	1160 //sample rate may have changed
03e6ac327ba0 Handle changes to sample rate while content is running Michael Pavone <pavone@retrodev.com> parents: 2325 diff changeset	1161 psg_adjust_master_clock(sms->psg, sms->master_clock);
1595 360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1162 }
360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1163
2243 0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1164 static void toggle_debug_view(system_header *system, uint8_t debug_view)
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1165 {
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2293 diff changeset	1166 #ifndef IS_LIB
2243 0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1167 sms_context sms = (sms_context )system;
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1168 if (debug_view < DEBUG_OSCILLOSCOPE) {
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1169 vdp_toggle_debug_view(sms->vdp, debug_view);
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1170 } else if (debug_view == DEBUG_OSCILLOSCOPE) {
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1171 if (sms->psg->scope) {
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1172 oscilloscope *scope = sms->psg->scope;
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1173 sms->psg->scope = NULL;
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1174 scope_close(scope);
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1175 } else {
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1176 oscilloscope *scope = create_oscilloscope();
2256 cbe1ba70c247 Fix build after scope clock fix Michael Pavone <pavone@retrodev.com> parents: 2243 diff changeset	1177 psg_enable_scope(sms->psg, scope, sms->normal_clock);
2243 0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1178 }
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1179 }
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2293 diff changeset	1180 #endif
2243 0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1181 }
1595 360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1182
2528 90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1183 void load_cassette(sms_context sms, system_media media)
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1184 {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1185 sms->cassette = NULL;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1186 sms->cassette_state = TAPE_NONE;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1187 memcpy(&sms->cassette_wave, media->buffer, offsetof(wave_header, data_header));
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1188 if (memcmp(sms->cassette_wave.chunk.format, "WAVE", 4)) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1189 return;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1190 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1191 if (sms->cassette_wave.chunk.size < offsetof(wave_header, data_header)) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1192 return;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1193 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1194 if (memcmp(sms->cassette_wave.format_header.id, "fmt ", 4)) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1195 return;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1196 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1197 if (sms->cassette_wave.format_header.size < offsetof(wave_header, data_header) - offsetof(wave_header, audio_format)) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1198 return;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1199 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1200 if (sms->cassette_wave.bits_per_sample != 8 && sms->cassette_wave.bits_per_sample != 16) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1201 return;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1202 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1203 uint32_t data_sub_chunk = sms->cassette_wave.format_header.size + offsetof(wave_header, audio_format);
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1204 if (data_sub_chunk > media->size \|\| media->size - data_sub_chunk < sizeof(riff_sub_chunk)) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1205 return;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1206 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1207 memcpy(&sms->cassette_wave.data_header, ((uint8_t *)media->buffer) + data_sub_chunk, sizeof(riff_sub_chunk));
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1208 sms->cassette_state = TAPE_STOPPED;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1209 sms->cassette_offset = data_sub_chunk;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1210 sms->cassette = media;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1211 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1212
2525 1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1213 static void start_vgm_log(system_header system, char filename)
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1214 {
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1215 sms_context sms = (sms_context )system;
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1216 //TODO: 50 Hz support
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1217 vgm_writer *vgm = vgm_write_open(filename, 60, sms->normal_clock, sms->z80->Z80_CYCLE);
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1218 if (vgm) {
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1219 printf("Started logging VGM to %s\n", filename);
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1220 psg_run(sms->psg, sms->z80->Z80_CYCLE);
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1221 psg_vgm_log(sms->psg, sms->normal_clock, vgm);
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1222 sms->header.vgm_logging = 1;
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1223 } else {
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1224 printf("Failed to start logging to %s\n", filename);
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1225 }
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1226 }
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1227
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1228 static void stop_vgm_log(system_header *system)
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1229 {
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1230 puts("Stopped VGM log");
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1231 sms_context sms = (sms_context )system;
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1232 vgm_close(sms->psg->vgm);
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1233 sms->psg->vgm = NULL;
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1234 sms->header.vgm_logging = 0;
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1235 }
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1236
1595 360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1237 sms_context alloc_configure_sms(system_media media, uint32_t opts, uint8_t force_region)
360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1238 {
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1239 sms_context *sms = calloc(1, sizeof(sms_context));
2320 8016dbb0fcde Initial work on ROM DB support for SMS/GG games Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	1240 tern_node *rom_db = get_rom_db();
8016dbb0fcde Initial work on ROM DB support for SMS/GG games Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	1241 const memmap_chunk base_map[] = {
8016dbb0fcde Initial work on ROM DB support for SMS/GG games Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	1242 {0xC000, 0x10000, sizeof(sms->ram)-1, .flags = MMAP_READ\|MMAP_WRITE\|MMAP_CODE, .buffer = sms->ram}
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1243 };
2320 8016dbb0fcde Initial work on ROM DB support for SMS/GG games Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	1244 sms->header.info = configure_rom_sms(rom_db, media->buffer, media->size, base_map, sizeof(base_map)/sizeof(base_map[0]));
8016dbb0fcde Initial work on ROM DB support for SMS/GG games Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	1245 uint32_t rom_size = sms->header.info.rom_size;
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1246 z80_options *zopts = malloc(sizeof(z80_options));
2257 1e626d0ecf9c WIP SG-1000/TMS9918A mode support Michael Pavone <pavone@retrodev.com> parents: 2256 diff changeset	1247 tern_node *model_def;
2202 ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1248 uint8_t is_gamegear = !strcasecmp(media->extension, "gg");
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1249 uint8_t is_sc3000 = !strcasecmp(media->extension, "sc");
2257 1e626d0ecf9c WIP SG-1000/TMS9918A mode support Michael Pavone <pavone@retrodev.com> parents: 2256 diff changeset	1250 if (is_gamegear) {
1e626d0ecf9c WIP SG-1000/TMS9918A mode support Michael Pavone <pavone@retrodev.com> parents: 2256 diff changeset	1251 model_def = tern_find_node(get_systems_config(), "gg");
1e626d0ecf9c WIP SG-1000/TMS9918A mode support Michael Pavone <pavone@retrodev.com> parents: 2256 diff changeset	1252 } else if (!strcasecmp(media->extension, "sg")) {
1e626d0ecf9c WIP SG-1000/TMS9918A mode support Michael Pavone <pavone@retrodev.com> parents: 2256 diff changeset	1253 model_def = tern_find_node(get_systems_config(), "sg1000");
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1254 } else if (is_sc3000) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1255 model_def = tern_find_node(get_systems_config(), "sc3000");
2257 1e626d0ecf9c WIP SG-1000/TMS9918A mode support Michael Pavone <pavone@retrodev.com> parents: 2256 diff changeset	1256 } else {
1e626d0ecf9c WIP SG-1000/TMS9918A mode support Michael Pavone <pavone@retrodev.com> parents: 2256 diff changeset	1257 model_def = get_model(config, SYSTEM_SMS);
1e626d0ecf9c WIP SG-1000/TMS9918A mode support Michael Pavone <pavone@retrodev.com> parents: 2256 diff changeset	1258 }
2202 ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1259 char *vdp_str = tern_find_ptr(model_def, "vdp");
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1260 uint8_t vdp_type = is_gamegear ? VDP_GAMEGEAR : is_sc3000 ? VDP_TMS9918A : VDP_SMS2;
2202 ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1261 if (vdp_str) {
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1262 if (!strcmp(vdp_str, "sms1")) {
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1263 vdp_type = VDP_SMS;
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1264 } else if (!strcmp(vdp_str, "sms2")) {
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1265 vdp_type = VDP_SMS2;
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1266 } else if (!strcmp(vdp_str, "tms9918a")) {
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1267 vdp_type = VDP_TMS9918A;
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1268 } else if (!strcmp(vdp_str, "gamegear")) {
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1269 vdp_type = VDP_GAMEGEAR;
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1270 } else if (!strcmp(vdp_str, "genesis")) {
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1271 vdp_type = VDP_GENESIS;
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1272 } else {
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1273 warning("Unrecognized VDP type %s\n", vdp_str);
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1274 }
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1275 }
2321 2eda5f81f91e More fully baked ROM db support for SMS Michael Pavone <pavone@retrodev.com> parents: 2320 diff changeset	1276 for (uint32_t i = 0; i < sms->header.info.map_chunks; i++)
2eda5f81f91e More fully baked ROM db support for SMS Michael Pavone <pavone@retrodev.com> parents: 2320 diff changeset	1277 {
2eda5f81f91e More fully baked ROM db support for SMS Michael Pavone <pavone@retrodev.com> parents: 2320 diff changeset	1278 memmap_chunk *chunk = sms->header.info.map + i;
2eda5f81f91e More fully baked ROM db support for SMS Michael Pavone <pavone@retrodev.com> parents: 2320 diff changeset	1279 if ((chunk->flags == MMAP_READ) && !chunk->buffer && chunk->start > 0xC000) {
2eda5f81f91e More fully baked ROM db support for SMS Michael Pavone <pavone@retrodev.com> parents: 2320 diff changeset	1280 chunk->buffer = sms->ram + ((chunk->start - 0xC000) & 0x1FFF);
2eda5f81f91e More fully baked ROM db support for SMS Michael Pavone <pavone@retrodev.com> parents: 2320 diff changeset	1281 }
2eda5f81f91e More fully baked ROM db support for SMS Michael Pavone <pavone@retrodev.com> parents: 2320 diff changeset	1282 }
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1283 char *io_type = tern_find_ptr(model_def, "io");
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1284 if (io_type) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1285 if (!strcmp(io_type, "gamegear")) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1286 is_gamegear = 1;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1287 is_sc3000 = 0;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1288 } else if (!strcmp(io_type, "i8255")) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1289 is_gamegear = 0;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1290 is_sc3000 = 1;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1291 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1292 }
2202 ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1293 if (is_gamegear) {
2195 40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1294 init_z80_opts(zopts, sms->header.info.map, sms->header.info.map_chunks, io_gg, 6, 15, 0xFF);
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1295 sms->start_button_region = 0xC0;
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1296 } else if (is_sc3000) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1297 sms->keystate = calloc(sizeof(uint16_t), 7);
2528 90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1298 for (int i = 0; i < 7; i++)
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1299 {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1300 sms->keystate[i] = 0xFFF;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1301 }
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1302 sms->i8255 = calloc(1, sizeof(i8255));
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1303 i8255_init(sms->i8255, i8255_output_updated, i8255_input_poll);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1304 sms->i8255->system = sms;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1305 sms->kb_mux = 7;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1306 init_z80_opts(zopts, sms->header.info.map, sms->header.info.map_chunks, io_sc, 7, 15, 0xFF);
2195 40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1307 } else {
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1308 init_z80_opts(zopts, sms->header.info.map, sms->header.info.map_chunks, io_map, 4, 15, 0xFF);
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1309 }
2528 90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1310 if (is_sc3000 && media->chain) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1311 load_cassette(sms, media->chain);
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1312 }
1130 8f14767661fa Remove memory map assumptions from Z80 core and move a little bit of logic to the generic backend.c so it can be shared between CPU cores Michael Pavone <pavone@retrodev.com> parents: 1129 diff changeset	1313 sms->z80 = init_z80_context(zopts);
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1314 sms->z80->system = sms;
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1690 diff changeset	1315 sms->z80->Z80_OPTS->gen.debug_cmd_handler = debug_commands;
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	1316
1201 aee2177a1630 Use filename for game title in SMS mode Michael Pavone <pavone@retrodev.com> parents: 1184 diff changeset	1317 sms->rom = media->buffer;
1141 7e199bebde2f Initial support for Sega's family of SMS mappers Michael Pavone <pavone@retrodev.com> parents: 1130 diff changeset	1318 sms->rom_size = rom_size;
1595 360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1319 if (sms->header.info.map_chunks > 2) {
1141 7e199bebde2f Initial support for Sega's family of SMS mappers Michael Pavone <pavone@retrodev.com> parents: 1130 diff changeset	1320 sms->z80->mem_pointers[0] = sms->rom;
7e199bebde2f Initial support for Sega's family of SMS mappers Michael Pavone <pavone@retrodev.com> parents: 1130 diff changeset	1321 sms->z80->mem_pointers[1] = sms->rom + 0x4000;
7e199bebde2f Initial support for Sega's family of SMS mappers Michael Pavone <pavone@retrodev.com> parents: 1130 diff changeset	1322 sms->z80->mem_pointers[2] = sms->rom + 0x8000;
1162 c4ea535cf57e Forgot that the expansion to 32-bit values for 16-bit addresses is not done when calling a C function to handle a memory operation. Mask on location in mapper_write was needed afterall Michael Pavone <pavone@retrodev.com> parents: 1154 diff changeset	1323 sms->bank_regs[1] = 0;
c4ea535cf57e Forgot that the expansion to 32-bit values for 16-bit addresses is not done when calling a C function to handle a memory operation. Mask on location in mapper_write was needed afterall Michael Pavone <pavone@retrodev.com> parents: 1154 diff changeset	1324 sms->bank_regs[2] = 0x4000 >> 14;
c4ea535cf57e Forgot that the expansion to 32-bit values for 16-bit addresses is not done when calling a C function to handle a memory operation. Mask on location in mapper_write was needed afterall Michael Pavone <pavone@retrodev.com> parents: 1154 diff changeset	1325 sms->bank_regs[3] = 0x8000 >> 14;
1141 7e199bebde2f Initial support for Sega's family of SMS mappers Michael Pavone <pavone@retrodev.com> parents: 1130 diff changeset	1326 }
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	1327
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1328 //TODO: Detect region and pick master clock based off of that
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1329 sms->normal_clock = sms->master_clock = 53693175;
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	1330
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1331 sms->psg = malloc(sizeof(psg_context));
1555 6ce36c3f250b More audio refactoring in preparation for allowing proper sync to video with dynamic audio rate control Michael Pavone <pavone@retrodev.com> parents: 1551 diff changeset	1332 psg_init(sms->psg, sms->master_clock, 15*16);
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	1333
1796 51417bb557b6 Configurable gain for overall output and individual components Michael Pavone <pavone@retrodev.com> parents: 1759 diff changeset	1334 set_gain_config(sms);
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	1335
2195 40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1336 sms->vdp = init_vdp_context(0, 0, vdp_type);
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1337 sms->vdp->system = &sms->header;
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	1338
1595 360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1339 sms->header.info.save_type = SAVE_NONE;
360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1340 sms->header.info.name = strdup(media->name);
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	1341
2293 3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1342 tern_node *io_config_root = config;
3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1343 tern_node *sms_root = tern_find_node(config, "sms");
3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1344 if (sms_root) {
3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1345 tern_node *io = tern_find_node(sms_root, "io");
3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1346 if (io) {
3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1347 io_config_root = sms_root;
3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1348 }
3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1349 }
3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1350 setup_io_devices(io_config_root, &sms->header.info, &sms->io);
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1351 sms->header.has_keyboard = io_has_keyboard(&sms->io) \|\| sms->keystate;
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	1352
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1353 sms->header.set_speed_percent = set_speed_percent;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1354 sms->header.start_context = start_sms;
1401 b56c8c51ca5d Properly release and reacquire framebuffer pointer when switching contexts. Hopefully fixes the LOCKRECT issue some people are seeing with the SDL 2 fallback renderer Michael Pavone <pavone@retrodev.com> parents: 1384 diff changeset	1355 sms->header.resume_context = resume_sms;
1384 1df16f5985f3 Added stub load_save and persist_save functions to SMS system so that we don't crash when switching games via the menu Michael Pavone <pavone@retrodev.com> parents: 1379 diff changeset	1356 sms->header.load_save = load_save;
1df16f5985f3 Added stub load_save and persist_save functions to SMS system so that we don't crash when switching games via the menu Michael Pavone <pavone@retrodev.com> parents: 1379 diff changeset	1357 sms->header.persist_save = persist_save;
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	1358 sms->header.load_state = load_state;
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1359 sms->header.free_context = free_sms;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1360 sms->header.get_open_bus_value = get_open_bus_value;
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1361 sms->header.request_exit = request_exit;
1209 5ee6b6345ea9 Implement SMS hardware soft reset (note only available on real hardware on the Genesis in PBC mode) Michael Pavone <pavone@retrodev.com> parents: 1201 diff changeset	1362 sms->header.soft_reset = soft_reset;
1120 e9369d6f0101 Somewhat broken implementation of Mode 4 Michael Pavone <pavone@retrodev.com> parents: 1119 diff changeset	1363 sms->header.inc_debug_mode = inc_debug_mode;
1583 430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1364 sms->header.gamepad_down = gamepad_down;
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1365 sms->header.gamepad_up = gamepad_up;
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1366 sms->header.mouse_down = mouse_down;
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1367 sms->header.mouse_up = mouse_up;
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1368 sms->header.mouse_motion_absolute = mouse_motion_absolute;
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1369 sms->header.mouse_motion_relative = mouse_motion_relative;
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1370 sms->header.keyboard_down = keyboard_down;
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1371 sms->header.keyboard_up = keyboard_up;
1595 360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1372 sms->header.config_updated = config_updated;
1690 319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	1373 sms->header.serialize = serialize;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	1374 sms->header.deserialize = deserialize;
2525 1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1375 sms->header.start_vgm_log = start_vgm_log;
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1376 sms->header.stop_vgm_log = stop_vgm_log;
2243 0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1377 sms->header.toggle_debug_view = toggle_debug_view;
2528 90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1378 sms->header.cassette_action = cassette_action;
1377 e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	1379 sms->header.type = SYSTEM_SMS;
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	1380
1117 928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1381 return sms;
2134 9caebcfeac72 Implement word RAM interleaving in 1M mode, now passes mcd-verificator word RAM tests Michael Pavone <pavone@retrodev.com> parents: 1980 diff changeset	1382 }

Mercurial > repos > blastem

annotate sms.c @ 2534:35dbe1873c8f