/[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 127 by dpavlin, Sat Aug 4 20:27:59 2007 UTC revision 132 by dpavlin, Sat Aug 4 21:04:05 2007 UTC
# Line 117  sub run { Line 117  sub run {
117    
118          $self->loop( sub {          $self->loop( sub {
119                  my $run_for = shift;                  my $run_for = shift;
120  #               warn sprintf("about to exec from PC %04x for %d cycles\n", $PC, $run_for);                  warn sprintf("about to exec from PC %04x for %d cycles\n", $PC, $run_for) if $self->trace;
121                  M6502::exec( $run_for );                  M6502::exec( $run_for );
122                  $self->render_vram;                  $self->render_vram;
123          });          });
# Line 337  sub read { Line 337  sub read {
337          my $self = shift;          my $self = shift;
338          my ($addr) = @_;          my ($addr) = @_;
339          return if ( $addr > 0xffff );          return if ( $addr > 0xffff );
340          my $byte = @mem[$addr];          my $byte = $mem[$addr];
341          confess sprintf("can't find memory at address %04x",$addr) unless defined($byte);          confess sprintf("can't find memory at address %04x",$addr) unless defined($byte);
342          warn sprintf("# Orao::read(%04x) = %02x\n", $addr, $byte) if $self->trace;          warn sprintf("# Orao::read(%04x) = %02x\n", $addr, $byte) if $self->trace;
343    
Legend:
Removed from v.127  
changed lines
  Added in v.132
  ViewVC Help
Powered by ViewVC 1.1.26