--- Orao.pm	2008/04/14 18:19:06	207
+++ Orao.pm	2008/04/14 19:55:29	209
@@ -85,7 +85,7 @@
 	$self->debug( 0 );
 
 	warn "rendering memory\n";
-	$self->render_mem( @mem );
+	$self->render_mem( M6502::mem_peek_region(0x0000,0xffff) );
 
 	if ( $self->show_mem ) {
 
@@ -127,7 +127,7 @@
 		my $run_for = shift;
 		warn sprintf("about to exec from PC %04x for %d cycles\n", $PC, $run_for) if $self->trace;
 		M6502::exec( $run_for );
-#		$self->render_vram;
+		$self->render_vram;
 	});
 };
 
@@ -406,7 +406,7 @@
 	$self->render_vram if ( $addr >= 0x6000 && $addr <= 0x7fff );
 
 	$self->mmap_pixel( $addr, $byte, 0, 0 ) if $self->show_mem;
-	$mem[$addr] = $byte;
+#	$mem[$addr] = $byte;
 	return;
 }
 
@@ -423,7 +423,9 @@
 sub render_vram {
 	my $self = shift;
 
-	my $pixels = pack("C*", map { $flip[$_] } @mem[ 0x6000 .. 0x7fff ]);
+#	my $pixels = pack("C*", map { $flip[$_] } @mem[ 0x6000 .. 0x7fff ]);
+#	my $pixels = pack("C*", map { $flip[$_] } $self->ram( 0x6000, 0x7fff ));
+	my $pixels = M6502::mem_peek_region( 0x6000, 0x7fff );
 
 	my $vram = SDL::Surface->new(
 		-width => 256,
@@ -435,8 +437,6 @@
 	$vram->set_colors( 0, $black, $white );
 
 	$self->render_frame( $vram );
-
-	print '.';
 }
 
 =head2 cpu_PC
@@ -469,7 +469,7 @@
 	M6502::set_all_callbacks( 0x00 );
 
 	# video ram
-	M6502::set_write_callback( $_ ) foreach ( 0x6000 .. 0x7fff );
+#	M6502::set_write_callback( $_ ) foreach ( 0x6000 .. 0x7fff );
 	# keyboard
 	M6502::set_read_callback( $_ ) foreach ( keys %$keyboard );
 	# tape