Parent Directory | Revision Log | Patch
revision 29 by dpavlin, Mon Jul 30 17:32:41 2007 UTC | revision 30 by dpavlin, Mon Jul 30 17:56:13 2007 UTC | |
---|---|---|
# | Line 92 sub ram { | Line 92 sub ram { |
92 | my $self = shift; | my $self = shift; |
93 | my ($from,$to) = @_; | my ($from,$to) = @_; |
94 | if ($from + $to) { | if ($from + $to) { |
95 | #printf "ram %04x - %04x\n", $from, $to; | printf "ram %04x - %04x\n", $from, $to; |
96 | return $mem[$from .. $to - 1]; | return $mem[$from .. $to - 1]; |
97 | } | } |
98 | printf "ram %04x\n", $from; | |
99 | return $mem[$from] if defined($from); | return $mem[$from] if defined($from); |
100 | confess "no from address"; | confess "no from address"; |
101 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |