1 // This is part of Pico Library
\r
3 // (c) Copyright 2004 Dave, All rights reserved.
\r
4 // (c) Copyright 2006 notaz, All rights reserved.
\r
5 // Free for non-commercial use.
\r
7 // For commercial use, separate licencing terms must be obtained.
\r
10 #include "PicoInt.h"
\r
13 int SekCycleCnt=0; // cycles done in this frame
\r
14 int SekCycleAim=0; // cycle aim
\r
15 unsigned int SekCycleCntT=0;
\r
18 // ---------------------- Cyclone 68000 ----------------------
\r
19 struct Cyclone PicoCpu;
\r
23 // ---------------------- MUSASHI 68000 ----------------------
\r
24 m68ki_cpu_core PicoM68kCPU; // MD's CPU
\r
28 // ---------------------- A68K ----------------------
\r
30 void __cdecl M68000_RESET();
\r
32 unsigned int mem_amask=0xffffff; // 24-bit bus
\r
33 unsigned int mame_debug=0,cur_mrhard=0,m68k_illegal_opcode=0,illegal_op=0,illegal_pc=0,opcode_entry=0; // filler
\r
35 static int IrqCallback(int i) { i; return -1; }
\r
36 static int DoReset() { return 0; }
\r
37 static int (*ResetCallback)()=DoReset;
\r
39 #pragma warning (disable:4152)
\r
45 // interrupt acknowledgment
\r
46 static int SekIntAck(int level)
\r
48 // try to emulate VDP's reaction to 68000 int ack
\r
49 if (level == 4) { Pico.video.pending_ints = 0; elprintf(EL_INTS, "hack: @ %06x [%i]", SekPc, SekCycleCnt); }
\r
50 else if(level == 6) { Pico.video.pending_ints &= ~0x20; elprintf(EL_INTS, "vack: @ %06x [%i]", SekPc, SekCycleCnt); }
\r
52 return CYCLONE_INT_ACK_AUTOVECTOR;
\r
55 static void SekResetAck(void)
\r
57 elprintf(EL_ANOMALY, "Reset encountered @ %06x", SekPc);
\r
60 static int SekUnrecognizedOpcode()
\r
62 unsigned int pc, op;
\r
64 op = PicoCpu.read16(pc);
\r
65 elprintf(EL_ANOMALY, "Unrecognized Opcode %04x @ %06x", op, pc);
\r
66 // see if we are not executing trash
\r
67 if (pc < 0x200 || (pc > Pico.romsize+4 && (pc&0xe00000)!=0xe00000)) {
\r
69 PicoCpu.state_flags |= 1;
\r
72 #ifdef EMU_M68K // debugging cyclone
\r
74 extern int have_illegal;
\r
85 static int SekIntAckM68K(int level)
\r
87 if (level == 4) { Pico.video.pending_ints = 0; elprintf(EL_INTS, "hack: @ %06x [%i]", SekPc, SekCycleCnt); }
\r
88 else if(level == 6) { Pico.video.pending_ints &= ~0x20; elprintf(EL_INTS, "vack: @ %06x [%i]", SekPc, SekCycleCnt); }
\r
90 return M68K_INT_ACK_AUTOVECTOR;
\r
93 static int SekTasCallback(void)
\r
95 return 0; // no writeback
\r
101 PICO_INTERNAL int SekInit()
\r
105 memset(&PicoCpu,0,sizeof(PicoCpu));
\r
106 PicoCpu.IrqCallback=SekIntAck;
\r
107 PicoCpu.ResetCallback=SekResetAck;
\r
108 PicoCpu.UnrecognizedCallback=SekUnrecognizedOpcode;
\r
111 memset(&M68000_regs,0,sizeof(M68000_regs));
\r
112 M68000_regs.IrqCallback=IrqCallback;
\r
113 M68000_regs.pResetCallback=ResetCallback;
\r
114 M68000_RESET(); // Init cpu emulator
\r
118 void *oldcontext = m68ki_cpu_p;
\r
119 m68k_set_context(&PicoM68kCPU);
\r
120 m68k_set_cpu_type(M68K_CPU_TYPE_68000);
\r
122 m68k_set_int_ack_callback(SekIntAckM68K);
\r
123 m68k_set_tas_instr_callback(SekTasCallback);
\r
124 m68k_pulse_reset(); // Init cpu emulator
\r
125 m68k_set_context(oldcontext);
\r
132 // Reset the 68000:
\r
133 PICO_INTERNAL int SekReset()
\r
135 if (Pico.rom==NULL) return 1;
\r
138 PicoCpu.state_flags=0;
\r
140 PicoCpu.srh =0x27; // Supervisor mode
\r
141 PicoCpu.flags=4; // Z set
\r
143 PicoCpu.a[7]=PicoCpu.read32(0); // Stack Pointer
\r
145 PicoCpu.pc=PicoCpu.checkpc(PicoCpu.read32(4)); // Program Counter
\r
148 // Reset CPU: fetch SP and PC
\r
149 M68000_regs.srh=0x27; // Supervisor mode
\r
150 M68000_regs.a[7]=PicoRead32(0);
\r
151 M68000_regs.pc =PicoRead32(4);
\r
152 PicoInitPc(M68000_regs.pc);
\r
155 m68k_set_context(&PicoM68kCPU); // if we ever reset m68k, we always need it's context to be set
\r
158 m68k_pulse_reset();
\r
165 PICO_INTERNAL int SekInterrupt(int irq)
\r
167 #if defined(EMU_C68K) && defined(EMU_M68K)
\r
169 extern unsigned int dbg_irq_level;
\r
178 M68000_regs.irq=irq; // raise irq (gets lowered after taken)
\r
182 void *oldcontext = m68ki_cpu_p;
\r
183 m68k_set_context(&PicoM68kCPU);
\r
184 m68k_set_irq(irq); // raise irq (gets lowered after taken or must be done in ack)
\r
185 m68k_set_context(oldcontext);
\r
191 //int SekPc() { return PicoCpu.pc-PicoCpu.membase; }
\r
192 //int SekPc() { return M68000_regs.pc; }
\r
193 //int SekPc() { return m68k_get_reg(NULL, M68K_REG_PC); }
\r
195 PICO_INTERNAL void SekState(unsigned char *data)
\r
198 memcpy(data,PicoCpu.d,0x44);
\r
199 #elif defined(EMU_A68K)
\r
200 memcpy(data, M68000_regs.d, 0x40);
\r
201 memcpy(data+0x40,&M68000_regs.pc,0x04);
\r
202 #elif defined(EMU_M68K)
\r
203 memcpy(data, PicoM68kCPU.dar,0x40);
\r
204 memcpy(data+0x40,&PicoM68kCPU.pc, 0x04);
\r
208 PICO_INTERNAL void SekSetRealTAS(int use_real)
\r
211 CycloneSetRealTAS(use_real);
\r