--- M6502/M6502.pm	2007/07/31 13:56:50	55
+++ M6502/M6502.pm	2007/07/31 17:15:54	68
@@ -145,12 +145,16 @@
 
 =head2 dump_R
 
-helper function which dumps registers
+helper function which dumps registers in humanly readable form
+
+  my $dump = dump_R;
 
 =cut
 
 sub dump_R {
-	warn sprintf("## M6502::dump_R PC: %04x A:%02x P:%02x X:%02x Y:%02x S:%02x\n", $PC, $A, $P, $X, $Y, $S) if $debug;
+	my $dump = sprintf(" PC: %04x A:%02x P:%02x X:%02x Y:%02x S:%02x\n", $PC, $A, $P, $X, $Y, $S);
+	warn "## M6502::dump_R $dump" if $debug;
+	return $dump;
 }
 
 =head1 SEE ALSO