--- M6502/M6502.pm 2007/07/30 18:37:37 32 +++ M6502/M6502.pm 2007/07/30 21:00:36 33 @@ -19,7 +19,7 @@ our @mem = (0xff) x 0x10000; # 64M # program counter -our $PC = 0xbeef; +our $PC = 0xdd11; # CPU registars our ( $A, $P, $X, $Y, $S ) = (0) x 5; # Set IPeriod to number of CPU cycles between calls to Loop6502 @@ -32,8 +32,9 @@ =cut sub init { - warn "inside init\n"; - print "stdout\n"; + my $self = shift; + warn dump(@_); + warn "inside init low-level M6502 from $self\n"; }; =head2 read