VRac/M6502/config.h

// 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);

#if DEBUGF
#define debugf(x)  do {         \
        PerlIO_stdoutf("#> ");  \
        PerlIO_stdoutf x ;      \
        PerlIO_stdoutf("\n");   \
} while (0)
#else
#define debugf(x)
#endif

#if 1
#define dump_R 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 );
#else
#define dump_R
#endif

1	// make perlxsi.c happy
2	EXTERN_C void xs_init (pTHX);
3
4	// which module to bootstrap
5	#define EMU_START "use blib; use Arch;"
6
7	// do we want to dump our C debug?
8	#define DEBUGF 1
9
10	// do we wont to dump registars?
11	#define DUMP_R 1
12
13	void push_R(void);
14	void pull_R(void);
15
16	#if DEBUGF
17	#define debugf(x) do { \
18	PerlIO_stdoutf("#> "); \
19	PerlIO_stdoutf x ; \
20	PerlIO_stdoutf("\n"); \
21	} while (0)
22	#else
23	#define debugf(x)
24	#endif
25
26	#if 1
27	#define dump_R 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 );
28	#else
29	#define dump_R
30	#endif
31