272 |
} elsif ( $c eq '?' ) { |
} elsif ( $c eq '?' ) { |
273 |
my $t = $self->trace ? 'on' : 'off' ; |
my $t = $self->trace ? 'on' : 'off' ; |
274 |
my $d = $self->debug ? 'on' : 'off' ; |
my $d = $self->debug ? 'on' : 'off' ; |
275 |
<<__USAGE__; |
print <<__USAGE__; |
276 |
Usage: |
Usage: |
277 |
|
|
278 |
x|q\t\texit |
x|q\t\texit |
282 |
r 42\t\trun 42 instruction opcodes |
r 42\t\trun 42 instruction opcodes |
283 |
t\t\ttrace [$t] |
t\t\ttrace [$t] |
284 |
d\t\tdebug [$d] |
d\t\tdebug [$d] |
285 |
|
tape name 168\tload tape and start at offset |
286 |
|
|
287 |
__USAGE__ |
__USAGE__ |
288 |
print $self->tape_status if $self->can('tape_status'); |
print $self->tape_status if $self->can('tape_status'); |
343 |
} elsif ( ! -e $v ) { |
} elsif ( ! -e $v ) { |
344 |
warn "ERROR: tape $v: $!\n"; |
warn "ERROR: tape $v: $!\n"; |
345 |
} else { |
} else { |
346 |
$self->load_tape( $v ); |
$self->load_tape( $v, shift @v ); |
347 |
} |
} |
348 |
$last = ''; |
$last = ''; |
349 |
} elsif ( $c =~ m/^t/i ) { |
} elsif ( $c =~ m/^t/i ) { |