VRac/M6502/M6502.pm

package M6502;

use strict;
use warnings;

# Dobrica Pavlinusic, <dpavlin@rot13.org> 07/30/07 13:23:19 CEST
#
# Simple Orao emulation

my $mem = (0) x 0x10000;        # 64M

# program counter
our $PC = 0xbeef;
# CPU registars
our ( $A, $P, $X, $Y, $S ) = (0) x 5;
# Set IPeriod to number of CPU cycles between calls to Loop6502
our $IPeriod = 20000;

=head1 init

Called before C<Run6502>

=cut

sub init {
        warn "inside init\n";
        print "stdout\n";
};
1;
1	dpavlin	24	package M6502;
2
3			use strict;
4			use warnings;
5
6			# Dobrica Pavlinusic, <dpavlin@rot13.org> 07/30/07 13:23:19 CEST
7			#
8			# Simple Orao emulation
9
10			my $mem = (0) x 0x10000; # 64M
11
12	dpavlin	25	# program counter
13	dpavlin	24	our $PC = 0xbeef;
14	dpavlin	25	# CPU registars
15			our ( $A, $P, $X, $Y, $S ) = (0) x 5;
16			# Set IPeriod to number of CPU cycles between calls to Loop6502
17			our $IPeriod = 20000;
18	dpavlin	24
19	dpavlin	26	=head1 init
20
21			Called before C<Run6502>
22
23			=cut
24
25			sub init {
26			warn "inside init\n";
27			print "stdout\n";
28			};
29	dpavlin	24	1;