80 lines
2.1 KiB
C
80 lines
2.1 KiB
C
#undef VBAPI
|
|
#include <stdlib.h>
|
|
#include <emscripten/emscripten.h>
|
|
#include <vb.h>
|
|
|
|
|
|
|
|
/////////////////////////////// Module Commands ///////////////////////////////
|
|
|
|
// Create and initialize a new simulation
|
|
EMSCRIPTEN_KEEPALIVE VB* Create() {
|
|
VB *sim = malloc(sizeof (VB));
|
|
vbInit(sim);
|
|
return sim;
|
|
}
|
|
|
|
// Delete all memory used by a simulation
|
|
EMSCRIPTEN_KEEPALIVE void Delete(VB *sim) {
|
|
free(sim->cart.ram);
|
|
free(sim->cart.rom);
|
|
free(sim);
|
|
}
|
|
|
|
// Proxy for free()
|
|
EMSCRIPTEN_KEEPALIVE void Free(void *ptr) {
|
|
free(ptr);
|
|
}
|
|
|
|
// Proxy for malloc()
|
|
EMSCRIPTEN_KEEPALIVE void* Malloc(int size) {
|
|
return malloc(size);
|
|
}
|
|
|
|
// Size in bytes of a pointer
|
|
EMSCRIPTEN_KEEPALIVE int PointerSize() {
|
|
return sizeof (void *);
|
|
}
|
|
|
|
|
|
|
|
////////////////////////////// Debugger Commands //////////////////////////////
|
|
|
|
// Execute until the following instruction
|
|
static uint32_t RunToNextAddress;
|
|
static int RunToNextFetch(VB *sim, int fetch, VBAccess *access) {
|
|
return access->address == RunToNextAddress;
|
|
}
|
|
static int RunToNextExecute(VB *sim, VBInstruction *inst) {
|
|
RunToNextAddress = inst->address + inst->size;
|
|
vbSetCallback(sim, VB_ONEXECUTE, NULL);
|
|
vbSetCallback(sim, VB_ONFETCH, &RunToNextFetch);
|
|
return 0;
|
|
}
|
|
EMSCRIPTEN_KEEPALIVE void RunToNext(VB **sims, int count) {
|
|
uint32_t clocks = 20000000; // 1s
|
|
vbSetCallback(sims[0], VB_ONEXECUTE, &RunToNextExecute);
|
|
vbEmulateEx (sims, count, &clocks);
|
|
vbSetCallback(sims[0], VB_ONEXECUTE, NULL);
|
|
vbSetCallback(sims[0], VB_ONFETCH , NULL);
|
|
}
|
|
|
|
// Execute the current instruction
|
|
static int SingleStepBreak;
|
|
static int SingleStepFetch(VB *sim, int fetch, VBAccess *access) {
|
|
if (fetch != 0)
|
|
return 0;
|
|
if (SingleStepBreak == 1)
|
|
return 1;
|
|
SingleStepBreak = 1;
|
|
return 0;
|
|
}
|
|
EMSCRIPTEN_KEEPALIVE void SingleStep(VB **sims, int count) {
|
|
uint32_t clocks = 20000000; // 1s
|
|
SingleStepBreak = sims[0]->cpu.stage == 0 ? 0 : 1;
|
|
vbSetCallback(sims[0], VB_ONFETCH, &SingleStepFetch);
|
|
vbEmulateEx (sims, count, &clocks);
|
|
vbSetCallback(sims[0], VB_ONEXECUTE, NULL);
|
|
vbSetCallback(sims[0], VB_ONFETCH , NULL);
|
|
}
|