/[VRac]/M6502/M6502.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /M6502/M6502.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 206 by dpavlin, Mon Apr 14 17:44:48 2008 UTC revision 208 by dpavlin, Mon Apr 14 19:40:02 2008 UTC
# Line 7  use Data::Dump qw/dump/; Line 7  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'dump_R @mem $PC $A $P $X $Y $S $IPeriod $ICount $IRequest $IAutoReset $TrapBadOps $Trap $Trace $debug';  our @EXPORT = qw'dump_R @mem $PC $A $P $X $Y $S $IPeriod $ICount $IRequest $IAutoReset $TrapBadOps $Trap $Trace $debug';
10  our $VERSION = '0.0.3';  our $VERSION = '0.0.4';
11  require XSLoader;  require XSLoader;
12  XSLoader::load('M6502', $VERSION);  XSLoader::load('M6502', $VERSION);
13    
# Line 106  sub ram { Line 106  sub ram {
106          my $self = shift;          my $self = shift;
107          my ( $from, $to ) = @_;          my ( $from, $to ) = @_;
108          warn sprintf("## M6502::ram(%04x,%04x)\n", $from, $to) if $self->debug;          warn sprintf("## M6502::ram(%04x,%04x)\n", $from, $to) if $self->debug;
109          return @mem[ $from .. $to ];  #       return @mem[ $from .. $to ];
110            return unpack('C*', M6502::mem_peek_region( $from, $to ));
111  }  }
112    
113  =head2 write_chunk  =head2 write_chunk
Legend:
Removed from v.206  
changed lines
  Added in v.208
  ViewVC Help
Powered by ViewVC 1.1.26