VRac/M6502/config.h

// make perlxsi.c happy
EXTERN_C void xs_init (pTHX);

// do we want to dump our C debug?
#define DEBUGF 1

// do we wont to dump registars?
//#define DUMP_R 1

#define MEM_SIZE 0xffff

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

1	dpavlin	29	// make perlxsi.c happy
2			EXTERN_C void xs_init (pTHX);
3	dpavlin	30
4	dpavlin	33	// do we want to dump our C debug?
5	dpavlin	81	#define DEBUGF 1
6	dpavlin	34
7	dpavlin	36	// do we wont to dump registars?
8	dpavlin	87	//#define DUMP_R 1
9	dpavlin	39
10	dpavlin	100	#define MEM_SIZE 0xffff
11
12	dpavlin	86	void push_R(void);
13			void pull_R(void);
14
15	dpavlin	87	extern int debug;
16
17	dpavlin	82	#if DEBUGF
18	dpavlin	87	#define debugf(x) do { \
19			if (debug) { \
20			PerlIO_stdoutf("#> "); \
21			PerlIO_stdoutf x ; \
22			PerlIO_stdoutf("\n"); \
23			} \
24	dpavlin	82	} while (0)
25			#else
26			#define debugf(x)
27			#endif
28
29			#if 1
30	dpavlin	87	#define dump_R do { \
31			if (debug) { \
32			printf("#> PC: %04x A:%02x P:%02x X:%02x Y:%02x S:%02x\n", \
33			R->PC.W, R->A, R->P, R->X, R->Y, R->S ); \
34			} \
35			} while (0)
36	dpavlin	82	#else
37			#define dump_R
38			#endif
39