amalgamation
[picodrive.git] / Pico / cd / Area.c
index 9b67861..ea4220e 100644 (file)
@@ -1,9 +1,5 @@
-// This is part of Pico Library
-
-// (c) Copyright 2006 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;
 
+void (*PicoStateProgressCB)(const char *str) = 0;
+
 
 typedef enum {
        CHUNK_M68K = 1,
        CHUNK_RAM,
        CHUNK_VRAM,
        CHUNK_ZRAM,
-       CHUNK_CRAM,
+       CHUNK_CRAM,     // 5
        CHUNK_VSRAM,
        CHUNK_MISC,
        CHUNK_VIDEO,
        CHUNK_Z80,
-       CHUNK_PSG,
+       CHUNK_PSG,      // 10
        CHUNK_FM,
        // CD stuff
+       CHUNK_S68K,
+       CHUNK_PRG_RAM,
+       CHUNK_WORD_RAM,
+       CHUNK_PCM_RAM,  // 15
+       CHUNK_BRAM,
+       CHUNK_GA_REGS,
+       CHUNK_PCM,
+       CHUNK_CDC,
+       CHUNK_CDD,      // 20
+       CHUNK_SCD,
+       CHUNK_RC,
+       CHUNK_MISC_CD,
 } chunk_name_e;
 
 
+static char *chunk_names[] = {
+       "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;
@@ -43,12 +81,14 @@ static int write_chunk(chunk_name_e name, int len, void *data, void *file)
 
 
 #define CHECKED_WRITE(name,len,data) \
+       if (PicoStateProgressCB) PicoStateProgressCB(chunk_names[name]); \
        if (!write_chunk(name, len, data, file)) return 1;
 
 #define CHECKED_WRITE_BUFF(name,buff) \
+       if (PicoStateProgressCB) 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();
@@ -76,33 +116,59 @@ int PicoCdSaveState(void *file)
        if(PicoOpt&1)
                CHECKED_WRITE(CHUNK_FM, 0x200+4, ym2612_regs);
 
-       // TODO: cd stuff
+       if (PicoMCD & 1)
+       {
+               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_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_PCM,      Pico_mcd->pcm);
+               CHECKED_WRITE_BUFF(CHUNK_CDD,      Pico_mcd->cdd);
+               CHECKED_WRITE_BUFF(CHUNK_CDC,      Pico_mcd->cdc);
+               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);
+       }
 
        return 0;
 }
 
 static int g_read_offs = 0;
 
-#define CHECKED_READ(len,data) \
-       if (areaRead(data, 1, len, file) != len) { \
-               g_read_offs += len; \
-               printf("areaRead: premature EOF\n"); \
-               return 0; \
-       }
-
 #define R_ERROR_RETURN(error) \
 { \
        printf("PicoCdLoadState @ %x: " error "\n", g_read_offs); \
        return 1; \
 }
 
+// when is eof really set?
+#define CHECKED_READ(len,data) \
+       if (areaRead(data, 1, len, file) != len) { \
+               if (len == 1 && areaEof(file)) return 0; \
+               R_ERROR_RETURN("areaRead: premature EOF\n"); \
+               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)
 
 #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;
@@ -117,7 +183,8 @@ int PicoCdLoadState(void *file)
        {
                CHECKED_READ(1, buff);
                CHECKED_READ(4, &len);
-               if (len < 0 || len > 1024*256) R_ERROR_RETURN("bad length");
+               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?");
 
                switch (buff[0])
                {
@@ -143,9 +210,79 @@ int PicoCdLoadState(void *file)
                                CHECKED_READ2(0x200+4, ym2612_regs);
                                YM2612PicoStateLoad();
                                break;
+
+                       // cd stuff
+                       case CHUNK_S68K:
+                               CHECKED_READ_BUFF(buff);
+                               PicoAreaUnpackCpu(buff, 1);
+                               break;
+
+                       case CHUNK_PRG_RAM:     CHECKED_READ_BUFF(Pico_mcd->prg_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_PCM:         CHECKED_READ_BUFF(Pico_mcd->pcm); break;
+                       case CHUNK_CDD:         CHECKED_READ_BUFF(Pico_mcd->cdd); 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;
+
+                       default:
+                               printf("PicoCdLoadState: skipping unknown chunk %i of size %i\n", buff[0], len);
+                               areaSeek(file, len, SEEK_CUR);
+                               break;
                }
        }
 
+       /* after load events */
+       if (Pico_mcd->s68k_regs[3]&4) // 1M mode?
+               wram_2M_to_1M(Pico_mcd->word_ram2M);
+#ifdef _ASM_CD_MEMORY_C
+       PicoMemResetCD(Pico_mcd->s68k_regs[3]);
+       if (Pico_mcd->s68k_regs[3]&4)
+               PicoMemResetCDdecode(Pico_mcd->s68k_regs[3]);
+#endif
+       if (Pico_mcd->m.audio_track > 0 && Pico_mcd->m.audio_track < Pico_mcd->TOC.Last_Track)
+               mp3_start_play(Pico_mcd->TOC.Tracks[Pico_mcd->m.audio_track].F, Pico_mcd->m.audio_offset);
+       // 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(buff, "PicoSMCD", 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 && !(PicoMCD & 1)) 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:
+                               areaSeek(file, len, SEEK_CUR);
+                               break;
+               }
+       }
+
+       return 0;
+}
+
+