/[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 41 by dpavlin, Tue Jul 31 08:49:22 2007 UTC revision 42 by dpavlin, Tue Jul 31 09:37:01 2007 UTC
# Line 39  Start emulator Line 39  Start emulator
39    
40  our $orao;  our $orao;
41    
42    select(STDERR); $| = 1;
43    
44  sub init {  sub init {
45          my $self = shift;          my $self = shift;
46          warn "Orao calling upstream init\n";          warn "Orao calling upstream init\n";
# Line 150  sub load_oraoemu { Line 152  sub load_oraoemu {
152          } elsif ( $size == 32800 ) {          } elsif ( $size == 32800 ) {
153                  $addr = 0;                  $addr = 0;
154                  warn sprintf "loading oraoemu 1.3 dump %s at %04x - %04x %02x\n", $path, $addr, $addr+$size-1, $size;                  warn sprintf "loading oraoemu 1.3 dump %s at %04x - %04x %02x\n", $path, $addr, $addr+$size-1, $size;
155                  #$self->write_chunk( $addr, substr($buff,0x20) );                  $self->write_chunk( $addr, substr($buff,0x20) );
                 $self->poke_code( $addr, map { ord($_) } split(//,substr($buff,0x20)) );  
156                  return;                  return;
157          }          }
158          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;
         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 291  sub write { Line 291  sub write {
291          return;          return;
292  }  }
293    
294    =head1 Command Line
295    
296    Command-line debugging intrerface is implemented for communication with
297    emulated device
298    
299    =head2 cli
300    
301      $orao->cli();
302    
303    =cut
304    
305    my $last = 'r 1';
306    
307    sub cli {
308            my $self = shift;
309            my $a = $PC || confess "no pc?";
310            $self->app->sync;
311            while ( my @v = $orao->prompt( $a, $last ) ) {
312                    my $c = shift @v;
313                    my $v = shift @v;
314                    $v = hex($v) if $v && $v =~ m/^[0-9a-f]+$/;
315                    printf "## [%s] %s\n", ($v || 'undef'), join(",",@v) if $self->debug;
316                    @v = map { hex($_) } @v;
317                    if ( $c =~ m/^[qx]/i ) {
318                            exit;
319                    } elsif ( $c eq '?' ) {
320                            warn <<__USAGE__;
321    uage:
322    x|q\t\texit
323    e 6000 6010\tdump memory, +/- to walk forward/backward
324    m 1000 ff 00\tput ff 00 on 1000
325    j|u 1000\t\tjump (change pc)
326    r 42\t\trun 42 instruction opcodes
327    __USAGE__
328                    } elsif ( $c =~ m/^e/i ) {
329                            $a ||= $v;
330                            my $to = shift @v;
331                            $to = $a + 32 if ( ! $to || $to <= $a );
332                            my $lines = int( ($to - $a - 8) / 8 );
333                            printf "## m %04x %04x lines: %d\n", $a, $to, $lines;
334                            while ( $lines ) {
335                                    print $self->hexdump( $a );
336                                    $a += 8;
337                                    $lines--;
338                            }
339                            $last = '+';
340                    } elsif ( $c =~ m/^\+/ ) {
341                            $a += 8;
342                    } elsif ( $c =~ m/^\-/ ) {
343                            $a -= 8;
344                    } elsif ( $c =~ m/^m/i ) {
345                            $a = $v;
346                            $self->poke_code( $a, @v );
347                            printf "poke %d bytes at %04x\n", $#v + 1, $a;
348                    } elsif ( $c =~ m/^l/i ) {
349                            my $to = shift @v || 0x1000;
350                            $a = $to;
351                            $self->load_oraoemu( $v, $a );
352                    } elsif ( $c =~ m/^s/i ) {
353                            $self->save_dump( $v || 'mem.dump', @v );
354                    } elsif ( $c =~ m/^r/i ) {
355                            $run_for = $v || 1;
356                            print "run_for $run_for instructions\n";
357                            last;
358                    } elsif ( $c =~ m/^(u|j)/ ) {
359                            my $to = $v || $a;
360                            printf "set pc to %04x\n", $to;
361                            $PC = $to;      # remember for restart
362                            $run_for = 1;
363                            last;
364                    } elsif ( $c =~ m/^t/ ) {
365                            $self->trace( not $self->trace );
366                            print "trace ", $self->trace ? 'on' : 'off', "\n";
367                    } else {
368                            warn "# ignore $c\n";
369                            last;
370                    }
371            }
372    
373    
374    }
375    
376  =head1 AUTHOR  =head1 AUTHOR
377    
Legend:
Removed from v.41  
changed lines
  Added in v.42
  ViewVC Help
Powered by ViewVC 1.1.26