--- M6502/M6502.pm	2007/08/02 12:37:06	91
+++ M6502/M6502.pm	2007/08/02 12:49:19	92
@@ -56,9 +56,11 @@
 
 our $_rw_hooks = {
 	read => sub {
+		warn sprintf("# callback read(%04x) not implemented", @_) if $debug;
 		return $mem[$_[0]];
 	},
 	write => sub {
+		warn sprintf("# callback write(%04x,%02x) not implemented", @_) if $debug;
 		$mem[$_[0]] = $_[1];
 	},
 };