/[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 50 by dpavlin, Tue Jul 31 11:14:19 2007 UTC revision 51 by dpavlin, Tue Jul 31 12:35:02 2007 UTC
# Line 83  sub poke_code { Line 83  sub poke_code {
83          my $addr = shift;          my $addr = shift;
84          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;
85          #$mem[$addr++] = $_ foreach @_;          #$mem[$addr++] = $_ foreach @_;
86          $self->write($addr++, $_) foreach @_;          # call low-level write
87            Arch::write($addr++, $_) foreach @_;
88    }
89    
90    =head2 ram
91    
92    Read series of bytes into memory without MMU interaction
93    
94      my @code = $emu->ram( 0xc000, 0xc1000 );
95    
96    =cut
97    
98    sub ram {
99            my $self = shift;
100            my ( $from, $to ) = @_;
101            warn sprintf("## M6502::ram(%04x,%04x)\n", $from, $to) if $self->debug;
102            return @mem[ $from .. $to ];
103  }  }
104    
105  =head2 write_chunk  =head2 write_chunk
Legend:
Removed from v.50  
changed lines
  Added in v.51
  ViewVC Help
Powered by ViewVC 1.1.26