1 // Savestate handling for emulated Sega/Mega CD machine.
2 // (c) Copyright 2007, Grazvydas "notaz" Ignotas
5 #include "../PicoInt.h"
8 #include "../sound/ym2612.h"
11 extern int *sn76496_regs;
13 carthw_state_chunk *carthw_chunks;
14 void (*PicoStateProgressCB)(const char *str) = 0;
43 // CHUNK_CARTHW = 64, // defined in PicoInt
47 static char *chunk_names[] = {
49 "Saving.. M68K state",
61 "Saving.. S68K state",
64 "Saving.. PCM_RAM", // 15
66 "Saving.. GATE ARRAY regs",
76 static int write_chunk(chunk_name_e name, int len, void *data, void *file)
79 bwritten += areaWrite(&name, 1, 1, file);
80 bwritten += areaWrite(&len, 1, 4, file);
81 bwritten += areaWrite(data, 1, len, file);
83 return (bwritten == len + 4 + 1);
87 #define CHECKED_WRITE(name,len,data) { \
88 if (PicoStateProgressCB && name < CHUNK_DEFAULT_COUNT) \
89 PicoStateProgressCB(chunk_names[name]); \
90 if (!write_chunk(name, len, data, file)) return 1; \
93 #define CHECKED_WRITE_BUFF(name,buff) { \
94 if (PicoStateProgressCB && name < CHUNK_DEFAULT_COUNT) \
95 PicoStateProgressCB(chunk_names[name]); \
96 if (!write_chunk(name, sizeof(buff), &buff, file)) return 1; \
99 PICO_INTERNAL int PicoCdSaveState(void *file)
101 unsigned char buff[0x60];
102 void *ym2612_regs = YM2612GetRegs();
104 areaWrite("PicoSMCD", 1, 8, file);
105 areaWrite(&PicoVer, 1, 4, file);
107 memset(buff, 0, sizeof(buff));
108 PicoAreaPackCpu(buff, 0);
109 CHECKED_WRITE_BUFF(CHUNK_M68K, buff);
110 CHECKED_WRITE_BUFF(CHUNK_RAM, Pico.ram);
111 CHECKED_WRITE_BUFF(CHUNK_VRAM, Pico.vram);
112 CHECKED_WRITE_BUFF(CHUNK_ZRAM, Pico.zram);
113 CHECKED_WRITE_BUFF(CHUNK_CRAM, Pico.cram);
114 CHECKED_WRITE_BUFF(CHUNK_VSRAM, Pico.vsram);
115 CHECKED_WRITE_BUFF(CHUNK_MISC, Pico.m);
116 CHECKED_WRITE_BUFF(CHUNK_VIDEO, Pico.video);
118 memset(buff, 0, sizeof(buff));
120 CHECKED_WRITE_BUFF(CHUNK_Z80, buff);
123 CHECKED_WRITE(CHUNK_PSG, 28*4, sn76496_regs);
125 CHECKED_WRITE(CHUNK_FM, 0x200+4, ym2612_regs);
129 Pico_mcd->m.audio_offset = mp3_get_offset();
130 memset(buff, 0, sizeof(buff));
131 PicoAreaPackCpu(buff, 1);
132 if (Pico_mcd->s68k_regs[3]&4) // 1M mode?
133 wram_1M_to_2M(Pico_mcd->word_ram2M);
134 Pico_mcd->m.hint_vector = *(unsigned short *)(Pico_mcd->bios + 0x72);
136 CHECKED_WRITE_BUFF(CHUNK_S68K, buff);
137 CHECKED_WRITE_BUFF(CHUNK_PRG_RAM, Pico_mcd->prg_ram);
138 CHECKED_WRITE_BUFF(CHUNK_WORD_RAM, Pico_mcd->word_ram2M); // in 2M format
139 CHECKED_WRITE_BUFF(CHUNK_PCM_RAM, Pico_mcd->pcm_ram);
140 CHECKED_WRITE_BUFF(CHUNK_BRAM, Pico_mcd->bram);
141 CHECKED_WRITE_BUFF(CHUNK_GA_REGS, Pico_mcd->s68k_regs); // GA regs, not CPU regs
142 CHECKED_WRITE_BUFF(CHUNK_PCM, Pico_mcd->pcm);
143 CHECKED_WRITE_BUFF(CHUNK_CDD, Pico_mcd->cdd);
144 CHECKED_WRITE_BUFF(CHUNK_CDC, Pico_mcd->cdc);
145 CHECKED_WRITE_BUFF(CHUNK_SCD, Pico_mcd->scd);
146 CHECKED_WRITE_BUFF(CHUNK_RC, Pico_mcd->rot_comp);
147 CHECKED_WRITE_BUFF(CHUNK_MISC_CD, Pico_mcd->m);
149 if (Pico_mcd->s68k_regs[3]&4) // convert back
150 wram_2M_to_1M(Pico_mcd->word_ram2M);
153 if (carthw_chunks != NULL)
155 carthw_state_chunk *chwc;
156 if (PicoStateProgressCB)
157 PicoStateProgressCB("Saving.. cart hw state");
158 for (chwc = carthw_chunks; chwc->ptr != NULL; chwc++)
159 CHECKED_WRITE(chwc->chunk, chwc->size, chwc->ptr);
165 static int g_read_offs = 0;
167 #define R_ERROR_RETURN(error) \
169 elprintf(EL_STATUS, "PicoCdLoadState @ %x: " error, g_read_offs); \
173 // when is eof really set?
174 #define CHECKED_READ(len,data) \
175 if (areaRead(data, 1, len, file) != len) { \
176 if (len == 1 && areaEof(file)) return 0; \
177 R_ERROR_RETURN("areaRead: premature EOF\n"); \
182 #define CHECKED_READ2(len2,data) \
184 elprintf(EL_STATUS, "unexpected len %i, wanted %i (%s)", len, len2, #len2); \
185 if (len > len2) R_ERROR_RETURN("failed."); \
186 /* else read anyway and hope for the best.. */ \
188 CHECKED_READ(len, data)
190 #define CHECKED_READ_BUFF(buff) CHECKED_READ2(sizeof(buff), &buff);
192 PICO_INTERNAL int PicoCdLoadState(void *file)
194 unsigned char buff[0x60];
196 void *ym2612_regs = YM2612GetRegs();
199 CHECKED_READ(8, buff);
200 if (strncmp((char *)buff, "PicoSMCD", 8)) R_ERROR_RETURN("bad header");
201 CHECKED_READ(4, &ver);
203 while (!areaEof(file))
205 CHECKED_READ(1, buff);
206 CHECKED_READ(4, &len);
207 if (len < 0 || len > 1024*512) R_ERROR_RETURN("bad length");
208 if (buff[0] > CHUNK_FM && buff[0] <= CHUNK_MISC_CD && !(PicoMCD & 1))
209 R_ERROR_RETURN("cd chunk in non CD state?");
214 CHECKED_READ_BUFF(buff);
215 PicoAreaUnpackCpu(buff, 0);
219 CHECKED_READ_BUFF(buff);
223 case CHUNK_RAM: CHECKED_READ_BUFF(Pico.ram); break;
224 case CHUNK_VRAM: CHECKED_READ_BUFF(Pico.vram); break;
225 case CHUNK_ZRAM: CHECKED_READ_BUFF(Pico.zram); break;
226 case CHUNK_CRAM: CHECKED_READ_BUFF(Pico.cram); break;
227 case CHUNK_VSRAM: CHECKED_READ_BUFF(Pico.vsram); break;
228 case CHUNK_MISC: CHECKED_READ_BUFF(Pico.m); break;
229 case CHUNK_VIDEO: CHECKED_READ_BUFF(Pico.video); break;
230 case CHUNK_PSG: CHECKED_READ2(28*4, sn76496_regs); break;
232 CHECKED_READ2(0x200+4, ym2612_regs);
233 YM2612PicoStateLoad();
238 CHECKED_READ_BUFF(buff);
239 PicoAreaUnpackCpu(buff, 1);
242 case CHUNK_PRG_RAM: CHECKED_READ_BUFF(Pico_mcd->prg_ram); break;
243 case CHUNK_WORD_RAM: CHECKED_READ_BUFF(Pico_mcd->word_ram2M); break;
244 case CHUNK_PCM_RAM: CHECKED_READ_BUFF(Pico_mcd->pcm_ram); break;
245 case CHUNK_BRAM: CHECKED_READ_BUFF(Pico_mcd->bram); break;
246 case CHUNK_GA_REGS: CHECKED_READ_BUFF(Pico_mcd->s68k_regs); break;
247 case CHUNK_PCM: CHECKED_READ_BUFF(Pico_mcd->pcm); break;
248 case CHUNK_CDD: CHECKED_READ_BUFF(Pico_mcd->cdd); break;
249 case CHUNK_CDC: CHECKED_READ_BUFF(Pico_mcd->cdc); break;
250 case CHUNK_SCD: CHECKED_READ_BUFF(Pico_mcd->scd); break;
251 case CHUNK_RC: CHECKED_READ_BUFF(Pico_mcd->rot_comp); break;
252 case CHUNK_MISC_CD: CHECKED_READ_BUFF(Pico_mcd->m); break;
255 if (carthw_chunks != NULL)
257 carthw_state_chunk *chwc;
258 for (chwc = carthw_chunks; chwc->ptr != NULL; chwc++) {
259 if (chwc->chunk == buff[0]) {
260 CHECKED_READ2(chwc->size, chwc->ptr);
265 elprintf(EL_STATUS, "PicoCdLoadState: skipping unknown chunk %i of size %i", buff[0], len);
266 areaSeek(file, len, SEEK_CUR);
274 /* after load events */
275 if (Pico_mcd->s68k_regs[3]&4) // 1M mode?
276 wram_2M_to_1M(Pico_mcd->word_ram2M);
277 PicoMemResetCD(Pico_mcd->s68k_regs[3]);
278 #ifdef _ASM_CD_MEMORY_C
279 if (Pico_mcd->s68k_regs[3]&4)
280 PicoMemResetCDdecode(Pico_mcd->s68k_regs[3]);
282 if (Pico_mcd->m.audio_track > 0 && Pico_mcd->m.audio_track < Pico_mcd->TOC.Last_Track)
283 mp3_start_play(Pico_mcd->TOC.Tracks[Pico_mcd->m.audio_track].F, Pico_mcd->m.audio_offset);
284 // restore hint vector
285 *(unsigned short *)(Pico_mcd->bios + 0x72) = Pico_mcd->m.hint_vector;
292 int PicoCdLoadStateGfx(void *file)
294 int ver, len, found = 0;
298 CHECKED_READ(8, buff);
299 if (strncmp(buff, "PicoSMCD", 8)) R_ERROR_RETURN("bad header");
300 CHECKED_READ(4, &ver);
302 while (!areaEof(file) && found < 4)
304 CHECKED_READ(1, buff);
305 CHECKED_READ(4, &len);
306 if (len < 0 || len > 1024*512) R_ERROR_RETURN("bad length");
307 if (buff[0] > CHUNK_FM && buff[0] <= CHUNK_MISC_CD && !(PicoMCD & 1))
308 R_ERROR_RETURN("cd chunk in non CD state?");
312 case CHUNK_VRAM: CHECKED_READ_BUFF(Pico.vram); found++; break;
313 case CHUNK_CRAM: CHECKED_READ_BUFF(Pico.cram); found++; break;
314 case CHUNK_VSRAM: CHECKED_READ_BUFF(Pico.vsram); found++; break;
315 case CHUNK_VIDEO: CHECKED_READ_BUFF(Pico.video); found++; break;
317 areaSeek(file, len, SEEK_CUR);