--- M6502/Orao.pm 2007/08/02 12:53:00 93 +++ M6502/Orao.pm 2007/08/02 13:04:29 94 @@ -141,7 +141,7 @@ foreach my $addr ( sort keys %$loaded_files ) { my $path = $loaded_files->{$addr}; - $self->load_oraoemu( $path, $addr ); + $self->load_image( $path, $addr ); } } @@ -169,17 +169,17 @@ $self->render_mem( @mem ) if $self->show_mem; } -=head2 load_oraoemu +=head2 load_image Load binary files, ROM images and Orao Emulator files - $orao->load_oraoemu( '/path/to/file', 0x1000 ); + $orao->load_image( '/path/to/file', 0x1000 ); Returns true on success. =cut -sub load_oraoemu { +sub load_image { my $self = shift; my ( $path, $addr ) = @_; @@ -471,7 +471,7 @@ } elsif ( $c =~ m/^l/i ) { my $to = shift @v || 0x1000; $a = $to; - $self->load_oraoemu( $v, $a ); + $self->load_image( $v, $a ); $last = ''; } elsif ( $c =~ m/^s/i ) { $self->save_dump( $v || 'mem.dump', @v );