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