/[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 34 by dpavlin, Mon Jul 30 21:34:30 2007 UTC revision 36 by dpavlin, Mon Jul 30 22:06:13 2007 UTC
# Line 39  Start emulator Line 39  Start emulator
39    
40  our $orao;  our $orao;
41    
 our $PC = 0x1000;  
   
42  sub init {  sub init {
43          my $self = shift;          my $self = shift;
44          warn "Orao calling upstream init\n";          warn "Orao calling upstream init\n";
# Line 55  sub init { Line 53  sub init {
53                  0xE000 => 'rom/CRT12.ROM',                  0xE000 => 'rom/CRT12.ROM',
54          });          });
55    
56            $self->load_oraoemu( 'dump/orao-1.2' );
57            $self->load_oraoemu( 'dump/SCRINV.BIN' );
58            $PC = 0x1000;
59    
60          $orao = $self;          $orao = $self;
61    
62  #       $self->prompt( 0x1000 );  #       $self->prompt( 0x1000 );
# Line 77  sub init { Line 79  sub init {
79                  my ( $from, $to, $desc ) = @mmap[$o,$o+1,$o+2];                  my ( $from, $to, $desc ) = @mmap[$o,$o+1,$o+2];
80                  printf "%04x - %04x - %s\n", $from, $to, $desc;                  printf "%04x - %04x - %s\n", $from, $to, $desc;
81                  for my $a ( $from .. $to ) {                  for my $a ( $from .. $to ) {
82                          $orao->read( $a );                          if ( $a >= 0x6000 && $a < 0x8000 ) {
83                                    my $b = $orao->read( $a );
84                                    $orao->vram( $a - 0x6000, $b );
85                            } else {
86                                    $orao->read( $a );
87                            }
88                  }                  }
89                  $self->sync;                  $self->sync;
90          }          }
# Line 264  sub write { Line 271  sub write {
271          $self->mmap_pixel( $addr, $byte, 0, 0 );          $self->mmap_pixel( $addr, $byte, 0, 0 );
272    
273          $mem[$addr] = $byte;          $mem[$addr] = $byte;
274            return;
275  }  }
276    
277    
Legend:
Removed from v.34  
changed lines
  Added in v.36
  ViewVC Help
Powered by ViewVC 1.1.26