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	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			1;