/[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 209 by dpavlin, Mon Apr 14 19:55:29 2008 UTC revision 213 by dpavlin, Mon Apr 14 21:27:19 2008 UTC
# Line 119  sub run { Line 119  sub run {
119    
120  #       $self->load_tape( 'tapes/Orao/bdash.tap' );  #       $self->load_tape( 'tapes/Orao/bdash.tap' );
121  #       $self->load_tape( 'tapes/Orao/crtanje.tap' );  #       $self->load_tape( 'tapes/Orao/crtanje.tap' );
122          $self->load_tape( 'tapes/Orao/jjack.tap' );  #       $self->load_tape( 'tapes/Orao/jjack.tap', 0x168 );
123            $self->load_tape( 'tapes/Orao/muzika.tap', 0x168 );
124    
125          $self->render_vram;          $self->render_vram;
126    
# Line 128  sub run { Line 129  sub run {
129                  warn sprintf("about to exec from PC %04x for %d cycles\n", $PC, $run_for) if $self->trace;                  warn sprintf("about to exec from PC %04x for %d cycles\n", $PC, $run_for) if $self->trace;
130                  M6502::exec( $run_for );                  M6502::exec( $run_for );
131                  $self->render_vram;                  $self->render_vram;
132                    $self->render_mem( M6502::mem_peek_region(0x0000,0xffff) ) if $self->show_mem;
133          });          });
134  };  };
135    
# Line 377  sub read { Line 379  sub read {
379                  return $self->read_tape;                  return $self->read_tape;
380          }          }
381    
382          $self->mmap_pixel( $addr, 0, $byte, 0 ) if $self->show_mem;  #       $self->mmap_pixel( $addr, 0, $byte, 0 ) if $self->show_mem;
383          return $byte;          return $byte;
384  }  }
385    
# Line 425  sub render_vram { Line 427  sub render_vram {
427    
428  #       my $pixels = pack("C*", map { $flip[$_] } @mem[ 0x6000 .. 0x7fff ]);  #       my $pixels = pack("C*", map { $flip[$_] } @mem[ 0x6000 .. 0x7fff ]);
429  #       my $pixels = pack("C*", map { $flip[$_] } $self->ram( 0x6000, 0x7fff ));  #       my $pixels = pack("C*", map { $flip[$_] } $self->ram( 0x6000, 0x7fff ));
430          my $pixels = M6502::mem_peek_region( 0x6000, 0x7fff );  #       my $pixels = M6502::mem_peek_region( 0x6000, 0x7fff );
431            my $pixels = pack('C*', map { $flip[$_] } unpack('C*', M6502::mem_peek_region( 0x6000, 0x7fff ) ) );
432    
433          my $vram = SDL::Surface->new(          my $vram = SDL::Surface->new(
434                  -width => 256,                  -width => 256,
Legend:
Removed from v.209  
changed lines
  Added in v.213
  ViewVC Help
Powered by ViewVC 1.1.26