Parent Directory | Revision Log | Patch
revision 31 by dpavlin, Mon Jul 30 18:07:29 2007 UTC | revision 33 by dpavlin, Mon Jul 30 21:00:36 2007 UTC | |
---|---|---|
# | Line 19 our $VERSION = qw(0.0.1); | Line 19 our $VERSION = qw(0.0.1); |
19 | our @mem = (0xff) x 0x10000; # 64M | our @mem = (0xff) x 0x10000; # 64M |
20 | ||
21 | # program counter | # program counter |
22 | our $PC = 0xbeef; | our $PC = 0xdd11; |
23 | # CPU registars | # CPU registars |
24 | our ( $A, $P, $X, $Y, $S ) = (0) x 5; | our ( $A, $P, $X, $Y, $S ) = (0) x 5; |
25 | # Set IPeriod to number of CPU cycles between calls to Loop6502 | # Set IPeriod to number of CPU cycles between calls to Loop6502 |
# | Line 32 Called before C<Run6502> | Line 32 Called before C<Run6502> |
32 | =cut | =cut |
33 | ||
34 | sub init { | sub init { |
35 | warn "inside init\n"; | my $self = shift; |
36 | print "stdout\n"; | warn dump(@_); |
37 | warn "inside init low-level M6502 from $self\n"; | |
38 | }; | }; |
39 | ||
40 | =head2 read | =head2 read |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |