/[VRac]/Orao.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 /Orao.pm

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

revision 39 by dpavlin, Mon Jul 30 23:39:57 2007 UTC revision 41 by dpavlin, Tue Jul 31 08:49:22 2007 UTC
# Line 255  sub read { Line 255  sub read {
255          my $self = shift;          my $self = shift;
256          my ($addr) = @_;          my ($addr) = @_;
257          my $byte = $mem[$addr];          my $byte = $mem[$addr];
258          warn "# Orao::read(",dump(@_),") = ",dump( $byte ),"\n" if $self->trace;          warn sprintf("# Orao::read(%04x) = %02x\n", $addr, $byte) if $self->trace;
259          $self->mmap_pixel( $addr, 0, $byte, 0 );          $self->mmap_pixel( $addr, 0, $byte, 0 );
260          return $byte;          return $byte;
261  }  }
# Line 270  Write into emory Line 270  Write into emory
270    
271  sub write {  sub write {
272          my $self = shift;          my $self = shift;
         warn "# Orao::write(",dump(@_),")\n" if $self->trace;  
273          my ($addr,$byte) = @_;          my ($addr,$byte) = @_;
274            warn sprintf("# Orao::write(%04x,%02x)\n", $addr, $byte) if $self->trace;
275    
276          if ( $addr >= 0x6000 && $addr < 0x8000 ) {          if ( $addr >= 0x6000 && $addr < 0x8000 ) {
277                  $self->vram( $addr - 0x6000 , $byte );                  $self->vram( $addr - 0x6000 , $byte );

Legend:
Removed from v.39  
changed lines
  Added in v.41

  ViewVC Help
Powered by ViewVC 1.1.26