erc-c/src/apple2/reflect.c

33 lines
610 B
C

/*
* apple2.reflect.c
*
* Implement the reflection handlers for the virtual machine when the
* apple2 machine is being emulated.
*/
#include "apple2/apple2.h"
#include "apple2/reflect.h"
#include "vm_di.h"
/*
* Initialize the reflection struct for the apple2 machine, setting up
* all of the reflect methods we may want to use.
*/
void
apple2_event_init()
{
vm_di_set(VM_PAUSE_FUNC, apple2_event_pause);
}
EVENT_DO(apple2_event_pause)
{
apple2 *mach = (apple2 *)_mach;
mach->paused = true;
}
EVENT_DO(apple2_event_debug)
{
apple2 *mach = (apple2 *)_mach;
mach->paused = true;
}