| 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 = ''; |
Parent Directory
| 
Revision Log
| 
Patch