--- M6502/Orao.pm	2007/07/30 23:39:57	39
+++ M6502/Orao.pm	2007/07/31 08:49:22	41
@@ -255,7 +255,7 @@
 	my $self = shift;
 	my ($addr) = @_;
 	my $byte = $mem[$addr];
-	warn "# Orao::read(",dump(@_),") = ",dump( $byte ),"\n" if $self->trace;
+	warn sprintf("# Orao::read(%04x) = %02x\n", $addr, $byte) if $self->trace;
 	$self->mmap_pixel( $addr, 0, $byte, 0 );
 	return $byte;
 }
@@ -270,8 +270,8 @@
 
 sub write {
 	my $self = shift;
-	warn "# Orao::write(",dump(@_),")\n" if $self->trace;
 	my ($addr,$byte) = @_;
+	warn sprintf("# Orao::write(%04x,%02x)\n", $addr, $byte) if $self->trace;
 
 	if ( $addr >= 0x6000 && $addr < 0x8000 ) {
 		$self->vram( $addr - 0x6000 , $byte );