/[VRac]/M6502/Orao.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /M6502/Orao.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 90 by dpavlin, Thu Aug 2 12:23:18 2007 UTC revision 94 by dpavlin, Thu Aug 2 13:04:29 2007 UTC
# Line 141  sub load_rom { Line 141  sub load_rom {
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    
# Line 169  sub _write_chunk { Line 169  sub _write_chunk {
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    
# Line 471  __USAGE__ Line 471  __USAGE__
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 );

Legend:
Removed from v.90  
changed lines
  Added in v.94

  ViewVC Help
Powered by ViewVC 1.1.26