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 |
|
|
29 |
Emulator or Orao 8-bit 6502 machine popular in Croatia |
Emulator for Orao 8-bit 6502 machine popular in Croatia (especially schools) |
30 |
|
|
31 |
=cut |
=cut |
32 |
|
|
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( 'session.pl' ); |
59 |
|
|
60 |
$self->open_screen; |
$self->open_screen; |
61 |
$self->load_rom({ |
$self->load_rom({ |
390 |
warn sprintf("# Orao::write(%04x,%02x)\n", $addr, $byte) if $self->trace; |
warn sprintf("# Orao::write(%04x,%02x)\n", $addr, $byte) if $self->trace; |
391 |
|
|
392 |
if ( $addr == 0x8800 ) { |
if ( $addr == 0x8800 ) { |
393 |
|
$self->write_tape( $byte ); |
394 |
warn sprintf "sound ignored: %x\n", $byte; |
warn sprintf "sound ignored: %x\n", $byte; |
395 |
} |
} |
396 |
|
|
462 |
return $PC; |
return $PC; |
463 |
} |
} |
464 |
|
|
465 |
|
=head1 SEE ALSO |
466 |
|
|
467 |
|
L<VRac>, L<M6502>, L<Screen>, L<Tape> |
468 |
|
|
469 |
=head1 AUTHOR |
=head1 AUTHOR |
470 |
|
|
471 |
Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >> |
Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >> |
472 |
|
|
|
=head1 BUGS |
|
|
|
|
473 |
=head1 ACKNOWLEDGEMENTS |
=head1 ACKNOWLEDGEMENTS |
474 |
|
|
475 |
See also L<http://www.foing.hr/~fng_josip/orao.htm> which is source of all |
See also L<http://www.foing.hr/~fng_josip/orao.htm> which is source of all |