VRac/M6502/M6502.pm

package M6502;

use strict;
use warnings;

use Data::Dump qw/dump/;

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

my $debug = 1;

my @mem = (0x42) 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 = 1;

=head1 init

Called before C<Run6502>

=cut

sub init {
        warn "inside init\n";
        print "stdout\n";
};

=head2 read

Read from memory

  $byte = read( $address );

=cut

sub read {
        my ($addr) = @_;
        my $byte = $mem[$addr];
        warn "# read(",dump(@_),") = ",dump( $byte ),"\n" if $debug;
        return $byte;
}

=head2 write

Write into emory

  write( $address, $byte );

=cut

sub write {
        warn "# write(",dump(@_),")\n" if $debug;
        my ($addr,$byte) = @_;
        $mem[$addr] = $byte;
}
1;
1	package M6502;
2
3	use strict;
4	use warnings;
5
6	use Data::Dump qw/dump/;
7
8	# Dobrica Pavlinusic, <dpavlin@rot13.org> 07/30/07 13:23:19 CEST
9	#
10	# Simple Orao emulation
11
12	my $debug = 1;
13
14	my @mem = (0x42) x 0x10000; # 64M
15
16	# program counter
17	our $PC = 0xbeef;
18	# CPU registars
19	our ( $A, $P, $X, $Y, $S ) = (0) x 5;
20	# Set IPeriod to number of CPU cycles between calls to Loop6502
21	our $IPeriod = 1;
22
23	=head1 init
24
25	Called before C<Run6502>
26
27	=cut
28
29	sub init {
30	warn "inside init\n";
31	print "stdout\n";
32	};
33
34	=head2 read
35
36	Read from memory
37
38	$byte = read( $address );
39
40	=cut
41
42	sub read {
43	my ($addr) = @_;
44	my $byte = $mem[$addr];
45	warn "# read(",dump(@_),") = ",dump( $byte ),"\n" if $debug;
46	return $byte;
47	}
48
49	=head2 write
50
51	Write into emory
52
53	write( $address, $byte );
54
55	=cut
56
57	sub write {
58	warn "# write(",dump(@_),")\n" if $debug;
59	my ($addr,$byte) = @_;
60	$mem[$addr] = $byte;
61	}
62	1;