--- M6502/config.h 2007/07/30 17:32:41 29 +++ M6502/config.h 2007/08/02 11:08:10 87 @@ -1,6 +1,40 @@ -// M6502 options -#define EXEC6502 1 -#define DEBUG 1 - // make perlxsi.c happy EXTERN_C void xs_init (pTHX); + +// which module to bootstrap +#define EMU_START "use blib; use Arch;" + +// do we want to dump our C debug? +#define DEBUGF 1 + +// do we wont to dump registars? +//#define DUMP_R 1 + +void push_R(void); +void pull_R(void); + +extern int debug; + +#if DEBUGF +#define debugf(x) do { \ + if (debug) { \ + PerlIO_stdoutf("#> "); \ + PerlIO_stdoutf x ; \ + PerlIO_stdoutf("\n"); \ + } \ +} while (0) +#else +#define debugf(x) +#endif + +#if 1 +#define dump_R do { \ + if (debug) { \ + printf("#> PC: %04x A:%02x P:%02x X:%02x Y:%02x S:%02x\n", \ + R->PC.W, R->A, R->P, R->X, R->Y, R->S ); \ + } \ +} while (0) +#else +#define dump_R +#endif +