54 |
warn "emulating ", $#mem, " bytes of memory\n"; |
warn "emulating ", $#mem, " bytes of memory\n"; |
55 |
|
|
56 |
# $self->scale( 2 ); |
# $self->scale( 2 ); |
57 |
# $self->show_mem( 1 ); |
$self->show_mem( 1 ); |
58 |
$self->load_session( 'sess/current' ); |
$self->load_session( 'sess/current' ); |
59 |
|
|
60 |
$self->open_screen; |
$self->open_screen; |
226 |
0x87FD => sub { |
0x87FD => sub { |
227 |
my $self = shift; |
my $self = shift; |
228 |
if ( $self->key_active('return') ) { |
if ( $self->key_active('return') ) { |
229 |
M6502::_write( 0xfc, 13 ); |
# M6502::_write( 0xfc, 13 ); |
230 |
warn "return\n"; |
warn "return\n"; |
231 |
return 0; |
return 0; |
232 |
} elsif ( $self->key_active('left ctrl','right ctrl') ) { |
} elsif ( $self->key_active('left ctrl','right ctrl') ) { |