140 |
sub run { |
sub run { |
141 |
my $self = shift; |
my $self = shift; |
142 |
|
|
143 |
|
$self->show_mem( 1 ); |
144 |
|
|
145 |
$self->boot if ( ! $self->booted ); |
$self->boot if ( ! $self->booted ); |
146 |
$self->loop; |
$self->loop; |
147 |
}; |
}; |
317 |
# keyboard |
# keyboard |
318 |
|
|
319 |
if ( first { $addr == $_ } @kbd_ports ) { |
if ( first { $addr == $_ } @kbd_ports ) { |
320 |
warn sprintf("keyboard port: %04x\n",$addr); |
warn sprintf("keyboard port: %04x\n",$addr) if $self->trace; |
321 |
} elsif ( $addr == 0x87fc ) { |
} elsif ( $addr == 0x87fc ) { |
322 |
warn "0x87fc - arrows/back\n"; |
warn "0x87fc - arrows/back\n"; |
323 |
=for pascal |
=for pascal |
417 |
my $self = shift; |
my $self = shift; |
418 |
$self->app->sync; |
$self->app->sync; |
419 |
my $a = shift; |
my $a = shift; |
420 |
print STDERR $self->hexdump( $a ), |
print $self->hexdump( $a ), |
421 |
$last ? "[$last] " : '', |
$last ? "[$last] " : '', |
422 |
"> "; |
"> "; |
423 |
my $in = <STDIN>; |
my $in = <STDIN>; |
466 |
|
|
467 |
__USAGE__ |
__USAGE__ |
468 |
warn $self->dump_R; |
warn $self->dump_R; |
469 |
|
$last = ''; |
470 |
} elsif ( $c =~ m/^e/i ) { |
} elsif ( $c =~ m/^e/i ) { |
471 |
$a = $v if defined($v); |
$a = $v if defined($v); |
472 |
my $to = shift @v; |
my $to = shift @v; |