-// This is part of Pico Library
-
-// (c) Copyright 2007 notaz, All rights reserved.
-// Free for non-commercial use.
-
-// For commercial use, separate licencing terms must be obtained.
+// Savestate handling for emulated Sega/Mega CD machine.
+// (c) Copyright 2007, Grazvydas "notaz" Ignotas
#include "../PicoInt.h"
// sn76496
extern int *sn76496_regs;
+carthw_state_chunk *carthw_chunks;
+void (*PicoStateProgressCB)(const char *str) = 0;
+
typedef enum {
CHUNK_M68K = 1,
CHUNK_SCD,
CHUNK_RC,
CHUNK_MISC_CD,
+ CHUNK_DEFAULT_COUNT
+ // CHUNK_CARTHW = 64, // defined in PicoInt
} chunk_name_e;
+static char *chunk_names[] = {
+ "INVALID!",
+ "Saving.. M68K state",
+ "Saving.. RAM",
+ "Saving.. VRAM",
+ "Saving.. ZRAM",
+ "Saving.. CRAM", // 5
+ "Saving.. VSRAM",
+ "Saving.. emu state",
+ "Saving.. VIDEO",
+ "Saving.. Z80 state",
+ "Saving.. PSG", // 10
+ "Saving.. FM",
+ // CD stuff
+ "Saving.. S68K state",
+ "Saving.. PRG_RAM",
+ "Saving.. WORD_RAM",
+ "Saving.. PCM_RAM", // 15
+ "Saving.. BRAM",
+ "Saving.. GATE ARRAY regs",
+ "Saving.. PCM state",
+ "Saving.. CDC",
+ "Saving.. CDD", // 20
+ "Saving.. SCD",
+ "Saving.. GFX chip",
+ "Saving.. MCD state",
+};
+
+
static int write_chunk(chunk_name_e name, int len, void *data, void *file)
{
size_t bwritten = 0;
}
-#define CHECKED_WRITE(name,len,data) \
- if (!write_chunk(name, len, data, file)) return 1;
+#define CHECKED_WRITE(name,len,data) { \
+ if (PicoStateProgressCB && name < CHUNK_DEFAULT_COUNT) \
+ PicoStateProgressCB(chunk_names[name]); \
+ if (!write_chunk(name, len, data, file)) return 1; \
+}
-#define CHECKED_WRITE_BUFF(name,buff) \
- if (!write_chunk(name, sizeof(buff), &buff, file)) return 1;
+#define CHECKED_WRITE_BUFF(name,buff) { \
+ if (PicoStateProgressCB && name < CHUNK_DEFAULT_COUNT) \
+ PicoStateProgressCB(chunk_names[name]); \
+ if (!write_chunk(name, sizeof(buff), &buff, file)) return 1; \
+}
-int PicoCdSaveState(void *file)
+PICO_INTERNAL int PicoCdSaveState(void *file)
{
unsigned char buff[0x60];
void *ym2612_regs = YM2612GetRegs();
- areaWrite("PicoSMCD", 1, 8, file);
+ areaWrite("PicoSEXT", 1, 8, file);
areaWrite(&PicoVer, 1, 4, file);
memset(buff, 0, sizeof(buff));
CHECKED_WRITE_BUFF(CHUNK_VSRAM, Pico.vsram);
CHECKED_WRITE_BUFF(CHUNK_MISC, Pico.m);
CHECKED_WRITE_BUFF(CHUNK_VIDEO, Pico.video);
- if(PicoOpt&7) {
+ if (PicoOpt&7) {
memset(buff, 0, sizeof(buff));
z80_pack(buff);
CHECKED_WRITE_BUFF(CHUNK_Z80, buff);
}
- if(PicoOpt&3)
+ if (PicoOpt&3)
CHECKED_WRITE(CHUNK_PSG, 28*4, sn76496_regs);
- if(PicoOpt&1)
+ if (PicoOpt&1) {
+ ym2612_pack_state();
CHECKED_WRITE(CHUNK_FM, 0x200+4, ym2612_regs);
+ }
- // TODO: cd stuff
- if (PicoMCD & 1)
+ if (PicoAHW & PAHW_MCD)
{
- Pico_mcd->m.audio_offset = mp3_get_offset();
memset(buff, 0, sizeof(buff));
PicoAreaPackCpu(buff, 1);
+ if (Pico_mcd->s68k_regs[3]&4) // 1M mode?
+ wram_1M_to_2M(Pico_mcd->word_ram2M);
+ Pico_mcd->m.hint_vector = *(unsigned short *)(Pico_mcd->bios + 0x72);
CHECKED_WRITE_BUFF(CHUNK_S68K, buff);
CHECKED_WRITE_BUFF(CHUNK_PRG_RAM, Pico_mcd->prg_ram);
- CHECKED_WRITE_BUFF(CHUNK_WORD_RAM, Pico_mcd->word_ram); // in 2M format
+ CHECKED_WRITE_BUFF(CHUNK_WORD_RAM, Pico_mcd->word_ram2M); // in 2M format
CHECKED_WRITE_BUFF(CHUNK_PCM_RAM, Pico_mcd->pcm_ram);
CHECKED_WRITE_BUFF(CHUNK_BRAM, Pico_mcd->bram);
CHECKED_WRITE_BUFF(CHUNK_GA_REGS, Pico_mcd->s68k_regs); // GA regs, not CPU regs
CHECKED_WRITE_BUFF(CHUNK_SCD, Pico_mcd->scd);
CHECKED_WRITE_BUFF(CHUNK_RC, Pico_mcd->rot_comp);
CHECKED_WRITE_BUFF(CHUNK_MISC_CD, Pico_mcd->m);
+
+ if (Pico_mcd->s68k_regs[3]&4) // convert back
+ wram_2M_to_1M(Pico_mcd->word_ram2M);
+ }
+
+ if (carthw_chunks != NULL)
+ {
+ carthw_state_chunk *chwc;
+ if (PicoStateProgressCB)
+ PicoStateProgressCB("Saving.. cart hw state");
+ for (chwc = carthw_chunks; chwc->ptr != NULL; chwc++)
+ CHECKED_WRITE(chwc->chunk, chwc->size, chwc->ptr);
}
return 0;
#define R_ERROR_RETURN(error) \
{ \
- printf("PicoCdLoadState @ %x: " error "\n", g_read_offs); \
+ elprintf(EL_STATUS, "PicoCdLoadState @ %x: " error, g_read_offs); \
return 1; \
}
g_read_offs += len;
#define CHECKED_READ2(len2,data) \
- if (len2 != len) R_ERROR_RETURN("unexpected len, wanted " #len2); \
- CHECKED_READ(len2, data)
+ if (len2 != len) { \
+ elprintf(EL_STATUS, "unexpected len %i, wanted %i (%s)", len, len2, #len2); \
+ if (len > len2) R_ERROR_RETURN("failed."); \
+ /* else read anyway and hope for the best.. */ \
+ } \
+ CHECKED_READ(len, data)
#define CHECKED_READ_BUFF(buff) CHECKED_READ2(sizeof(buff), &buff);
-int PicoCdLoadState(void *file)
+PICO_INTERNAL int PicoCdLoadState(void *file)
{
unsigned char buff[0x60];
int ver, len;
g_read_offs = 0;
CHECKED_READ(8, buff);
- if (strncmp((char *)buff, "PicoSMCD", 8)) R_ERROR_RETURN("bad header");
+ if (strncmp((char *)buff, "PicoSMCD", 8) && strncmp((char *)buff, "PicoSEXT", 8))
+ R_ERROR_RETURN("bad header");
CHECKED_READ(4, &ver);
while (!areaEof(file))
CHECKED_READ(1, buff);
CHECKED_READ(4, &len);
if (len < 0 || len > 1024*512) R_ERROR_RETURN("bad length");
- if (buff[0] > CHUNK_FM && !(PicoMCD & 1)) R_ERROR_RETURN("cd chunk in non CD state?");
+ if (buff[0] > CHUNK_FM && buff[0] <= CHUNK_MISC_CD && !(PicoAHW & PAHW_MCD))
+ R_ERROR_RETURN("cd chunk in non CD state?");
switch (buff[0])
{
case CHUNK_PSG: CHECKED_READ2(28*4, sn76496_regs); break;
case CHUNK_FM:
CHECKED_READ2(0x200+4, ym2612_regs);
- YM2612PicoStateLoad();
+ ym2612_unpack_state();
break;
// cd stuff
break;
case CHUNK_PRG_RAM: CHECKED_READ_BUFF(Pico_mcd->prg_ram); break;
- case CHUNK_WORD_RAM: CHECKED_READ_BUFF(Pico_mcd->word_ram); break;
+ case CHUNK_WORD_RAM: CHECKED_READ_BUFF(Pico_mcd->word_ram2M); break;
case CHUNK_PCM_RAM: CHECKED_READ_BUFF(Pico_mcd->pcm_ram); break;
case CHUNK_BRAM: CHECKED_READ_BUFF(Pico_mcd->bram); break;
case CHUNK_GA_REGS: CHECKED_READ_BUFF(Pico_mcd->s68k_regs); break;
case CHUNK_CDC: CHECKED_READ_BUFF(Pico_mcd->cdc); break;
case CHUNK_SCD: CHECKED_READ_BUFF(Pico_mcd->scd); break;
case CHUNK_RC: CHECKED_READ_BUFF(Pico_mcd->rot_comp); break;
+ case CHUNK_MISC_CD: CHECKED_READ_BUFF(Pico_mcd->m); break;
- case CHUNK_MISC_CD:
- CHECKED_READ_BUFF(Pico_mcd->m);
- mp3_start_play(Pico_mcd->TOC.Tracks[Pico_mcd->m.audio_track].F, Pico_mcd->m.audio_offset);
+ default:
+ if (carthw_chunks != NULL)
+ {
+ carthw_state_chunk *chwc;
+ for (chwc = carthw_chunks; chwc->ptr != NULL; chwc++) {
+ if (chwc->chunk == buff[0]) {
+ CHECKED_READ2(chwc->size, chwc->ptr);
+ goto breakswitch;
+ }
+ }
+ }
+ elprintf(EL_STATUS, "PicoCdLoadState: skipping unknown chunk %i of size %i", buff[0], len);
+ areaSeek(file, len, SEEK_CUR);
break;
+ }
+ breakswitch:;
+ }
+ if (PicoAHW & PAHW_MCD)
+ {
+ /* after load events */
+ if (Pico_mcd->s68k_regs[3]&4) // 1M mode?
+ wram_2M_to_1M(Pico_mcd->word_ram2M);
+ PicoMemResetCD(Pico_mcd->s68k_regs[3]);
+#ifdef _ASM_CD_MEMORY_C
+ if (Pico_mcd->s68k_regs[3]&4)
+ PicoMemResetCDdecode(Pico_mcd->s68k_regs[3]);
+#endif
+ if (!(Pico_mcd->s68k_regs[0x36] & 1) && (Pico_mcd->scd.Status_CDC & 1))
+ cdda_start_play();
+ // restore hint vector
+ *(unsigned short *)(Pico_mcd->bios + 0x72) = Pico_mcd->m.hint_vector;
+ }
+
+ return 0;
+}
+
+
+int PicoCdLoadStateGfx(void *file)
+{
+ int ver, len, found = 0;
+ char buff[8];
+
+ g_read_offs = 0;
+ CHECKED_READ(8, buff);
+ if (strncmp((char *)buff, "PicoSMCD", 8) && strncmp((char *)buff, "PicoSEXT", 8))
+ R_ERROR_RETURN("bad header");
+ CHECKED_READ(4, &ver);
+
+ while (!areaEof(file) && found < 4)
+ {
+ CHECKED_READ(1, buff);
+ CHECKED_READ(4, &len);
+ if (len < 0 || len > 1024*512) R_ERROR_RETURN("bad length");
+ if (buff[0] > CHUNK_FM && buff[0] <= CHUNK_MISC_CD && !(PicoAHW & PAHW_MCD))
+ R_ERROR_RETURN("cd chunk in non CD state?");
+
+ switch (buff[0])
+ {
+ case CHUNK_VRAM: CHECKED_READ_BUFF(Pico.vram); found++; break;
+ case CHUNK_CRAM: CHECKED_READ_BUFF(Pico.cram); found++; break;
+ case CHUNK_VSRAM: CHECKED_READ_BUFF(Pico.vsram); found++; break;
+ case CHUNK_VIDEO: CHECKED_READ_BUFF(Pico.video); found++; break;
default:
- printf("skipping unknown chunk %i of size %i\n", buff[0], len);
areaSeek(file, len, SEEK_CUR);
break;
}
return 0;
}
+