123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193 |
- /*
- * PicoDrive
- * (C) notaz, 2007
- *
- * This work is licensed under the terms of MAME license.
- * See COPYING file in the top-level directory.
- */
- #include "../pico_int.h"
- unsigned int SekCycleCntS68k;
- unsigned int SekCycleAimS68k;
- /* context */
- // Cyclone 68000
- #ifdef EMU_C68K
- struct Cyclone PicoCpuCS68k;
- #endif
- // MUSASHI 68000
- #ifdef EMU_M68K
- m68ki_cpu_core PicoCpuMS68k;
- #endif
- // FAME 68000
- #ifdef EMU_F68K
- M68K_CONTEXT PicoCpuFS68k;
- #endif
- static int new_irq_level(int level)
- {
- int level_new = 0, irqs;
- Pico_mcd->m.s68k_pend_ints &= ~(1 << level);
- irqs = Pico_mcd->m.s68k_pend_ints;
- irqs &= Pico_mcd->s68k_regs[0x33];
- while ((irqs >>= 1)) level_new++;
- return level_new;
- }
- #ifdef EMU_C68K
- // interrupt acknowledgement
- static int SekIntAckS68k(int level)
- {
- int level_new = new_irq_level(level);
- elprintf(EL_INTS, "s68kACK %i -> %i", level, level_new);
- PicoCpuCS68k.irq = level_new;
- return CYCLONE_INT_ACK_AUTOVECTOR;
- }
- static void SekResetAckS68k(void)
- {
- elprintf(EL_ANOMALY, "s68k: Reset encountered @ %06x", SekPcS68k);
- }
- static int SekUnrecognizedOpcodeS68k(void)
- {
- elprintf(EL_ANOMALY, "Unrecognized Opcode @ %06x", SekPcS68k);
- //exit(1);
- return 0;
- }
- #endif
- #ifdef EMU_M68K
- static int SekIntAckMS68k(int level)
- {
- #ifndef EMU_CORE_DEBUG
- int level_new = new_irq_level(level);
- elprintf(EL_INTS, "s68kACK %i -> %i", level, level_new);
- CPU_INT_LEVEL = level_new << 8;
- #else
- CPU_INT_LEVEL = 0;
- #endif
- return M68K_INT_ACK_AUTOVECTOR;
- }
- #endif
- #ifdef EMU_F68K
- static void SekIntAckFS68k(unsigned level)
- {
- int level_new = new_irq_level(level);
- elprintf(EL_INTS, "s68kACK %i -> %i", level, level_new);
- #ifndef EMU_CORE_DEBUG
- PicoCpuFS68k.interrupts[0] = level_new;
- #else
- {
- extern int dbg_irq_level_sub;
- dbg_irq_level_sub = level_new;
- PicoCpuFS68k.interrupts[0] = 0;
- }
- #endif
- }
- #endif
- PICO_INTERNAL void SekInitS68k(void)
- {
- #ifdef EMU_C68K
- // CycloneInit();
- memset(&PicoCpuCS68k,0,sizeof(PicoCpuCS68k));
- PicoCpuCS68k.IrqCallback=SekIntAckS68k;
- PicoCpuCS68k.ResetCallback=SekResetAckS68k;
- PicoCpuCS68k.UnrecognizedCallback=SekUnrecognizedOpcodeS68k;
- #endif
- #ifdef EMU_M68K
- {
- // Musashi is not very context friendly..
- void *oldcontext = m68ki_cpu_p;
- m68k_set_context(&PicoCpuMS68k);
- m68k_set_cpu_type(M68K_CPU_TYPE_68000);
- m68k_init();
- m68k_set_int_ack_callback(SekIntAckMS68k);
- // m68k_pulse_reset(); // not yet, memmap is not set up
- m68k_set_context(oldcontext);
- }
- #endif
- #ifdef EMU_F68K
- memset(&PicoCpuFS68k, 0, sizeof(PicoCpuFS68k));
- fm68k_init();
- PicoCpuFS68k.iack_handler = SekIntAckFS68k;
- PicoCpuFS68k.sr = 0x2704; // Z flag
- #endif
- }
- // Reset the 68000:
- PICO_INTERNAL int SekResetS68k(void)
- {
- if (Pico.rom==NULL) return 1;
- #ifdef EMU_C68K
- CycloneReset(&PicoCpuCS68k);
- #endif
- #ifdef EMU_M68K
- {
- void *oldcontext = m68ki_cpu_p;
- m68k_set_context(&PicoCpuMS68k);
- m68ki_cpu.sp[0]=0;
- m68k_set_irq(0);
- m68k_pulse_reset();
- m68k_set_context(oldcontext);
- }
- #endif
- #ifdef EMU_F68K
- fm68k_reset(&PicoCpuFS68k);
- #endif
- return 0;
- }
- PICO_INTERNAL int SekInterruptS68k(int irq)
- {
- int irqs, real_irq = 1;
- Pico_mcd->m.s68k_pend_ints |= 1 << irq;
- irqs = Pico_mcd->m.s68k_pend_ints >> 1;
- while ((irqs >>= 1)) real_irq++;
- #ifdef EMU_CORE_DEBUG
- {
- extern int dbg_irq_level_sub;
- dbg_irq_level_sub=real_irq;
- return 0;
- }
- #endif
- #ifdef EMU_C68K
- PicoCpuCS68k.irq=real_irq;
- #endif
- #ifdef EMU_M68K
- // avoid m68k_set_irq() for delaying to work
- PicoCpuMS68k.int_level = real_irq << 8;
- #endif
- #ifdef EMU_F68K
- PicoCpuFS68k.interrupts[0]=real_irq;
- #endif
- return 0;
- }
- void SekInterruptClearS68k(int irq)
- {
- int level_new = new_irq_level(irq);
- #ifdef EMU_C68K
- PicoCpuCS68k.irq = level_new;
- #endif
- #ifdef EMU_M68K
- CPU_INT_LEVEL = level_new << 8;
- #endif
- #ifdef EMU_F68K
- PicoCpuFS68k.interrupts[0] = level_new;
- #endif
- }
|