--- M6502/Orao.pm	2007/07/30 21:53:04	35
+++ M6502/Orao.pm	2007/07/30 22:06:13	36
@@ -79,7 +79,12 @@
 		my ( $from, $to, $desc ) = @mmap[$o,$o+1,$o+2];
 		printf "%04x - %04x - %s\n", $from, $to, $desc;
 		for my $a ( $from .. $to ) {
-			$orao->read( $a );
+			if ( $a >= 0x6000 && $a < 0x8000 ) {
+				my $b = $orao->read( $a );
+				$orao->vram( $a - 0x6000, $b );
+			} else {
+				$orao->read( $a );
+			}
 		}
 		$self->sync;
 	}
@@ -266,6 +271,7 @@
 	$self->mmap_pixel( $addr, $byte, 0, 0 );
 
 	$mem[$addr] = $byte;
+	return;
 }