static void log_data(const device_t *device, const char *type,
const UINT8 *data, int data_length) {
if (VERBOSE > 0) {
int i;
logerror("%s - %s: %s (length=%2x)", apollo_cpu_context(
device->machine().firstcpu), device->tag(), type, data_length);
for (i = 0; i < data_length; i++) {
logerror(" %02x", data[i]);
}
logerror("\n");
}
}
int apollo_debug_instruction_hook(m68000_base_device *device, offs_t curpc)
{
// trap data remembered for next rte
static struct {
UINT32 pc;
UINT32 sp;
UINT16 trap_no;
UINT16 trap_code;
} trap = { 0, 0, 0, 0 };
if (apollo_config( APOLLO_CONF_TRAP_TRACE | APOLLO_CONF_FPU_TRACE))
{
UINT32 ppc_save;
UINT16 ir;
m68000_base_device *m68k = device;
m68k->mmu_tmp_buserror_occurred = 0;
/* Read next instruction */
ir = (m68k->pref_addr == REG_PC(m68k)) ? m68k->pref_data : m68k->readimm16(REG_PC(m68k));
// apollo_cpu_context expects the PC of current opcode in REG_PPC (not the previous PC)
ppc_save = REG_PPC(m68k);
REG_PPC(m68k) = REG_PC(m68k);
if (m68k->mmu_tmp_buserror_occurred)
{
m68k->mmu_tmp_buserror_occurred = 0;
// give up
}
else if ((ir & 0xff00) == 0xf200 && (apollo_config( APOLLO_CONF_FPU_TRACE)))
{
char sb[256];
LOG(("%s sp=%08x FPU: %x %s", apollo_cpu_context(device->machine().firstcpu),
REG_A(m68k)[7], ir, disassemble(m68k, REG_PC(m68k), sb)));
}
else if (!m68k->pmmu_enabled)
{
// skip
}
else if (ir == 0x4e73) // RTE
{
const UINT16 *data = get_data(m68k, REG_A(m68k)[7]);
if ( REG_USP(m68k) == 0 && (data[0] & 0x2000) == 0) {
LOG(("%s sp=%08x RTE: sr=%04x pc=%04x%04x v=%04x usp=%08x",
apollo_cpu_context(device->machine().firstcpu),
REG_A(m68k)[7], data[0], data[1], data[2], data[3], REG_USP(m68k)));
}
}
else if ((ir & 0xfff0) == 0x4e40 && (ir & 0x0f) <= 8 && apollo_config(APOLLO_CONF_TRAP_TRACE))
{
// trap n
trap.pc = REG_PC(m68k);
trap.sp = REG_A(m68k)[7];
trap.trap_no = ir & 0x0f;
trap.trap_code = REG_D(m68k)[0] & 0xffff;
char sb[1000];
LOG(("%s sp=%08x Domain/OS SVC: trap %x 0x%02x: %s",
apollo_cpu_context(device->machine().firstcpu), trap.sp,
trap.trap_no, trap.trap_code,
get_svc_call(m68k, trap.trap_no, trap.trap_code, sb)));
}
else if (trap.pc == REG_PC(m68k) - 2 && trap.sp == REG_A(m68k)[7])
{
// rte
char sb[1000];
LOG(("%s sp=%08x Domain/OS SVC: %s D0=0x%x",
apollo_cpu_context(device->machine().firstcpu), trap.sp,
get_svc_call(m68k, trap.trap_no, trap.trap_code, sb), REG_D(m68k)[0]));
trap.pc = 0;
trap.sp = 0;
trap.trap_no = 0;
trap.trap_code = 0;
}
// restore previous PC
REG_PPC(m68k) = ppc_save;
}
return 0;
}
