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'@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 |
|
|
19 |
|
|
20 |
my $debug = 0; |
my $debug = 0; |
21 |
|
|
|
our $VERSION = qw(0.0.1); |
|
|
|
|
22 |
our @mem = (0xff) x 0x10000; # 64M |
our @mem = (0xff) x 0x10000; # 64M |
23 |
|
|
24 |
# program counter |
# program counter |