46 |
warn "Orao calling upstream init\n"; |
warn "Orao calling upstream init\n"; |
47 |
$self->SUPER::init( $self, @_ ); |
$self->SUPER::init( $self, @_ ); |
48 |
|
|
49 |
warn "staring Orao $Orao::VERSION emulation\n"; |
warn "Orao $Orao::VERSION emulation starting\n", dump( $self ); |
50 |
|
|
51 |
$self->open_screen; |
$self->open_screen; |
52 |
$self->load_rom({ |
$self->load_rom({ |
282 |
$self->vram( $addr - 0x6000 , $byte ); |
$self->vram( $addr - 0x6000 , $byte ); |
283 |
} |
} |
284 |
|
|
|
if ( $addr > 0xafff ) { |
|
|
warn sprintf "access to %04x above affff aborting\n", $addr; |
|
|
return -1; |
|
|
} |
|
285 |
if ( $addr == 0x8800 ) { |
if ( $addr == 0x8800 ) { |
286 |
warn sprintf "sound ignored: %x\n", $byte; |
warn sprintf "sound ignored: %x\n", $byte; |
287 |
} |
} |
288 |
|
|
289 |
|
if ( $addr > 0xafff ) { |
290 |
|
confess sprintf "write access %04x > afff aborting\n", $self, $addr; |
291 |
|
} |
292 |
|
|
293 |
$self->mmap_pixel( $addr, $byte, 0, 0 ); |
$self->mmap_pixel( $addr, $byte, 0, 0 ); |
294 |
|
|
295 |
$mem[$addr] = $byte; |
$mem[$addr] = $byte; |