5 * This work is licensed under the terms of MAME license.
\r
6 * See COPYING file in the top-level directory.
\r
9 #include "pico_int.h"
\r
10 #include <zlib/zlib.h>
\r
12 #include "../cpu/sh2/sh2.h"
\r
13 #include "sound/ym2612.h"
\r
16 extern int *sn76496_regs;
\r
18 typedef size_t (arearw)(void *p, size_t _size, size_t _n, void *file);
\r
19 typedef size_t (areaeof)(void *file);
\r
20 typedef int (areaseek)(void *file, long offset, int whence);
\r
21 typedef int (areaclose)(void *file);
\r
23 static arearw *areaRead;
\r
24 static arearw *areaWrite;
\r
25 static areaeof *areaEof;
\r
26 static areaseek *areaSeek;
\r
27 static areaclose *areaClose;
\r
29 carthw_state_chunk *carthw_chunks;
\r
30 void (*PicoStateProgressCB)(const char *str);
\r
31 void (*PicoLoadStateHook)(void);
\r
35 static size_t gzRead2(void *p, size_t _size, size_t _n, void *file)
\r
37 return gzread(file, p, _size * _n);
\r
40 static size_t gzWrite2(void *p, size_t _size, size_t _n, void *file)
\r
42 return gzwrite(file, p, _size * _n);
\r
45 static void set_cbs(int gz)
\r
49 areaWrite = gzWrite2;
\r
50 areaEof = (areaeof *) gzeof;
\r
51 areaSeek = (areaseek *) gzseek;
\r
52 areaClose = (areaclose *) gzclose;
\r
54 areaRead = (arearw *) fread;
\r
55 areaWrite = (arearw *) fwrite;
\r
56 areaEof = (areaeof *) feof;
\r
57 areaSeek = (areaseek *) fseek;
\r
58 areaClose = (areaclose *) fclose;
\r
62 static void *open_save_file(const char *fname, int is_save)
\r
64 int len = strlen(fname);
\r
67 if (len > 3 && strcmp(fname + len - 3, ".gz") == 0)
\r
69 if ( (afile = gzopen(fname, is_save ? "wb" : "rb")) ) {
\r
72 gzsetparams(afile, 9, Z_DEFAULT_STRATEGY);
\r
77 if ( (afile = fopen(fname, is_save ? "wb" : "rb")) ) {
\r
85 // legacy savestate loading
\r
86 #define SCANP(f, x) areaRead(&Pico.x, sizeof(Pico.x), 1, f)
\r
88 static int state_load_legacy(void *file)
\r
90 unsigned char head[32];
\r
91 unsigned char cpu[0x60];
\r
92 unsigned char cpu_z80[Z80_STATE_SIZE];
\r
96 memset(&cpu,0,sizeof(cpu));
\r
97 memset(&cpu_z80,0,sizeof(cpu_z80));
\r
99 memset(head, 0, sizeof(head));
\r
100 areaRead(head, sizeof(head), 1, file);
\r
101 if (strcmp((char *)head, "Pico") != 0)
\r
104 elprintf(EL_STATUS, "legacy savestate");
\r
106 // Scan all the memory areas:
\r
111 SCANP(file, vsram);
\r
113 // Pack, scan and unpack the cpu data:
\r
114 areaRead(cpu, sizeof(cpu), 1, file);
\r
115 SekUnpackCpu(cpu, 0);
\r
118 SCANP(file, video);
\r
120 ok = areaRead(cpu_z80, sizeof(cpu_z80), 1, file) == sizeof(cpu_z80);
\r
121 // do not unpack if we fail to load z80 state
\r
122 if (!ok) z80_reset();
\r
123 else z80_unpack(cpu_z80);
\r
125 ym2612_regs = YM2612GetRegs();
\r
126 areaRead(sn76496_regs, 28*4, 1, file);
\r
127 areaRead(ym2612_regs, 0x200+4, 1, file);
\r
128 ym2612_unpack_state();
\r
133 // ---------------------------------------------------------------------------
\r
151 CHUNK_PCM_RAM, // 15
\r
161 CHUNK_IOPORTS, // versions < 1.70 did not save that..
\r
168 CHUNK_SSH2_DATA, // 30
\r
173 CHUNK_SSH2_BIOS, // 35
\r
178 CHUNK_DEFAULT_COUNT,
\r
179 CHUNK_CARTHW_ = CHUNK_CARTHW, // defined in PicoInt
\r
182 static const char * const chunk_names[] = {
\r
227 static int write_chunk(chunk_name_e name, int len, void *data, void *file)
\r
229 size_t bwritten = 0;
\r
230 bwritten += areaWrite(&name, 1, 1, file);
\r
231 bwritten += areaWrite(&len, 1, 4, file);
\r
232 bwritten += areaWrite(data, 1, len, file);
\r
234 return (bwritten == len + 4 + 1);
\r
237 #define CHECKED_WRITE(name,len,data) { \
\r
238 if (PicoStateProgressCB && name < CHUNK_DEFAULT_COUNT) { \
\r
239 strncpy(sbuff + 9, chunk_names[name], sizeof(sbuff) - 9); \
\r
240 PicoStateProgressCB(sbuff); \
\r
242 if (!write_chunk(name, len, data, file)) return 1; \
\r
245 #define CHECKED_WRITE_BUFF(name,buff) { \
\r
246 if (PicoStateProgressCB && name < CHUNK_DEFAULT_COUNT) { \
\r
247 strncpy(sbuff + 9, chunk_names[name], sizeof(sbuff) - 9); \
\r
248 PicoStateProgressCB(sbuff); \
\r
250 if (!write_chunk(name, sizeof(buff), &buff, file)) return 1; \
\r
253 static int state_save(void *file)
\r
255 char sbuff[32] = "Saving.. ";
\r
256 unsigned char buff[0x60], buff_z80[Z80_STATE_SIZE];
\r
257 void *ym2612_regs = YM2612GetRegs();
\r
258 int ver = 0x0170; // not really used..
\r
260 areaWrite("PicoSEXT", 1, 8, file);
\r
261 areaWrite(&ver, 1, 4, file);
\r
263 if (!(PicoAHW & PAHW_SMS)) {
\r
264 memset(buff, 0, sizeof(buff));
\r
265 SekPackCpu(buff, 0);
\r
266 CHECKED_WRITE_BUFF(CHUNK_M68K, buff);
\r
267 CHECKED_WRITE_BUFF(CHUNK_RAM, Pico.ram);
\r
268 CHECKED_WRITE_BUFF(CHUNK_VSRAM, Pico.vsram);
\r
269 CHECKED_WRITE_BUFF(CHUNK_IOPORTS, Pico.ioports);
\r
270 ym2612_pack_state();
\r
271 CHECKED_WRITE(CHUNK_FM, 0x200+4, ym2612_regs);
\r
274 CHECKED_WRITE_BUFF(CHUNK_SMS, Pico.ms);
\r
277 CHECKED_WRITE_BUFF(CHUNK_VRAM, Pico.vram);
\r
278 CHECKED_WRITE_BUFF(CHUNK_ZRAM, Pico.zram);
\r
279 CHECKED_WRITE_BUFF(CHUNK_CRAM, Pico.cram);
\r
280 CHECKED_WRITE_BUFF(CHUNK_MISC, Pico.m);
\r
281 CHECKED_WRITE_BUFF(CHUNK_VIDEO, Pico.video);
\r
283 z80_pack(buff_z80);
\r
284 CHECKED_WRITE_BUFF(CHUNK_Z80, buff_z80);
\r
285 CHECKED_WRITE(CHUNK_PSG, 28*4, sn76496_regs);
\r
287 if (PicoAHW & PAHW_MCD)
\r
289 memset(buff, 0, sizeof(buff));
\r
290 SekPackCpu(buff, 1);
\r
291 if (Pico_mcd->s68k_regs[3] & 4) // 1M mode?
\r
292 wram_1M_to_2M(Pico_mcd->word_ram2M);
\r
293 Pico_mcd->m.hint_vector = *(unsigned short *)(Pico_mcd->bios + 0x72);
\r
295 CHECKED_WRITE_BUFF(CHUNK_S68K, buff);
\r
296 CHECKED_WRITE_BUFF(CHUNK_PRG_RAM, Pico_mcd->prg_ram);
\r
297 CHECKED_WRITE_BUFF(CHUNK_WORD_RAM, Pico_mcd->word_ram2M); // in 2M format
\r
298 CHECKED_WRITE_BUFF(CHUNK_PCM_RAM, Pico_mcd->pcm_ram);
\r
299 CHECKED_WRITE_BUFF(CHUNK_BRAM, Pico_mcd->bram);
\r
300 CHECKED_WRITE_BUFF(CHUNK_GA_REGS, Pico_mcd->s68k_regs); // GA regs, not CPU regs
\r
301 CHECKED_WRITE_BUFF(CHUNK_PCM, Pico_mcd->pcm);
\r
302 CHECKED_WRITE_BUFF(CHUNK_CDD, Pico_mcd->cdd);
\r
303 CHECKED_WRITE_BUFF(CHUNK_CDC, Pico_mcd->cdc);
\r
304 CHECKED_WRITE_BUFF(CHUNK_SCD, Pico_mcd->scd);
\r
305 CHECKED_WRITE_BUFF(CHUNK_RC, Pico_mcd->rot_comp);
\r
306 CHECKED_WRITE_BUFF(CHUNK_MISC_CD, Pico_mcd->m);
\r
308 if (Pico_mcd->s68k_regs[3] & 4) // convert back
\r
309 wram_2M_to_1M(Pico_mcd->word_ram2M);
\r
313 if (PicoAHW & PAHW_32X)
\r
315 unsigned char cpubuff[SH2_STATE_SIZE];
\r
317 memset(cpubuff, 0, sizeof(cpubuff));
\r
319 sh2_pack(&sh2s[0], cpubuff);
\r
320 CHECKED_WRITE_BUFF(CHUNK_MSH2, cpubuff);
\r
321 CHECKED_WRITE_BUFF(CHUNK_MSH2_DATA, Pico32xMem->data_array[0]);
\r
322 CHECKED_WRITE_BUFF(CHUNK_MSH2_PERI, Pico32xMem->sh2_peri_regs[0]);
\r
324 sh2_pack(&sh2s[1], cpubuff);
\r
325 CHECKED_WRITE_BUFF(CHUNK_SSH2, cpubuff);
\r
326 CHECKED_WRITE_BUFF(CHUNK_SSH2_DATA, Pico32xMem->data_array[1]);
\r
327 CHECKED_WRITE_BUFF(CHUNK_SSH2_PERI, Pico32xMem->sh2_peri_regs[1]);
\r
329 CHECKED_WRITE_BUFF(CHUNK_32XSYS, Pico32x);
\r
330 CHECKED_WRITE_BUFF(CHUNK_M68K_BIOS, Pico32xMem->m68k_rom);
\r
331 CHECKED_WRITE_BUFF(CHUNK_MSH2_BIOS, Pico32xMem->sh2_rom_m);
\r
332 CHECKED_WRITE_BUFF(CHUNK_SSH2_BIOS, Pico32xMem->sh2_rom_s);
\r
333 CHECKED_WRITE_BUFF(CHUNK_SDRAM, Pico32xMem->sdram);
\r
334 CHECKED_WRITE_BUFF(CHUNK_DRAM, Pico32xMem->dram);
\r
335 CHECKED_WRITE_BUFF(CHUNK_32XPAL, Pico32xMem->pal);
\r
339 if (carthw_chunks != NULL)
\r
341 carthw_state_chunk *chwc;
\r
342 if (PicoStateProgressCB)
\r
343 PicoStateProgressCB("Saving.. cart hw state");
\r
344 for (chwc = carthw_chunks; chwc->ptr != NULL; chwc++)
\r
345 CHECKED_WRITE(chwc->chunk, chwc->size, chwc->ptr);
\r
351 static int g_read_offs = 0;
\r
353 #define R_ERROR_RETURN(error) \
\r
355 elprintf(EL_STATUS, "load_state @ %x: " error, g_read_offs); \
\r
359 // when is eof really set?
\r
360 #define CHECKED_READ(len,data) { \
\r
361 if (areaRead(data, 1, len, file) != len) { \
\r
362 if (len == 1 && areaEof(file)) goto readend; \
\r
363 R_ERROR_RETURN("areaRead: premature EOF\n"); \
\r
366 g_read_offs += len; \
\r
369 #define CHECKED_READ2(len2,data) { \
\r
370 if (len2 != len) { \
\r
371 elprintf(EL_STATUS, "unexpected len %i, wanted %i (%s)", len, len2, #len2); \
\r
372 if (len > len2) R_ERROR_RETURN("failed."); \
\r
373 /* else read anyway and hope for the best.. */ \
\r
375 CHECKED_READ(len, data); \
\r
378 #define CHECKED_READ_BUFF(buff) CHECKED_READ2(sizeof(buff), &buff);
\r
380 static int state_load(void *file)
\r
382 unsigned char buff_m68k[0x60], buff_s68k[0x60];
\r
383 unsigned char buff_z80[Z80_STATE_SIZE];
\r
384 unsigned char buff_sh2[SH2_STATE_SIZE];
\r
385 unsigned char chunk;
\r
390 memset(buff_m68k, 0, sizeof(buff_m68k));
\r
391 memset(buff_s68k, 0, sizeof(buff_s68k));
\r
392 memset(buff_z80, 0, sizeof(buff_z80));
\r
395 CHECKED_READ(8, header);
\r
396 if (strncmp(header, "PicoSMCD", 8) && strncmp(header, "PicoSEXT", 8))
\r
397 R_ERROR_RETURN("bad header");
\r
398 CHECKED_READ(4, &ver);
\r
400 while (!areaEof(file))
\r
402 CHECKED_READ(1, &chunk);
\r
403 CHECKED_READ(4, &len);
\r
404 if (len < 0 || len > 1024*512) R_ERROR_RETURN("bad length");
\r
405 if (CHUNK_S68K <= chunk && chunk <= CHUNK_MISC_CD && !(PicoAHW & PAHW_MCD))
\r
406 R_ERROR_RETURN("cd chunk in non CD state?");
\r
407 if (CHUNK_MSH2 <= chunk && chunk <= CHUNK_32XPAL && !(PicoAHW & PAHW_32X))
\r
408 R_ERROR_RETURN("32x chunk in non 32x state?");
\r
413 CHECKED_READ_BUFF(buff_m68k);
\r
417 CHECKED_READ_BUFF(buff_z80);
\r
420 case CHUNK_RAM: CHECKED_READ_BUFF(Pico.ram); break;
\r
421 case CHUNK_VRAM: CHECKED_READ_BUFF(Pico.vram); break;
\r
422 case CHUNK_ZRAM: CHECKED_READ_BUFF(Pico.zram); break;
\r
423 case CHUNK_CRAM: CHECKED_READ_BUFF(Pico.cram); break;
\r
424 case CHUNK_VSRAM: CHECKED_READ_BUFF(Pico.vsram); break;
\r
425 case CHUNK_MISC: CHECKED_READ_BUFF(Pico.m); break;
\r
426 case CHUNK_VIDEO: CHECKED_READ_BUFF(Pico.video); break;
\r
427 case CHUNK_IOPORTS: CHECKED_READ_BUFF(Pico.ioports); break;
\r
428 case CHUNK_PSG: CHECKED_READ2(28*4, sn76496_regs); break;
\r
430 ym2612_regs = YM2612GetRegs();
\r
431 CHECKED_READ2(0x200+4, ym2612_regs);
\r
432 ym2612_unpack_state();
\r
436 CHECKED_READ_BUFF(Pico.ms);
\r
441 CHECKED_READ_BUFF(buff_s68k);
\r
444 case CHUNK_PRG_RAM: CHECKED_READ_BUFF(Pico_mcd->prg_ram); break;
\r
445 case CHUNK_WORD_RAM: CHECKED_READ_BUFF(Pico_mcd->word_ram2M); break;
\r
446 case CHUNK_PCM_RAM: CHECKED_READ_BUFF(Pico_mcd->pcm_ram); break;
\r
447 case CHUNK_BRAM: CHECKED_READ_BUFF(Pico_mcd->bram); break;
\r
448 case CHUNK_GA_REGS: CHECKED_READ_BUFF(Pico_mcd->s68k_regs); break;
\r
449 case CHUNK_PCM: CHECKED_READ_BUFF(Pico_mcd->pcm); break;
\r
450 case CHUNK_CDD: CHECKED_READ_BUFF(Pico_mcd->cdd); break;
\r
451 case CHUNK_CDC: CHECKED_READ_BUFF(Pico_mcd->cdc); break;
\r
452 case CHUNK_SCD: CHECKED_READ_BUFF(Pico_mcd->scd); break;
\r
453 case CHUNK_RC: CHECKED_READ_BUFF(Pico_mcd->rot_comp); break;
\r
454 case CHUNK_MISC_CD: CHECKED_READ_BUFF(Pico_mcd->m); break;
\r
459 CHECKED_READ_BUFF(buff_sh2);
\r
460 sh2_unpack(&sh2s[0], buff_sh2);
\r
464 CHECKED_READ_BUFF(buff_sh2);
\r
465 sh2_unpack(&sh2s[1], buff_sh2);
\r
468 case CHUNK_MSH2_DATA: CHECKED_READ_BUFF(Pico32xMem->data_array[0]); break;
\r
469 case CHUNK_MSH2_PERI: CHECKED_READ_BUFF(Pico32xMem->sh2_peri_regs[0]); break;
\r
470 case CHUNK_SSH2_DATA: CHECKED_READ_BUFF(Pico32xMem->data_array[1]); break;
\r
471 case CHUNK_SSH2_PERI: CHECKED_READ_BUFF(Pico32xMem->sh2_peri_regs[1]); break;
\r
472 case CHUNK_32XSYS: CHECKED_READ_BUFF(Pico32x); break;
\r
473 case CHUNK_M68K_BIOS: CHECKED_READ_BUFF(Pico32xMem->m68k_rom); break;
\r
474 case CHUNK_MSH2_BIOS: CHECKED_READ_BUFF(Pico32xMem->sh2_rom_m); break;
\r
475 case CHUNK_SSH2_BIOS: CHECKED_READ_BUFF(Pico32xMem->sh2_rom_s); break;
\r
476 case CHUNK_SDRAM: CHECKED_READ_BUFF(Pico32xMem->sdram); break;
\r
477 case CHUNK_DRAM: CHECKED_READ_BUFF(Pico32xMem->dram); break;
\r
478 case CHUNK_32XPAL: CHECKED_READ_BUFF(Pico32xMem->pal); break;
\r
481 if (carthw_chunks != NULL)
\r
483 carthw_state_chunk *chwc;
\r
484 for (chwc = carthw_chunks; chwc->ptr != NULL; chwc++) {
\r
485 if (chwc->chunk == chunk) {
\r
486 CHECKED_READ2(chwc->size, chwc->ptr);
\r
491 elprintf(EL_STATUS, "load_state: skipping unknown chunk %i of size %i", chunk, len);
\r
492 areaSeek(file, len, SEEK_CUR);
\r
499 if (PicoAHW & PAHW_SMS)
\r
500 PicoStateLoadedMS();
\r
502 if (PicoAHW & PAHW_MCD)
\r
504 PicoMemStateLoaded();
\r
506 if (!(Pico_mcd->s68k_regs[0x36] & 1) && (Pico_mcd->scd.Status_CDC & 1))
\r
509 SekUnpackCpu(buff_s68k, 1);
\r
512 // must unpack 68k and z80 after banks are set up
\r
513 if (!(PicoAHW & PAHW_SMS))
\r
514 SekUnpackCpu(buff_m68k, 0);
\r
516 z80_unpack(buff_z80);
\r
518 if (PicoAHW & PAHW_32X)
\r
519 Pico32xStateLoaded();
\r
524 static int state_load_gfx(void *file)
\r
526 int ver, len, found = 0, to_find = 4;
\r
529 if (PicoAHW & PAHW_32X)
\r
533 CHECKED_READ(8, buff);
\r
534 if (strncmp((char *)buff, "PicoSMCD", 8) && strncmp((char *)buff, "PicoSEXT", 8))
\r
535 R_ERROR_RETURN("bad header");
\r
536 CHECKED_READ(4, &ver);
\r
538 while (!areaEof(file) && found < to_find)
\r
540 CHECKED_READ(1, buff);
\r
541 CHECKED_READ(4, &len);
\r
542 if (len < 0 || len > 1024*512) R_ERROR_RETURN("bad length");
\r
543 if (buff[0] > CHUNK_FM && buff[0] <= CHUNK_MISC_CD && !(PicoAHW & PAHW_MCD))
\r
544 R_ERROR_RETURN("cd chunk in non CD state?");
\r
548 case CHUNK_VRAM: CHECKED_READ_BUFF(Pico.vram); found++; break;
\r
549 case CHUNK_CRAM: CHECKED_READ_BUFF(Pico.cram); found++; break;
\r
550 case CHUNK_VSRAM: CHECKED_READ_BUFF(Pico.vsram); found++; break;
\r
551 case CHUNK_VIDEO: CHECKED_READ_BUFF(Pico.video); found++; break;
\r
555 if (Pico32xMem != NULL)
\r
556 CHECKED_READ_BUFF(Pico32xMem->dram);
\r
560 if (Pico32xMem != NULL)
\r
561 CHECKED_READ_BUFF(Pico32xMem->pal);
\r
562 Pico32x.dirty_pal = 1;
\r
566 CHECKED_READ_BUFF(Pico32x);
\r
570 areaSeek(file, len, SEEK_CUR);
\r
579 int PicoState(const char *fname, int is_save)
\r
581 void *afile = NULL;
\r
584 afile = open_save_file(fname, is_save);
\r
589 ret = state_save(afile);
\r
591 ret = state_load(afile);
\r
593 areaSeek(afile, 0, SEEK_SET);
\r
594 ret = state_load_legacy(afile);
\r
597 if (PicoLoadStateHook != NULL)
\r
598 PicoLoadStateHook();
\r
599 Pico.m.dirtyPal = 1;
\r
606 int PicoStateLoadGfx(const char *fname)
\r
611 afile = open_save_file(fname, 0);
\r
615 ret = state_load_gfx(afile);
\r
618 areaSeek(afile, 0x10020, SEEK_SET); // skip header and RAM
\r
619 areaRead(Pico.vram, 1, sizeof(Pico.vram), afile);
\r
620 areaSeek(afile, 0x2000, SEEK_CUR);
\r
621 areaRead(Pico.cram, 1, sizeof(Pico.cram), afile);
\r
622 areaRead(Pico.vsram, 1, sizeof(Pico.vsram), afile);
\r
623 areaSeek(afile, 0x221a0, SEEK_SET);
\r
624 areaRead(&Pico.video, 1, sizeof(Pico.video), afile);
\r
633 unsigned short vram[0x8000];
\r
634 unsigned short cram[0x40];
\r
635 unsigned short vsram[0x40];
\r
637 //struct PicoMisc m;
\r
638 struct PicoVideo video;
\r
641 struct Pico32x p32x;
\r
642 unsigned short dram[2][0x20000/2];
\r
643 unsigned short pal[0x100];
\r
647 // returns data ptr to free() or PicoTmpStateRestore()
\r
648 void *PicoTmpStateSave(void)
\r
650 // gfx only for now
\r
651 struct PicoTmp *t = malloc(sizeof(*t));
\r
655 memcpy(t->vram, Pico.vram, sizeof(Pico.vram));
\r
656 memcpy(t->cram, Pico.cram, sizeof(Pico.cram));
\r
657 memcpy(t->vsram, Pico.vsram, sizeof(Pico.vsram));
\r
658 memcpy(&t->video, &Pico.video, sizeof(Pico.video));
\r
661 if (PicoAHW & PAHW_32X) {
\r
662 memcpy(&t->t32x.p32x, &Pico32x, sizeof(Pico32x));
\r
663 memcpy(t->t32x.dram, Pico32xMem->dram, sizeof(Pico32xMem->dram));
\r
664 memcpy(t->t32x.pal, Pico32xMem->pal, sizeof(Pico32xMem->pal));
\r
671 void PicoTmpStateRestore(void *data)
\r
673 struct PicoTmp *t = data;
\r
677 memcpy(Pico.vram, t->vram, sizeof(Pico.vram));
\r
678 memcpy(Pico.cram, t->cram, sizeof(Pico.cram));
\r
679 memcpy(Pico.vsram, t->vsram, sizeof(Pico.vsram));
\r
680 memcpy(&Pico.video, &t->video, sizeof(Pico.video));
\r
681 Pico.m.dirtyPal = 1;
\r
684 if (PicoAHW & PAHW_32X) {
\r
685 memcpy(&Pico32x, &t->t32x.p32x, sizeof(Pico32x));
\r
686 memcpy(Pico32xMem->dram, t->t32x.dram, sizeof(Pico32xMem->dram));
\r
687 memcpy(Pico32xMem->pal, t->t32x.pal, sizeof(Pico32xMem->pal));
\r
688 Pico32x.dirty_pal = 1;
\r
693 // vim:shiftwidth=2:expandtab
\r