bugfix, fd leak
[picodrive.git] / Pico / cd / Area.c
CommitLineData
51a902ae 1// This is part of Pico Library
2
4f265db7 3// (c) Copyright 2007 notaz, All rights reserved.
51a902ae 4// Free for non-commercial use.
5
6// For commercial use, separate licencing terms must be obtained.
7
8
9#include "../PicoInt.h"
10
11// ym2612
12#include "../sound/ym2612.h"
13
14// sn76496
15extern int *sn76496_regs;
16
76276b0b 17void (*PicoStateProgressCB)(const char *str) = 0;
18
51a902ae 19
20typedef enum {
21 CHUNK_M68K = 1,
22 CHUNK_RAM,
23 CHUNK_VRAM,
24 CHUNK_ZRAM,
75736070 25 CHUNK_CRAM, // 5
51a902ae 26 CHUNK_VSRAM,
27 CHUNK_MISC,
28 CHUNK_VIDEO,
29 CHUNK_Z80,
75736070 30 CHUNK_PSG, // 10
51a902ae 31 CHUNK_FM,
32 // CD stuff
75736070 33 CHUNK_S68K,
34 CHUNK_PRG_RAM,
35 CHUNK_WORD_RAM,
4f265db7 36 CHUNK_PCM_RAM, // 15
37 CHUNK_BRAM,
75736070 38 CHUNK_GA_REGS,
4f265db7 39 CHUNK_PCM,
75736070 40 CHUNK_CDC,
4f265db7 41 CHUNK_CDD, // 20
75736070 42 CHUNK_SCD,
4f265db7 43 CHUNK_RC,
75736070 44 CHUNK_MISC_CD,
51a902ae 45} chunk_name_e;
46
47
76276b0b 48static char *chunk_names[] = {
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
87#define CHECKED_WRITE(name,len,data) \
76276b0b 88 if (PicoStateProgressCB) PicoStateProgressCB(chunk_names[name]); \
51a902ae 89 if (!write_chunk(name, len, data, file)) return 1;
90
91#define CHECKED_WRITE_BUFF(name,buff) \
76276b0b 92 if (PicoStateProgressCB) PicoStateProgressCB(chunk_names[name]); \
51a902ae 93 if (!write_chunk(name, sizeof(buff), &buff, file)) return 1;
94
95int PicoCdSaveState(void *file)
96{
97 unsigned char buff[0x60];
98 void *ym2612_regs = YM2612GetRegs();
99
100 areaWrite("PicoSMCD", 1, 8, file);
101 areaWrite(&PicoVer, 1, 4, file);
102
103 memset(buff, 0, sizeof(buff));
104 PicoAreaPackCpu(buff, 0);
105 CHECKED_WRITE_BUFF(CHUNK_M68K, buff);
106 CHECKED_WRITE_BUFF(CHUNK_RAM, Pico.ram);
107 CHECKED_WRITE_BUFF(CHUNK_VRAM, Pico.vram);
108 CHECKED_WRITE_BUFF(CHUNK_ZRAM, Pico.zram);
109 CHECKED_WRITE_BUFF(CHUNK_CRAM, Pico.cram);
110 CHECKED_WRITE_BUFF(CHUNK_VSRAM, Pico.vsram);
111 CHECKED_WRITE_BUFF(CHUNK_MISC, Pico.m);
112 CHECKED_WRITE_BUFF(CHUNK_VIDEO, Pico.video);
113 if(PicoOpt&7) {
114 memset(buff, 0, sizeof(buff));
115 z80_pack(buff);
116 CHECKED_WRITE_BUFF(CHUNK_Z80, buff);
117 }
118 if(PicoOpt&3)
119 CHECKED_WRITE(CHUNK_PSG, 28*4, sn76496_regs);
120 if(PicoOpt&1)
121 CHECKED_WRITE(CHUNK_FM, 0x200+4, ym2612_regs);
122
75736070 123 if (PicoMCD & 1)
124 {
125 Pico_mcd->m.audio_offset = mp3_get_offset();
126 memset(buff, 0, sizeof(buff));
127 PicoAreaPackCpu(buff, 1);
fa1e5e29 128 if (Pico_mcd->s68k_regs[3]&4) // 1M mode?
129 wram_1M_to_2M(Pico_mcd->word_ram2M);
130 Pico_mcd->m.hint_vector = *(unsigned short *)(Pico_mcd->bios + 0x72);
75736070 131
132 CHECKED_WRITE_BUFF(CHUNK_S68K, buff);
133 CHECKED_WRITE_BUFF(CHUNK_PRG_RAM, Pico_mcd->prg_ram);
fa1e5e29 134 CHECKED_WRITE_BUFF(CHUNK_WORD_RAM, Pico_mcd->word_ram2M); // in 2M format
4f265db7 135 CHECKED_WRITE_BUFF(CHUNK_PCM_RAM, Pico_mcd->pcm_ram);
75736070 136 CHECKED_WRITE_BUFF(CHUNK_BRAM, Pico_mcd->bram);
4f265db7 137 CHECKED_WRITE_BUFF(CHUNK_GA_REGS, Pico_mcd->s68k_regs); // GA regs, not CPU regs
138 CHECKED_WRITE_BUFF(CHUNK_PCM, Pico_mcd->pcm);
75736070 139 CHECKED_WRITE_BUFF(CHUNK_CDD, Pico_mcd->cdd);
140 CHECKED_WRITE_BUFF(CHUNK_CDC, Pico_mcd->cdc);
141 CHECKED_WRITE_BUFF(CHUNK_SCD, Pico_mcd->scd);
142 CHECKED_WRITE_BUFF(CHUNK_RC, Pico_mcd->rot_comp);
143 CHECKED_WRITE_BUFF(CHUNK_MISC_CD, Pico_mcd->m);
fa1e5e29 144
145 if (Pico_mcd->s68k_regs[3]&4) // convert back
146 wram_2M_to_1M(Pico_mcd->word_ram2M);
75736070 147 }
51a902ae 148
149 return 0;
150}
151
152static int g_read_offs = 0;
153
51a902ae 154#define R_ERROR_RETURN(error) \
155{ \
156 printf("PicoCdLoadState @ %x: " error "\n", g_read_offs); \
157 return 1; \
158}
159
75736070 160// when is eof really set?
161#define CHECKED_READ(len,data) \
162 if (areaRead(data, 1, len, file) != len) { \
163 if (len == 1 && areaEof(file)) return 0; \
164 R_ERROR_RETURN("areaRead: premature EOF\n"); \
165 return 1; \
166 } \
167 g_read_offs += len;
168
51a902ae 169#define CHECKED_READ2(len2,data) \
170 if (len2 != len) R_ERROR_RETURN("unexpected len, wanted " #len2); \
171 CHECKED_READ(len2, data)
172
173#define CHECKED_READ_BUFF(buff) CHECKED_READ2(sizeof(buff), &buff);
174
175int PicoCdLoadState(void *file)
176{
177 unsigned char buff[0x60];
178 int ver, len;
179 void *ym2612_regs = YM2612GetRegs();
180
181 g_read_offs = 0;
182 CHECKED_READ(8, buff);
183 if (strncmp((char *)buff, "PicoSMCD", 8)) R_ERROR_RETURN("bad header");
184 CHECKED_READ(4, &ver);
185
186 while (!areaEof(file))
187 {
188 CHECKED_READ(1, buff);
189 CHECKED_READ(4, &len);
75736070 190 if (len < 0 || len > 1024*512) R_ERROR_RETURN("bad length");
4f265db7 191 if (buff[0] > CHUNK_FM && !(PicoMCD & 1)) R_ERROR_RETURN("cd chunk in non CD state?");
51a902ae 192
193 switch (buff[0])
194 {
195 case CHUNK_M68K:
196 CHECKED_READ_BUFF(buff);
197 PicoAreaUnpackCpu(buff, 0);
198 break;
199
200 case CHUNK_Z80:
201 CHECKED_READ_BUFF(buff);
202 z80_unpack(buff);
203 break;
204
205 case CHUNK_RAM: CHECKED_READ_BUFF(Pico.ram); break;
206 case CHUNK_VRAM: CHECKED_READ_BUFF(Pico.vram); break;
207 case CHUNK_ZRAM: CHECKED_READ_BUFF(Pico.zram); break;
208 case CHUNK_CRAM: CHECKED_READ_BUFF(Pico.cram); break;
209 case CHUNK_VSRAM: CHECKED_READ_BUFF(Pico.vsram); break;
210 case CHUNK_MISC: CHECKED_READ_BUFF(Pico.m); break;
211 case CHUNK_VIDEO: CHECKED_READ_BUFF(Pico.video); break;
212 case CHUNK_PSG: CHECKED_READ2(28*4, sn76496_regs); break;
213 case CHUNK_FM:
214 CHECKED_READ2(0x200+4, ym2612_regs);
215 YM2612PicoStateLoad();
216 break;
75736070 217
218 // cd stuff
219 case CHUNK_S68K:
220 CHECKED_READ_BUFF(buff);
221 PicoAreaUnpackCpu(buff, 1);
222 break;
223
224 case CHUNK_PRG_RAM: CHECKED_READ_BUFF(Pico_mcd->prg_ram); break;
fa1e5e29 225 case CHUNK_WORD_RAM: CHECKED_READ_BUFF(Pico_mcd->word_ram2M); break;
4f265db7 226 case CHUNK_PCM_RAM: CHECKED_READ_BUFF(Pico_mcd->pcm_ram); break;
75736070 227 case CHUNK_BRAM: CHECKED_READ_BUFF(Pico_mcd->bram); break;
228 case CHUNK_GA_REGS: CHECKED_READ_BUFF(Pico_mcd->s68k_regs); break;
4f265db7 229 case CHUNK_PCM: CHECKED_READ_BUFF(Pico_mcd->pcm); break;
75736070 230 case CHUNK_CDD: CHECKED_READ_BUFF(Pico_mcd->cdd); break;
231 case CHUNK_CDC: CHECKED_READ_BUFF(Pico_mcd->cdc); break;
232 case CHUNK_SCD: CHECKED_READ_BUFF(Pico_mcd->scd); break;
233 case CHUNK_RC: CHECKED_READ_BUFF(Pico_mcd->rot_comp); break;
fa1e5e29 234 case CHUNK_MISC_CD: CHECKED_READ_BUFF(Pico_mcd->m); break;
75736070 235
236 default:
fa1e5e29 237 printf("PicoCdLoadState: skipping unknown chunk %i of size %i\n", buff[0], len);
75736070 238 areaSeek(file, len, SEEK_CUR);
239 break;
51a902ae 240 }
241 }
242
fa1e5e29 243 /* after load events */
244 if (Pico_mcd->s68k_regs[3]&4) // 1M mode?
245 wram_2M_to_1M(Pico_mcd->word_ram2M);
4ff2d527 246#ifdef _ASM_CD_MEMORY_C
247 PicoMemResetCD(Pico_mcd->s68k_regs[3]);
00bd648e 248 if (Pico_mcd->s68k_regs[3]&4)
249 PicoMemResetCDdecode(Pico_mcd->s68k_regs[3]);
4ff2d527 250#endif
83bd0b76 251 if (Pico_mcd->m.audio_track > 0 && Pico_mcd->m.audio_track < Pico_mcd->TOC.Last_Track)
252 mp3_start_play(Pico_mcd->TOC.Tracks[Pico_mcd->m.audio_track].F, Pico_mcd->m.audio_offset);
fa1e5e29 253 // restore hint vector
254 *(unsigned short *)(Pico_mcd->bios + 0x72) = Pico_mcd->m.hint_vector;
255
51a902ae 256 return 0;
257}
258
860c6322 259
260int PicoCdLoadStateGfx(void *file)
261{
262 int ver, len, found = 0;
263 char buff[8];
264
265 g_read_offs = 0;
266 CHECKED_READ(8, buff);
267 if (strncmp(buff, "PicoSMCD", 8)) R_ERROR_RETURN("bad header");
268 CHECKED_READ(4, &ver);
269
270 while (!areaEof(file) && found < 4)
271 {
272 CHECKED_READ(1, buff);
273 CHECKED_READ(4, &len);
274 if (len < 0 || len > 1024*512) R_ERROR_RETURN("bad length");
275 if (buff[0] > CHUNK_FM && !(PicoMCD & 1)) R_ERROR_RETURN("cd chunk in non CD state?");
276
277 switch (buff[0])
278 {
279 case CHUNK_VRAM: CHECKED_READ_BUFF(Pico.vram); found++; break;
280 case CHUNK_CRAM: CHECKED_READ_BUFF(Pico.cram); found++; break;
281 case CHUNK_VSRAM: CHECKED_READ_BUFF(Pico.vsram); found++; break;
282 case CHUNK_VIDEO: CHECKED_READ_BUFF(Pico.video); found++; break;
283 default:
284 areaSeek(file, len, SEEK_CUR);
285 break;
286 }
287 }
288
289 return 0;
290}
291
292