void emulate(void)
{
_u8 i;
//Execute several instructions to boost performance
for (i = 0; i < 64; i++)
{
updateTimers(TLCS900h_interpret());
if (Z80ACTIVE) Z80EMULATE
updateTimers(TLCS900h_interpret());
}
}
EXPORT void FrameAdvance(MyFrameInfo* frame)
{
lagged = true;
bool MeowMeow = 0;
MDFN_Surface surface;
surface.pixels = frame->VideoBuffer;
surface.pitch32 = 160;
frame->Width = 160;
frame->Height = 152;
frontend_time = frame->FrontendTime;
storeB(0x6f82, frame->Buttons);
ngpc_soundTS = 0;
NGPFrameSkip = frame->SkipRendering;
do
{
int32 timetime = (uint8)TLCS900h_interpret(); // This is sooo not right, but it's replicating the old behavior(which is necessary
// now since I've fixed the TLCS900h core and other places not to truncate cycle counts
// internally to 8-bits). Switch to the #if 0'd block of code once we fix cycle counts in the
// TLCS900h core(they're all sorts of messed up), and investigate if certain long
// instructions are interruptable(by interrupts) and later resumable, RE Rockman Battle
// & Fighters voice sample playback.
//if(timetime > 255)
// printf("%d\n", timetime);
// Note: Don't call updateTimers with a time/tick/cycle/whatever count greater than 255.
MeowMeow |= updateTimers(&surface, timetime);
z80_runtime += timetime;
while (z80_runtime > 0)
{
int z80rantime = Z80_RunOP();
if (z80rantime < 0) // Z80 inactive, so take up all run time!
{
z80_runtime = 0;
break;
}
z80_runtime -= z80rantime << 1;
}
} while (!MeowMeow);
frame->Cycles = ngpc_soundTS;
frame->Samples = MDFNNGPCSOUND_Flush(frame->SoundBuffer, 8192);
frame->Lagged = lagged;
}
static void Emulate(EmulateSpecStruct *espec)
{
bool MeowMeow = 0;
espec->DisplayRect.x = 0;
espec->DisplayRect.y = 0;
espec->DisplayRect.w = 160;
espec->DisplayRect.h = 152;
if(espec->VideoFormatChanged)
NGPGfx->set_pixel_format(espec->surface->format);
if(espec->SoundFormatChanged)
MDFNNGPC_SetSoundRate(espec->SoundRate);
NGPJoyLatch = *chee;
storeB(0x6F82, *chee);
MDFNMP_ApplyPeriodicCheats();
ngpc_soundTS = 0;
NGPFrameSkip = espec->skip;
do
{
#if 0
int32 timetime;
if(main_timeaccum == 0)
{
main_timeaccum = TLCS900h_interpret();
if(main_timeaccum > 255)
{
main_timeaccum = 255;
printf("%d\n", main_timeaccum);
}
}
timetime = std::min<int32>(main_timeaccum, 24);
main_timeaccum -= timetime;
#else
#if 0
uint32 old_pc = pc;
{
uint32 xix = gpr[0];
uint32 xiz = gpr[2];
printf("%08x %08x --- %s\n", xix, xiz, TLCS900h_disassemble());
}
pc = old_pc;
#endif
int32 timetime = (uint8)TLCS900h_interpret(); // This is sooo not right, but it's replicating the old behavior(which is necessary
// now since I've fixed the TLCS900h core and other places not to truncate cycle counts
// internally to 8-bits). Switch to the #if 0'd block of code once we fix cycle counts in the
// TLCS900h core(they're all sorts of messed up), and investigate if certain long
// instructions are interruptable(by interrupts) and later resumable, RE Rockman Battle
// & Fighters voice sample playback.
#endif
//if(timetime > 255)
// printf("%d\n", timetime);
// Note: Don't call updateTimers with a time/tick/cycle/whatever count greater than 255.
MeowMeow |= updateTimers(espec->surface, timetime);
z80_runtime += timetime;
while(z80_runtime > 0)
{
int z80rantime = Z80_RunOP();
if(z80rantime < 0) // Z80 inactive, so take up all run time!
{
z80_runtime = 0;
break;
}
z80_runtime -= z80rantime << 1;
}
} while(!MeowMeow);
espec->MasterCycles = ngpc_soundTS;
espec->SoundBufSize = MDFNNGPCSOUND_Flush(espec->SoundBuf, espec->SoundBufMaxSize);
}
void emulate_debug(BOOL dis_TLCS900h, BOOL dis_Z80)
{
_u32 storePC = pc;
debug_abort_memory = FALSE;
debug_abort_instruction = FALSE;
system_debug_history_add(); //For the debugger
if (dis_TLCS900h)
{
char* s;
//Disassemble TLCS-900h
_u32 oldpc = pc;
s = disassemble();
system_debug_message(s);
system_debug_message_associate_address(oldpc);
free(s);
pc = oldpc;
}
if (dis_Z80)
{
//Disassemble Z80
if (Z80ACTIVE)
{
char* s;
_u16 pc = Z80_getReg(Z80_REG_PC);
_u16 store_pc = pc;
//Disassemble
s = Z80_disassemble(&pc);
system_debug_message(s);
system_debug_message_associate_address(store_pc + 0x7000);
free(s);
}
}
debug_abort_memory = FALSE;
debug_abort_instruction = FALSE;
//==================
// EMULATE
//==================
{
//TLCS900h instruction
updateTimers(TLCS900h_interpret());
//Z80 Instruction
if (Z80ACTIVE) Z80EMULATE;
}
//Check register code error
if (rErr != RERR_VALUE)
instruction_error("Invalid register code used.");
//Memory Exception
if (debug_abort_memory && filter_mem)
{
_u32 oldpc = pc;
char* s;
debug_abort_memory = FALSE;
//Try to disassemble the erroneous instruction
pc = storePC;
debug_mask_memory_error_messages = TRUE;
s = disassemble();
debug_mask_memory_error_messages = FALSE;
if (debug_abort_memory == FALSE)
{
system_debug_message("Stopped due to memory exception caused by");
system_debug_message(" %s", s);
system_debug_message_associate_address(storePC);
system_debug_message("\n");
}
else
{
system_debug_message("Stopped due to memory exception caused at %06X", storePC);
system_debug_message_associate_address(storePC);
}
free(s);
pc = oldpc;
system_debug_stop();
system_debug_refresh();
return;
}
//Unimplemented Instruction
if (debug_abort_instruction)
{
_u32 oldpc = pc;
char* s;
debug_abort_memory = FALSE;
//Try to disassemble the erroneous instruction
pc = storePC;
debug_mask_memory_error_messages = TRUE;
s = disassemble();
debug_mask_memory_error_messages = FALSE;
if (debug_abort_memory == FALSE)
{
system_debug_message("Stopped due to instruction");
system_debug_message(" %s", s);
system_debug_message_associate_address(storePC);
system_debug_message("\n");
}
else
{
system_debug_message("Stopped due to instruction at %06X", storePC);
system_debug_message_associate_address(storePC);
}
free(s);
pc = oldpc;
system_debug_stop();
system_debug_refresh();
return;
}
}
