/[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 35 by dpavlin, Mon Jul 30 21:53:04 2007 UTC revision 41 by dpavlin, Tue Jul 31 08:49:22 2007 UTC
# Line 54  sub init { Line 54  sub init {
54          });          });
55    
56          $self->load_oraoemu( 'dump/orao-1.2' );          $self->load_oraoemu( 'dump/orao-1.2' );
57          $self->load_oraoemu( 'dump/SCRINV.BIN' );          $self->load_oraoemu( 'dump/SCRINV.BIN', 0x1000 );
58          $PC = 0x1000;          $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";
70                  0x6000, 0x7FFF, 'video RAM',  
71                  0x8000, 0x9FFF, 'sistemske lokacije',                  my @mmap = (
72                  0xA000, 0xAFFF, 'ekstenzija',                          0x0000, 0x03FF, 'nulti blok',
73                  0xB000, 0xBFFF, 'DOS',                          0x0400, 0x5FFF, 'korisnički RAM (23K)',
74                  0xC000, 0xDFFF, 'BASIC ROM',                          0x6000, 0x7FFF, 'video RAM',
75                  0xE000, 0xFFFF, 'sistemski ROM',                          0x8000, 0x9FFF, 'sistemske lokacije',
76          );                          0xA000, 0xAFFF, 'ekstenzija',
77                            0xB000, 0xBFFF, 'DOS',
78                            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          foreach my $i ( 0 .. $#mmap / 3 ) {                  warn "rendering video memory\n";
99                  my $o = $i * 3;                  for my $a ( 0x6000 .. 0x7fff ) {
100                  my ( $from, $to, $desc ) = @mmap[$o,$o+1,$o+2];                          $self->vram( $a - 0x6000, $mem[$a] );
                 printf "%04x - %04x - %s\n", $from, $to, $desc;  
                 for my $a ( $from .. $to ) {  
                         $orao->read( $a );  
101                  }                  }
102                  $self->sync;          
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\n";          warn "Orao init finished", $self->trace ? ' trace on' : '', "\n";
110    
111  }  }
112    
# Line 233  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 248  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 266  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.35  
changed lines
  Added in v.41
  ViewVC Help
Powered by ViewVC 1.1.26