Parent Directory | Revision Log | Patch
revision 31 by dpavlin, Mon Jul 30 18:07:29 2007 UTC | revision 34 by dpavlin, Mon Jul 30 21:34:30 2007 UTC | |
---|---|---|
# | Line 5 use warnings; | Line 5 use warnings; |
5 | ||
6 | use Data::Dump qw/dump/; | use Data::Dump qw/dump/; |
7 | use Carp qw/confess/; | use Carp qw/confess/; |
8 | use Exporter 'import'; | |
9 | our @EXPORT = qw'@mem'; | |
10 | ||
11 | =head1 NAME | =head1 NAME |
12 | ||
# | Line 21 our @mem = (0xff) x 0x10000; # 64M | Line 23 our @mem = (0xff) x 0x10000; # 64M |
23 | # program counter | # program counter |
24 | our $PC = 0xbeef; | our $PC = 0xbeef; |
25 | # CPU registars | # CPU registars |
26 | our ( $A, $P, $X, $Y, $S ) = (0) x 5; | our ( $A, $P, $X, $Y, $S ) = (0x42) x 5; |
27 | # Set IPeriod to number of CPU cycles between calls to Loop6502 | # Set IPeriod to number of CPU cycles between calls to Loop6502 |
28 | our $IPeriod = 1; | our $IPeriod = 1; |
29 | ||
# | Line 32 Called before C<Run6502> | Line 34 Called before C<Run6502> |
34 | =cut | =cut |
35 | ||
36 | sub init { | sub init { |
37 | warn "inside init\n"; | my $self = shift; |
38 | print "stdout\n"; | warn dump(@_); |
39 | warn "inside init low-level M6502 from $self\n"; | |
40 | }; | }; |
41 | ||
42 | =head2 read | =head2 read |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |