9 |
use M6502; # import @mem $PC and friends |
use M6502; # import @mem $PC and friends |
10 |
use Screen qw/$white $black/; |
use Screen qw/$white $black/; |
11 |
|
|
12 |
use base qw(Class::Accessor VRac M6502 Screen Prefs Tape); |
use base qw(Class::Accessor VRac M6502 Screen Prefs Tape Session); |
13 |
#__PACKAGE__->mk_accessors(qw()); |
#__PACKAGE__->mk_accessors(qw()); |
14 |
|
|
15 |
=head1 NAME |
=head1 NAME |
18 |
|
|
19 |
=head1 VERSION |
=head1 VERSION |
20 |
|
|
21 |
Version 0.05 |
Version 0.06 |
22 |
|
|
23 |
=cut |
=cut |
24 |
|
|
25 |
our $VERSION = '0.05'; |
our $VERSION = '0.06'; |
26 |
|
|
27 |
=head1 SUMMARY |
=head1 SUMMARY |
28 |
|
|
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 |
|
|
59 |
$self->open_screen; |
$self->open_screen; |
60 |
$self->load_rom({ |
$self->load_rom({ |
389 |
warn sprintf("# Orao::write(%04x,%02x)\n", $addr, $byte) if $self->trace; |
warn sprintf("# Orao::write(%04x,%02x)\n", $addr, $byte) if $self->trace; |
390 |
|
|
391 |
if ( $addr == 0x8800 ) { |
if ( $addr == 0x8800 ) { |
392 |
|
$self->write_tape( $byte ); |
393 |
warn sprintf "sound ignored: %x\n", $byte; |
warn sprintf "sound ignored: %x\n", $byte; |
394 |
} |
} |
395 |
|
|
461 |
return $PC; |
return $PC; |
462 |
} |
} |
463 |
|
|
464 |
|
=head1 SEE ALSO |
465 |
|
|
466 |
|
L<VRac>, L<M6502>, L<Screen>, L<Tape> |
467 |
|
|
468 |
=head1 AUTHOR |
=head1 AUTHOR |
469 |
|
|
470 |
Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >> |
Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >> |