--- M6502/M6502.pm	2007/07/30 21:34:30	34
+++ M6502/M6502.pm	2007/07/30 21:53:04	35
@@ -6,7 +6,7 @@
 use Data::Dump qw/dump/;
 use Carp qw/confess/;
 use Exporter 'import';
-our @EXPORT = qw'@mem';
+our @EXPORT = qw'@mem $PC $A $P $X $Y $S $IPeriod';
 
 =head1 NAME
 
@@ -106,9 +106,10 @@
 sub ram {
 	my $self = shift;
 	my ($from,$to) = @_;
+	warn "ram($from,$to)\n";
 	if ($from + $to) {
 		printf "ram %04x - %04x\n", $from, $to;
-		return $mem[$from .. $to - 1];
+		return @mem[$from .. $to - 1];
 	}
 	printf "ram %04x\n", $from;
 	return $mem[$from] if defined($from);