/[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 33 by dpavlin, Mon Jul 30 21:00:36 2007 UTC revision 41 by dpavlin, Tue Jul 31 08:49:22 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  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
11    use M6502;
12    
13  use base qw(Class::Accessor M6502 Screen);  use base qw(Class::Accessor M6502 Screen);
14  __PACKAGE__->mk_accessors(qw(debug trace run_for mem_dump trace));  __PACKAGE__->mk_accessors(qw(debug trace run_for mem_dump trace));
# Line 38  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 "call upstream init\n";          warn "Orao calling upstream init\n";
45          $self->SUPER::init( $self, @_ );          $self->SUPER::init( $self, @_ );
46    
47          warn "staring Orao $Orao::VERSION emulation\n";          warn "staring Orao $Orao::VERSION emulation\n";
# Line 54  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', 0x1000 );
58            $PC = 0x1000;
59    
60          $orao = $self;          $orao = $self;
61    
62  #       $self->prompt( 0x1000 );  #       $self->prompt( 0x1000 );
63    
64          warn "rendering memory map\n";          my $trace = $self->trace;
65            $self->trace( 0 );
66    
67          my @mmap = (          if ( $self->show_mem ) {
68                  0x0000, 0x03FF, 'nulti blok',  
69                  0x0400, 0x5FFF, 'korisnički RAM (23K)',                  warn "rendering memory map\n";
                 0x6000, 0x7FFF, 'video RAM',  
                 0x8000, 0x9FFF, 'sistemske lokacije',  
                 0xA000, 0xAFFF, 'ekstenzija',  
                 0xB000, 0xBFFF, 'DOS',  
                 0xC000, 0xDFFF, 'BASIC ROM',  
                 0xE000, 0xFFFF, 'sistemski ROM',  
         );  
70    
71          foreach my $i ( 0 .. $#mmap / 3 ) {                  my @mmap = (
72                  my $o = $i * 3;                          0x0000, 0x03FF, 'nulti blok',
73                  my ( $from, $to, $desc ) = @mmap[$o,$o+1,$o+2];                          0x0400, 0x5FFF, 'korisnički RAM (23K)',
74                  printf "%04x - %04x - %s\n", $from, $to, $desc;                          0x6000, 0x7FFF, 'video RAM',
75  #               for my $a ( $from .. $to ) {                          0x8000, 0x9FFF, 'sistemske lokacije',
76  #                       $orao->read( $a );                          0xA000, 0xAFFF, 'ekstenzija',
77  #               }                          0xB000, 0xBFFF, 'DOS',
78  #               $self->sync;                          0xC000, 0xDFFF, 'BASIC ROM',
79                            0xE000, 0xFFFF, 'sistemski ROM',
80                    );
81    
82                    foreach my $i ( 0 .. $#mmap / 3 ) {
83                            my $o = $i * 3;
84                            my ( $from, $to, $desc ) = @mmap[$o,$o+1,$o+2];
85                            printf "%04x - %04x - %s\n", $from, $to, $desc;
86                            for my $a ( $from .. $to ) {
87                                    if ( $a >= 0x6000 && $a < 0x8000 ) {
88                                            my $b = $self->read( $a );
89                                            $self->vram( $a - 0x6000, $b );
90                                    } else {
91                                            $self->read( $a );
92                                    }
93                            }
94                    }
95    
96            } else {
97    
98                    warn "rendering video memory\n";
99                    for my $a ( 0x6000 .. 0x7fff ) {
100                            $self->vram( $a - 0x6000, $mem[$a] );
101                    }
102            
103          }          }
104            $self->sync;
105            $self->trace( $trace );
106    
107            #( $A, $P, $X, $Y, $S, $IPeriod ) = ( 1, 2, 3, 4, 5, 6 );
108    
109            warn "Orao init finished", $self->trace ? ' trace on' : '', "\n";
110    
111  }  }
112    
# Line 128  sub load_oraoemu { Line 155  sub load_oraoemu {
155                  return;                  return;
156          }          }
157          printf "loading %s at %04x - %04x %02x\n", $path, $addr, $addr+$size-1, $size;          printf "loading %s at %04x - %04x %02x\n", $path, $addr, $addr+$size-1, $size;
158            return $self->poke_code( $addr, map { ord($_) } split(//,$buff) );
159          return $self->write_chunk( $addr, $buff );          return $self->write_chunk( $addr, $buff );
160    
161          my $chunk;          my $chunk;
# Line 215  L<Acme::6502> was just too slow to handl Line 243  L<Acme::6502> was just too slow to handl
243    
244  =cut  =cut
245    
 my @mem = (0xff) x 0x100000; # 64Mb  
   
246  =head2 read  =head2 read
247    
248  Read from memory  Read from memory
# Line 229  sub read { Line 255  sub read {
255          my $self = shift;          my $self = shift;
256          my ($addr) = @_;          my ($addr) = @_;
257          my $byte = $mem[$addr];          my $byte = $mem[$addr];
258          warn "# Orao::read(",dump(@_),") = ",dump( $byte ),"\n" if $self->debug;          warn sprintf("# Orao::read(%04x) = %02x\n", $addr, $byte) if $self->trace;
259          $self->mmap_pixel( $addr, 0, $byte, 0 );          $self->mmap_pixel( $addr, 0, $byte, 0 );
260          return $byte;          return $byte;
261  }  }
# Line 244  Write into emory Line 270  Write into emory
270    
271  sub write {  sub write {
272          my $self = shift;          my $self = shift;
         warn "# Orao::write(",dump(@_),")\n" if $self->debug;  
273          my ($addr,$byte) = @_;          my ($addr,$byte) = @_;
274            warn sprintf("# Orao::write(%04x,%02x)\n", $addr, $byte) if $self->trace;
275    
276          if ( $addr >= 0x6000 && $addr < 0x8000 ) {          if ( $addr >= 0x6000 && $addr < 0x8000 ) {
277                  $self->vram( $addr - 0x6000 , $byte );                  $self->vram( $addr - 0x6000 , $byte );
# Line 262  sub write { Line 288  sub write {
288          $self->mmap_pixel( $addr, $byte, 0, 0 );          $self->mmap_pixel( $addr, $byte, 0, 0 );
289    
290          $mem[$addr] = $byte;          $mem[$addr] = $byte;
291            return;
292  }  }
293    
294    
Legend:
Removed from v.33  
changed lines
  Added in v.41
  ViewVC Help
Powered by ViewVC 1.1.26