/[VRac]/ACME-6502/orao.pl
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 /ACME-6502/orao.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 21 by dpavlin, Mon Jul 30 08:54:18 2007 UTC revision 22 by dpavlin, Mon Jul 30 09:09:54 2007 UTC
# Line 13  use SDL::Color; Line 13  use SDL::Color;
13  use lib './lib';  use lib './lib';
14  use Orao;  use Orao;
15    
16  my $debug = 1;  my $debug = 0;
17  my $scale = 2;  my $scale = 2;
18  my $show_mem = 1;  my $show_mem = 1;
19  my $run_for = 1;  my $run_for = 1;
# Line 39  my $blue       = SDL::Color->new( -r => 0x00, Line 39  my $blue       = SDL::Color->new( -r => 0x00,
39  sub p {  sub p {
40          my ($x,$y,$w) = (@_);          my ($x,$y,$w) = (@_);
41    
42          warn "p($x,$y,$w)\n" if $trace;          warn "p($x,$y,$w)\n" if $debug;
43    
44          my $rect = SDL::Rect->new(          my $rect = SDL::Rect->new(
45                  -height => $scale,                  -height => $scale,
# Line 86  my $orao = new Orao({ Line 86  my $orao = new Orao({
86          mmu => sub {          mmu => sub {
87                  my ( $offset, $what, $value ) = @_;                  my ( $offset, $what, $value ) = @_;
88                  my ( $x, $y ) = mem_xy( $offset );                  my ( $x, $y ) = mem_xy( $offset );
89                  printf "## mem %04x %02x*%02x %s %s\n", $offset, $x, $y, $what, $value ? $value : '' if $trace;                  printf "## mem %04x %s = %02x %02d*%02d\n", $offset, $what, $value, $x, $y if $trace;
90    
91                  if ( $offset >= 0x6000 && $offset < 0x8000 ) {                  if ( $offset >= 0x6000 && $offset < 0x8000 ) {
92                          vram( $offset - 0x6000 , $value );                          vram( $offset - 0x6000 , $value );
Legend:
Removed from v.21  
changed lines
  Added in v.22
  ViewVC Help
Powered by ViewVC 1.1.26