repos/blastem: sms.c annotate

annotate sms.c @ 2537:da4f297d9581

Fix untoggling of toggle modifier in SC-3000 paste

author	Michael Pavone <pavone@retrodev.com>
date	Wed, 27 Nov 2024 20:46:30 -0800
parents	0d8e3e65327f
children	0bba312f94f7

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
2535 0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	241 #define SIMPLE(cp, sc) case cp: return (cp_keys){sc}
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	242 #define MAYBE_SHIFT(cp, sc) case cp: return (cp_keys){sc, shift}
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	243 #define SHIFTED(cp, sc) case cp: return (cp_keys){sc, 0x12}
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	244 #define ACCENTED(cp, sc) case cp: return (cp_keys){sc, 0x81}
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	245 #define GRAPHIC(cp, sc) case cp: return (cp_keys){sc, .before=0x11, .after=0x11}
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	246 #define SHIFTED_GRAPHIC(cp, sc) case cp: return (cp_keys){sc, 0x12, .before=0x11, .after=0x11}
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	247
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	248 static cp_keys cp_to_keys(int cp)
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	249 {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	250 uint8_t shift = 0;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	251 if (cp >= 'a' && cp <= 'z') {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	252 shift = 0x12;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	253 cp -= 'a' - 'A';
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	254 } else if (cp >= '!' && cp <= ')') {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	255 shift = 0x12;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	256 cp += '1' - '!';
2536 0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	257 } else if (cp >= 0xE0 && cp <= 0xFC && cp != 0xF7) {
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	258 //accented latin letters only have a single case
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	259 cp -= 0xE0 - 0xC0;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	260 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	261 switch (cp)
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	262 {
2535 0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	263 SIMPLE('0', 0x45);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	264 MAYBE_SHIFT('1', 0x16);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	265 MAYBE_SHIFT('2', 0x1E);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	266 MAYBE_SHIFT('3', 0x26);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	267 MAYBE_SHIFT('4', 0x25);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	268 MAYBE_SHIFT('5', 0x2E);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	269 MAYBE_SHIFT('6', 0x36);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	270 MAYBE_SHIFT('7', 0x3D);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	271 MAYBE_SHIFT('8', 0x3E);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	272 MAYBE_SHIFT('9', 0x46);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	273 MAYBE_SHIFT('A', 0x1C);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	274 MAYBE_SHIFT('B', 0x32);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	275 MAYBE_SHIFT('C', 0x21);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	276 MAYBE_SHIFT('D', 0x23);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	277 MAYBE_SHIFT('E', 0x24);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	278 MAYBE_SHIFT('F', 0x2B);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	279 MAYBE_SHIFT('G', 0x34);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	280 MAYBE_SHIFT('H', 0x33);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	281 MAYBE_SHIFT('I', 0x43);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	282 MAYBE_SHIFT('J', 0x3B);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	283 MAYBE_SHIFT('K', 0x42);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	284 MAYBE_SHIFT('L', 0x4B);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	285 MAYBE_SHIFT('M', 0x3A);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	286 MAYBE_SHIFT('N', 0x31);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	287 MAYBE_SHIFT('O', 0x44);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	288 MAYBE_SHIFT('P', 0x4D);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	289 MAYBE_SHIFT('Q', 0x15);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	290 MAYBE_SHIFT('R', 0x2D);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	291 MAYBE_SHIFT('S', 0x1B);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	292 MAYBE_SHIFT('T', 0x2C);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	293 MAYBE_SHIFT('U', 0x3C);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	294 MAYBE_SHIFT('V', 0x2A);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	295 MAYBE_SHIFT('W', 0x1D);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	296 MAYBE_SHIFT('X', 0x22);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	297 MAYBE_SHIFT('Y', 0x35);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	298 MAYBE_SHIFT('Z', 0x1A);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	299 SIMPLE('-', 0x4E);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	300 SHIFTED('=', 0x4E);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	301 SIMPLE(';', 0x4C);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	302 SHIFTED('+', 0x4C);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	303 SIMPLE(':', 0x52);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	304 SHIFTED('*', 0x52);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	305 SIMPLE(',', 0x41);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	306 SHIFTED('<', 0x41);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	307 SIMPLE('.', 0x49);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	308 SHIFTED('>', 0x49);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	309 SIMPLE('/', 0x4A);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	310 SHIFTED('?', 0x4A);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	311 SIMPLE('^', 0x55);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	312 SHIFTED('~', 0x55);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	313 SIMPLE('[', 0x54);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	314 SHIFTED('{', 0x54);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	315 SIMPLE(']', 0x5B);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	316 SHIFTED('}', 0x5B);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	317 SIMPLE('@', 0x85);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	318 SHIFTED('`', 0x85);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	319 SIMPLE('\n', 0x5A);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	320 SIMPLE(' ', 0x29);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	321 SIMPLE(0xA5, 0x5D);//¥
2536 0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	322 case 0xA6: //¦ (broken bar)
0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	323 SHIFTED('\|', 0x5D);//\|
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	324 //Accented latin letters will only work right with export BASIC
2535 0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	325 ACCENTED(0xA1, 0x32);//¡
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	326 ACCENTED(0xA3, 0x5D);//£
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	327 ACCENTED(0xBF, 0x2A);//¿
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	328 ACCENTED(0xC0, 0x1D);//À
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	329 ACCENTED(0xC1, 0x15);//Á
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	330 ACCENTED(0xC2, 0x16);//Â
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	331 ACCENTED(0xC3, 0x23);//Ã
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	332 ACCENTED(0xC4, 0x1C);//Ä
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	333 ACCENTED(0xC5, 0x1B);//Å
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	334 ACCENTED(0xC7, 0x21);//Ç
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	335 case 0xC6: return (cp_keys){0x31, 0x81, .after=0x24};//Æ
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	336 ACCENTED(0xC8, 0x2D);//È
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	337 ACCENTED(0xC9, 0x24);//É
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	338 ACCENTED(0xCA, 0x26);//Ê
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	339 ACCENTED(0xCB, 0x2E);//Ë
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	340 ACCENTED(0xCC, 0x44);//Ì
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	341 ACCENTED(0xCD, 0x4B);//Í
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	342 ACCENTED(0xCE, 0x49);//Î
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	343 ACCENTED(0xCF, 0x4C);//Ï
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	344 ACCENTED(0xD1, 0x2C);//Ñ
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	345 ACCENTED(0xD2, 0x85);//Ò
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	346 ACCENTED(0xD3, 0x4D);//Ó
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	347 ACCENTED(0xD4, 0x45);//Ô
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	348 ACCENTED(0xD5, 0x0E);//Õ
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	349 ACCENTED(0xD6, 0x52);//Ö
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	350 //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	351 //but Wikipedia lists it as such
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	352 case 0x3A6: //Φ
2535 0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	353 ACCENTED(0xD8, 0x54);//Ø
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	354 ACCENTED(0xD9, 0x43);//Ù
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	355 ACCENTED(0xDA, 0x3C);//Ú
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	356 ACCENTED(0xDB, 0x3D);//Û
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	357 ACCENTED(0xDC, 0x42);//Ü
2536 0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	358 GRAPHIC(0xF7, 0x0E);//÷
2535 0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	359 ACCENTED(0x3A3, 0x5B);//Σ
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	360 ACCENTED(0x3A9, 0x3A);//Ω
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	361 ACCENTED(0x3B1, 0x34);//α
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	362 ACCENTED(0x3B2, 0x33);//β
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	363 ACCENTED(0x3B8, 0x3B);//θ
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	364 ACCENTED(0x3BB, 0x22);//λ
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	365 case 0xB5://µ
2535 0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	366 ACCENTED(0x3BC, 0x1A);//μ
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	367 SHIFTED(0x3C0, 0x0E);//π
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	368 //Box drawing
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	369 GRAPHIC(0x2500, 0x1E);//─
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	370 GRAPHIC(0x2501, 0x34);//━
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	371 GRAPHIC(0x2502, 0x26);//│
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	372 GRAPHIC(0x2503, 0x2C);//┃
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	373 GRAPHIC(0x250C, 0x15);//┌
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	374 GRAPHIC(0x2510, 0x1D);//┐
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	375 GRAPHIC(0x2514, 0x1C);//└
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	376 GRAPHIC(0x2518, 0x1B);//┘
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	377 SHIFTED_GRAPHIC(0x251C, 0x15);//├
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	378 SHIFTED_GRAPHIC(0x2524, 0x1B);//┤
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	379 SHIFTED_GRAPHIC(0x252C, 0x1D);//┬
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	380 SHIFTED_GRAPHIC(0x2534, 0x1C);//┴
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	381 GRAPHIC(0x253C, 0x16);//┼
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	382 GRAPHIC(0x2571, 0x4E);//╱
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	383 GRAPHIC(0x2572, 0x5D);//╲
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	384 GRAPHIC(0x2573, 0x55);//╳
2536 0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	385 //Block Elements
0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	386 SHIFTED_GRAPHIC(0x2580, 0x32);//▀ upper half
0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	387 SHIFTED_GRAPHIC(0x2581, 0x1A);//▁ lower 1/8th
0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	388 SHIFTED_GRAPHIC(0x2582, 0x22);//▂ lower 1/4th
0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	389 SHIFTED_GRAPHIC(0x2584, 0x21);//▄ lower half
0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	390 GRAPHIC(0x2588, 0x2A);//█ full block
0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	391 GRAPHIC(0x258C, 0x32);//▌ left half
0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	392 GRAPHIC(0x258D, 0x31);//▍ left 3/8ths (Sega character is 1/3rd)
0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	393 GRAPHIC(0x258F, 0x3A);//▏ left 1/8th (Sega character is 1/6th)
0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	394 SHIFTED_GRAPHIC(0x2592, 0x2A);//▒
0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	395 SHIFTED_GRAPHIC(0x2594, 0x3A);//▔ upper 1/8th
0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	396 GRAPHIC(0x2595, 0x1A);//▕ right 1/8th (Sega character is 1/6th)
0d8e3e65327f Implement paste support for block elements and a couple of missing Latin-1 chars Michael Pavone <pavone@retrodev.com> parents: 2535 diff changeset	397 GRAPHIC(0x259E, 0x33);//▞
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	398 default: return (cp_keys){0};
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	399 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	400 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	401
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	402 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	403 {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	404 if (!*paste) {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	405 free(sms->header.paste_buffer);
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	406 sms->header.paste_buffer = NULL;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	407 } else {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	408 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	409 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	410 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	411
2535 0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	412 enum {
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	413 PASTE_BEFORE,
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	414 PASTE_MAIN,
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	415 PASTE_AFTER,
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	416 PASTE_BEFORE_UP,
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	417 PASTE_MAIN_UP,
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	418 PASTE_AFTER_UP,
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	419 PASTE_TOGGLE_UP
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	420 };
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	421
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	422
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	423 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	424 {
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	425 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	426 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	427 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	428 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	429 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	430 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	431 }
2535 0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	432 switch (sms->paste_state)
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	433 {
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	434 default:
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	435 case PASTE_BEFORE:
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	436 if (sms->paste_toggle != keys.before) {
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	437 if (sms->paste_toggle) {
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	438 sms->header.keyboard_down(&sms->header, sms->paste_toggle);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	439 sms->paste_state = PASTE_TOGGLE_UP;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	440 return sms->paste_toggle;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	441 } else {
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	442 if (prev_key == keys.before) {
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	443 return 0;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	444 }
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	445 sms->header.keyboard_down(&sms->header, keys.before);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	446 sms->paste_state = PASTE_BEFORE_UP;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	447 return keys.before;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	448 }
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	449 }
2535 0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	450 case PASTE_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	451 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	452 // 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	453 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	454 }
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	455 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	456 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	457 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	458 }
2535 0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	459 sms->paste_state = PASTE_MAIN_UP;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	460 return keys.main;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	461 case PASTE_AFTER:
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	462 if (prev_key == keys.after) {
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	463 return 0;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	464 }
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	465 sms->header.keyboard_down(&sms->header, keys.after);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	466 sms->paste_state = PASTE_AFTER_UP;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	467 return keys.after;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	468 case PASTE_BEFORE_UP:
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	469 sms->header.keyboard_up(&sms->header, keys.before);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	470 sms->paste_state = PASTE_MAIN;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	471 return keys.before;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	472 case PASTE_MAIN_UP:
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	473 sms->header.keyboard_up(&sms->header, keys.main);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	474 if (keys.mod) {
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	475 sms->header.keyboard_up(&sms->header, keys.mod);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	476 }
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	477 if (keys.after && keys.after != keys.before) {
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	478 sms->paste_state = PASTE_AFTER;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	479 } else {
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	480 sms->paste_toggle = keys.after;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	481 sms->paste_state = PASTE_BEFORE;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	482 advance_paste_buffer(sms, paste);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	483 }
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	484 return keys.main;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	485 case PASTE_AFTER_UP:
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	486 sms->header.keyboard_up(&sms->header, keys.after);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	487 sms->paste_state = PASTE_BEFORE;
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	488 advance_paste_buffer(sms, paste);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	489 return keys.after;
2537 da4f297d9581 Fix untoggling of toggle modifier in SC-3000 paste Michael Pavone <pavone@retrodev.com> parents: 2536 diff changeset	490 case PASTE_TOGGLE_UP: {
2535 0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	491 sms->header.keyboard_up(&sms->header, sms->paste_toggle);
0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	492 sms->paste_state = PASTE_BEFORE;
2537 da4f297d9581 Fix untoggling of toggle modifier in SC-3000 paste Michael Pavone <pavone@retrodev.com> parents: 2536 diff changeset	493 uint8_t ret = sms->paste_toggle;
da4f297d9581 Fix untoggling of toggle modifier in SC-3000 paste Michael Pavone <pavone@retrodev.com> parents: 2536 diff changeset	494 sms->paste_toggle = 0;
da4f297d9581 Fix untoggling of toggle modifier in SC-3000 paste Michael Pavone <pavone@retrodev.com> parents: 2536 diff changeset	495 return ret;
da4f297d9581 Fix untoggling of toggle modifier in SC-3000 paste Michael Pavone <pavone@retrodev.com> parents: 2536 diff changeset	496 }
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	497 }
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	498 }
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	499
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	500 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	501 {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	502 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	503
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	504 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	505 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	506 sms->last_paste_cycle = cycle;
2535 0c6519125a28 Implement paste support for box drawing chars and Latin-1 character Æ Michael Pavone <pavone@retrodev.com> parents: 2534 diff changeset	507 if (sms->header.paste_buffer && !sms->paste_state) {
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	508 paste_internal(sms, main_key);
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	509 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	510 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	511 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	512 }
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	513
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	514 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	515 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	516 if (port > 1) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	517 return 0xFF;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	518 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	519 sms_context *sms = ppi->system;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	520 if (sms->kb_mux == 7) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	521 if (port) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	522 //TODO: printer port BUSY/FAULT
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	523 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	524 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	525 } else {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	526 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	527 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	528 return (port_a & 0x3F) \| (port_b << 6);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	529 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	530 }
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	531 process_events();
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	532 process_paste(sms, cycle);
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	533 //TODO: keyboard matrix ghosting
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	534 if (port) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	535 //TODO: printer port BUSY/FAULT
2528 90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	536 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	537 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	538 return sms->keystate[sms->kb_mux];
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	539 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	540
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	541 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	542 {
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	543 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	544 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	545 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	546 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	547 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	548 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	549 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	550 //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	551 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	552 }
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	553 } 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	554 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	555 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	556 //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	557 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	558 } 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	559 //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	560 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	561 }
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	562 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	563 //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	564 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	565 }
1141 7e199bebde2f Initial support for Sega's family of SMS mappers Michael Pavone <pavone@retrodev.com> parents: 1130 diff changeset	566 }
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	567 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	568
2320 8016dbb0fcde Initial work on ROM DB support for SMS/GG games Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	569 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	570 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	571 z80_context *z80 = vcontext;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	572 sms_context *sms = z80->system;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	573 location &= 3;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	574 sms->ram[0x1FFC + location] = value;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	575 sms->bank_regs[location] = value;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	576 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	577 return vcontext;
7e199bebde2f Initial support for Sega's family of SMS mappers Michael Pavone <pavone@retrodev.com> parents: 1130 diff changeset	578 }
7e199bebde2f Initial support for Sega's family of SMS mappers Michael Pavone <pavone@retrodev.com> parents: 1130 diff changeset	579
2321 2eda5f81f91e More fully baked ROM db support for SMS Michael Pavone <pavone@retrodev.com> parents: 2320 diff changeset	580 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	581 {
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	582 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	583 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	584 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	585 //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	586 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	587 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	588 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	589 }
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	590 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	591 }
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	592
2325 26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	593 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	594 {
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	595 sms_context *sms = z80->system;
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	596 if (value != sms->bank_regs[bank]) {
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	597 sms->bank_regs[bank] = value;
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	598 value &= 0x7F;
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	599 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	600 z80_invalidate_code_range(z80, bank * 0x4000, bank * 0x4000 + 0x4000);
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	601 }
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	602 return z80;
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	603 }
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	604
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	605 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	606 {
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	607 return codemasters_write(0, vcontext, value);
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	608 }
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	609
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	610 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	611 {
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	612 return codemasters_write(1, vcontext, value);
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	613 }
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	614
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	615 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	616 {
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	617 //TODO: Handle Ernie Els Golf cart RAM
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	618 return codemasters_write(2, vcontext, value);
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	619 }
26597f9805b4 Initial Codemasters mapper support Michael Pavone <pavone@retrodev.com> parents: 2321 diff changeset	620
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	621 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	622 {
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	623 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	624 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	625 {
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	626 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	627 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	628 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	629 } 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	630 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	631 } 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	632 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	633 }
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	634 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	635 }
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	636 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	637 }
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	638
2195 40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	639 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	640 {
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	641 z80_context *z80 = vcontext;
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	642 sms_context *sms = z80->system;
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	643 if (!location) {
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	644 return sms->start_button_region;
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	645 } else {
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	646 //TODO: implement link port
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	647 return 0xFF;
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	648 }
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	649 }
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	650
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	651 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	652 {
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	653 //TODO: implement link port
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	654 return vcontext;
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	655 }
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	656 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	657 {
2196 2648081f3100 Implement Game Gear PSG panning Michael Pavone <pavone@retrodev.com> parents: 2195 diff changeset	658 z80_context *z80 = vcontext;
2648081f3100 Implement Game Gear PSG panning Michael Pavone <pavone@retrodev.com> parents: 2195 diff changeset	659 sms_context *sms = z80->system;
2648081f3100 Implement Game Gear PSG panning Michael Pavone <pavone@retrodev.com> parents: 2195 diff changeset	660 psg_run(sms->psg, z80->Z80_CYCLE);
2648081f3100 Implement Game Gear PSG panning Michael Pavone <pavone@retrodev.com> parents: 2195 diff changeset	661 sms->psg->pan = value;
2527 7e1215d17571 Log Game Gear PSG Pan to VGM Michael Pavone <pavone@retrodev.com> parents: 2525 diff changeset	662 if (sms->psg->vgm) {
7e1215d17571 Log Game Gear PSG Pan to VGM Michael Pavone <pavone@retrodev.com> parents: 2525 diff changeset	663 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	664 }
2195 40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	665 return vcontext;
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	666 }
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	667
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	668 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	669 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	670 z80_context *z80 = vcontext;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	671 sms_context *sms = z80->system;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	672 i8255_write(location, sms->i8255, value, z80->Z80_CYCLE);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	673 return vcontext;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	674 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	675
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	676 static uint8_t ppi_read(uint32_t location, void *vcontext)
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	677 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	678 z80_context *z80 = vcontext;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	679 sms_context *sms = z80->system;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	680 return i8255_read(location, sms->i8255, z80->Z80_CYCLE);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	681 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	682
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	683 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	684 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	685 vdp_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	686 sms_psg_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	687 return ppi_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	688 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	689
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	690 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	691 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	692 //TODO: "corrupt" PPI value by VDP value
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	693 vdp_read(location, vcontext);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	694 return ppi_read(location, vcontext);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	695 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	696
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	697 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	698 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	699 vdp_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	700 return sms_psg_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	701 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	702
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	703 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	704 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	705 vdp_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	706 return ppi_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	707 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	708
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	709 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	710 {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	711 vdp_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	712 return ppi_write(location, vcontext, value);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	713 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	714
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	715 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	716 {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	717 {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	718 {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	719 {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	720 };
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	721
2195 40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	722 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	723 {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	724 {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	725 {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	726 {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	727 {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	728 {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	729 };
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	730
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	731 static memmap_chunk io_sc[] = {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	732 {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	733 {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	734 {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	735 {0x60, 0x80, 0xFF, .write_8 = sms_psg_write},
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	736 {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	737 {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	738 {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	739 };
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	740
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	741 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	742 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	743 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	744 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	745 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	746
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	747 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	748 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	749
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	750 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	751 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	752 start_section(buf, SECTION_Z80);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	753 z80_serialize(sms->z80, buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	754 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	755
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	756 start_section(buf, SECTION_VDP);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	757 vdp_serialize(sms->vdp, buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	758 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	759
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	760 start_section(buf, SECTION_PSG);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	761 psg_serialize(sms->psg, buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	762 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	763
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	764 start_section(buf, SECTION_SEGA_IO_1);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	765 io_serialize(sms->io.ports, buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	766 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	767
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	768 start_section(buf, SECTION_SEGA_IO_2);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	769 io_serialize(sms->io.ports + 1, buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	770 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	771
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	772 start_section(buf, SECTION_MAIN_RAM);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	773 save_int8(buf, sizeof(sms->ram) / 1024);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	774 save_buffer8(buf, sms->ram, sizeof(sms->ram));
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	775 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	776
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	777 start_section(buf, SECTION_MAPPER);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	778 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	779 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	780 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	781
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	782 start_section(buf, SECTION_CART_RAM);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	783 save_int8(buf, SMS_CART_RAM_SIZE / 1024);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	784 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	785 end_section(buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	786 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	787
1690 319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	788 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	789 {
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	790 sms_context sms = (sms_context )sys;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	791 serialize_buffer state;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	792 init_serialize(&state);
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	793 sms_serialize(sms, &state);
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	794 if (size_out) {
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	795 *size_out = state.size;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	796 }
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	797 return state.data;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	798 }
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	799
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	800 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	801 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	802 sms_context *sms = vsms;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	803 uint32_t ram_size = load_int8(buf) * 1024;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	804 if (ram_size > sizeof(sms->ram)) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	805 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	806 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	807 load_buffer8(buf, sms->ram, ram_size);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	808 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	809
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	810 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	811 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	812 sms_context *sms = vsms;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	813 uint32_t ram_size = load_int8(buf) * 1024;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	814 if (ram_size > SMS_CART_RAM_SIZE) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	815 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	816 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	817 load_buffer8(buf, sms->cart_ram, ram_size);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	818 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	819
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	820 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	821 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	822 sms_context *sms = vsms;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	823 uint8_t mapper_type = load_int8(buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	824 if (mapper_type != 1) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	825 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	826 return;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	827 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	828 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	829 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	830 sms->bank_regs[i] = load_int8(buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	831 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	832 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	833 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	834
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	835 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	836 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	837 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	838 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	839 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	840 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	841 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	842 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	843 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	844 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	845 //TODO: cart RAM
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	846 while (buf->cur_pos < buf->size)
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	847 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	848 load_section(buf);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	849 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	850 z80_invalidate_code_range(sms->z80, 0xC000, 0x10000);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	851 if (sms->bank_regs[0] & 8) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	852 //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	853 z80_invalidate_code_range(sms->z80, 0x8000, 0xC000);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	854 }
1690 319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	855 free(buf->handlers);
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	856 buf->handlers = NULL;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	857 }
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	858
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	859 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	860 {
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	861 sms_context sms = (sms_context )sys;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	862 deserialize_buffer buffer;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	863 init_deserialize(&buffer, data, size);
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	864 sms_deserialize(&buffer, sms);
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	865 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	866
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	867 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	868 {
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	869 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	870 serialize_buffer state;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	871 init_serialize(&state);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	872 sms_serialize(sms, &state);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	873 save_to_file(&state, save_path);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	874 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	875 free(save_path);
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	876 free(state.data);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	877 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	878
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	879 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	880 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	881 deserialize_buffer state;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	882 uint8_t ret;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	883 if ((ret = load_from_file(&state, path))) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	884 sms_deserialize(&state, sms);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	885 free(state.data);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	886 printf("Loaded %s\n", path);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	887 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	888 return ret;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	889 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	890
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	891 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	892 {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	893 sms_context sms = (sms_context )system;
1480 8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	894 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	895 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	896 #ifndef NEW_CORE
1480 8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	897 if (!sms->z80->native_pc) {
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	898 ret = get_modification_time(statepath) != 0;
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	899 if (ret) {
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	900 system->delayed_load_slot = slot + 1;
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	901 }
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	902 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	903
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	904 }
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	905 #endif
1480 8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	906 ret = load_state_path(sms, statepath);
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	907 done:
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	908 free(statepath);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	909 return ret;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	910 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	911
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	912 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	913 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	914 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	915 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	916 //TODO: PAL support
2200 f11f4399d64b Crop display in game gear mode Michael Pavone <pavone@retrodev.com> parents: 2197 diff changeset	917 if (sms->vdp->type == VDP_GAMEGEAR) {
f11f4399d64b Crop display in game gear mode Michael Pavone <pavone@retrodev.com> parents: 2197 diff changeset	918 render_set_video_standard(VID_GAMEGEAR);
f11f4399d64b Crop display in game gear mode Michael Pavone <pavone@retrodev.com> parents: 2197 diff changeset	919 } else {
f11f4399d64b Crop display in game gear mode Michael Pavone <pavone@retrodev.com> parents: 2197 diff changeset	920 render_set_video_standard(VID_NTSC);
f11f4399d64b Crop display in game gear mode Michael Pavone <pavone@retrodev.com> parents: 2197 diff changeset	921 }
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	922 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	923 {
1480 8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	924 if (system->delayed_load_slot) {
8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	925 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	926 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	927
1480 8464a3f09b94 Get SMS savestates working in Nuklear UI Michael Pavone <pavone@retrodev.com> parents: 1478 diff changeset	928 }
2179 9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	929 if (sms->vdp->frame != sms->last_frame) {
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2293 diff changeset	930 #ifndef IS_LIB
2243 0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	931 if (sms->psg->scope) {
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	932 scope_render(sms->psg->scope);
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	933 }
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2293 diff changeset	934 #endif
2179 9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	935 uint32_t elapsed = sms->vdp->frame - sms->last_frame;
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	936 sms->last_frame = sms->vdp->frame;
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	937 if (system->enter_debugger_frames) {
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	938 if (elapsed >= system->enter_debugger_frames) {
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	939 system->enter_debugger_frames = 0;
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	940 system->enter_debugger = 1;
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	941 } else {
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	942 system->enter_debugger_frames -= elapsed;
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	943 }
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	944 }
2194 01ff005b08f6 Very rudimentary support for Game Gear VDP emulation Michael Pavone <pavone@retrodev.com> parents: 2179 diff changeset	945
2179 9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	946 if(exit_after){
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	947 if (elapsed >= exit_after) {
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	948 exit(0);
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	949 } else {
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	950 exit_after -= elapsed;
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	951 }
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	952 }
9a8dd4ba2753 Implement frame advance debugger command Michael Pavone <pavone@retrodev.com> parents: 2134 diff changeset	953 }
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2424 diff changeset	954 #ifndef NEW_CORE
2424 767ec72acca7 Avoid conflicts between watchpoints and normal debugger entry Michael Pavone <pavone@retrodev.com> parents: 2400 diff changeset	955 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	956 if (!sms->z80->wp_hit) {
767ec72acca7 Avoid conflicts between watchpoints and normal debugger entry Michael Pavone <pavone@retrodev.com> parents: 2400 diff changeset	957 system->enter_debugger = 0;
767ec72acca7 Avoid conflicts between watchpoints and normal debugger entry Michael Pavone <pavone@retrodev.com> parents: 2400 diff changeset	958 }
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2293 diff changeset	959 #ifndef IS_LIB
1129 6b5c92b6205c Enabled Z80 debugger in PBC mode Michael Pavone <pavone@retrodev.com> parents: 1126 diff changeset	960 zdebugger(sms->z80, sms->z80->pc);
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2293 diff changeset	961 #endif
1129 6b5c92b6205c Enabled Z80 debugger in PBC mode Michael Pavone <pavone@retrodev.com> parents: 1126 diff changeset	962 }
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2424 diff changeset	963 #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	964 #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	965 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	966 #else
1377 e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	967 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	968 #endif
1377 e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	969 uint32_t nmi = vdp_next_nmi(sms->vdp);
e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	970 if (nmi != CYCLE_NEVER) {
e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	971 z80_assert_nmi(sms->z80, nmi);
e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	972 }
e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	973 }
2400 c97609fe8315 Implement watchpoints in Z80 debugger Michael Pavone <pavone@retrodev.com> parents: 2384 diff changeset	974
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2424 diff changeset	975 #ifndef NEW_CORE
2424 767ec72acca7 Avoid conflicts between watchpoints and normal debugger entry Michael Pavone <pavone@retrodev.com> parents: 2400 diff changeset	976 if (system->enter_debugger \|\| sms->z80->wp_hit) {
2400 c97609fe8315 Implement watchpoints in Z80 debugger Michael Pavone <pavone@retrodev.com> parents: 2384 diff changeset	977 target_cycle = sms->z80->Z80_CYCLE + 1;
c97609fe8315 Implement watchpoints in Z80 debugger Michael Pavone <pavone@retrodev.com> parents: 2384 diff changeset	978 }
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2424 diff changeset	979 #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	980 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	981 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	982 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	983 }
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	984 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	985 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	986 psg_run(sms->psg, target_cycle);
2528 90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	987 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	988
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	989 if (system->save_state) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	990 while (!sms->z80->pc) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	991 //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	992 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	993 }
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	994 save_state(sms, system->save_state - 1);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	995 system->save_state = 0;
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	996 }
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	997
1377 e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	998 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	999 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	1000 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	1001 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	1002 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	1003 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	1004 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	1005 sms->psg->cycles -= adjust;
2528 90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1006 sms->cassette_cycle -= adjust;
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	1007 if (sms->last_paste_cycle > adjust) {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	1008 sms->last_paste_cycle -= adjust;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	1009 } else {
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	1010 sms->last_paste_cycle = 0;
f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	1011 }
2525 1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1012 if (sms->psg->vgm) {
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1013 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	1014 }
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	1015 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	1016 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1017 }
1980 81df9aa2de9b Less hacky run on audio thread mode Michael Pavone <pavone@retrodev.com> parents: 1932 diff changeset	1018 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	1019 bindings_release_capture();
b387f1c5a1d0 WIP new sync mode that runs emulation on audio thread Michael Pavone <pavone@retrodev.com> parents: 1906 diff changeset	1020 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	1021 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	1022 }
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	1023 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	1024 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1025
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	1026 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	1027 {
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	1028 sms_context sms = (sms_context )system;
1980 81df9aa2de9b Less hacky run on audio thread mode Michael Pavone <pavone@retrodev.com> parents: 1932 diff changeset	1029 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	1030 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	1031 bindings_reacquire_capture();
b387f1c5a1d0 WIP new sync mode that runs emulation on audio thread Michael Pavone <pavone@retrodev.com> parents: 1906 diff changeset	1032 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	1033 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	1034 }
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	1035 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	1036 }
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	1037
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	1038 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	1039 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1040 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	1041
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	1042 z80_assert_reset(sms->z80, 0);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	1043 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	1044
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	1045 if (statefile) {
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	1046 load_state_path(sms, statefile);
c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	1047 }
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	1048
1129 6b5c92b6205c Enabled Z80 debugger in PBC mode Michael Pavone <pavone@retrodev.com> parents: 1126 diff changeset	1049 if (system->enter_debugger) {
6b5c92b6205c Enabled Z80 debugger in PBC mode Michael Pavone <pavone@retrodev.com> parents: 1126 diff changeset	1050 system->enter_debugger = 0;
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2293 diff changeset	1051 #ifndef IS_LIB
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	1052 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	1053 #endif
1129 6b5c92b6205c Enabled Z80 debugger in PBC mode Michael Pavone <pavone@retrodev.com> parents: 1126 diff changeset	1054 }
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	1055
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	1056 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	1057 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1058
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	1059 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	1060 {
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	1061 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	1062 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	1063 #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	1064 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	1065 #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	1066 }
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	1067
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	1068 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	1069 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1070 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	1071 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	1072 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	1073 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	1074 psg_free(sms->psg);
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1075 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	1076 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	1077 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1078
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1079 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	1080 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1081 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	1082 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1083
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1084 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	1085 {
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1086 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	1087 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	1088 #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	1089 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	1090 #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	1091 }
928a65750345 Initial support for Genesis/Megadrive PBC mode. VDP still needs Mode 4 to be useful. Michael Pavone <pavone@retrodev.com> parents: diff changeset	1092
1120 e9369d6f0101 Somewhat broken implementation of Mode 4 Michael Pavone <pavone@retrodev.com> parents: 1119 diff changeset	1093 static void inc_debug_mode(system_header *system)
e9369d6f0101 Somewhat broken implementation of Mode 4 Michael Pavone <pavone@retrodev.com> parents: 1119 diff changeset	1094 {
e9369d6f0101 Somewhat broken implementation of Mode 4 Michael Pavone <pavone@retrodev.com> parents: 1119 diff changeset	1095 sms_context sms = (sms_context )system;
1643 6909c5d0bbb5 Removed old VDP debug functionality Michael Pavone <pavone@retrodev.com> parents: 1640 diff changeset	1096 vdp_inc_debug_mode(sms->vdp);
1120 e9369d6f0101 Somewhat broken implementation of Mode 4 Michael Pavone <pavone@retrodev.com> parents: 1119 diff changeset	1097 }
e9369d6f0101 Somewhat broken implementation of Mode 4 Michael Pavone <pavone@retrodev.com> parents: 1119 diff changeset	1098
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	1099 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	1100 {
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	1101 //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	1102 }
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	1103
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	1104 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	1105 {
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	1106 //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	1107 }
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	1108
1583 430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1109 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	1110 {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1111 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	1112 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	1113 if (button == MAIN_UNIT_PAUSE) {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1114 vdp_pbc_pause(sms->vdp);
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1115 }
2195 40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1116 } 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	1117 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	1118 } else {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1119 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	1120 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1121 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1122
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1123 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	1124 {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1125 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	1126 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	1127 sms->start_button_region \|= 0x80;
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1128 } else {
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1129 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	1130 }
1583 430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1131 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1132
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1133 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	1134 {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1135 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	1136 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	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 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	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_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	1143 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1144
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1145 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	1146 {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1147 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	1148 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	1149 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1150
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1151 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	1152 {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1153 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	1154 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	1155 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1156
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1157 uint16_t scancode_map[0x90] = {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1158 [0x1C] = 0x0004,//A
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1159 [0x32] = 0x4008,//B
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1160 [0x21] = 0x2008,//C
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1161 [0x23] = 0x2004,//D
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1162 [0x24] = 0x2002,//E
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1163 [0x2B] = 0x3004,//F
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1164 [0x34] = 0x4004,//G
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1165 [0x33] = 0x5004,//H
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1166 [0x43] = 0x0080,//I
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1167 [0x3B] = 0x6004,//J
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1168 [0x42] = 0x0040,//K
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1169 [0x4B] = 0x1040,//L
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1170 [0x3A] = 0x6008,//M
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1171 [0x31] = 0x5008,//N
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1172 [0x44] = 0x1080,//O
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1173 [0x4D] = 0x2080,//P
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1174 [0x15] = 0x0002,//Q
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1175 [0x2D] = 0x3002,//R
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1176 [0x1B] = 0x1004,//S
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1177 [0x2C] = 0x4002,//T
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1178 [0x3C] = 0x6002,//U
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1179 [0x2A] = 0x3008,//V
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1180 [0x1D] = 0x1002,//W
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1181 [0x22] = 0x1008,//X
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1182 [0x35] = 0x5002,//Y
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1183 [0x1A] = 0x0008,//Z
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1184 [0x16] = 0x0001,//1
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1185 [0x1E] = 0x1001,//2
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1186 [0x26] = 0x2001,//3
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1187 [0x25] = 0x3001,//4
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1188 [0x2E] = 0x4001,//5
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1189 [0x36] = 0x5001,//6
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1190 [0x3D] = 0x6001,//7
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1191 [0x3E] = 0x0100,//8
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1192 [0x46] = 0x1100,//9
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1193 [0x45] = 0x2100,//0
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1194 [0x5A] = 0x5040,//return
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1195 [0x29] = 0x1010,//space
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1196 [0x0D] = 0x5800,//tab mapped to FUNC
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1197 [0x66] = 0x3010,//backspace mapped to INS/DEL
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1198 [0x4E] = 0x3100,// -
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1199 [0x55] = 0x4100,// = mapped to ^ based on position
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1200 [0x54] = 0x4080,// [
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1201 [0x5B] = 0x4040,// ]
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1202 [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	1203 [0x4C] = 0x2040,// ;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1204 [0x52] = 0x3040,// ' mapped to : based on position
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1205 [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	1206 [0x41] = 0x0020,// ,
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1207 [0x49] = 0x1020,// .
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1208 [0x4A] = 0x2020,// /
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1209 [0x14] = 0x6400,//lctrl mapped to ctrl
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1210 //rctrl is default keybind for toggle keyboard capture
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1211 //[0x18] = 0x6400,//rctrl mapped to ctrl
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1212 [0x12] = 0x6800,//lshift mapped to shift
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1213 [0x59] = 0x6800,//lshift mapped to shift
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1214 [0x11] = 0x6200,//lalt mapped to GRAPH
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1215 [0x17] = 0x6200,//ralt mapped to GRAPH
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1216 [0x81] = 0x0010,//insert mapped to kana/dieresis key
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1217 [0x86] = 0x5020,//left arrow
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1218 [0x87] = 0x2010,//home mapped to HOME/CLR
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1219 [0x88] = 0x6100,//end mapped to BREAK
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1220 [0x89] = 0x6040,//up arrow
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1221 [0x8A] = 0x4020,//down arrow
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1222 [0x8D] = 0x6020,//right arrow
2532 f4a471730ba4 Implement clipboard paste for SC-3000 Michael Pavone <pavone@retrodev.com> parents: 2529 diff changeset	1223 [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	1224 };
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1225
1583 430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1226 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	1227 {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1228 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	1229 io_keyboard_down(&sms->io, scancode);
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1230 if (sms->keystate && scancode < 0x90 && scancode_map[scancode]) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1231 uint16_t row = scancode_map[scancode] >> 12;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1232 sms->keystate[row] &= ~(scancode_map[scancode] & 0xFFF);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1233 }
1583 430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1234 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1235
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1236 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	1237 {
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1238 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	1239 io_keyboard_up(&sms->io, scancode);
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1240 if (sms->keystate && scancode < 0x90 && scancode_map[scancode]) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1241 uint16_t row = scancode_map[scancode] >> 12;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1242 sms->keystate[row] \|= scancode_map[scancode] & 0xFFF;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1243 }
1583 430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1244 }
430dd12e4010 Refactor to split device bindings from IO emulation code Michael Pavone <pavone@retrodev.com> parents: 1555 diff changeset	1245
1796 51417bb557b6 Configurable gain for overall output and individual components Michael Pavone <pavone@retrodev.com> parents: 1759 diff changeset	1246 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	1247 {
51417bb557b6 Configurable gain for overall output and individual components Michael Pavone <pavone@retrodev.com> parents: 1759 diff changeset	1248 char *config_gain;
51417bb557b6 Configurable gain for overall output and individual components Michael Pavone <pavone@retrodev.com> parents: 1759 diff changeset	1249 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	1250 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	1251 }
51417bb557b6 Configurable gain for overall output and individual components Michael Pavone <pavone@retrodev.com> parents: 1759 diff changeset	1252
1595 360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1253 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	1254 {
1595 360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1255 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	1256 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	1257 //sample rate may have changed
03e6ac327ba0 Handle changes to sample rate while content is running Michael Pavone <pavone@retrodev.com> parents: 2325 diff changeset	1258 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	1259 }
360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1260
2243 0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1261 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	1262 {
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2293 diff changeset	1263 #ifndef IS_LIB
2243 0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1264 sms_context sms = (sms_context )system;
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1265 if (debug_view < DEBUG_OSCILLOSCOPE) {
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1266 vdp_toggle_debug_view(sms->vdp, debug_view);
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1267 } else if (debug_view == DEBUG_OSCILLOSCOPE) {
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1268 if (sms->psg->scope) {
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1269 oscilloscope *scope = sms->psg->scope;
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1270 sms->psg->scope = NULL;
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1271 scope_close(scope);
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1272 } else {
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1273 oscilloscope *scope = create_oscilloscope();
2256 cbe1ba70c247 Fix build after scope clock fix Michael Pavone <pavone@retrodev.com> parents: 2243 diff changeset	1274 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	1275 }
0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1276 }
2302 0343f0d5add0 Fix libretro build for real Michael Pavone <pavone@retrodev.com> parents: 2293 diff changeset	1277 #endif
2243 0d1d5dccdd28 Initial implementation of oscilloscope debug view Michael Pavone <pavone@retrodev.com> parents: 2202 diff changeset	1278 }
1595 360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1279
2528 90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1280 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	1281 {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1282 sms->cassette = NULL;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1283 sms->cassette_state = TAPE_NONE;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1284 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	1285 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	1286 return;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1287 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1288 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	1289 return;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1290 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1291 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	1292 return;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1293 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1294 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	1295 return;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1296 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1297 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	1298 return;
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 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	1301 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	1302 return;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1303 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1304 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	1305 sms->cassette_state = TAPE_STOPPED;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1306 sms->cassette_offset = data_sub_chunk;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1307 sms->cassette = media;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1308 }
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1309
2525 1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1310 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	1311 {
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1312 sms_context sms = (sms_context )system;
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1313 //TODO: 50 Hz support
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1314 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	1315 if (vgm) {
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1316 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	1317 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	1318 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	1319 sms->header.vgm_logging = 1;
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1320 } else {
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1321 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	1322 }
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1323 }
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1324
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1325 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	1326 {
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1327 puts("Stopped VGM log");
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1328 sms_context sms = (sms_context )system;
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1329 vgm_close(sms->psg->vgm);
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1330 sms->psg->vgm = NULL;
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1331 sms->header.vgm_logging = 0;
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1332 }
1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1333
1595 360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1334 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	1335 {
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	1336 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	1337 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	1338 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	1339 {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	1340 };
2320 8016dbb0fcde Initial work on ROM DB support for SMS/GG games Michael Pavone <pavone@retrodev.com> parents: 2302 diff changeset	1341 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	1342 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	1343 z80_options *zopts = malloc(sizeof(z80_options));
2257 1e626d0ecf9c WIP SG-1000/TMS9918A mode support Michael Pavone <pavone@retrodev.com> parents: 2256 diff changeset	1344 tern_node *model_def;
2202 ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1345 uint8_t is_gamegear = !strcasecmp(media->extension, "gg");
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1346 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	1347 if (is_gamegear) {
1e626d0ecf9c WIP SG-1000/TMS9918A mode support Michael Pavone <pavone@retrodev.com> parents: 2256 diff changeset	1348 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	1349 } else if (!strcasecmp(media->extension, "sg")) {
1e626d0ecf9c WIP SG-1000/TMS9918A mode support Michael Pavone <pavone@retrodev.com> parents: 2256 diff changeset	1350 model_def = tern_find_node(get_systems_config(), "sg1000");
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1351 } else if (is_sc3000) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1352 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	1353 } else {
1e626d0ecf9c WIP SG-1000/TMS9918A mode support Michael Pavone <pavone@retrodev.com> parents: 2256 diff changeset	1354 model_def = get_model(config, SYSTEM_SMS);
1e626d0ecf9c WIP SG-1000/TMS9918A mode support Michael Pavone <pavone@retrodev.com> parents: 2256 diff changeset	1355 }
2202 ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1356 char *vdp_str = tern_find_ptr(model_def, "vdp");
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1357 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	1358 if (vdp_str) {
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1359 if (!strcmp(vdp_str, "sms1")) {
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1360 vdp_type = VDP_SMS;
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1361 } 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	1362 vdp_type = VDP_SMS2;
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1363 } 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	1364 vdp_type = VDP_TMS9918A;
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1365 } 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	1366 vdp_type = VDP_GAMEGEAR;
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1367 } 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	1368 vdp_type = VDP_GENESIS;
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1369 } else {
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1370 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	1371 }
ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1372 }
2321 2eda5f81f91e More fully baked ROM db support for SMS Michael Pavone <pavone@retrodev.com> parents: 2320 diff changeset	1373 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	1374 {
2eda5f81f91e More fully baked ROM db support for SMS Michael Pavone <pavone@retrodev.com> parents: 2320 diff changeset	1375 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	1376 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	1377 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	1378 }
2eda5f81f91e More fully baked ROM db support for SMS Michael Pavone <pavone@retrodev.com> parents: 2320 diff changeset	1379 }
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1380 char *io_type = tern_find_ptr(model_def, "io");
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1381 if (io_type) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1382 if (!strcmp(io_type, "gamegear")) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1383 is_gamegear = 1;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1384 is_sc3000 = 0;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1385 } else if (!strcmp(io_type, "i8255")) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1386 is_gamegear = 0;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1387 is_sc3000 = 1;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1388 }
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1389 }
2202 ee6d30c56eeb Add separate model/IO selection settings for SMS/GG Michael Pavone <pavone@retrodev.com> parents: 2200 diff changeset	1390 if (is_gamegear) {
2195 40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1391 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	1392 sms->start_button_region = 0xC0;
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1393 } else if (is_sc3000) {
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1394 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	1395 for (int i = 0; i < 7; i++)
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1396 {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1397 sms->keystate[i] = 0xFFF;
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1398 }
2521 8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1399 sms->i8255 = calloc(1, sizeof(i8255));
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1400 i8255_init(sms->i8255, i8255_output_updated, i8255_input_poll);
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1401 sms->i8255->system = sms;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1402 sms->kb_mux = 7;
8cf7cadc17ee Initial SC-3000 support Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	1403 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	1404 } else {
40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1405 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	1406 }
2528 90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1407 if (is_sc3000 && media->chain) {
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1408 load_cassette(sms, media->chain);
90a40be940f7 Implement read-only SC-3000 cassette support Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1409 }
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	1410 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	1411 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	1412 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	1413
1201 aee2177a1630 Use filename for game title in SMS mode Michael Pavone <pavone@retrodev.com> parents: 1184 diff changeset	1414 sms->rom = media->buffer;
1141 7e199bebde2f Initial support for Sega's family of SMS mappers Michael Pavone <pavone@retrodev.com> parents: 1130 diff changeset	1415 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	1416 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	1417 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	1418 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	1419 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	1420 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	1421 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	1422 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	1423 }
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	1424
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	1425 //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	1426 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	1427
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	1428 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	1429 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	1430
1796 51417bb557b6 Configurable gain for overall output and individual components Michael Pavone <pavone@retrodev.com> parents: 1759 diff changeset	1431 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	1432
2195 40290a923886 Implement Game Gear start button and region register Michael Pavone <pavone@retrodev.com> parents: 2194 diff changeset	1433 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	1434 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	1435
1595 360d5bab199f Update controller config when changed in UI without restart Michael Pavone <pavone@retrodev.com> parents: 1583 diff changeset	1436 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	1437 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	1438
2293 3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1439 tern_node *io_config_root = config;
3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1440 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	1441 if (sms_root) {
3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1442 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	1443 if (io) {
3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1444 io_config_root = sms_root;
3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1445 }
3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1446 }
3e0d463eb9b3 Actually use SMS specific controller config Michael Pavone <pavone@retrodev.com> parents: 2257 diff changeset	1447 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	1448 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	1449
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	1450 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	1451 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	1452 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	1453 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	1454 sms->header.persist_save = persist_save;
1433 c886c54d8cf1 Added save states to SMS emulation Michael Pavone <pavone@retrodev.com> parents: 1401 diff changeset	1455 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	1456 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	1457 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	1458 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	1459 sms->header.soft_reset = soft_reset;
1120 e9369d6f0101 Somewhat broken implementation of Mode 4 Michael Pavone <pavone@retrodev.com> parents: 1119 diff changeset	1460 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	1461 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	1462 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	1463 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	1464 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	1465 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	1466 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	1467 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	1468 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	1469 sms->header.config_updated = config_updated;
1690 319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	1470 sms->header.serialize = serialize;
319d90025d50 Implement serialization/deserialization in libretro build Mike Pavone <pavone@retrodev.com> parents: 1688 diff changeset	1471 sms->header.deserialize = deserialize;
2525 1843adbe9899 Support VGM logging for Sega 8-bit systems Michael Pavone <pavone@retrodev.com> parents: 2521 diff changeset	1472 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	1473 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	1474 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	1475 sms->header.cassette_action = cassette_action;
1377 e587f16e7d3d Implemented SMS pause button Michael Pavone <pavone@retrodev.com> parents: 1371 diff changeset	1476 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	1477
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	1478 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	1479 }

Mercurial > repos > blastem

annotate sms.c @ 2537:da4f297d9581