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	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	86	void push_R(void);
14			void pull_R(void);
15
16	dpavlin	82	#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