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 |
} |
} |
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 |
|
|