/[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 35 by dpavlin, Mon Jul 30 21:53:04 2007 UTC revision 36 by dpavlin, Mon Jul 30 22:06:13 2007 UTC
# Line 79  sub init { Line 79  sub init {
79                  my ( $from, $to, $desc ) = @mmap[$o,$o+1,$o+2];                  my ( $from, $to, $desc ) = @mmap[$o,$o+1,$o+2];
80                  printf "%04x - %04x - %s\n", $from, $to, $desc;                  printf "%04x - %04x - %s\n", $from, $to, $desc;
81                  for my $a ( $from .. $to ) {                  for my $a ( $from .. $to ) {
82                          $orao->read( $a );                          if ( $a >= 0x6000 && $a < 0x8000 ) {
83                                    my $b = $orao->read( $a );
84                                    $orao->vram( $a - 0x6000, $b );
85                            } else {
86                                    $orao->read( $a );
87                            }
88                  }                  }
89                  $self->sync;                  $self->sync;
90          }          }
# Line 266  sub write { Line 271  sub write {
271          $self->mmap_pixel( $addr, $byte, 0, 0 );          $self->mmap_pixel( $addr, $byte, 0, 0 );
272    
273          $mem[$addr] = $byte;          $mem[$addr] = $byte;
274            return;
275  }  }
276    
277    
Legend:
Removed from v.35  
changed lines
  Added in v.36
  ViewVC Help
Powered by ViewVC 1.1.26