repos/blastem: gst.c annotate

annotate gst.c @ 2688:b42f00a3a937 default tip

Fix default target. Ensure m68k.h and z80.h are built before anything else when no dep info is available

author	Michael Pavone <pavone@retrodev.com>
date	Mon, 31 Mar 2025 21:06:18 -0700
parents	d1f689ed3956
children

rev	line source
467 140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING Mike Pavone <pavone@retrodev.com> parents: 451 diff changeset	1 /*
140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING Mike Pavone <pavone@retrodev.com> parents: 451 diff changeset	2 Copyright 2013 Michael Pavone
668 5439ae7946ca Made the Z80 core more contained by refactoring some code in blastem.c into z80_to_x86.c Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	3 This file is part of BlastEm.
467 140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING Mike Pavone <pavone@retrodev.com> parents: 451 diff changeset	4 BlastEm is free software distributed under the terms of the GNU General Public License version 3 or greater. See COPYING for full license text.
140af5509ce7 Added copyright notice to source files and added GPL license text in COPYING Mike Pavone <pavone@retrodev.com> parents: 451 diff changeset	5 */
1103 22e87b739ad6 WIP split of ROM loading/argument parsing from Genesis emulation code. Compiles and doesn't crash, but nothing works. Still a few too many globals as well. Michael Pavone <pavone@retrodev.com> parents: 1077 diff changeset	6 #include "genesis.h"
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	7 #include "gst.h"
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	8 #include <string.h>
1103 22e87b739ad6 WIP split of ROM loading/argument parsing from Genesis emulation code. Compiles and doesn't crash, but nothing works. Still a few too many globals as well. Michael Pavone <pavone@retrodev.com> parents: 1077 diff changeset	9 #include <stdio.h>
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	10
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	11 #define GST_68K_REGS 0x80
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	12 #define GST_68K_REG_SIZE (0xDA-GST_68K_REGS)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	13 #define GST_68K_PC_OFFSET (0xC8-GST_68K_REGS)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	14 #define GST_68K_SR_OFFSET (0xD0-GST_68K_REGS)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	15 #define GST_68K_USP_OFFSET (0xD2-GST_68K_REGS)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	16 #define GST_68K_SSP_OFFSET (0xD6-GST_68K_REGS)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	17 #define GST_68K_RAM 0x2478
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	18 #define GST_Z80_REGS 0x404
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	19 #define GST_Z80_REG_SIZE (0x440-GST_Z80_REGS)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	20 #define GST_Z80_RAM 0x474
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	21 #define GST_VDP_REGS 0xFA
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	22 #define GST_VDP_MEM 0x12478
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	23 #define GST_YM_OFFSET 0x1E4
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	24 #define GST_YM_SIZE (0x3E4-GST_YM_OFFSET)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	25
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	26 uint32_t read_le_32(uint8_t * data)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	27 {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	28 return data[3] << 24 \| data[2] << 16 \| data[1] << 8 \| data[0];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	29 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	30
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	31 uint16_t read_le_16(uint8_t * data)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	32 {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	33 return data[1] << 8 \| data[0];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	34 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	35
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	36 uint16_t read_be_16(uint8_t * data)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	37 {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	38 return data[0] << 8 \| data[1];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	39 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	40
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	41 void write_le_32(uint8_t * dst, uint32_t val)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	42 {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	43 dst[0] = val;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	44 dst[1] = val >> 8;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	45 dst[2] = val >> 16;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	46 dst[3] = val >> 24;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	47 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	48
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	49 void write_le_16(uint8_t * dst, uint16_t val)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	50 {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	51 dst[0] = val;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	52 dst[1] = val >> 8;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	53 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	54
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	55 void write_be_32(uint8_t * dst, uint32_t val)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	56 {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	57 dst[0] = val >> 24;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	58 dst[1] = val >> 16;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	59 dst[2] = val >> 8;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	60 dst[3] = val;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	61 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	62
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	63 void write_be_16(uint8_t * dst, uint16_t val)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	64 {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	65 dst[0] = val >> 8;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	66 dst[1] = val;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	67 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	68
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	69 uint32_t m68k_load_gst(m68k_context * context, FILE * gstfile)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	70 {
962 f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	71 uint8_t buffer[GST_68K_REG_SIZE];
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	72 fseek(gstfile, GST_68K_REGS, SEEK_SET);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	73 if (fread(buffer, 1, GST_68K_REG_SIZE, gstfile) != GST_68K_REG_SIZE) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	74 fputs("Failed to read 68K registers from savestate\n", stderr);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	75 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	76 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	77 uint8_t * curpos = buffer;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	78 for (int i = 0; i < 8; i++) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	79 context->dregs[i] = read_le_32(curpos);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	80 curpos += sizeof(uint32_t);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	81 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	82 for (int i = 0; i < 8; i++) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	83 context->aregs[i] = read_le_32(curpos);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	84 curpos += sizeof(uint32_t);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	85 }
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	86 context->trace_pending = 0;
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	87 uint32_t pc = read_le_32(buffer + GST_68K_PC_OFFSET);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	88 uint16_t sr = read_le_16(buffer + GST_68K_SR_OFFSET);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	89 context->status = sr >> 8;
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2280 diff changeset	90 #ifdef NEW_CORE
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	91 context->pc = pc + 2;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	92 context->xflag = sr & 0x10;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	93 context->nflag = sr & 0x08;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	94 context->zflag = sr & 0x04;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	95 context->vflag = sr & 0x02;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	96 context->cflag = sr & 0x01;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	97 if (context->status & (1 << 5)) {
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	98 context->other_sp = read_le_32(buffer + GST_68K_USP_OFFSET);
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	99 } else {
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	100 context->other_sp = read_le_32(buffer + GST_68K_SSP_OFFSET);
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	101 }
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	102 context->prefetch = read_word(pc, (void**)context->mem_pointers, &context->opts->gen, context);
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	103 context->stopped = 0;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	104 context->int_priority = context->int_num = context->int_pending_num = 0;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	105 context->int_pending = 255;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	106 printf("m68k_load_gst pc: %X, prefetch: %X\n", context->pc, context->prefetch);
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2280 diff changeset	107 #else
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	108 for (int flag = 4; flag >= 0; flag--) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	109 context->flags[flag] = sr & 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	110 sr >>= 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	111 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	112 if (context->status & (1 << 5)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	113 context->aregs[8] = read_le_32(buffer + GST_68K_USP_OFFSET);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	114 } else {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	115 context->aregs[8] = read_le_32(buffer + GST_68K_SSP_OFFSET);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	116 }
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	117 #endif
2229 f699f9d500b4 Fix build Michael Pavone <pavone@retrodev.com> parents: 1906 diff changeset	118
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	119 return pc;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	120 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	121
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	122 uint8_t m68k_save_gst(m68k_context * context, uint32_t pc, FILE * gstfile)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	123 {
962 f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	124 uint8_t buffer[GST_68K_REG_SIZE];
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	125 uint8_t * curpos = buffer;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	126 for (int i = 0; i < 8; i++) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	127 write_le_32(curpos, context->dregs[i]);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	128 curpos += sizeof(uint32_t);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	129 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	130 for (int i = 0; i < 8; i++) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	131 write_le_32(curpos, context->aregs[i]);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	132 curpos += sizeof(uint32_t);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	133 }
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	134
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2280 diff changeset	135 #ifdef NEW_CORE
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	136 uint16_t sr = context->status << 8;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	137 pc = context->pc - 2;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	138 if (context->xflag) { sr \|= 0x10; }
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	139 if (context->nflag) { sr \|= 0x08; }
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	140 if (context->zflag) { sr \|= 0x04; }
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	141 if (context->vflag) { sr \|= 0x02; }
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	142 if (context->cflag) { sr \|= 0x1; }
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	143 if (context->status & (1 << 5)) {
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	144 write_le_32(buffer + GST_68K_USP_OFFSET, context->other_sp);
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	145 write_le_32(buffer + GST_68K_SSP_OFFSET, context->aregs[7]);
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	146 } else {
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	147 write_le_32(buffer + GST_68K_USP_OFFSET, context->aregs[7]);
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	148 write_le_32(buffer + GST_68K_SSP_OFFSET, context->other_sp);
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	149 }
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2280 diff changeset	150 #else
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	151 uint16_t sr = context->status << 3;
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	152 for (int flag = 4; flag >= 0; flag--) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	153 sr <<= 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	154 sr \|= context->flags[flag];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	155 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	156 if (context->status & (1 << 5)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	157 write_le_32(buffer + GST_68K_USP_OFFSET, context->aregs[8]);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	158 write_le_32(buffer + GST_68K_SSP_OFFSET, context->aregs[7]);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	159 } else {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	160 write_le_32(buffer + GST_68K_USP_OFFSET, context->aregs[7]);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	161 write_le_32(buffer + GST_68K_SSP_OFFSET, context->aregs[8]);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	162 }
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	163 #endif
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	164 write_le_32(buffer + GST_68K_PC_OFFSET, pc);
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	165 write_le_16(buffer + GST_68K_SR_OFFSET, sr);
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	166 fseek(gstfile, GST_68K_REGS, SEEK_SET);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	167 if (fwrite(buffer, 1, GST_68K_REG_SIZE, gstfile) != GST_68K_REG_SIZE) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	168 fputs("Failed to write 68K registers to savestate\n", stderr);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	169 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	170 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	171
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	172 return 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	173 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	174
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	175 uint8_t z80_load_gst(z80_context * context, FILE * gstfile)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	176 {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	177 uint8_t regdata[GST_Z80_REG_SIZE];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	178 fseek(gstfile, GST_Z80_REGS, SEEK_SET);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	179 if (fread(regdata, 1, sizeof(regdata), gstfile) != sizeof(regdata)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	180 fputs("Failed to read Z80 registers from savestate\n", stderr);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	181 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	182 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	183 uint8_t * curpos = regdata;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	184 uint8_t f = *(curpos++);
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	185 #ifdef NEW_CORE
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	186 context->main[6] = context->last_flag_result = f;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	187 context->chflags = ((f & 1) ? 0x80 : 0) \| ((f & 0x10) ? 8 : 0);
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	188 context->nflag = f & 2;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	189 context->pvflag = f & 4;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	190 context->zflag = f & 0x40;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	191 context->main[7] = *curpos;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	192 curpos += 3;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	193 for (int reg = 0; reg < 6; reg+=2) {
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	194 context->main[reg ^ 1] = *(curpos++);
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	195 context->main[reg] = *curpos;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	196 curpos += 3;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	197 }
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	198 context->ix = read_le_16(curpos);
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	199 curpos += 4;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	200 context->iy = read_le_16(curpos);
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	201 curpos += 4;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	202 #else
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	203 context->flags[ZF_C] = f & 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	204 f >>= 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	205 context->flags[ZF_N] = f & 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	206 f >>= 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	207 context->flags[ZF_PV] = f & 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	208 f >>= 2;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	209 context->flags[ZF_H] = f & 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	210 f >>= 2;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	211 context->flags[ZF_Z] = f & 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	212 f >>= 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	213 context->flags[ZF_S] = f;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	214
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	215 context->regs[Z80_A] = *curpos;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	216 curpos += 3;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	217 for (int reg = Z80_C; reg <= Z80_IYH; reg++) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	218 context->regs[reg++] = *(curpos++);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	219 context->regs[reg] = *curpos;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	220 curpos += 3;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	221 }
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	222 #endif
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	223 context->pc = read_le_16(curpos);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	224 curpos += 4;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	225 context->sp = read_le_16(curpos);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	226 curpos += 4;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	227 f = *(curpos++);
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	228 #ifdef NEW_CORE
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	229 context->alt[6] = f;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	230 context->alt[7] = *curpos;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	231 curpos += 3;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	232 for (int reg = 0; reg < 6; reg+=2) {
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	233 context->alt[reg ^ 1] = *(curpos++);
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	234 context->alt[reg] = *curpos;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	235 curpos += 3;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	236 }
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	237 context->i = *curpos;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	238 #else
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	239 context->alt_flags[ZF_C] = f & 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	240 f >>= 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	241 context->alt_flags[ZF_N] = f & 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	242 f >>= 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	243 context->alt_flags[ZF_PV] = f & 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	244 f >>= 2;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	245 context->alt_flags[ZF_H] = f & 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	246 f >>= 2;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	247 context->alt_flags[ZF_Z] = f & 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	248 f >>= 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	249 context->alt_flags[ZF_S] = f;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	250 context->alt_regs[Z80_A] = *curpos;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	251 curpos += 3;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	252 for (int reg = Z80_C; reg <= Z80_H; reg++) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	253 context->alt_regs[reg++] = *(curpos++);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	254 context->alt_regs[reg] = *curpos;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	255 curpos += 3;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	256 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	257 context->regs[Z80_I] = *curpos;
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	258 #endif
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	259 curpos += 2;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	260 context->iff1 = context->iff2 = *curpos;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	261 curpos += 2;
668 5439ae7946ca Made the Z80 core more contained by refactoring some code in blastem.c into z80_to_x86.c Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	262 context->reset = !*(curpos++);
5439ae7946ca Made the Z80 core more contained by refactoring some code in blastem.c into z80_to_x86.c Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	263 context->busreq = *curpos;
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	264 curpos += 3;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	265 uint32_t bank = read_le_32(curpos);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	266 if (bank < 0x400000) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	267 context->mem_pointers[1] = context->mem_pointers[2] + bank;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	268 } else {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	269 context->mem_pointers[1] = NULL;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	270 }
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	271 genesis_context *gen = context->system;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	272 gen->z80_bank_reg = bank >> 15;
962 f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	273 uint8_t buffer[Z80_RAM_BYTES];
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	274 fseek(gstfile, GST_Z80_RAM, SEEK_SET);
962 f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	275 if(fread(buffer, 1, sizeof(buffer), gstfile) != (8*1024)) {
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	276 fputs("Failed to read Z80 RAM from savestate\n", stderr);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	277 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	278 }
962 f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	279 for (int i = 0; i < Z80_RAM_BYTES; i++)
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	280 {
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	281 if (context->mem_pointers[0][i] != buffer[i]) {
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	282 context->mem_pointers[0][i] = buffer[i];
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1429 diff changeset	283 #ifndef NEW_CORE
962 f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	284 z80_handle_code_write(i, context);
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1429 diff changeset	285 #endif
962 f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	286 }
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	287 }
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1429 diff changeset	288 #ifndef NEW_CORE
1019 e34334e6c682 Fix GST savestate loading to deal with SAT cache to fix sprite corruption on savestate load. Clear out Z80 native_pc so the Z80 state does not get hosed when loading a savestate while the emulator is already running Michael Pavone <pavone@retrodev.com> parents: 962 diff changeset	289 context->native_pc = NULL;
1112 7ab7c8fb34ba Fix intermittent crash in GST savestate loading Michael Pavone <pavone@retrodev.com> parents: 1111 diff changeset	290 context->extra_pc = NULL;
1752 d6d4c006a7b3 Initial attempt at interrupts in new Z80 core and integrating it into main executable Michael Pavone <pavone@retrodev.com> parents: 1429 diff changeset	291 #endif
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	292 return 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	293 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	294
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	295 uint8_t vdp_load_gst(vdp_context * context, FILE * state_file)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	296 {
1019 e34334e6c682 Fix GST savestate loading to deal with SAT cache to fix sprite corruption on savestate load. Clear out Z80 native_pc so the Z80 state does not get hosed when loading a savestate while the emulator is already running Michael Pavone <pavone@retrodev.com> parents: 962 diff changeset	297 uint8_t tmp_buf[VRAM_SIZE];
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	298 fseek(state_file, GST_VDP_REGS, SEEK_SET);
1181 0928b68fef2a Update gst loader to deal with VDP changes Michael Pavone <pavone@retrodev.com> parents: 1120 diff changeset	299 if (fread(tmp_buf, 1, VDP_REGS, state_file) != VDP_REGS) {
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	300 fputs("Failed to read VDP registers from savestate\n", stderr);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	301 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	302 }
1181 0928b68fef2a Update gst loader to deal with VDP changes Michael Pavone <pavone@retrodev.com> parents: 1120 diff changeset	303 for (uint16_t i = 0; i < VDP_REGS; i++)
0928b68fef2a Update gst loader to deal with VDP changes Michael Pavone <pavone@retrodev.com> parents: 1120 diff changeset	304 {
2229 f699f9d500b4 Fix build Michael Pavone <pavone@retrodev.com> parents: 1906 diff changeset	305 vdp_control_port_write(context, 0x8000 \| (i << 8) \| tmp_buf[i], context->cycles);
1181 0928b68fef2a Update gst loader to deal with VDP changes Michael Pavone <pavone@retrodev.com> parents: 1120 diff changeset	306 }
1019 e34334e6c682 Fix GST savestate loading to deal with SAT cache to fix sprite corruption on savestate load. Clear out Z80 native_pc so the Z80 state does not get hosed when loading a savestate while the emulator is already running Michael Pavone <pavone@retrodev.com> parents: 962 diff changeset	307 if (fread(tmp_buf, 1, CRAM_SIZE2, state_file) != CRAM_SIZE2) {
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	308 fputs("Failed to read CRAM from savestate\n", stderr);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	309 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	310 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	311 for (int i = 0; i < CRAM_SIZE; i++) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	312 uint16_t value;
1429 7e67f8a37051 write_cram_internal takes a CRAM index, not a CRAM address Michael Pavone <pavone@retrodev.com> parents: 1428 diff changeset	313 write_cram_internal(context, i, (tmp_buf[i2+1] << 8) \| tmp_buf[i2]);
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	314 }
1906 2d462aa78349 Make VDP VSRAM capacity respect model selection Michael Pavone <pavone@retrodev.com> parents: 1752 diff changeset	315 if (fread(tmp_buf, 2, MIN_VSRAM_SIZE, state_file) != MIN_VSRAM_SIZE) {
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	316 fputs("Failed to read VSRAM from savestate\n", stderr);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	317 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	318 }
1906 2d462aa78349 Make VDP VSRAM capacity respect model selection Michael Pavone <pavone@retrodev.com> parents: 1752 diff changeset	319 for (int i = 0; i < MIN_VSRAM_SIZE; i++) {
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	320 context->vsram[i] = (tmp_buf[i2+1] << 8) \| tmp_buf[i2];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	321 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	322 fseek(state_file, GST_VDP_MEM, SEEK_SET);
1019 e34334e6c682 Fix GST savestate loading to deal with SAT cache to fix sprite corruption on savestate load. Clear out Z80 native_pc so the Z80 state does not get hosed when loading a savestate while the emulator is already running Michael Pavone <pavone@retrodev.com> parents: 962 diff changeset	323 if (fread(tmp_buf, 1, VRAM_SIZE, state_file) != VRAM_SIZE) {
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	324 fputs("Failed to read VRAM from savestate\n", stderr);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	325 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	326 }
1019 e34334e6c682 Fix GST savestate loading to deal with SAT cache to fix sprite corruption on savestate load. Clear out Z80 native_pc so the Z80 state does not get hosed when loading a savestate while the emulator is already running Michael Pavone <pavone@retrodev.com> parents: 962 diff changeset	327 for (int i = 0; i < VRAM_SIZE; i++) {
1333 69c25e1188e5 Small tweak to how SAT cache updates are done. Mostly fixes the rotating cube scene in Overdrive 2 Michael Pavone <pavone@retrodev.com> parents: 1325 diff changeset	328 context->vdpmem[i] = tmp_buf[i];
69c25e1188e5 Small tweak to how SAT cache updates are done. Mostly fixes the rotating cube scene in Overdrive 2 Michael Pavone <pavone@retrodev.com> parents: 1325 diff changeset	329 vdp_check_update_sat_byte(context, i, tmp_buf[i]);
1019 e34334e6c682 Fix GST savestate loading to deal with SAT cache to fix sprite corruption on savestate load. Clear out Z80 native_pc so the Z80 state does not get hosed when loading a savestate while the emulator is already running Michael Pavone <pavone@retrodev.com> parents: 962 diff changeset	330 }
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	331 return 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	332 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	333
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	334 uint8_t vdp_save_gst(vdp_context * context, FILE * outfile)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	335 {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	336 uint8_t tmp_buf[CRAM_SIZE*2];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	337 fseek(outfile, GST_VDP_REGS, SEEK_SET);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	338 if(fwrite(context->regs, 1, VDP_REGS, outfile) != VDP_REGS) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	339 fputs("Error writing VDP regs to savestate\n", stderr);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	340 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	341 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	342 for (int i = 0; i < CRAM_SIZE; i++)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	343 {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	344 tmp_buf[i*2] = context->cram[i];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	345 tmp_buf[i*2+1] = context->cram[i] >> 8;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	346 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	347 if (fwrite(tmp_buf, 1, sizeof(tmp_buf), outfile) != sizeof(tmp_buf)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	348 fputs("Error writing CRAM to savestate\n", stderr);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	349 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	350 }
1906 2d462aa78349 Make VDP VSRAM capacity respect model selection Michael Pavone <pavone@retrodev.com> parents: 1752 diff changeset	351 for (int i = 0; i < MIN_VSRAM_SIZE; i++)
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	352 {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	353 tmp_buf[i*2] = context->vsram[i];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	354 tmp_buf[i*2+1] = context->vsram[i] >> 8;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	355 }
1906 2d462aa78349 Make VDP VSRAM capacity respect model selection Michael Pavone <pavone@retrodev.com> parents: 1752 diff changeset	356 if (fwrite(tmp_buf, 2, MIN_VSRAM_SIZE, outfile) != MIN_VSRAM_SIZE) {
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	357 fputs("Error writing VSRAM to savestate\n", stderr);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	358 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	359 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	360 fseek(outfile, GST_VDP_MEM, SEEK_SET);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	361 if (fwrite(context->vdpmem, 1, VRAM_SIZE, outfile) != VRAM_SIZE) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	362 fputs("Error writing VRAM to savestate\n", stderr);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	363 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	364 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	365 return 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	366 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	367
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	368 uint8_t z80_save_gst(z80_context * context, FILE * gstfile)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	369 {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	370 uint8_t regdata[GST_Z80_REG_SIZE];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	371 uint8_t * curpos = regdata;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	372 memset(regdata, 0, sizeof(regdata));
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	373 #ifdef NEW_CORE
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	374 uint8_t f = context->last_flag_result;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	375 if (context->zflag) { f \|= 0x40; }
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	376 if (context->chflags & 8) { f \|= 0x10; }
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	377 if (context->pvflag) { f \|= 0x04; }
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	378 if (context->nflag) { f \|= 0x02; }
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	379 if (context->chflags & 0x80) { f \|= 0x01; }
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	380 *(curpos++) = f;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	381 *curpos = context->main[7];
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	382
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	383 curpos += 3;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	384 for (int reg = 0; reg < 6; reg+=2) {
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	385 *(curpos++) = context->main[reg^1];
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	386 *curpos = context->main[reg];
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	387 curpos += 3;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	388 }
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	389 write_le_16(curpos, context->ix);
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	390 curpos += 4;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	391 write_le_16(curpos, context->iy);
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	392 curpos += 4;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	393 #else
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	394 uint8_t f = context->flags[ZF_S];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	395 f <<= 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	396 f \|= context->flags[ZF_Z] ;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	397 f <<= 2;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	398 f \|= context->flags[ZF_H];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	399 f <<= 2;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	400 f \|= context->flags[ZF_PV];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	401 f <<= 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	402 f \|= context->flags[ZF_N];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	403 f <<= 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	404 f \|= context->flags[ZF_C];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	405 *(curpos++) = f;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	406 *curpos = context->regs[Z80_A];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	407
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	408 curpos += 3;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	409 for (int reg = Z80_C; reg <= Z80_IYH; reg++) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	410 *(curpos++) = context->regs[reg++];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	411 *curpos = context->regs[reg];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	412 curpos += 3;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	413 }
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	414 #endif
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	415 write_le_16(curpos, context->pc);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	416 curpos += 4;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	417 write_le_16(curpos, context->sp);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	418 curpos += 4;
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	419 #ifdef NEW_CORE
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	420 *(curpos++) = context->alt[6];
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	421 *curpos = context->alt[7];
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	422
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	423 curpos += 3;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	424 for (int reg = 0; reg < 6; reg+=2) {
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	425 *(curpos++) = context->alt[reg^1];
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	426 *curpos = context->alt[reg];
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	427 curpos += 3;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	428 }
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	429 *curpos = context->i;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	430 #else
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	431 f = context->alt_flags[ZF_S];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	432 f <<= 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	433 f \|= context->alt_flags[ZF_Z] ;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	434 f <<= 2;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	435 f \|= context->alt_flags[ZF_H];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	436 f <<= 2;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	437 f \|= context->alt_flags[ZF_PV];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	438 f <<= 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	439 f \|= context->alt_flags[ZF_N];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	440 f <<= 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	441 f \|= context->alt_flags[ZF_C];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	442 *(curpos++) = f;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	443 *curpos = context->alt_regs[Z80_A];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	444 curpos += 3;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	445 for (int reg = Z80_C; reg <= Z80_H; reg++) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	446 *(curpos++) = context->alt_regs[reg++];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	447 *curpos = context->alt_regs[reg];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	448 curpos += 3;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	449 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	450 *curpos = context->regs[Z80_I];
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	451 #endif
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	452 curpos += 2;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	453 *curpos = context->iff1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	454 curpos += 2;
668 5439ae7946ca Made the Z80 core more contained by refactoring some code in blastem.c into z80_to_x86.c Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	455 *(curpos++) = !context->reset;
5439ae7946ca Made the Z80 core more contained by refactoring some code in blastem.c into z80_to_x86.c Michael Pavone <pavone@retrodev.com> parents: 467 diff changeset	456 *curpos = context->busreq;
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	457 curpos += 3;
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	458 genesis_context *gen = context->system;
d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	459 uint32_t bank = gen->z80_bank_reg << 15;
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	460 write_le_32(curpos, bank);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	461 fseek(gstfile, GST_Z80_REGS, SEEK_SET);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	462 if (fwrite(regdata, 1, sizeof(regdata), gstfile) != sizeof(regdata)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	463 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	464 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	465 fseek(gstfile, GST_Z80_RAM, SEEK_SET);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	466 if(fwrite(context->mem_pointers[0], 1, 81024, gstfile) != (81024)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	467 fputs("Failed to write Z80 RAM to savestate\n", stderr);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	468 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	469 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	470 return 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	471 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	472
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	473 uint8_t ym_load_gst(ym2612_context * context, FILE * gstfile)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	474 {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	475 uint8_t regdata[GST_YM_SIZE];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	476 fseek(gstfile, GST_YM_OFFSET, SEEK_SET);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	477 if (fread(regdata, 1, sizeof(regdata), gstfile) != sizeof(regdata)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	478 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	479 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	480 for (int i = 0; i < sizeof(regdata); i++) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	481 if (i & 0x100) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	482 ym_address_write_part2(context, i & 0xFF);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	483 } else {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	484 ym_address_write_part1(context, i);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	485 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	486 ym_data_write(context, regdata[i]);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	487 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	488 return 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	489 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	490
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	491 uint8_t ym_save_gst(ym2612_context * context, FILE * gstfile)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	492 {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	493 uint8_t regdata[GST_YM_SIZE];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	494 for (int i = 0; i < sizeof(regdata); i++) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	495 if (i & 0x100) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	496 int reg = (i & 0xFF);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	497 if (reg >= YM_PART2_START && reg < YM_REG_END) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	498 regdata[i] = context->part2_regs[reg-YM_PART2_START];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	499 } else {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	500 regdata[i] = 0xFF;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	501 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	502 } else {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	503 if (i >= YM_PART1_START && i < YM_REG_END) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	504 regdata[i] = context->part1_regs[i-YM_PART1_START];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	505 } else {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	506 regdata[i] = 0xFF;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	507 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	508 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	509 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	510 fseek(gstfile, GST_YM_OFFSET, SEEK_SET);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	511 if (fwrite(regdata, 1, sizeof(regdata), gstfile) != sizeof(regdata)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	512 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	513 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	514 return 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	515 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	516
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2280 diff changeset	517 #ifndef NEW_CORE
2280 9ead0fe69d9b Implement savestate support for Sega CD Michael Pavone <pavone@retrodev.com> parents: 2229 diff changeset	518 #include "m68k_internal.h" //needed for get_native_address_trans, should be eliminated once handling of PC is cleaned up
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2280 diff changeset	519 #endif
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	520 uint32_t load_gst(genesis_context * gen, char * fname)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	521 {
962 f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	522 char buffer[4096];
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	523 FILE * gstfile = fopen(fname, "rb");
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	524 if (!gstfile) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	525 fprintf(stderr, "Could not open file %s for reading\n", fname);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	526 goto error;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	527 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	528 char ident[5];
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	529 if (fread(ident, 1, sizeof(ident), gstfile) != sizeof(ident)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	530 fprintf(stderr, "Could not read ident code from %s\n", fname);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	531 goto error_close;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	532 }
708 61faa298af07 Small horizontal interrupt fixes Michael Pavone <pavone@retrodev.com> parents: 668 diff changeset	533 if (memcmp(ident, "GST\x40\xE0", 3) != 0) {
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	534 fprintf(stderr, "%s doesn't appear to be a GST savestate. The ident code is %c%c%c\\x%X\\x%X instead of GST\\x40\\xE0.\n", fname, ident[0], ident[1], ident[2], ident[3], ident[4]);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	535 goto error_close;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	536 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	537 uint32_t pc = m68k_load_gst(gen->m68k, gstfile);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	538 if (!pc) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	539 goto error_close;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	540 }
2229 f699f9d500b4 Fix build Michael Pavone <pavone@retrodev.com> parents: 1906 diff changeset	541
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	542 if (!vdp_load_gst(gen->vdp, gstfile)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	543 goto error_close;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	544 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	545 if (!ym_load_gst(gen->ym, gstfile)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	546 goto error_close;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	547 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	548 if (!z80_load_gst(gen->z80, gstfile)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	549 goto error_close;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	550 }
1111 2eb54e24914e Mostly working changes to allow support for multiple emulated system types in main blastem program Michael Pavone <pavone@retrodev.com> parents: 1103 diff changeset	551 gen->io.ports[0].control = 0x40;
2eb54e24914e Mostly working changes to allow support for multiple emulated system types in main blastem program Michael Pavone <pavone@retrodev.com> parents: 1103 diff changeset	552 gen->io.ports[1].control = 0x40;
2229 f699f9d500b4 Fix build Michael Pavone <pavone@retrodev.com> parents: 1906 diff changeset	553
962 f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	554 fseek(gstfile, GST_68K_RAM, SEEK_SET);
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	555 for (int i = 0; i < (32*1024);) {
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	556 if (fread(buffer, 1, sizeof(buffer), gstfile) != sizeof(buffer)) {
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	557 fputs("Failed to read 68K RAM from savestate\n", stderr);
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	558 return 0;
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	559 }
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	560 for(char *curpos = buffer; curpos < (buffer + sizeof(buffer)); curpos += sizeof(uint16_t)) {
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	561 uint16_t word = read_be_16(curpos);
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	562 if (word != gen->work_ram[i]) {
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	563 gen->work_ram[i] = word;
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	564 m68k_handle_code_write(0xFF0000 \| (i << 1), gen->m68k);
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	565 }
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	566 i++;
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	567 }
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	568 }
2657 d1f689ed3956 Get GST savestates working with new CPU cores Michael Pavone <pavone@retrodev.com> parents: 2500 diff changeset	569 #ifndef NEW_CORE
2280 9ead0fe69d9b Implement savestate support for Sega CD Michael Pavone <pavone@retrodev.com> parents: 2229 diff changeset	570 gen->m68k->resume_pc = get_native_address_trans(gen->m68k, pc);
2500 d44fe974fb85 Get blastem compiling with new 68K core Michael Pavone <pavone@retrodev.com> parents: 2280 diff changeset	571 #endif
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	572 fclose(gstfile);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	573 return pc;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	574
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	575 error_close:
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	576 fclose(gstfile);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	577 error:
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	578 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	579 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	580
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	581 uint8_t save_gst(genesis_context * gen, char *fname, uint32_t m68k_pc)
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	582 {
962 f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	583 char buffer[4096];
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	584 FILE * gstfile = fopen(fname, "wb");
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	585 if (!gstfile) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	586 fprintf(stderr, "Could not open %s for writing\n", fname);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	587 goto error;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	588 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	589 if (fwrite("GST\x40\xE0", 1, 5, gstfile) != 5) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	590 fputs("Error writing signature to savestate\n", stderr);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	591 goto error_close;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	592 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	593 if (!m68k_save_gst(gen->m68k, m68k_pc, gstfile)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	594 goto error_close;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	595 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	596 if (!z80_save_gst(gen->z80, gstfile)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	597 goto error_close;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	598 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	599 if (!vdp_save_gst(gen->vdp, gstfile)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	600 goto error_close;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	601 }
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	602 if (!ym_save_gst(gen->ym, gstfile)) {
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	603 goto error_close;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	604 }
962 f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	605 fseek(gstfile, GST_68K_RAM, SEEK_SET);
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	606 for (int i = 0; i < (32*1024);) {
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	607 for(char *curpos = buffer; curpos < (buffer + sizeof(buffer)); curpos += sizeof(uint16_t)) {
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	608 write_be_16(curpos, gen->work_ram[i++]);
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	609 }
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	610 if (fwrite(buffer, 1, sizeof(buffer), gstfile) != sizeof(buffer)) {
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	611 fputs("Failed to write 68K RAM to savestate\n", stderr);
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	612 return 0;
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	613 }
f52cb02a1466 Fixed loading save states from menu Michael Pavone <pavone@retrodev.com> parents: 961 diff changeset	614 }
451 b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	615 return 1;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	616
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	617 error_close:
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	618 fclose(gstfile);
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	619 error:
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	620 return 0;
b7c3b2d22858 Added support for saving savestates. Added gst savestate format test harness Mike Pavone <pavone@retrodev.com> parents: diff changeset	621 }

Mercurial > repos > blastem

annotate gst.c @ 2688:b42f00a3a937 default tip