/[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 203 by dpavlin, Sun Apr 13 22:04:44 2008 UTC revision 206 by dpavlin, Mon Apr 14 17:44:48 2008 UTC
# Line 21  M6502 - perl bindings for M6502 CPU emul Line 21  M6502 - perl bindings for M6502 CPU emul
21    
22  our $debug = 0;  our $debug = 0;
23    
24  our @mem; # = (0xff) x 0x10000; # 64M  our @mem;
25    #@mem = (0xff) x 0x10000;       # 64M
26  tie @mem, 'M6502::TieMem';  tie @mem, 'M6502::TieMem';
27    
28  # program counter  # program counter
# Line 88  sub poke_code { Line 89  sub poke_code {
89          my $self = shift;          my $self = shift;
90          my $addr = shift;          my $addr = shift;
91          warn sprintf("## M6502::poke_code(%04x,%s)\n", $addr, dump( @_ )) if $self->debug;          warn sprintf("## M6502::poke_code(%04x,%s)\n", $addr, dump( @_ )) if $self->debug;
         #$mem[$addr++] = $_ foreach @_;  
92          # call low-level write          # call low-level write
93          $_rw_hooks->{write}->( $addr++, $_ ) foreach @_;          #$_rw_hooks->{write}->( $addr++, $_ ) foreach @_;
94            $mem[$addr++] = $_ foreach @_;
95  }  }
96    
97  =head2 ram  =head2 ram
# Line 280  sub FETCH { Line 281  sub FETCH {
281          my $self = shift;          my $self = shift;
282          my $n    = shift;          my $n    = shift;
283          my $val = M6502::mem_peek( $n );          my $val = M6502::mem_peek( $n );
284          warn sprintf("FETCH %04x = %02x\n", $n, $val);  #       warn sprintf("FETCH %04x = %02x\n", $n, $val);
285          return $val;          return $val;
286  }  }
287    
# Line 299  sub STORE { Line 300  sub STORE {
300                  return;                  return;
301          }          }
302          M6502::mem_poke( $n, $val );          M6502::mem_poke( $n, $val );
303          warn sprintf("STORE %04x <- %02x\n",$n, $val);  #       warn sprintf("STORE %04x <- %02x\n",$n, $val);
304          return $val;          return $val;
305  }  }
306    
Legend:
Removed from v.203  
changed lines
  Added in v.206
  ViewVC Help
Powered by ViewVC 1.1.26