--- M6502/M6502.pm 2007/07/30 21:00:36 33 +++ M6502/M6502.pm 2007/07/30 21:34:30 34 @@ -5,6 +5,8 @@ use Data::Dump qw/dump/; use Carp qw/confess/; +use Exporter 'import'; +our @EXPORT = qw'@mem'; =head1 NAME @@ -19,9 +21,9 @@ our @mem = (0xff) x 0x10000; # 64M # program counter -our $PC = 0xdd11; +our $PC = 0xbeef; # CPU registars -our ( $A, $P, $X, $Y, $S ) = (0) x 5; +our ( $A, $P, $X, $Y, $S ) = (0x42) x 5; # Set IPeriod to number of CPU cycles between calls to Loop6502 our $IPeriod = 1;