6 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
7 |
use Carp qw/confess/; |
use Carp qw/confess/; |
8 |
use Exporter 'import'; |
use Exporter 'import'; |
9 |
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'; |
10 |
|
our $VERSION = '0.0.2'; |
11 |
|
require XSLoader; |
12 |
|
XSLoader::load('M6502', $VERSION); |
13 |
|
|
14 |
=head1 NAME |
=head1 NAME |
15 |
|
|
17 |
|
|
18 |
=cut |
=cut |
19 |
|
|
20 |
my $debug = 0; |
my $debug = 1; |
|
|
|
|
our $VERSION = qw(0.0.1); |
|
21 |
|
|
22 |
our @mem = (0xff) x 0x10000; # 64M |
our @mem = (0xff) x 0x10000; # 64M |
23 |
|
|