--- M6502/Screen.pm	2007/07/30 22:27:47	37
+++ M6502/Screen.pm	2007/07/31 13:56:50	55
@@ -12,7 +12,11 @@
 use Carp qw/confess/;
 
 use base qw(Class::Accessor);
-__PACKAGE__->mk_accessors(qw(debug scale show_mem mem_dump trace app));
+#__PACKAGE__->mk_accessors(qw(debug scale show_mem trace app));
+
+=head1 NAME
+
+Screen - simulated 256*256 pixels monochrome screen using SDL
 
 =head2 open_screen
 
@@ -107,7 +111,7 @@
 	my $mask = 1;
 	my $scale = $self->scale;
 
-#	printf "## vram %04x %02x*%02x %02x\n", $offset, $x, $y, $byte if $self->trace;
+	printf "## vram %04x %02x*%02x %02x\n", $offset, $x, $y, $byte if $self->trace;
 
 	foreach ( 0 .. 7 ) {
 		my $on = $byte & $mask;
@@ -138,7 +142,7 @@
 	return unless $self->show_mem && $self->app;
 
 	my ( $x, $y ) = $self->mem_xy( $addr );
-	warn sprintf "## mem %04x %02x %02x %02d*%02d\n", $addr, $r, $g, $x, $y if $self->trace;
+	warn sprintf "## mem %04x %02x %02x %02d*%02d\n", $addr, $r, $g, $x, $y if $self->debug;
 
 	my $col = SDL::Color->new( -r => $r, -g => $g, -b => $b );
 	$self->app->pixel( $x, $y, $col );
@@ -160,4 +164,20 @@
 	$app->sync;
 }
 
+=head1 SEE ALSO
+
+L<Orao> is sample implementation using this module
+
+=head1 AUTHOR
+
+Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright 2007 Dobrica Pavlinusic, All Rights Reserved.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+
+=cut
 1;