--- M6502/Orao.pm 2007/07/31 12:35:02 51 +++ M6502/Orao.pm 2007/07/31 12:57:35 52 @@ -46,7 +46,7 @@ warn "Orao calling upstream init\n"; $self->SUPER::init( $self, @_ ); - warn "staring Orao $Orao::VERSION emulation\n"; + warn "Orao $Orao::VERSION emulation starting\n", dump( $self ); $self->open_screen; $self->load_rom({ @@ -282,14 +282,14 @@ $self->vram( $addr - 0x6000 , $byte ); } - if ( $addr > 0xafff ) { - warn sprintf "access to %04x above affff aborting\n", $addr; - return -1; - } if ( $addr == 0x8800 ) { warn sprintf "sound ignored: %x\n", $byte; } + if ( $addr > 0xafff ) { + confess sprintf "write access %04x > afff aborting\n", $self, $addr; + } + $self->mmap_pixel( $addr, $byte, 0, 0 ); $mem[$addr] = $byte;