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 |
}); |
}); |
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 |
|
|