39 |
0x83FE,0x83FF, |
0x83FE,0x83FF, |
40 |
); |
); |
41 |
|
|
42 |
=head2 init |
=head2 boot |
43 |
|
|
44 |
Start emulator, open L<Screen>, load initial ROM images, and render memory |
Start emulator, open L<Screen>, load initial ROM images, and render memory |
45 |
|
|
46 |
|
my $orao = Orao->new({}); |
47 |
|
$orao->boot; |
48 |
|
|
49 |
=cut |
=cut |
50 |
|
|
51 |
our $orao; |
our $orao; |
52 |
|
|
53 |
select(STDERR); $| = 1; |
select(STDERR); $| = 1; |
54 |
|
|
55 |
sub init { |
sub boot { |
56 |
my $self = shift; |
my $self = shift; |
57 |
warn "Orao calling upstream init\n"; |
warn "Orao calling upstream init\n"; |
58 |
$self->SUPER::init( $self, @_ ); |
$self->SUPER::init( $self, @_ ); |
112 |
|
|
113 |
#( $A, $P, $X, $Y, $S, $IPeriod ) = ( 1, 2, 3, 4, 5, 6 ); |
#( $A, $P, $X, $Y, $S, $IPeriod ) = ( 1, 2, 3, 4, 5, 6 ); |
114 |
|
|
115 |
warn "Orao init finished", |
warn "Orao boot finished", |
116 |
$self->trace ? ' trace' : '', |
$self->trace ? ' trace' : '', |
117 |
$self->debug ? ' debug' : '', |
$self->debug ? ' debug' : '', |
118 |
"\n"; |
"\n"; |
119 |
|
|
120 |
|
M6502::reset(); |
121 |
|
|
122 |
|
warn dump( M6502->run ); |
123 |
} |
} |
124 |
|
|
125 |
=head2 load_rom |
=head2 load_rom |