/[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 138 by dpavlin, Sat Aug 4 22:47:32 2007 UTC revision 145 by dpavlin, Sun Aug 5 13:27:27 2007 UTC
# Line 9  use Data::Dump qw/dump/; Line 9  use Data::Dump qw/dump/;
9  use M6502; # import @mem $PC and friends  use M6502; # import @mem $PC and friends
10  use Screen qw/$white $black/;  use Screen qw/$white $black/;
11    
12  use base qw(Class::Accessor VRac M6502 Screen Prefs Tape);  use base qw(Class::Accessor VRac M6502 Screen Prefs Tape Session);
13  #__PACKAGE__->mk_accessors(qw());  #__PACKAGE__->mk_accessors(qw());
14    
15  =head1 NAME  =head1 NAME
# Line 18  Orao - Orao emulator Line 18  Orao - Orao emulator
18    
19  =head1 VERSION  =head1 VERSION
20    
21  Version 0.05  Version 0.06
22    
23  =cut  =cut
24    
25  our $VERSION = '0.05';  our $VERSION = '0.06';
26    
27  =head1 SUMMARY  =head1 SUMMARY
28    
# Line 54  sub run { Line 54  sub run {
54          warn "emulating ", $#mem, " bytes of memory\n";          warn "emulating ", $#mem, " bytes of memory\n";
55    
56  #       $self->scale( 2 );  #       $self->scale( 2 );
57          $self->show_mem( 1 );  #       $self->show_mem( 1 );
58    
59          $self->open_screen;          $self->open_screen;
60          $self->load_rom({          $self->load_rom({
# Line 389  sub write { Line 389  sub write {
389          warn sprintf("# Orao::write(%04x,%02x)\n", $addr, $byte) if $self->trace;          warn sprintf("# Orao::write(%04x,%02x)\n", $addr, $byte) if $self->trace;
390    
391          if ( $addr == 0x8800 ) {          if ( $addr == 0x8800 ) {
392                    $self->write_tape( $byte );
393                  warn sprintf "sound ignored: %x\n", $byte;                  warn sprintf "sound ignored: %x\n", $byte;
394          }          }
395    
# Line 460  sub cpu_PC { Line 461  sub cpu_PC {
461          return $PC;          return $PC;
462  }  }
463    
464    =head1 SEE ALSO
465    
466    L<VRac>, L<M6502>, L<Screen>, L<Tape>
467    
468  =head1 AUTHOR  =head1 AUTHOR
469    
470  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
Legend:
Removed from v.138  
changed lines
  Added in v.145
  ViewVC Help
Powered by ViewVC 1.1.26