123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195 |
- // This is part of Pico Library
- // (c) Copyright 2004 Dave, All rights reserved.
- // (c) Copyright 2006 notaz, All rights reserved.
- // Free for non-commercial use.
- // For commercial use, separate licencing terms must be obtained.
- #include "PicoInt.h"
- // ym2612
- #include "sound/ym2612.h"
- // sn76496
- extern int *sn76496_regs;
- struct PicoArea { void *data; int len; char *name; };
- // strange observation on Symbian OS 9.1, m600 organizer fw r3a06:
- // taking an address of fread or fwrite causes "application could't be started" error
- // on startup randomly depending on binary layout of executable file.
- arearw *areaRead = (arearw *) 0; // fread; // read and write function pointers for
- arearw *areaWrite = (arearw *) 0; // fwrite; // gzip save state ability
- areaeof *areaEof = (areaeof *) 0;
- areaseek *areaSeek = (areaseek *) 0;
- areaclose *areaClose = (areaclose *) 0;
- // Scan one variable and callback
- static int ScanVar(void *data,int len,char *name,void *PmovFile,int PmovAction)
- {
- int ret = 0;
- if ((PmovAction&3)==1) ret = areaWrite(data,1,len,PmovFile);
- if ((PmovAction&3)==2) ret = areaRead (data,1,len,PmovFile);
- return (ret != len);
- }
- #define SCAN_VAR(x,y) ScanVar(&x,sizeof(x),y,PmovFile,PmovAction);
- #define SCANP(x) ScanVar(&Pico.x,sizeof(Pico.x),#x,PmovFile,PmovAction);
- // Pack the cpu into a common format:
- int PicoAreaPackCpu(unsigned char *cpu, int is_sub)
- {
- unsigned int pc=0;
- #ifdef EMU_A68K
- memcpy(cpu,M68000_regs.d,0x40);
- pc=M68000_regs.pc;
- *(unsigned char *)(cpu+0x44)=(unsigned char)M68000_regs.ccr;
- *(unsigned char *)(cpu+0x45)=(unsigned char)M68000_regs.srh;
- *(unsigned int *)(cpu+0x48)=M68000_regs.isp;
- #endif
- #ifdef EMU_C68K
- struct Cyclone *context = is_sub ? &PicoCpuS68k : &PicoCpu;
- memcpy(cpu,context->d,0x40);
- pc=context->pc-context->membase;
- *(unsigned int *)(cpu+0x44)=CycloneGetSr(context);
- *(unsigned int *)(cpu+0x48)=context->osp;
- #endif
- #ifdef EMU_M68K
- void *oldcontext = m68ki_cpu_p;
- m68k_set_context(is_sub ? &PicoS68kCPU : &PicoM68kCPU);
- memcpy(cpu,m68ki_cpu_p->dar,0x40);
- pc=m68ki_cpu_p->pc;
- *(unsigned int *)(cpu+0x44)=m68k_get_reg(NULL, M68K_REG_SR);
- *(unsigned int *)(cpu+0x48)=m68ki_cpu_p->sp[0];
- m68k_set_context(oldcontext);
- #endif
- *(unsigned int *)(cpu+0x40)=pc;
- return 0;
- }
- int PicoAreaUnpackCpu(unsigned char *cpu, int is_sub)
- {
- #ifdef EMU_A68K
- memcpy(M68000_regs.d,cpu,0x40);
- M68000_regs.pc=pc;
- M68000_regs.ccr=*(unsigned char *)(cpu+0x44);
- M68000_regs.srh=*(unsigned char *)(cpu+0x45);
- M68000_regs.isp=*(unsigned int *)(cpu+0x48);
- #endif
- #ifdef EMU_C68K
- struct Cyclone *context = is_sub ? &PicoCpuS68k : &PicoCpu;
- CycloneSetSr(context, *(unsigned int *)(cpu+0x44));
- context->osp=*(unsigned int *)(cpu+0x48);
- memcpy(context->d,cpu,0x40);
- context->membase=0;
- context->pc = context->checkpc(*(unsigned int *)(cpu+0x40)); // Base pc
- #endif
- #ifdef EMU_M68K
- void *oldcontext = m68ki_cpu_p;
- m68k_set_context(is_sub ? &PicoS68kCPU : &PicoM68kCPU);
- memcpy(m68ki_cpu_p->dar,cpu,0x40);
- m68ki_cpu_p->pc=*(unsigned int *)(cpu+0x40);
- m68k_set_reg(M68K_REG_SR, *(unsigned int *)(cpu+0x44));
- m68ki_cpu_p->sp[0]=*(unsigned int *)(cpu+0x48);
- m68k_set_context(oldcontext);
- #endif
- return 0;
- }
- // Scan the contents of the virtual machine's memory for saving or loading
- static int PicoAreaScan(int PmovAction,unsigned int ver, void *PmovFile)
- {
- void *ym2612_regs;
- unsigned char cpu[0x60];
- unsigned char cpu_z80[0x60];
- int ret;
- memset(&cpu,0,sizeof(cpu));
- memset(&cpu_z80,0,sizeof(cpu_z80));
- ym2612_regs = YM2612GetRegs();
- if (PmovAction&4)
- {
- Pico.m.scanline=0;
- // Scan all the memory areas:
- SCANP(ram) SCANP(vram) SCANP(zram) SCANP(cram) SCANP(vsram)
- // Pack, scan and unpack the cpu data:
- if((PmovAction&3)==1) PicoAreaPackCpu(cpu, 0);
- //SekInit(); // notaz: do we really have to do this here?
- //PicoMemInit();
- SCAN_VAR(cpu,"cpu")
- if((PmovAction&3)==2) PicoAreaUnpackCpu(cpu, 0);
- SCAN_VAR(Pico.m ,"misc")
- SCAN_VAR(Pico.video,"video")
- // notaz: save/load z80, YM2612, sn76496 states instead of Pico.s (which is unused anyway)
- if(PicoOpt&7) {
- if((PmovAction&3)==1) z80_pack(cpu_z80);
- ret = SCAN_VAR(cpu_z80,"cpu_z80")
- // do not unpack if we fail to load z80 state
- if((PmovAction&3)==2) {
- if(ret) z80_reset();
- else z80_unpack(cpu_z80);
- }
- }
- if(PicoOpt&3)
- ScanVar(sn76496_regs,28*4,"SN76496state", PmovFile, PmovAction); // regs and other stuff
- if(PicoOpt&1) {
- ScanVar(ym2612_regs, 0x200+4, "YM2612state", PmovFile, PmovAction); // regs + addr line
- if((PmovAction&3)==2) YM2612PicoStateLoad(); // reload YM2612 state from it's regs
- }
- }
- return 0;
- }
- // ---------------------------------------------------------------------------
- // Helper code to save/load to a file handle
- // Save or load the state from PmovFile:
- int PmovState(int PmovAction, void *PmovFile)
- {
- int minimum=0;
- unsigned char head[32];
- if (PicoMCD & 1)
- {
- if (PmovAction&1) return PicoCdSaveState(PmovFile);
- if (PmovAction&2) return PicoCdLoadState(PmovFile);
- }
- memset(head,0,sizeof(head));
- // Find out minimal compatible version:
- //PicoAreaScan(PmovAction&0xc,&minimum);
- minimum = 0x0021;
- memcpy(head,"Pico",4);
- *(unsigned int *)(head+0x8)=PicoVer;
- *(unsigned int *)(head+0xc)=minimum;
- // Scan header:
- if (PmovAction&1) areaWrite(head,1,sizeof(head),PmovFile);
- if (PmovAction&2) areaRead (head,1,sizeof(head),PmovFile);
- // Scan memory areas:
- PicoAreaScan(PmovAction, *(unsigned int *)(head+0x8), PmovFile);
- return 0;
- }
|