--- M6502/M6502.pm 2007/08/01 22:02:09 85 +++ M6502/M6502.pm 2007/08/01 22:25:37 86 @@ -6,7 +6,7 @@ use Data::Dump qw/dump/; use Carp qw/confess/; use Exporter 'import'; -our @EXPORT = qw'@mem $PC $A $P $X $Y $S $IPeriod $ICount $IRequest $IAutoReset $TrapBadOps $Trap $Trace $run_for $debug'; +our @EXPORT = qw'dump_R @mem $PC $A $P $X $Y $S $IPeriod $ICount $IRequest $IAutoReset $TrapBadOps $Trap $Trace $run_for $debug'; our $VERSION = '0.0.2'; require XSLoader; XSLoader::load('M6502', $VERSION); @@ -17,7 +17,7 @@ =cut -my $debug = 0; +my $debug = 1; our @mem = (0xff) x 0x10000; # 64M