bugfixes related to mmap usage for ROM
[picodrive.git] / pico / cd / area.c
CommitLineData
6cadc2da 1// Savestate handling for emulated Sega/Mega CD machine.
2// (c) Copyright 2007, Grazvydas "notaz" Ignotas
51a902ae 3
4
efcba75f 5#include "../pico_int.h"
51a902ae 6
7// ym2612
8#include "../sound/ym2612.h"
9
10// sn76496
11extern int *sn76496_regs;
12
945c2fdc 13carthw_state_chunk *carthw_chunks;
76276b0b 14void (*PicoStateProgressCB)(const char *str) = 0;
15
51a902ae 16
17typedef enum {
18 CHUNK_M68K = 1,
19 CHUNK_RAM,
20 CHUNK_VRAM,
21 CHUNK_ZRAM,
75736070 22 CHUNK_CRAM, // 5
51a902ae 23 CHUNK_VSRAM,
24 CHUNK_MISC,
25 CHUNK_VIDEO,
26 CHUNK_Z80,
75736070 27 CHUNK_PSG, // 10
51a902ae 28 CHUNK_FM,
29 // CD stuff
75736070 30 CHUNK_S68K,
31 CHUNK_PRG_RAM,
32 CHUNK_WORD_RAM,
4f265db7 33 CHUNK_PCM_RAM, // 15
34 CHUNK_BRAM,
75736070 35 CHUNK_GA_REGS,
4f265db7 36 CHUNK_PCM,
75736070 37 CHUNK_CDC,
4f265db7 38 CHUNK_CDD, // 20
75736070 39 CHUNK_SCD,
4f265db7 40 CHUNK_RC,
75736070 41 CHUNK_MISC_CD,
945c2fdc 42 CHUNK_DEFAULT_COUNT
43 // CHUNK_CARTHW = 64, // defined in PicoInt
51a902ae 44} chunk_name_e;
45
46
76276b0b 47static char *chunk_names[] = {
da42200b 48 "INVALID!",
76276b0b 49 "Saving.. M68K state",
50 "Saving.. RAM",
51 "Saving.. VRAM",
52 "Saving.. ZRAM",
53 "Saving.. CRAM", // 5
54 "Saving.. VSRAM",
55 "Saving.. emu state",
56 "Saving.. VIDEO",
57 "Saving.. Z80 state",
58 "Saving.. PSG", // 10
59 "Saving.. FM",
60 // CD stuff
61 "Saving.. S68K state",
62 "Saving.. PRG_RAM",
63 "Saving.. WORD_RAM",
64 "Saving.. PCM_RAM", // 15
65 "Saving.. BRAM",
66 "Saving.. GATE ARRAY regs",
67 "Saving.. PCM state",
68 "Saving.. CDC",
69 "Saving.. CDD", // 20
70 "Saving.. SCD",
71 "Saving.. GFX chip",
72 "Saving.. MCD state",
73};
74
75
51a902ae 76static int write_chunk(chunk_name_e name, int len, void *data, void *file)
77{
78 size_t bwritten = 0;
79 bwritten += areaWrite(&name, 1, 1, file);
80 bwritten += areaWrite(&len, 1, 4, file);
81 bwritten += areaWrite(data, 1, len, file);
82
83 return (bwritten == len + 4 + 1);
84}
85
86
945c2fdc 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; \
91}
51a902ae 92
945c2fdc 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; \
97}
51a902ae 98
eff55556 99PICO_INTERNAL int PicoCdSaveState(void *file)
51a902ae 100{
101 unsigned char buff[0x60];
102 void *ym2612_regs = YM2612GetRegs();
5e128c6d 103 int ver = 0x0133; // not really used..
51a902ae 104
602133e1 105 areaWrite("PicoSEXT", 1, 8, file);
5e128c6d 106 areaWrite(&ver, 1, 4, file);
51a902ae 107
108 memset(buff, 0, sizeof(buff));
109 PicoAreaPackCpu(buff, 0);
110 CHECKED_WRITE_BUFF(CHUNK_M68K, buff);
111 CHECKED_WRITE_BUFF(CHUNK_RAM, Pico.ram);
112 CHECKED_WRITE_BUFF(CHUNK_VRAM, Pico.vram);
113 CHECKED_WRITE_BUFF(CHUNK_ZRAM, Pico.zram);
114 CHECKED_WRITE_BUFF(CHUNK_CRAM, Pico.cram);
115 CHECKED_WRITE_BUFF(CHUNK_VSRAM, Pico.vsram);
116 CHECKED_WRITE_BUFF(CHUNK_MISC, Pico.m);
117 CHECKED_WRITE_BUFF(CHUNK_VIDEO, Pico.video);
5e128c6d 118
119 memset(buff, 0, sizeof(buff));
120 z80_pack(buff);
121 CHECKED_WRITE_BUFF(CHUNK_Z80, buff);
122 CHECKED_WRITE(CHUNK_PSG, 28*4, sn76496_regs);
123 ym2612_pack_state();
124 CHECKED_WRITE(CHUNK_FM, 0x200+4, ym2612_regs);
51a902ae 125
602133e1 126 if (PicoAHW & PAHW_MCD)
75736070 127 {
75736070 128 memset(buff, 0, sizeof(buff));
129 PicoAreaPackCpu(buff, 1);
fa1e5e29 130 if (Pico_mcd->s68k_regs[3]&4) // 1M mode?
131 wram_1M_to_2M(Pico_mcd->word_ram2M);
132 Pico_mcd->m.hint_vector = *(unsigned short *)(Pico_mcd->bios + 0x72);
75736070 133
134 CHECKED_WRITE_BUFF(CHUNK_S68K, buff);
135 CHECKED_WRITE_BUFF(CHUNK_PRG_RAM, Pico_mcd->prg_ram);
fa1e5e29 136 CHECKED_WRITE_BUFF(CHUNK_WORD_RAM, Pico_mcd->word_ram2M); // in 2M format
4f265db7 137 CHECKED_WRITE_BUFF(CHUNK_PCM_RAM, Pico_mcd->pcm_ram);
75736070 138 CHECKED_WRITE_BUFF(CHUNK_BRAM, Pico_mcd->bram);
4f265db7 139 CHECKED_WRITE_BUFF(CHUNK_GA_REGS, Pico_mcd->s68k_regs); // GA regs, not CPU regs
140 CHECKED_WRITE_BUFF(CHUNK_PCM, Pico_mcd->pcm);
75736070 141 CHECKED_WRITE_BUFF(CHUNK_CDD, Pico_mcd->cdd);
142 CHECKED_WRITE_BUFF(CHUNK_CDC, Pico_mcd->cdc);
143 CHECKED_WRITE_BUFF(CHUNK_SCD, Pico_mcd->scd);
144 CHECKED_WRITE_BUFF(CHUNK_RC, Pico_mcd->rot_comp);
145 CHECKED_WRITE_BUFF(CHUNK_MISC_CD, Pico_mcd->m);
fa1e5e29 146
147 if (Pico_mcd->s68k_regs[3]&4) // convert back
148 wram_2M_to_1M(Pico_mcd->word_ram2M);
75736070 149 }
51a902ae 150
945c2fdc 151 if (carthw_chunks != NULL)
152 {
153 carthw_state_chunk *chwc;
bdec53c9 154 if (PicoStateProgressCB)
155 PicoStateProgressCB("Saving.. cart hw state");
945c2fdc 156 for (chwc = carthw_chunks; chwc->ptr != NULL; chwc++)
157 CHECKED_WRITE(chwc->chunk, chwc->size, chwc->ptr);
158 }
159
51a902ae 160 return 0;
161}
162
163static int g_read_offs = 0;
164
51a902ae 165#define R_ERROR_RETURN(error) \
166{ \
945c2fdc 167 elprintf(EL_STATUS, "PicoCdLoadState @ %x: " error, g_read_offs); \
51a902ae 168 return 1; \
169}
170
75736070 171// when is eof really set?
172#define CHECKED_READ(len,data) \
173 if (areaRead(data, 1, len, file) != len) { \
a7efb231 174 if (len == 1 && areaEof(file)) goto readend; \
75736070 175 R_ERROR_RETURN("areaRead: premature EOF\n"); \
176 return 1; \
177 } \
178 g_read_offs += len;
179
51a902ae 180#define CHECKED_READ2(len2,data) \
b542be46 181 if (len2 != len) { \
c6196c0f 182 elprintf(EL_STATUS, "unexpected len %i, wanted %i (%s)", len, len2, #len2); \
b542be46 183 if (len > len2) R_ERROR_RETURN("failed."); \
184 /* else read anyway and hope for the best.. */ \
185 } \
186 CHECKED_READ(len, data)
51a902ae 187
188#define CHECKED_READ_BUFF(buff) CHECKED_READ2(sizeof(buff), &buff);
189
eff55556 190PICO_INTERNAL int PicoCdLoadState(void *file)
51a902ae 191{
374498bc 192 unsigned char buff[0x60], buff_m68k[0x60], buff_s68k[0x60];
51a902ae 193 int ver, len;
194 void *ym2612_regs = YM2612GetRegs();
195
196 g_read_offs = 0;
197 CHECKED_READ(8, buff);
602133e1 198 if (strncmp((char *)buff, "PicoSMCD", 8) && strncmp((char *)buff, "PicoSEXT", 8))
199 R_ERROR_RETURN("bad header");
51a902ae 200 CHECKED_READ(4, &ver);
201
202 while (!areaEof(file))
203 {
204 CHECKED_READ(1, buff);
205 CHECKED_READ(4, &len);
75736070 206 if (len < 0 || len > 1024*512) R_ERROR_RETURN("bad length");
602133e1 207 if (buff[0] > CHUNK_FM && buff[0] <= CHUNK_MISC_CD && !(PicoAHW & PAHW_MCD))
945c2fdc 208 R_ERROR_RETURN("cd chunk in non CD state?");
51a902ae 209
210 switch (buff[0])
211 {
212 case CHUNK_M68K:
374498bc 213 CHECKED_READ_BUFF(buff_m68k);
51a902ae 214 break;
215
216 case CHUNK_Z80:
217 CHECKED_READ_BUFF(buff);
218 z80_unpack(buff);
219 break;
220
221 case CHUNK_RAM: CHECKED_READ_BUFF(Pico.ram); break;
222 case CHUNK_VRAM: CHECKED_READ_BUFF(Pico.vram); break;
223 case CHUNK_ZRAM: CHECKED_READ_BUFF(Pico.zram); break;
224 case CHUNK_CRAM: CHECKED_READ_BUFF(Pico.cram); break;
225 case CHUNK_VSRAM: CHECKED_READ_BUFF(Pico.vsram); break;
226 case CHUNK_MISC: CHECKED_READ_BUFF(Pico.m); break;
227 case CHUNK_VIDEO: CHECKED_READ_BUFF(Pico.video); break;
228 case CHUNK_PSG: CHECKED_READ2(28*4, sn76496_regs); break;
229 case CHUNK_FM:
230 CHECKED_READ2(0x200+4, ym2612_regs);
453d2a6e 231 ym2612_unpack_state();
51a902ae 232 break;
75736070 233
234 // cd stuff
235 case CHUNK_S68K:
374498bc 236 CHECKED_READ_BUFF(buff_s68k);
75736070 237 break;
238
239 case CHUNK_PRG_RAM: CHECKED_READ_BUFF(Pico_mcd->prg_ram); break;
fa1e5e29 240 case CHUNK_WORD_RAM: CHECKED_READ_BUFF(Pico_mcd->word_ram2M); break;
4f265db7 241 case CHUNK_PCM_RAM: CHECKED_READ_BUFF(Pico_mcd->pcm_ram); break;
75736070 242 case CHUNK_BRAM: CHECKED_READ_BUFF(Pico_mcd->bram); break;
243 case CHUNK_GA_REGS: CHECKED_READ_BUFF(Pico_mcd->s68k_regs); break;
4f265db7 244 case CHUNK_PCM: CHECKED_READ_BUFF(Pico_mcd->pcm); break;
75736070 245 case CHUNK_CDD: CHECKED_READ_BUFF(Pico_mcd->cdd); break;
246 case CHUNK_CDC: CHECKED_READ_BUFF(Pico_mcd->cdc); break;
247 case CHUNK_SCD: CHECKED_READ_BUFF(Pico_mcd->scd); break;
248 case CHUNK_RC: CHECKED_READ_BUFF(Pico_mcd->rot_comp); break;
fa1e5e29 249 case CHUNK_MISC_CD: CHECKED_READ_BUFF(Pico_mcd->m); break;
75736070 250
251 default:
945c2fdc 252 if (carthw_chunks != NULL)
253 {
254 carthw_state_chunk *chwc;
255 for (chwc = carthw_chunks; chwc->ptr != NULL; chwc++) {
256 if (chwc->chunk == buff[0]) {
257 CHECKED_READ2(chwc->size, chwc->ptr);
258 goto breakswitch;
259 }
260 }
261 }
262 elprintf(EL_STATUS, "PicoCdLoadState: skipping unknown chunk %i of size %i", buff[0], len);
75736070 263 areaSeek(file, len, SEEK_CUR);
264 break;
51a902ae 265 }
945c2fdc 266 breakswitch:;
51a902ae 267 }
268
a7efb231 269readend:
602133e1 270 if (PicoAHW & PAHW_MCD)
945c2fdc 271 {
0ace9b9a 272 PicoMemStateLoaded();
273
c9e1affc 274 if (!(Pico_mcd->s68k_regs[0x36] & 1) && (Pico_mcd->scd.Status_CDC & 1))
275 cdda_start_play();
374498bc 276
277 // must unpack after other CD stuff is loaded
278 PicoAreaUnpackCpu(buff_s68k, 1);
945c2fdc 279 }
374498bc 280 PicoAreaUnpackCpu(buff_m68k, 0);
fa1e5e29 281
51a902ae 282 return 0;
283}
284
860c6322 285
286int PicoCdLoadStateGfx(void *file)
287{
288 int ver, len, found = 0;
289 char buff[8];
290
291 g_read_offs = 0;
292 CHECKED_READ(8, buff);
602133e1 293 if (strncmp((char *)buff, "PicoSMCD", 8) && strncmp((char *)buff, "PicoSEXT", 8))
294 R_ERROR_RETURN("bad header");
860c6322 295 CHECKED_READ(4, &ver);
296
297 while (!areaEof(file) && found < 4)
298 {
299 CHECKED_READ(1, buff);
300 CHECKED_READ(4, &len);
301 if (len < 0 || len > 1024*512) R_ERROR_RETURN("bad length");
602133e1 302 if (buff[0] > CHUNK_FM && buff[0] <= CHUNK_MISC_CD && !(PicoAHW & PAHW_MCD))
945c2fdc 303 R_ERROR_RETURN("cd chunk in non CD state?");
860c6322 304
305 switch (buff[0])
306 {
307 case CHUNK_VRAM: CHECKED_READ_BUFF(Pico.vram); found++; break;
308 case CHUNK_CRAM: CHECKED_READ_BUFF(Pico.cram); found++; break;
309 case CHUNK_VSRAM: CHECKED_READ_BUFF(Pico.vsram); found++; break;
310 case CHUNK_VIDEO: CHECKED_READ_BUFF(Pico.video); found++; break;
311 default:
312 areaSeek(file, len, SEEK_CUR);
313 break;
314 }
315 }
316
a7efb231 317readend:
860c6322 318 return 0;
319}
320
321