141 |
|
|
142 |
foreach my $addr ( sort keys %$loaded_files ) { |
foreach my $addr ( sort keys %$loaded_files ) { |
143 |
my $path = $loaded_files->{$addr}; |
my $path = $loaded_files->{$addr}; |
144 |
$self->load_oraoemu( $path, $addr ); |
$self->load_image( $path, $addr ); |
145 |
} |
} |
146 |
} |
} |
147 |
|
|
169 |
$self->render_mem( @mem ) if $self->show_mem; |
$self->render_mem( @mem ) if $self->show_mem; |
170 |
} |
} |
171 |
|
|
172 |
=head2 load_oraoemu |
=head2 load_image |
173 |
|
|
174 |
Load binary files, ROM images and Orao Emulator files |
Load binary files, ROM images and Orao Emulator files |
175 |
|
|
176 |
$orao->load_oraoemu( '/path/to/file', 0x1000 ); |
$orao->load_image( '/path/to/file', 0x1000 ); |
177 |
|
|
178 |
Returns true on success. |
Returns true on success. |
179 |
|
|
180 |
=cut |
=cut |
181 |
|
|
182 |
sub load_oraoemu { |
sub load_image { |
183 |
my $self = shift; |
my $self = shift; |
184 |
my ( $path, $addr ) = @_; |
my ( $path, $addr ) = @_; |
185 |
|
|
471 |
} elsif ( $c =~ m/^l/i ) { |
} elsif ( $c =~ m/^l/i ) { |
472 |
my $to = shift @v || 0x1000; |
my $to = shift @v || 0x1000; |
473 |
$a = $to; |
$a = $to; |
474 |
$self->load_oraoemu( $v, $a ); |
$self->load_image( $v, $a ); |
475 |
$last = ''; |
$last = ''; |
476 |
} elsif ( $c =~ m/^s/i ) { |
} elsif ( $c =~ m/^s/i ) { |
477 |
$self->save_dump( $v || 'mem.dump', @v ); |
$self->save_dump( $v || 'mem.dump', @v ); |