--- M6502/Orao.pm	2007/07/30 23:28:25	38
+++ M6502/Orao.pm	2007/07/30 23:39:57	39
@@ -54,7 +54,7 @@
 	});
 
 	$self->load_oraoemu( 'dump/orao-1.2' );
-	$self->load_oraoemu( 'dump/SCRINV.BIN' );
+	$self->load_oraoemu( 'dump/SCRINV.BIN', 0x1000 );
 	$PC = 0x1000;
 
 	$orao = $self;
@@ -104,7 +104,7 @@
 	$self->sync;
 	$self->trace( $trace );
 
-	( $A, $P, $X, $Y, $S, $IPeriod ) = ( 1, 2, 3, 4, 5, 6 );
+	#( $A, $P, $X, $Y, $S, $IPeriod ) = ( 1, 2, 3, 4, 5, 6 );
 
 	warn "Orao init finished", $self->trace ? ' trace on' : '', "\n";
 
@@ -255,7 +255,7 @@
 	my $self = shift;
 	my ($addr) = @_;
 	my $byte = $mem[$addr];
-	warn "# Orao::read(",dump(@_),") = ",dump( $byte ),"\n" if $self->debug;
+	warn "# Orao::read(",dump(@_),") = ",dump( $byte ),"\n" if $self->trace;
 	$self->mmap_pixel( $addr, 0, $byte, 0 );
 	return $byte;
 }
@@ -270,7 +270,7 @@
 
 sub write {
 	my $self = shift;
-	warn "# Orao::write(",dump(@_),")\n" if $self->debug;
+	warn "# Orao::write(",dump(@_),")\n" if $self->trace;
 	my ($addr,$byte) = @_;
 
 	if ( $addr >= 0x6000 && $addr < 0x8000 ) {