224 |
|
|
225 |
sub prompt { |
sub prompt { |
226 |
my $self = shift; |
my $self = shift; |
227 |
|
$self->app->sync; |
228 |
my $a = shift; |
my $a = shift; |
229 |
my $last = shift; |
my $last = shift; |
230 |
print STDERR $self->hexdump( $a ), |
print STDERR $self->hexdump( $a ), |
308 |
sub cli { |
sub cli { |
309 |
my $self = shift; |
my $self = shift; |
310 |
my $a = $PC || confess "no pc?"; |
my $a = $PC || confess "no pc?"; |
311 |
$self->app->sync; |
while ( my @v = $self->prompt( $a, $last ) ) { |
|
while ( my @v = $orao->prompt( $a, $last ) ) { |
|
312 |
my $c = shift @v; |
my $c = shift @v; |
313 |
my $v = shift @v; |
my $v = shift @v; |
314 |
$v = hex($v) if $v && $v =~ m/^[0-9a-f]+$/; |
$v = hex($v) if $v && $v =~ m/^[0-9a-f]+$/; |