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;

1;
1	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	# program counter
13	our $PC = 0xbeef;
14	# 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
19	1;