--- M6502/Orao.pm	2007/08/02 13:58:26	96
+++ M6502/Orao.pm	2007/08/02 14:07:52	97
@@ -140,6 +140,8 @@
 sub run {
 	my $self = shift;
 
+	$self->show_mem( 1 );
+
 	$self->boot if ( ! $self->booted );
 	$self->loop;
 };
@@ -315,7 +317,7 @@
 	# keyboard
 
 	if ( first { $addr == $_ } @kbd_ports ) {
-		warn sprintf("keyboard port: %04x\n",$addr);
+		warn sprintf("keyboard port: %04x\n",$addr) if $self->trace;
 	} elsif ( $addr == 0x87fc ) {
 		warn "0x87fc - arrows/back\n";
 =for pascal
@@ -415,7 +417,7 @@
 	my $self = shift;
 	$self->app->sync;
 	my $a = shift;
-	print STDERR $self->hexdump( $a ),
+	print $self->hexdump( $a ),
 		$last ? "[$last] " : '',
 		"> ";
 	my $in = <STDIN>;
@@ -464,6 +466,7 @@
 
 __USAGE__
 			warn $self->dump_R;
+			$last = '';
 		} elsif ( $c =~ m/^e/i ) {
 			$a = $v if defined($v);
 			my $to = shift @v;