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

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