--- M6502/config.h 2007/07/31 11:14:19 50 +++ M6502/config.h 2007/08/02 12:01:09 89 @@ -1,12 +1,37 @@ // make perlxsi.c happy EXTERN_C void xs_init (pTHX); -// which module to bootstrap -#define EMU_START "use Arch;" - // do we want to dump our C debug? -//#define DEBUGF 1 +#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 +