--- M6502/perl.c	2007/08/01 15:53:54	81
+++ M6502/perl.c	2007/08/01 21:40:17	82
@@ -3,15 +3,6 @@
 #include "M6502.h"
 #include "config.h"
 
-#if DEBUGF
-#define debugf(x)  do {		\
-	PerlIO_stdoutf("#> ");	\
-	PerlIO_stdoutf x ;	\
-} while (0)
-#else
-#define debugf(x)
-#endif
-
 static PerlInterpreter *my_perl;
 
 static M6502 *R;
@@ -81,6 +72,7 @@
 byte mem(word Addr) {
 	byte byte;
 	int count;
+	debugf(("mem(%04x)\n", Addr));
 	dSP;
 	ENTER;
 	SAVETMPS;