--- M6502/Orao.pm	2007/07/31 17:42:03	71
+++ M6502/Orao.pm	2007/08/01 13:01:17	77
@@ -51,11 +51,13 @@
 	$self->open_screen;
 	$self->load_rom({
 		0x1000 => 'dump/SCRINV.BIN',
+		# should be 0x6000, but oraoemu has 2 byte prefix
+		0x5FFE => 'dump/screen.dmp',
 		0xC000 => 'rom/BAS12.ROM',
 		0xE000 => 'rom/CRT12.ROM',
 	});
 
-	$PC = 0xDD11;	# BC
+#	$PC = 0xDD11;	# BC
 #	$PC = 0xC274;	# MC
 
 	$orao = $self;
@@ -66,10 +68,14 @@
 	$self->trace( 0 );
 	$self->debug( 0 );
 
+	$self->render( @mem[ 0x6000 .. 0x7fff ] );
+
 	if ( $self->show_mem ) {
 
 		warn "rendering memory map\n";
 
+		$self->render_mem( @mem );
+
 		my @mmap = (
 			0x0000, 0x03FF, 'nulti blok',
 			0x0400, 0x5FFF, 'korisnički RAM (23K)',
@@ -81,26 +87,10 @@
 			0xE000, 0xFFFF, 'sistemski ROM',
 		);
 
-		foreach my $i ( 0 .. $#mmap / 3 ) {
-			my $o = $i * 3;
-			my ( $from, $to, $desc ) = @mmap[$o,$o+1,$o+2];
-			printf "%04x - %04x - %s\n", $from, $to, $desc;
-			for my $a ( $from .. $to ) {
-				if ( $a >= 0x6000 && $a < 0x8000 ) {
-					my $b = $self->read( $a );
-					$self->vram( $a - 0x6000, $b );
-				} else {
-					$self->read( $a );
-				}
-			}
-		}
-
 	} else {
 
 		warn "rendering video memory\n";
-		for my $a ( 0x6000 .. 0x7fff ) {
-			$self->vram( $a - 0x6000, $mem[$a] );
-		}
+		$self->render( @mem[ 0x6000 .. 0x7fff ] );
 	
 	}
 	$self->sync;
@@ -152,9 +142,11 @@
 	$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 ] );
-	}
+#	foreach my $a ( $f .. $t ) {
+#		$self->vram( $a - 0x6000 , $mem[ $a ] );
+#	}
+	$self->render( @mem[ 0x6000 .. 0x7fff ] );
+	$self->render_mem( @mem ) if $self->show_mem;
 }
 
 =head2 load_oraoemu