/[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!

Diff of /M6502/Orao.pm

Parent Directory | Revision Log | View Patch Patch

-revision 36 by dpavlin,
Mon Jul 30 22:06:13 2007 UTC
+revision 42 by dpavlin,
Tue Jul 31 09:37:01 2007 UTC
 Line 39 
 Start emulator
  our $orao;
+ select(STDERR); $| = 1;
  sub init {
          my $self = shift;
          warn "Orao calling upstream init\n";
-Line 54 
 sub init {
+Line 56 
 sub init {
          });
          $self->load_oraoemu( 'dump/orao-1.2' );
-         $self->load_oraoemu( 'dump/SCRINV.BIN' );
+         $self->load_oraoemu( 'dump/SCRINV.BIN', 0x1000 );
          $PC = 0x1000;
          $orao = $self;
  #       $self->prompt( 0x1000 );
-         warn "rendering memory map\n";
+         my $trace = $self->trace;
+         $self->trace( 0 );
-         my @mmap = (
+         if ( $self->show_mem ) {
-x0000, 0x03FF, 'nulti blok',
-x0400, 0x5FFF, 'korisnički RAM (23K)',
+                 warn "rendering memory map\n";
-x6000, 0x7FFF, 'video RAM',
-x8000, 0x9FFF, 'sistemske lokacije',
-xA000, 0xAFFF, 'ekstenzija',
-xB000, 0xBFFF, 'DOS',
-xC000, 0xDFFF, 'BASIC ROM',
-xE000, 0xFFFF, 'sistemski ROM',
-         );
-         foreach my $i ( 0 .. $#mmap / 3 ) {
+                 my @mmap = (
-                 my $o = $i * 3;
+x0000, 0x03FF, 'nulti blok',
-                 my ( $from, $to, $desc ) = @mmap[$o,$o+1,$o+2];
+x0400, 0x5FFF, 'korisnički RAM (23K)',
-                 printf "%04x - %04x - %s\n", $from, $to, $desc;
+x6000, 0x7FFF, 'video RAM',
-                 for my $a ( $from .. $to ) {
+x8000, 0x9FFF, 'sistemske lokacije',
-                         if ( $a >= 0x6000 && $a < 0x8000 ) {
+xA000, 0xAFFF, 'ekstenzija',
-                                 my $b = $orao->read( $a );
+xB000, 0xBFFF, 'DOS',
-                                 $orao->vram( $a - 0x6000, $b );
+xC000, 0xDFFF, 'BASIC ROM',
-                         } else {
+xE000, 0xFFFF, 'sistemski ROM',
-                                 $orao->read( $a );
+                 );
+                 foreach my $i ( 0 .. $#mmap / 3 ) {
+                         my $o = $i * 3;
+                         my ( $from, $to, $desc ) = @mmap[$o,$o+1,$o+2];
+                         printf "%04x - %04x - %s\n", $from, $to, $desc;
+                         for my $a ( $from .. $to ) {
+                                 if ( $a >= 0x6000 && $a < 0x8000 ) {
+                                         my $b = $self->read( $a );
+                                         $self->vram( $a - 0x6000, $b );
+                                 } else {
+                                         $self->read( $a );
+                                 }
                          }
                  }
-                 $self->sync;
+         } else {
+                 warn "rendering video memory\n";
+                 for my $a ( 0x6000 .. 0x7fff ) {
+                         $self->vram( $a - 0x6000, $mem[$a] );
+                 }
          }
+         $self->sync;
+         $self->trace( $trace );
-         warn "Orao init finished\n";
+         #( $A, $P, $X, $Y, $S, $IPeriod ) = ( 1, 2, 3, 4, 5, 6 );
+         warn "Orao init finished", $self->trace ? ' trace on' : '', "\n";
  }
-Line 133 
 sub load_oraoemu {
+Line 152 
 sub load_oraoemu {
          } elsif ( $size == 32800 ) {
                  $addr = 0;
                  warn sprintf "loading oraoemu 1.3 dump %s at %04x - %04x %02x\n", $path, $addr, $addr+$size-1, $size;
-                 #$self->write_chunk( $addr, substr($buff,0x20) );
+                 $self->write_chunk( $addr, substr($buff,0x20) );
-                 $self->poke_code( $addr, map { ord($_) } split(//,substr($buff,0x20)) );
                  return;
          }
          printf "loading %s at %04x - %04x %02x\n", $path, $addr, $addr+$size-1, $size;
-         return $self->poke_code( $addr, map { ord($_) } split(//,$buff) );
          return $self->write_chunk( $addr, $buff );
          my $chunk;
-Line 238 
 sub read {
+Line 255 
 sub read {
          my $self = shift;
          my ($addr) = @_;
          my $byte = $mem[$addr];
-         warn "# Orao::read(",dump(@_),") = ",dump( $byte ),"\n" if $self->debug;
+         warn sprintf("# Orao::read(%04x) = %02x\n", $addr, $byte) if $self->trace;
          $self->mmap_pixel( $addr, 0, $byte, 0 );
          return $byte;
  }
-Line 253 
 Write into emory
+Line 270 
 Write into emory
  sub write {
          my $self = shift;
-         warn "# Orao::write(",dump(@_),")\n" if $self->debug;
          my ($addr,$byte) = @_;
+         warn sprintf("# Orao::write(%04x,%02x)\n", $addr, $byte) if $self->trace;
          if ( $addr >= 0x6000 && $addr < 0x8000 ) {
                  $self->vram( $addr - 0x6000 , $byte );
-Line 274 
 sub write {
+Line 291 
 sub write {
          return;
  }
+ =head1 Command Line
+ Command-line debugging intrerface is implemented for communication with
+ emulated device
+ =head2 cli
+   $orao->cli();
+ =cut
+ my $last = 'r 1';
+ sub cli {
+         my $self = shift;
+         my $a = $PC || confess "no pc?";
+         $self->app->sync;
+         while ( my @v = $orao->prompt( $a, $last ) ) {
+                 my $c = shift @v;
+                 my $v = shift @v;
+                 $v = hex($v) if $v && $v =~ m/^[0-9a-f]+$/;
+                 printf "## [%s] %s\n", ($v || 'undef'), join(",",@v) if $self->debug;
+                 @v = map { hex($_) } @v;
+                 if ( $c =~ m/^[qx]/i ) {
+                         exit;
+                 } elsif ( $c eq '?' ) {
+                         warn <<__USAGE__;
+ uage:
+ x|q\t\texit
+ e 6000 6010\tdump memory, +/- to walk forward/backward
+ m 1000 ff 00\tput ff 00 on 1000
+ j|u 1000\t\tjump (change pc)
+ r 42\t\trun 42 instruction opcodes
+ __USAGE__
+                 } elsif ( $c =~ m/^e/i ) {
+                         $a ||= $v;
+                         my $to = shift @v;
+                         $to = $a + 32 if ( ! $to || $to <= $a );
+                         my $lines = int( ($to - $a - 8) / 8 );
+                         printf "## m %04x %04x lines: %d\n", $a, $to, $lines;
+                         while ( $lines ) {
+                                 print $self->hexdump( $a );
+                                 $a += 8;
+                                 $lines--;
+                         }
+                         $last = '+';
+                 } elsif ( $c =~ m/^\+/ ) {
+                         $a += 8;
+                 } elsif ( $c =~ m/^\-/ ) {
+                         $a -= 8;
+                 } elsif ( $c =~ m/^m/i ) {
+                         $a = $v;
+                         $self->poke_code( $a, @v );
+                         printf "poke %d bytes at %04x\n", $#v + 1, $a;
+                 } elsif ( $c =~ m/^l/i ) {
+                         my $to = shift @v || 0x1000;
+                         $a = $to;
+                         $self->load_oraoemu( $v, $a );
+                 } elsif ( $c =~ m/^s/i ) {
+                         $self->save_dump( $v || 'mem.dump', @v );
+                 } elsif ( $c =~ m/^r/i ) {
+                         $run_for = $v || 1;
+                         print "run_for $run_for instructions\n";
+                         last;
+                 } elsif ( $c =~ m/^(u|j)/ ) {
+                         my $to = $v || $a;
+                         printf "set pc to %04x\n", $to;
+                         $PC = $to;      # remember for restart
+                         $run_for = 1;
+                         last;
+                 } elsif ( $c =~ m/^t/ ) {
+                         $self->trace( not $self->trace );
+                         print "trace ", $self->trace ? 'on' : 'off', "\n";
+                 } else {
+                         warn "# ignore $c\n";
+                         last;
+                 }
+         }
+ }
  =head1 AUTHOR

 Legend:



Removed from v.36
 


changed lines


 
Added in v.42
 Legend:



Removed from v.36
 


changed lines


 
Added in v.42
-Removed from v.36
+Added in v.42

	ViewVC Help
Powered by ViewVC 1.1.26