43 |
sub run { |
sub run { |
44 |
my $self = shift; |
my $self = shift; |
45 |
|
|
46 |
|
M6502::reset(); |
47 |
|
|
48 |
warn "Galeb calling upstream init\n"; |
warn "Galeb calling upstream init\n"; |
49 |
$self->SUPER::init( |
$self->SUPER::init( |
50 |
read => sub { $self->read( @_ ) }, |
read => sub { $self->read( @_ ) }, |
78 |
warn "rendering memory\n"; |
warn "rendering memory\n"; |
79 |
$self->render_mem( @mem ); |
$self->render_mem( @mem ); |
80 |
|
|
|
M6502::reset(); |
|
|
|
|
81 |
$self->loop( sub { |
$self->loop( sub { |
82 |
my $run_for = shift; |
my $run_for = shift; |
83 |
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; |