6cadc2da |
1 | // Savestate handling for emulated Sega/Mega CD machine. |
2 | // (c) Copyright 2007, Grazvydas "notaz" Ignotas |
51a902ae |
3 | |
4 | |
5 | #include "../PicoInt.h" |
6 | |
7 | // ym2612 |
8 | #include "../sound/ym2612.h" |
9 | |
10 | // sn76496 |
11 | extern int *sn76496_regs; |
12 | |
945c2fdc |
13 | carthw_state_chunk *carthw_chunks; |
76276b0b |
14 | void (*PicoStateProgressCB)(const char *str) = 0; |
15 | |
51a902ae |
16 | |
17 | typedef 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 |
47 | static 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 |
76 | static 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 |
99 | PICO_INTERNAL int PicoCdSaveState(void *file) |
51a902ae |
100 | { |
101 | unsigned char buff[0x60]; |
102 | void *ym2612_regs = YM2612GetRegs(); |
103 | |
602133e1 |
104 | areaWrite("PicoSEXT", 1, 8, file); |
51a902ae |
105 | areaWrite(&PicoVer, 1, 4, file); |
106 | |
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); |
945c2fdc |
117 | if (PicoOpt&7) { |
51a902ae |
118 | memset(buff, 0, sizeof(buff)); |
119 | z80_pack(buff); |
120 | CHECKED_WRITE_BUFF(CHUNK_Z80, buff); |
121 | } |
945c2fdc |
122 | if (PicoOpt&3) |
51a902ae |
123 | CHECKED_WRITE(CHUNK_PSG, 28*4, sn76496_regs); |
945c2fdc |
124 | if (PicoOpt&1) |
51a902ae |
125 | CHECKED_WRITE(CHUNK_FM, 0x200+4, ym2612_regs); |
126 | |
602133e1 |
127 | if (PicoAHW & PAHW_MCD) |
75736070 |
128 | { |
75736070 |
129 | memset(buff, 0, sizeof(buff)); |
130 | PicoAreaPackCpu(buff, 1); |
fa1e5e29 |
131 | if (Pico_mcd->s68k_regs[3]&4) // 1M mode? |
132 | wram_1M_to_2M(Pico_mcd->word_ram2M); |
133 | Pico_mcd->m.hint_vector = *(unsigned short *)(Pico_mcd->bios + 0x72); |
75736070 |
134 | |
135 | CHECKED_WRITE_BUFF(CHUNK_S68K, buff); |
136 | CHECKED_WRITE_BUFF(CHUNK_PRG_RAM, Pico_mcd->prg_ram); |
fa1e5e29 |
137 | CHECKED_WRITE_BUFF(CHUNK_WORD_RAM, Pico_mcd->word_ram2M); // in 2M format |
4f265db7 |
138 | CHECKED_WRITE_BUFF(CHUNK_PCM_RAM, Pico_mcd->pcm_ram); |
75736070 |
139 | CHECKED_WRITE_BUFF(CHUNK_BRAM, Pico_mcd->bram); |
4f265db7 |
140 | CHECKED_WRITE_BUFF(CHUNK_GA_REGS, Pico_mcd->s68k_regs); // GA regs, not CPU regs |
141 | CHECKED_WRITE_BUFF(CHUNK_PCM, Pico_mcd->pcm); |
75736070 |
142 | CHECKED_WRITE_BUFF(CHUNK_CDD, Pico_mcd->cdd); |
143 | CHECKED_WRITE_BUFF(CHUNK_CDC, Pico_mcd->cdc); |
144 | CHECKED_WRITE_BUFF(CHUNK_SCD, Pico_mcd->scd); |
145 | CHECKED_WRITE_BUFF(CHUNK_RC, Pico_mcd->rot_comp); |
146 | CHECKED_WRITE_BUFF(CHUNK_MISC_CD, Pico_mcd->m); |
fa1e5e29 |
147 | |
148 | if (Pico_mcd->s68k_regs[3]&4) // convert back |
149 | wram_2M_to_1M(Pico_mcd->word_ram2M); |
75736070 |
150 | } |
51a902ae |
151 | |
945c2fdc |
152 | if (carthw_chunks != NULL) |
153 | { |
154 | carthw_state_chunk *chwc; |
bdec53c9 |
155 | if (PicoStateProgressCB) |
156 | PicoStateProgressCB("Saving.. cart hw state"); |
945c2fdc |
157 | for (chwc = carthw_chunks; chwc->ptr != NULL; chwc++) |
158 | CHECKED_WRITE(chwc->chunk, chwc->size, chwc->ptr); |
159 | } |
160 | |
51a902ae |
161 | return 0; |
162 | } |
163 | |
164 | static int g_read_offs = 0; |
165 | |
51a902ae |
166 | #define R_ERROR_RETURN(error) \ |
167 | { \ |
945c2fdc |
168 | elprintf(EL_STATUS, "PicoCdLoadState @ %x: " error, g_read_offs); \ |
51a902ae |
169 | return 1; \ |
170 | } |
171 | |
75736070 |
172 | // when is eof really set? |
173 | #define CHECKED_READ(len,data) \ |
174 | if (areaRead(data, 1, len, file) != len) { \ |
175 | if (len == 1 && areaEof(file)) return 0; \ |
176 | R_ERROR_RETURN("areaRead: premature EOF\n"); \ |
177 | return 1; \ |
178 | } \ |
179 | g_read_offs += len; |
180 | |
51a902ae |
181 | #define CHECKED_READ2(len2,data) \ |
b542be46 |
182 | if (len2 != len) { \ |
c6196c0f |
183 | elprintf(EL_STATUS, "unexpected len %i, wanted %i (%s)", len, len2, #len2); \ |
b542be46 |
184 | if (len > len2) R_ERROR_RETURN("failed."); \ |
185 | /* else read anyway and hope for the best.. */ \ |
186 | } \ |
187 | CHECKED_READ(len, data) |
51a902ae |
188 | |
189 | #define CHECKED_READ_BUFF(buff) CHECKED_READ2(sizeof(buff), &buff); |
190 | |
eff55556 |
191 | PICO_INTERNAL int PicoCdLoadState(void *file) |
51a902ae |
192 | { |
193 | unsigned char buff[0x60]; |
194 | int ver, len; |
195 | void *ym2612_regs = YM2612GetRegs(); |
196 | |
197 | g_read_offs = 0; |
198 | CHECKED_READ(8, buff); |
602133e1 |
199 | if (strncmp((char *)buff, "PicoSMCD", 8) && strncmp((char *)buff, "PicoSEXT", 8)) |
200 | R_ERROR_RETURN("bad header"); |
51a902ae |
201 | CHECKED_READ(4, &ver); |
202 | |
203 | while (!areaEof(file)) |
204 | { |
205 | CHECKED_READ(1, buff); |
206 | CHECKED_READ(4, &len); |
75736070 |
207 | if (len < 0 || len > 1024*512) R_ERROR_RETURN("bad length"); |
602133e1 |
208 | if (buff[0] > CHUNK_FM && buff[0] <= CHUNK_MISC_CD && !(PicoAHW & PAHW_MCD)) |
945c2fdc |
209 | R_ERROR_RETURN("cd chunk in non CD state?"); |
51a902ae |
210 | |
211 | switch (buff[0]) |
212 | { |
213 | case CHUNK_M68K: |
214 | CHECKED_READ_BUFF(buff); |
215 | PicoAreaUnpackCpu(buff, 0); |
216 | break; |
217 | |
218 | case CHUNK_Z80: |
219 | CHECKED_READ_BUFF(buff); |
220 | z80_unpack(buff); |
221 | break; |
222 | |
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; |
231 | case CHUNK_FM: |
232 | CHECKED_READ2(0x200+4, ym2612_regs); |
233 | YM2612PicoStateLoad(); |
234 | break; |
75736070 |
235 | |
236 | // cd stuff |
237 | case CHUNK_S68K: |
238 | CHECKED_READ_BUFF(buff); |
239 | PicoAreaUnpackCpu(buff, 1); |
240 | break; |
241 | |
242 | case CHUNK_PRG_RAM: CHECKED_READ_BUFF(Pico_mcd->prg_ram); break; |
fa1e5e29 |
243 | case CHUNK_WORD_RAM: CHECKED_READ_BUFF(Pico_mcd->word_ram2M); break; |
4f265db7 |
244 | case CHUNK_PCM_RAM: CHECKED_READ_BUFF(Pico_mcd->pcm_ram); break; |
75736070 |
245 | case CHUNK_BRAM: CHECKED_READ_BUFF(Pico_mcd->bram); break; |
246 | case CHUNK_GA_REGS: CHECKED_READ_BUFF(Pico_mcd->s68k_regs); break; |
4f265db7 |
247 | case CHUNK_PCM: CHECKED_READ_BUFF(Pico_mcd->pcm); break; |
75736070 |
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; |
fa1e5e29 |
252 | case CHUNK_MISC_CD: CHECKED_READ_BUFF(Pico_mcd->m); break; |
75736070 |
253 | |
254 | default: |
945c2fdc |
255 | if (carthw_chunks != NULL) |
256 | { |
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); |
261 | goto breakswitch; |
262 | } |
263 | } |
264 | } |
265 | elprintf(EL_STATUS, "PicoCdLoadState: skipping unknown chunk %i of size %i", buff[0], len); |
75736070 |
266 | areaSeek(file, len, SEEK_CUR); |
267 | break; |
51a902ae |
268 | } |
945c2fdc |
269 | breakswitch:; |
51a902ae |
270 | } |
271 | |
602133e1 |
272 | if (PicoAHW & PAHW_MCD) |
945c2fdc |
273 | { |
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]); |
3aa1e148 |
278 | #ifdef _ASM_CD_MEMORY_C |
945c2fdc |
279 | if (Pico_mcd->s68k_regs[3]&4) |
280 | PicoMemResetCDdecode(Pico_mcd->s68k_regs[3]); |
4ff2d527 |
281 | #endif |
c9e1affc |
282 | if (!(Pico_mcd->s68k_regs[0x36] & 1) && (Pico_mcd->scd.Status_CDC & 1)) |
283 | cdda_start_play(); |
945c2fdc |
284 | // restore hint vector |
285 | *(unsigned short *)(Pico_mcd->bios + 0x72) = Pico_mcd->m.hint_vector; |
286 | } |
fa1e5e29 |
287 | |
51a902ae |
288 | return 0; |
289 | } |
290 | |
860c6322 |
291 | |
292 | int PicoCdLoadStateGfx(void *file) |
293 | { |
294 | int ver, len, found = 0; |
295 | char buff[8]; |
296 | |
297 | g_read_offs = 0; |
298 | CHECKED_READ(8, buff); |
602133e1 |
299 | if (strncmp((char *)buff, "PicoSMCD", 8) && strncmp((char *)buff, "PicoSEXT", 8)) |
300 | R_ERROR_RETURN("bad header"); |
860c6322 |
301 | CHECKED_READ(4, &ver); |
302 | |
303 | while (!areaEof(file) && found < 4) |
304 | { |
305 | CHECKED_READ(1, buff); |
306 | CHECKED_READ(4, &len); |
307 | if (len < 0 || len > 1024*512) R_ERROR_RETURN("bad length"); |
602133e1 |
308 | if (buff[0] > CHUNK_FM && buff[0] <= CHUNK_MISC_CD && !(PicoAHW & PAHW_MCD)) |
945c2fdc |
309 | R_ERROR_RETURN("cd chunk in non CD state?"); |
860c6322 |
310 | |
311 | switch (buff[0]) |
312 | { |
313 | case CHUNK_VRAM: CHECKED_READ_BUFF(Pico.vram); found++; break; |
314 | case CHUNK_CRAM: CHECKED_READ_BUFF(Pico.cram); found++; break; |
315 | case CHUNK_VSRAM: CHECKED_READ_BUFF(Pico.vsram); found++; break; |
316 | case CHUNK_VIDEO: CHECKED_READ_BUFF(Pico.video); found++; break; |
317 | default: |
318 | areaSeek(file, len, SEEK_CUR); |
319 | break; |
320 | } |
321 | } |
322 | |
323 | return 0; |
324 | } |
325 | |
326 | |