408 |
printf "set pc to %04x\n", $to; |
printf "set pc to %04x\n", $to; |
409 |
$PC = $to; # remember for restart |
$PC = $to; # remember for restart |
410 |
$run_for = 1; |
$run_for = 1; |
411 |
$last = sprintf('m %04x', $to); |
$last = "r $run_for"; |
412 |
last; |
last; |
413 |
} elsif ( $c =~ m/^t/ ) { |
} elsif ( $c =~ m/^t/ ) { |
414 |
$self->trace( not $self->trace ); |
$self->trace( not $self->trace ); |
415 |
print "trace ", $self->trace ? 'on' : 'off', "\n"; |
print "trace ", $self->trace ? 'on' : 'off', "\n"; |
416 |
|
$last = ''; |
417 |
} elsif ( $c =~ m/^d/ ) { |
} elsif ( $c =~ m/^d/ ) { |
418 |
$self->debug( not $self->debug ); |
$self->debug( not $self->debug ); |
419 |
print "debug ", $self->debug ? 'on' : 'off', "\n"; |
print "debug ", $self->debug ? 'on' : 'off', "\n"; |
420 |
|
$last = ''; |
421 |
} else { |
} else { |
422 |
warn "# ignored $line\n" if ($line); |
warn "# ignored $line\n" if ($line); |
423 |
$last = ''; |
$last = ''; |