/[VRac]/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 /Orao.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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 8  use lib './lib'; Line 8  use lib './lib';
8  #use Time::HiRes qw(time);  #use Time::HiRes qw(time);
9  use File::Slurp;  use File::Slurp;
10    
11  use base qw(Class::Accessor M6502);  use base qw(Class::Accessor M6502 Screen);
12  __PACKAGE__->mk_accessors(qw(debug trace run_for mem_dump trace));  __PACKAGE__->mk_accessors(qw(debug trace run_for mem_dump trace));
13    
14  =head1 NAME  =head1 NAME
# Line 29  Emulator or Orao 8-bit 6502 machine popu Line 29  Emulator or Orao 8-bit 6502 machine popu
29    
30  =cut  =cut
31    
32    =head2 init
33    
34    Start emulator
35    
36    =cut
37    
38    sub init {
39            my $self = shift;
40            warn "call upstream init\n";
41            $self->SUPER::init( @_ );
42    
43            warn "staring Orao $ORAO::VERSION emulation\n";
44    
45            $self->open_screen;
46            $self->load_rom;
47    }
48    
49  my $loaded_files = {  my $loaded_files = {
50          0xC000 => 'rom/BAS12.ROM',          0xC000 => 'rom/BAS12.ROM',
51          0xE000 => 'rom/CRT12.ROM',          0xE000 => 'rom/CRT12.ROM',
# Line 160  sub prompt { Line 177  sub prompt {
177          return split(/\s+/, $in) if $in;          return split(/\s+/, $in) if $in;
178  }  }
179    
180    
181  =head1 AUTHOR  =head1 AUTHOR
182    
183  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
Legend:
Removed from v.29  
changed lines
  Added in v.30
  ViewVC Help
Powered by ViewVC 1.1.26