/[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 34 by dpavlin, Mon Jul 30 21:34:30 2007 UTC revision 35 by dpavlin, Mon Jul 30 21:53:04 2007 UTC
# Line 6  use warnings; Line 6  use warnings;
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';  our @EXPORT = qw'@mem $PC $A $P $X $Y $S $IPeriod';
10    
11  =head1 NAME  =head1 NAME
12    
# Line 106  Read searies of bytes from memory withou Line 106  Read searies of bytes from memory withou
106  sub ram {  sub ram {
107          my $self = shift;          my $self = shift;
108          my ($from,$to) = @_;          my ($from,$to) = @_;
109            warn "ram($from,$to)\n";
110          if ($from + $to) {          if ($from + $to) {
111                  printf "ram %04x - %04x\n", $from, $to;                  printf "ram %04x - %04x\n", $from, $to;
112                  return $mem[$from .. $to - 1];                  return @mem[$from .. $to - 1];
113          }          }
114          printf "ram %04x\n", $from;          printf "ram %04x\n", $from;
115          return $mem[$from] if defined($from);          return $mem[$from] if defined($from);
Legend:
Removed from v.34  
changed lines
  Added in v.35
  ViewVC Help
Powered by ViewVC 1.1.26