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 |