Pico/cd/Area.c

   1 // Savestate handling for emulated Sega/Mega CD machine.
   2 // (c) Copyright 2007, Grazvydas "notaz" Ignotas
   3
   4
   5 #include "../PicoInt.h"
   6
   7 // ym2612
   8 #include "../sound/ym2612.h"
   9
  10 // sn76496
  11 extern int *sn76496_regs;
  12
  13 void (*PicoStateProgressCB)(const char *str) = 0;
  14
  15
  16 typedef enum {
  17         CHUNK_M68K = 1,
  18         CHUNK_RAM,
  19         CHUNK_VRAM,
  20         CHUNK_ZRAM,
  21         CHUNK_CRAM,     // 5
  22         CHUNK_VSRAM,
  23         CHUNK_MISC,
  24         CHUNK_VIDEO,
  25         CHUNK_Z80,
  26         CHUNK_PSG,      // 10
  27         CHUNK_FM,
  28         // CD stuff
  29         CHUNK_S68K,
  30         CHUNK_PRG_RAM,
  31         CHUNK_WORD_RAM,
  32         CHUNK_PCM_RAM,  // 15
  33         CHUNK_BRAM,
  34         CHUNK_GA_REGS,
  35         CHUNK_PCM,
  36         CHUNK_CDC,
  37         CHUNK_CDD,      // 20
  38         CHUNK_SCD,
  39         CHUNK_RC,
  40         CHUNK_MISC_CD,
  41 } chunk_name_e;
  42
  43
  44 static char *chunk_names[] = {
  45         "INVALID!",
  46         "Saving.. M68K state",
  47         "Saving.. RAM",
  48         "Saving.. VRAM",
  49         "Saving.. ZRAM",
  50         "Saving.. CRAM",        // 5
  51         "Saving.. VSRAM",
  52         "Saving.. emu state",
  53         "Saving.. VIDEO",
  54         "Saving.. Z80 state",
  55         "Saving.. PSG",         // 10
  56         "Saving.. FM",
  57         // CD stuff
  58         "Saving.. S68K state",
  59         "Saving.. PRG_RAM",
  60         "Saving.. WORD_RAM",
  61         "Saving.. PCM_RAM",     // 15
  62         "Saving.. BRAM",
  63         "Saving.. GATE ARRAY regs",
  64         "Saving.. PCM state",
  65         "Saving.. CDC",
  66         "Saving.. CDD",         // 20
  67         "Saving.. SCD",
  68         "Saving.. GFX chip",
  69         "Saving.. MCD state",
  70 };
  71
  72
  73 static int write_chunk(chunk_name_e name, int len, void *data, void *file)
  74 {
  75         size_t bwritten = 0;
  76         bwritten += areaWrite(&name, 1, 1, file);
  77         bwritten += areaWrite(&len, 1, 4, file);
  78         bwritten += areaWrite(data, 1, len, file);
  79
  80         return (bwritten == len + 4 + 1);
  81 }
  82
  83
  84 #define CHECKED_WRITE(name,len,data) \
  85         if (PicoStateProgressCB) PicoStateProgressCB(chunk_names[name]); \
  86         if (!write_chunk(name, len, data, file)) return 1;
  87
  88 #define CHECKED_WRITE_BUFF(name,buff) \
  89         if (PicoStateProgressCB) PicoStateProgressCB(chunk_names[name]); \
  90         if (!write_chunk(name, sizeof(buff), &buff, file)) return 1;
  91
  92 PICO_INTERNAL int PicoCdSaveState(void *file)
  93 {
  94         unsigned char buff[0x60];
  95         void *ym2612_regs = YM2612GetRegs();
  96
  97         areaWrite("PicoSMCD", 1, 8, file);
  98         areaWrite(&PicoVer, 1, 4, file);
  99
 100         memset(buff, 0, sizeof(buff));
 101         PicoAreaPackCpu(buff, 0);
 102         CHECKED_WRITE_BUFF(CHUNK_M68K,  buff);
 103         CHECKED_WRITE_BUFF(CHUNK_RAM,   Pico.ram);
 104         CHECKED_WRITE_BUFF(CHUNK_VRAM,  Pico.vram);
 105         CHECKED_WRITE_BUFF(CHUNK_ZRAM,  Pico.zram);
 106         CHECKED_WRITE_BUFF(CHUNK_CRAM,  Pico.cram);
 107         CHECKED_WRITE_BUFF(CHUNK_VSRAM, Pico.vsram);
 108         CHECKED_WRITE_BUFF(CHUNK_MISC,  Pico.m);
 109         CHECKED_WRITE_BUFF(CHUNK_VIDEO, Pico.video);
 110         if(PicoOpt&7) {
 111                 memset(buff, 0, sizeof(buff));
 112                 z80_pack(buff);
 113                 CHECKED_WRITE_BUFF(CHUNK_Z80, buff);
 114         }
 115         if(PicoOpt&3)
 116                 CHECKED_WRITE(CHUNK_PSG, 28*4, sn76496_regs);
 117         if(PicoOpt&1)
 118                 CHECKED_WRITE(CHUNK_FM, 0x200+4, ym2612_regs);
 119
 120         if (PicoMCD & 1)
 121         {
 122                 Pico_mcd->m.audio_offset = mp3_get_offset();
 123                 memset(buff, 0, sizeof(buff));
 124                 PicoAreaPackCpu(buff, 1);
 125                 if (Pico_mcd->s68k_regs[3]&4) // 1M mode?
 126                         wram_1M_to_2M(Pico_mcd->word_ram2M);
 127                 Pico_mcd->m.hint_vector = *(unsigned short *)(Pico_mcd->bios + 0x72);
 128
 129                 CHECKED_WRITE_BUFF(CHUNK_S68K,     buff);
 130                 CHECKED_WRITE_BUFF(CHUNK_PRG_RAM,  Pico_mcd->prg_ram);
 131                 CHECKED_WRITE_BUFF(CHUNK_WORD_RAM, Pico_mcd->word_ram2M); // in 2M format
 132                 CHECKED_WRITE_BUFF(CHUNK_PCM_RAM,  Pico_mcd->pcm_ram);
 133                 CHECKED_WRITE_BUFF(CHUNK_BRAM,     Pico_mcd->bram);
 134                 CHECKED_WRITE_BUFF(CHUNK_GA_REGS,  Pico_mcd->s68k_regs); // GA regs, not CPU regs
 135                 CHECKED_WRITE_BUFF(CHUNK_PCM,      Pico_mcd->pcm);
 136                 CHECKED_WRITE_BUFF(CHUNK_CDD,      Pico_mcd->cdd);
 137                 CHECKED_WRITE_BUFF(CHUNK_CDC,      Pico_mcd->cdc);
 138                 CHECKED_WRITE_BUFF(CHUNK_SCD,      Pico_mcd->scd);
 139                 CHECKED_WRITE_BUFF(CHUNK_RC,       Pico_mcd->rot_comp);
 140                 CHECKED_WRITE_BUFF(CHUNK_MISC_CD,  Pico_mcd->m);
 141
 142                 if (Pico_mcd->s68k_regs[3]&4) // convert back
 143                         wram_2M_to_1M(Pico_mcd->word_ram2M);
 144         }
 145
 146         return 0;
 147 }
 148
 149 static int g_read_offs = 0;
 150
 151 #define R_ERROR_RETURN(error) \
 152 { \
 153         printf("PicoCdLoadState @ %x: " error "\n", g_read_offs); \
 154         return 1; \
 155 }
 156
 157 // when is eof really set?
 158 #define CHECKED_READ(len,data) \
 159         if (areaRead(data, 1, len, file) != len) { \
 160                 if (len == 1 && areaEof(file)) return 0; \
 161                 R_ERROR_RETURN("areaRead: premature EOF\n"); \
 162                 return 1; \
 163         } \
 164         g_read_offs += len;
 165
 166 #define CHECKED_READ2(len2,data) \
 167         if (len2 != len) R_ERROR_RETURN("unexpected len, wanted " #len2); \
 168         CHECKED_READ(len2, data)
 169
 170 #define CHECKED_READ_BUFF(buff) CHECKED_READ2(sizeof(buff), &buff);
 171
 172 PICO_INTERNAL int PicoCdLoadState(void *file)
 173 {
 174         unsigned char buff[0x60];
 175         int ver, len;
 176         void *ym2612_regs = YM2612GetRegs();
 177
 178         g_read_offs = 0;
 179         CHECKED_READ(8, buff);
 180         if (strncmp((char *)buff, "PicoSMCD", 8)) R_ERROR_RETURN("bad header");
 181         CHECKED_READ(4, &ver);
 182
 183         while (!areaEof(file))
 184         {
 185                 CHECKED_READ(1, buff);
 186                 CHECKED_READ(4, &len);
 187                 if (len < 0 || len > 1024*512) R_ERROR_RETURN("bad length");
 188                 if (buff[0] > CHUNK_FM && !(PicoMCD & 1)) R_ERROR_RETURN("cd chunk in non CD state?");
 189
 190                 switch (buff[0])
 191                 {
 192                         case CHUNK_M68K:
 193                                 CHECKED_READ_BUFF(buff);
 194                                 PicoAreaUnpackCpu(buff, 0);
 195                                 break;
 196
 197                         case CHUNK_Z80:
 198                                 CHECKED_READ_BUFF(buff);
 199                                 z80_unpack(buff);
 200                                 break;
 201
 202                         case CHUNK_RAM:   CHECKED_READ_BUFF(Pico.ram); break;
 203                         case CHUNK_VRAM:  CHECKED_READ_BUFF(Pico.vram); break;
 204                         case CHUNK_ZRAM:  CHECKED_READ_BUFF(Pico.zram); break;
 205                         case CHUNK_CRAM:  CHECKED_READ_BUFF(Pico.cram); break;
 206                         case CHUNK_VSRAM: CHECKED_READ_BUFF(Pico.vsram); break;
 207                         case CHUNK_MISC:  CHECKED_READ_BUFF(Pico.m); break;
 208                         case CHUNK_VIDEO: CHECKED_READ_BUFF(Pico.video); break;
 209                         case CHUNK_PSG:   CHECKED_READ2(28*4, sn76496_regs); break;
 210                         case CHUNK_FM:
 211                                 CHECKED_READ2(0x200+4, ym2612_regs);
 212                                 YM2612PicoStateLoad();
 213                                 break;
 214
 215                         // cd stuff
 216                         case CHUNK_S68K:
 217                                 CHECKED_READ_BUFF(buff);
 218                                 PicoAreaUnpackCpu(buff, 1);
 219                                 break;
 220
 221                         case CHUNK_PRG_RAM:     CHECKED_READ_BUFF(Pico_mcd->prg_ram); break;
 222                         case CHUNK_WORD_RAM:    CHECKED_READ_BUFF(Pico_mcd->word_ram2M); break;
 223                         case CHUNK_PCM_RAM:     CHECKED_READ_BUFF(Pico_mcd->pcm_ram); break;
 224                         case CHUNK_BRAM:        CHECKED_READ_BUFF(Pico_mcd->bram); break;
 225                         case CHUNK_GA_REGS:     CHECKED_READ_BUFF(Pico_mcd->s68k_regs); break;
 226                         case CHUNK_PCM:         CHECKED_READ_BUFF(Pico_mcd->pcm); break;
 227                         case CHUNK_CDD:         CHECKED_READ_BUFF(Pico_mcd->cdd); break;
 228                         case CHUNK_CDC:         CHECKED_READ_BUFF(Pico_mcd->cdc); break;
 229                         case CHUNK_SCD:         CHECKED_READ_BUFF(Pico_mcd->scd); break;
 230                         case CHUNK_RC:          CHECKED_READ_BUFF(Pico_mcd->rot_comp); break;
 231                         case CHUNK_MISC_CD:     CHECKED_READ_BUFF(Pico_mcd->m); break;
 232
 233                         default:
 234                                 printf("PicoCdLoadState: skipping unknown chunk %i of size %i\n", buff[0], len);
 235                                 areaSeek(file, len, SEEK_CUR);
 236                                 break;
 237                 }
 238         }
 239
 240         /* after load events */
 241         if (Pico_mcd->s68k_regs[3]&4) // 1M mode?
 242                 wram_2M_to_1M(Pico_mcd->word_ram2M);
 243 #ifdef _ASM_CD_MEMORY_C
 244         PicoMemResetCD(Pico_mcd->s68k_regs[3]);
 245         if (Pico_mcd->s68k_regs[3]&4)
 246                 PicoMemResetCDdecode(Pico_mcd->s68k_regs[3]);
 247 #endif
 248         if (Pico_mcd->m.audio_track > 0 && Pico_mcd->m.audio_track < Pico_mcd->TOC.Last_Track)
 249                 mp3_start_play(Pico_mcd->TOC.Tracks[Pico_mcd->m.audio_track].F, Pico_mcd->m.audio_offset);
 250         // restore hint vector
 251         *(unsigned short *)(Pico_mcd->bios + 0x72) = Pico_mcd->m.hint_vector;
 252
 253         return 0;
 254 }
 255
 256
 257 int PicoCdLoadStateGfx(void *file)
 258 {
 259         int ver, len, found = 0;
 260         char buff[8];
 261
 262         g_read_offs = 0;
 263         CHECKED_READ(8, buff);
 264         if (strncmp(buff, "PicoSMCD", 8)) R_ERROR_RETURN("bad header");
 265         CHECKED_READ(4, &ver);
 266
 267         while (!areaEof(file) && found < 4)
 268         {
 269                 CHECKED_READ(1, buff);
 270                 CHECKED_READ(4, &len);
 271                 if (len < 0 || len > 1024*512) R_ERROR_RETURN("bad length");
 272                 if (buff[0] > CHUNK_FM && !(PicoMCD & 1)) R_ERROR_RETURN("cd chunk in non CD state?");
 273
 274                 switch (buff[0])
 275                 {
 276                         case CHUNK_VRAM:  CHECKED_READ_BUFF(Pico.vram);  found++; break;
 277                         case CHUNK_CRAM:  CHECKED_READ_BUFF(Pico.cram);  found++; break;
 278                         case CHUNK_VSRAM: CHECKED_READ_BUFF(Pico.vsram); found++; break;
 279                         case CHUNK_VIDEO: CHECKED_READ_BUFF(Pico.video); found++; break;
 280                         default:
 281                                 areaSeek(file, len, SEEK_CUR);
 282                                 break;
 283                 }
 284         }
 285
 286         return 0;
 287 }
 288
 289