[cyclone68000.git] / Pico / Memory.cpp

\r
// This file is part of the PicoDrive Megadrive Emulator\r
\r
// Copyright (c) 2011 FinalDave (emudave (at) gmail.com)\r
\r
// This code is licensed under the GNU General Public License version 2.0 and the MAME License.\r
// You can choose the license that has the most advantages for you.\r
\r
// SVN repository can be found at http://code.google.com/p/cyclone68000/\r
\r
#include "PicoInt.h"\r
\r
typedef unsigned char  u8;\r
typedef unsigned short u16;\r
typedef unsigned int   u32;\r
\r
static int PicoMemBase(u32 pc)\r
{\r
  int membase=0;\r
\r
  if (pc<Pico.romsize)\r
  {\r
    membase=(int)Pico.rom; // Program Counter in Rom\r
  }\r
  else if ((pc&0xe00000)==0xe00000)\r
  {\r
    membase=(int)Pico.ram-(pc&0xff0000); // Program Counter in Ram\r
  }\r
  else\r
  {\r
    // Error - Program Counter is invalid\r
    membase=(int)Pico.rom;\r
  }\r
\r
  return membase;\r
}\r
\r
#ifdef EMU_A68K\r
extern "C" u8 *OP_ROM=NULL,*OP_RAM=NULL;\r
\r
static void CPU_CALL PicoCheckPc(u32 pc)\r
{\r
  OP_ROM=(u8 *)PicoMemBase(pc);\r
\r
  // don't bother calling us back unless it's outside the 64k segment\r
  M68000_regs.AsmBank=(pc>>16);\r
}\r
#endif\r
\r
#ifdef EMU_C68K\r
static u32 PicoCheckPc(u32 pc)\r
{\r
  pc-=PicoCpu.membase; // Get real pc\r
  pc&=0xffffff;\r
\r
  PicoCpu.membase=PicoMemBase(pc);\r
\r
  return PicoCpu.membase+pc;\r
}\r
#endif\r
\r
#ifdef EMU_NULL\r
static u32 PicoCheckPc(u32) { return 0; }\r
#endif\r
\r
\r
int PicoInitPc(u32 pc)\r
{\r
  PicoCheckPc(pc);\r
  return 0;\r
}\r
\r
// -----------------------------------------------------------------\r
static int PadRead(int i)\r
{\r
  int pad=0,value=0;\r
  pad=~PicoPad[i]; // Get inverse of pad\r
\r
  if (Pico.m.padSelect[i]) value=0x40|(pad&0x3f); // 01CB RLDU\r
  else value=((pad&0xc0)>>2)|(pad&3); // 00SA 00DU\r
\r
  return (value<<8)|value; // Mirror bytes\r
}\r
\r
static u32 OtherRead16(u32 a)\r
{\r
  u32 d=0;\r
\r
  if ((a&0xffe000)==0xa00000)\r
  {\r
    // Z80 ram\r
    d=*(u16 *)(Pico.zram+(a&0x1fff));\r
\r
    if (Pico.m.rotate&2) { d=(Pico.m.rotate>>2)&0xff; d|=d<<8; } // Fake z80\r
    Pico.m.rotate++;\r
\r
    goto end;\r
  }\r
\r
  if ((a&0xffe000)==0xa00000)\r
  {\r
    // Fake Z80 ram\r
    d=((Pico.m.rotate++)>>2)&0xff; d|=d<<8;\r
    goto end;\r
  }\r
  \r
  if (a==0xa04000) { d=Pico.m.rotate&3; Pico.m.rotate++; goto end; } // Fudge\r
  if (a==0xa10000) { d=Pico.m.hardware; goto end; }  // Hardware value\r
  if (a==0xa10002) { d=PadRead(0); goto end; }\r
  if (a==0xa10004) { d=PadRead(1); goto end; }\r
  if (a==0xa11100) { d=((Pico.m.rotate++)&4)<<6; goto end; } // Fudge z80 reset\r
\r
  if ((a&0xffffe0)==0xc00000) { d=PicoVideoRead(a); goto end; }\r
\r
end:\r
  return d;\r
}\r
\r
static void OtherWrite8(u32 a,u32 d)\r
{\r
  if ((a&0xffe000)==0xa00000) { Pico.zram[(a^1)&0x1fff]=(u8)d; return; } // Z80 ram\r
  if ((a&0xfffffc)==0xa04000) { PsndFm(a,d); return; } // FM Sound\r
\r
  if (a==0xa11100) { Pico.m.z80Run=(u8)(d^1); return; }\r
  if (a==0xa10003) { Pico.m.padSelect[0]=(u8)((d>>6)&1); return; } // Joypad 1 select\r
  if (a==0xa10005) { Pico.m.padSelect[1]=(u8)((d>>6)&1); return; } // Joypad 2 select\r
\r
  if ((a&0xffffe0)==0xc00000) { PicoVideoWrite(a,d|(d<<8)); return; } // Byte access gets mirrored\r
}\r
\r
static void OtherWrite16(u32 a,u32 d)\r
{\r
  if ((a&0xffffe0)==0xc00000) { PicoVideoWrite(a,d); return; }\r
  if ((a&0xffe000)==0xa00000) { *(u16 *)(Pico.zram+(a&0x1ffe))=(u16)d; return; } // Z80 ram\r
\r
  OtherWrite8(a,  d>>8);\r
  OtherWrite8(a+1,d&0xff);\r
}\r
\r
// -----------------------------------------------------------------\r
//                     Read Rom and read Ram\r
\r
static u8 CPU_CALL PicoRead8(u32 a)\r
{\r
  u32 d=0;\r
  a&=0xffffff;\r
\r
  if (a<Pico.romsize) return *(u8 *)(Pico.rom+(a^1)); // Rom\r
  if ((a&0xe00000)==0xe00000) return *(u8 *)(Pico.ram+((a^1)&0xffff)); // Ram\r
\r
  d=OtherRead16(a&~1); if ((a&1)==0) d>>=8;\r
  return (u8)d;\r
}\r
\r
u16 CPU_CALL PicoRead16(u32 a)\r
{\r
  a&=0xfffffe;\r
\r
  if (a<Pico.romsize) { u16 *pm=(u16 *)(Pico.rom+a); return pm[0]; } // Rom\r
  if ((a&0xe00000)==0xe00000) { u16 *pm=(u16 *)(Pico.ram+(a&0xffff)); return pm[0]; } // Ram\r
\r
  return (u16)OtherRead16(a);\r
}\r
\r
u32 CPU_CALL PicoRead32(u32 a)\r
{\r
  a&=0xfffffe;\r
\r
  if (a<Pico.romsize) { u16 *pm=(u16 *)(Pico.rom+a); return (pm[0]<<16)|pm[1]; } // Rom\r
  if ((a&0xe00000)==0xe00000) { u16 *pm=(u16 *)(Pico.ram+(a&0xffff)); return (pm[0]<<16)|pm[1]; } // Ram\r
\r
  return (OtherRead16(a)<<16)|OtherRead16(a+2);\r
}\r
\r
// -----------------------------------------------------------------\r
//                            Write Ram\r
\r
static void CPU_CALL PicoWrite8(u32 a,u8 d)\r
{\r
  if ((a&0xe00000)==0xe00000) { u8 *pm=(u8 *)(Pico.ram+((a^1)&0xffff)); pm[0]=d; return; } // Ram\r
\r
  a&=0xffffff;\r
  OtherWrite8(a,d);\r
}\r
\r
static void CPU_CALL PicoWrite16(u32 a,u16 d)\r
{\r
  if ((a&0xe00000)==0xe00000) { *(u16 *)(Pico.ram+(a&0xfffe))=d; return; } // Ram\r
\r
  a&=0xfffffe;\r
  OtherWrite16(a,d);\r
}\r
\r
static void CPU_CALL PicoWrite32(u32 a,u32 d)\r
{\r
  if ((a&0xe00000)==0xe00000)\r
  {\r
    // Ram:\r
    u16 *pm=(u16 *)(Pico.ram+(a&0xfffe));\r
    pm[0]=(u16)(d>>16); pm[1]=(u16)d;\r
    return;\r
  }\r
\r
  a&=0xfffffe;\r
  OtherWrite16(a,  (u16)(d>>16));\r
  OtherWrite16(a+2,(u16)d);\r
}\r
\r
\r
// -----------------------------------------------------------------\r
int PicoMemInit()\r
{\r
#ifdef EMU_C68K\r
  // Setup memory callbacks:\r
  PicoCpu.checkpc=PicoCheckPc;\r
  PicoCpu.fetch8 =PicoCpu.read8 =PicoRead8;\r
  PicoCpu.fetch16=PicoCpu.read16=PicoRead16;\r
  PicoCpu.fetch32=PicoCpu.read32=PicoRead32;\r
  PicoCpu.write8 =PicoWrite8;\r
  PicoCpu.write16=PicoWrite16;\r
  PicoCpu.write32=PicoWrite32;\r
#endif\r
  return 0;\r
}\r
\r
#ifdef EMU_A68K\r
struct A68KInter\r
{\r
  u32 unknown;\r
  u8  (__fastcall *Read8) (u32 a);\r
  u16 (__fastcall *Read16)(u32 a);\r
  u32 (__fastcall *Read32)(u32 a);\r
  void (__fastcall *Write8)  (u32 a,u8 d);\r
  void (__fastcall *Write16) (u32 a,u16 d);\r
  void (__fastcall *Write32) (u32 a,u32 d);\r
  void (__fastcall *ChangePc)(u32 a);\r
  u8  (__fastcall *PcRel8) (u32 a);\r
  u16 (__fastcall *PcRel16)(u32 a);\r
  u32 (__fastcall *PcRel32)(u32 a);\r
  u16 (__fastcall *Dir16)(u32 a);\r
  u32 (__fastcall *Dir32)(u32 a);\r
};\r
\r
extern "C" struct A68KInter a68k_memory_intf=\r
{\r
  0,\r
  PicoRead8,\r
  PicoRead16,\r
  PicoRead32,\r
  PicoWrite8,\r
  PicoWrite16,\r
  PicoWrite32,\r
  PicoCheckPc,\r
  PicoRead8,\r
  PicoRead16,\r
  PicoRead32,\r
  PicoRead16, // unused\r
  PicoRead32, // unused\r
};\r
#endif\r
Commit	Line	Data
15eb0001	1	\r
4abeeb4b	2	// This file is part of the PicoDrive Megadrive Emulator\r
4abeeb4b	3	\r
c41b9b97	4	// Copyright (c) 2011 FinalDave (emudave (at) gmail.com)\r
c41b9b97	5	\r
4abeeb4b	6	// This code is licensed under the GNU General Public License version 2.0 and the MAME License.\r
	7	// You can choose the license that has the most advantages for you.\r
	8	\r
	9	// SVN repository can be found at http://code.google.com/p/cyclone68000/\r
	10	\r
15eb0001	11	#include "PicoInt.h"\r
	12	\r
	13	typedef unsigned char u8;\r
	14	typedef unsigned short u16;\r
	15	typedef unsigned int u32;\r
	16	\r
	17	static int PicoMemBase(u32 pc)\r
	18	{\r
	19	int membase=0;\r
	20	\r
	21	if (pc<Pico.romsize)\r
	22	{\r
	23	membase=(int)Pico.rom; // Program Counter in Rom\r
	24	}\r
	25	else if ((pc&0xe00000)==0xe00000)\r
	26	{\r
	27	membase=(int)Pico.ram-(pc&0xff0000); // Program Counter in Ram\r
	28	}\r
	29	else\r
	30	{\r
	31	// Error - Program Counter is invalid\r
	32	membase=(int)Pico.rom;\r
	33	}\r
	34	\r
	35	return membase;\r
	36	}\r
	37	\r
	38	#ifdef EMU_A68K\r
	39	extern "C" u8 OP_ROM=NULL,OP_RAM=NULL;\r
	40	\r
	41	static void CPU_CALL PicoCheckPc(u32 pc)\r
	42	{\r
	43	OP_ROM=(u8 *)PicoMemBase(pc);\r
	44	\r
	45	// don't bother calling us back unless it's outside the 64k segment\r
	46	M68000_regs.AsmBank=(pc>>16);\r
	47	}\r
	48	#endif\r
	49	\r
	50	#ifdef EMU_C68K\r
	51	static u32 PicoCheckPc(u32 pc)\r
	52	{\r
	53	pc-=PicoCpu.membase; // Get real pc\r
	54	pc&=0xffffff;\r
	55	\r
	56	PicoCpu.membase=PicoMemBase(pc);\r
	57	\r
	58	return PicoCpu.membase+pc;\r
	59	}\r
	60	#endif\r
	61	\r
	62	#ifdef EMU_NULL\r
	63	static u32 PicoCheckPc(u32) { return 0; }\r
	64	#endif\r
	65	\r
	66	\r
	67	int PicoInitPc(u32 pc)\r
	68	{\r
	69	PicoCheckPc(pc);\r
	70	return 0;\r
	71	}\r
	72	\r
	73	// -----------------------------------------------------------------\r
	74	static int PadRead(int i)\r
75	{\r
76	int pad=0,value=0;\r
77	pad=~PicoPad[i]; // Get inverse of pad\r
78	\r
79	if (Pico.m.padSelect[i]) value=0x40\|(pad&0x3f); // 01CB RLDU\r
80	else value=((pad&0xc0)>>2)\|(pad&3); // 00SA 00DU\r
81	\r
82	return (value<<8)\|value; // Mirror bytes\r
83	}\r
84	\r
85	static u32 OtherRead16(u32 a)\r
86	{\r
87	u32 d=0;\r
88	\r
89	if ((a&0xffe000)==0xa00000)\r
90	{\r
91	// Z80 ram\r
92	d=(u16 )(Pico.zram+(a&0x1fff));\r
93	\r
94	if (Pico.m.rotate&2) { d=(Pico.m.rotate>>2)&0xff; d\|=d<<8; } // Fake z80\r
95	Pico.m.rotate++;\r
96	\r
97	goto end;\r
98	}\r
99	\r
100	if ((a&0xffe000)==0xa00000)\r
101	{\r
102	// Fake Z80 ram\r
103	d=((Pico.m.rotate++)>>2)&0xff; d\|=d<<8;\r
104	goto end;\r
105	}\r
106	\r
107	if (a==0xa04000) { d=Pico.m.rotate&3; Pico.m.rotate++; goto end; } // Fudge\r
108	if (a==0xa10000) { d=Pico.m.hardware; goto end; } // Hardware value\r
109	if (a==0xa10002) { d=PadRead(0); goto end; }\r
110	if (a==0xa10004) { d=PadRead(1); goto end; }\r
111	if (a==0xa11100) { d=((Pico.m.rotate++)&4)<<6; goto end; } // Fudge z80 reset\r
112	\r
113	if ((a&0xffffe0)==0xc00000) { d=PicoVideoRead(a); goto end; }\r
114	\r
115	end:\r
116	return d;\r
117	}\r
118	\r
119	static void OtherWrite8(u32 a,u32 d)\r
120	{\r
121	if ((a&0xffe000)==0xa00000) { Pico.zram[(a^1)&0x1fff]=(u8)d; return; } // Z80 ram\r
122	if ((a&0xfffffc)==0xa04000) { PsndFm(a,d); return; } // FM Sound\r
123	\r
124	if (a==0xa11100) { Pico.m.z80Run=(u8)(d^1); return; }\r
125	if (a==0xa10003) { Pico.m.padSelect[0]=(u8)((d>>6)&1); return; } // Joypad 1 select\r
126	if (a==0xa10005) { Pico.m.padSelect[1]=(u8)((d>>6)&1); return; } // Joypad 2 select\r
127	\r
128	if ((a&0xffffe0)==0xc00000) { PicoVideoWrite(a,d\|(d<<8)); return; } // Byte access gets mirrored\r
129	}\r
130	\r
131	static void OtherWrite16(u32 a,u32 d)\r
132	{\r
133	if ((a&0xffffe0)==0xc00000) { PicoVideoWrite(a,d); return; }\r
134	if ((a&0xffe000)==0xa00000) { (u16 )(Pico.zram+(a&0x1ffe))=(u16)d; return; } // Z80 ram\r
135	\r
136	OtherWrite8(a, d>>8);\r
137	OtherWrite8(a+1,d&0xff);\r
138	}\r
139	\r
140	// -----------------------------------------------------------------\r
141	// Read Rom and read Ram\r
142	\r
143	static u8 CPU_CALL PicoRead8(u32 a)\r
144	{\r
145	u32 d=0;\r
146	a&=0xffffff;\r
147	\r
148	if (a<Pico.romsize) return (u8 )(Pico.rom+(a^1)); // Rom\r
149	if ((a&0xe00000)==0xe00000) return (u8 )(Pico.ram+((a^1)&0xffff)); // Ram\r
150	\r
151	d=OtherRead16(a&~1); if ((a&1)==0) d>>=8;\r
152	return (u8)d;\r
153	}\r
154	\r
155	u16 CPU_CALL PicoRead16(u32 a)\r
156	{\r
157	a&=0xfffffe;\r
158	\r
159	if (a<Pico.romsize) { u16 pm=(u16 )(Pico.rom+a); return pm[0]; } // Rom\r
160	if ((a&0xe00000)==0xe00000) { u16 pm=(u16 )(Pico.ram+(a&0xffff)); return pm[0]; } // Ram\r
161	\r
162	return (u16)OtherRead16(a);\r
163	}\r
164	\r
165	u32 CPU_CALL PicoRead32(u32 a)\r
166	{\r
167	a&=0xfffffe;\r
168	\r
169	if (a<Pico.romsize) { u16 pm=(u16 )(Pico.rom+a); return (pm[0]<<16)\|pm[1]; } // Rom\r
170	if ((a&0xe00000)==0xe00000) { u16 pm=(u16 )(Pico.ram+(a&0xffff)); return (pm[0]<<16)\|pm[1]; } // Ram\r
171	\r
172	return (OtherRead16(a)<<16)\|OtherRead16(a+2);\r
173	}\r
174	\r
175	// -----------------------------------------------------------------\r
176	// Write Ram\r
177	\r
178	static void CPU_CALL PicoWrite8(u32 a,u8 d)\r
179	{\r
180	if ((a&0xe00000)==0xe00000) { u8 pm=(u8 )(Pico.ram+((a^1)&0xffff)); pm[0]=d; return; } // Ram\r
181	\r
182	a&=0xffffff;\r
183	OtherWrite8(a,d);\r
184	}\r
185	\r
186	static void CPU_CALL PicoWrite16(u32 a,u16 d)\r
187	{\r
188	if ((a&0xe00000)==0xe00000) { (u16 )(Pico.ram+(a&0xfffe))=d; return; } // Ram\r
189	\r
190	a&=0xfffffe;\r
191	OtherWrite16(a,d);\r
192	}\r
193	\r
194	static void CPU_CALL PicoWrite32(u32 a,u32 d)\r
195	{\r
196	if ((a&0xe00000)==0xe00000)\r
197	{\r
198	// Ram:\r
199	u16 pm=(u16 )(Pico.ram+(a&0xfffe));\r
200	pm[0]=(u16)(d>>16); pm[1]=(u16)d;\r
201	return;\r
202	}\r
203	\r
204	a&=0xfffffe;\r
205	OtherWrite16(a, (u16)(d>>16));\r
206	OtherWrite16(a+2,(u16)d);\r
207	}\r
208	\r
209	\r
210	// -----------------------------------------------------------------\r
211	int PicoMemInit()\r
212	{\r
213	#ifdef EMU_C68K\r
214	// Setup memory callbacks:\r
215	PicoCpu.checkpc=PicoCheckPc;\r
216	PicoCpu.fetch8 =PicoCpu.read8 =PicoRead8;\r
217	PicoCpu.fetch16=PicoCpu.read16=PicoRead16;\r
218	PicoCpu.fetch32=PicoCpu.read32=PicoRead32;\r
219	PicoCpu.write8 =PicoWrite8;\r
220	PicoCpu.write16=PicoWrite16;\r
221	PicoCpu.write32=PicoWrite32;\r
222	#endif\r
223	return 0;\r
224	}\r
225	\r
226	#ifdef EMU_A68K\r
227	struct A68KInter\r
228	{\r
229	u32 unknown;\r
230	u8 (__fastcall *Read8) (u32 a);\r
231	u16 (__fastcall *Read16)(u32 a);\r
232	u32 (__fastcall *Read32)(u32 a);\r
233	void (__fastcall *Write8) (u32 a,u8 d);\r
234	void (__fastcall *Write16) (u32 a,u16 d);\r
235	void (__fastcall *Write32) (u32 a,u32 d);\r
236	void (__fastcall *ChangePc)(u32 a);\r
237	u8 (__fastcall *PcRel8) (u32 a);\r
238	u16 (__fastcall *PcRel16)(u32 a);\r
239	u32 (__fastcall *PcRel32)(u32 a);\r
240	u16 (__fastcall *Dir16)(u32 a);\r
241	u32 (__fastcall *Dir32)(u32 a);\r
242	};\r
243	\r
244	extern "C" struct A68KInter a68k_memory_intf=\r
245	{\r
246	0,\r
247	PicoRead8,\r
248	PicoRead16,\r
249	PicoRead32,\r
250	PicoWrite8,\r
251	PicoWrite16,\r
252	PicoWrite32,\r
253	PicoCheckPc,\r
254	PicoRead8,\r
255	PicoRead16,\r
256	PicoRead32,\r
257	PicoRead16, // unused\r
258	PicoRead32, // unused\r
259	};\r
260	#endif\r