--- M6502/Orao.pm	2007/08/03 08:44:45	106
+++ M6502/Orao.pm	2007/08/03 08:57:37	107
@@ -82,7 +82,8 @@
 	$self->trace( 0 );
 	$self->debug( 0 );
 
-	$self->render( @mem[ 0x6000 .. 0x7fff ] );
+	warn "rendering video memory\n";
+	$self->render_vram( @mem[ 0x6000 .. 0x7fff ] );
 
 	if ( $self->show_mem ) {
 
@@ -101,11 +102,6 @@
 			0xE000, 0xFFFF, 'sistemski ROM',
 		);
 
-	} else {
-
-		warn "rendering video memory\n";
-		$self->render( @mem[ 0x6000 .. 0x7fff ] );
-	
 	}
 	$self->sync;
 	$self->trace( $trace );
@@ -176,10 +172,7 @@
 	$t = $end if ( $end < $t );
 
 	warn sprintf("refresh video ram %04x-%04x\n", $f, $t);
-#	foreach my $a ( $f .. $t ) {
-#		$self->vram( $a - 0x6000 , $mem[ $a ] );
-#	}
-	$self->render( @mem[ 0x6000 .. 0x7fff ] );
+	$self->render_vram( @mem[ 0x6000 .. 0x7fff ] );
 	$self->render_mem( @mem ) if $self->show_mem;
 }
 
@@ -467,10 +460,6 @@
 	my ($addr,$byte) = @_;
 	warn sprintf("# Orao::write(%04x,%02x)\n", $addr, $byte) if $self->trace;
 
-	if ( $addr >= 0x6000 && $addr < 0x8000 ) {
-#		$self->vram( $addr - 0x6000 , $byte );
-	}
-
 	if ( $addr == 0x8800 ) {
 		warn sprintf "sound ignored: %x\n", $byte;
 	}