/[VRac]/M6502/M6502.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /M6502/M6502.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 33 - (show annotations)
Mon Jul 30 21:00:36 2007 UTC (16 years, 8 months ago) by dpavlin
File size: 1797 byte(s)
Orao now calls M6502->init correctly, and other tweak to make it semi-working
1 package M6502;
2
3 use strict;
4 use warnings;
5
6 use Data::Dump qw/dump/;
7 use Carp qw/confess/;
8
9 =head1 NAME
10
11 M6502 - perl bindings for 6502 emulator
12
13 =cut
14
15 my $debug = 1;
16
17 our $VERSION = qw(0.0.1);
18
19 our @mem = (0xff) x 0x10000; # 64M
20
21 # program counter
22 our $PC = 0xdd11;
23 # CPU registars
24 our ( $A, $P, $X, $Y, $S ) = (0) x 5;
25 # Set IPeriod to number of CPU cycles between calls to Loop6502
26 our $IPeriod = 1;
27
28 =head1 init
29
30 Called before C<Run6502>
31
32 =cut
33
34 sub init {
35 my $self = shift;
36 warn dump(@_);
37 warn "inside init low-level M6502 from $self\n";
38 };
39
40 =head2 read
41
42 Read from memory
43
44 $byte = read( $address );
45
46 =cut
47
48 sub read {
49 my ($addr) = @_;
50 my $byte = $mem[$addr];
51 warn "# read(",dump(@_),") = ",dump( $byte ),"\n" if $debug;
52 return $byte;
53 }
54
55 =head2 write
56
57 Write into emory
58
59 write( $address, $byte );
60
61 =cut
62
63 sub write {
64 warn "# write(",dump(@_),")\n" if $debug;
65 my ($addr,$byte) = @_;
66 $mem[$addr] = $byte;
67 }
68
69 =head2 poke_code
70
71 Write series of bytes into memory without passing through MMU
72
73 $emu->poke_code( 0xbeef, 0xff, 0x00, 0xff, 0x00, 0xaa );
74
75 =cut
76
77 sub poke_code {
78 my $self = shift;
79 my $addr = shift;
80 warn sprintf("# poke_code(%04x,%s)\n", $addr, dump( @_ )) if $self->debug;
81 $mem[$addr++] = $_ foreach @_;
82 }
83
84 =head2 write_chunk
85
86 $emu->write_chunk( $address, $chunk_of_data );
87
88 =cut
89
90 sub write_chunk {
91 my ($self, $addr, $chunk) = @_;
92 my $len = length($chunk);
93 splice @mem, $addr, $len, unpack('C*', $chunk);
94 }
95
96 =head2 ram
97
98 Read searies of bytes from memory without passing through MMU
99
100 $emu->ram( $from, $to );
101
102 =cut
103
104 sub ram {
105 my $self = shift;
106 my ($from,$to) = @_;
107 if ($from + $to) {
108 printf "ram %04x - %04x\n", $from, $to;
109 return $mem[$from .. $to - 1];
110 }
111 printf "ram %04x\n", $from;
112 return $mem[$from] if defined($from);
113 confess "no from address";
114 }
115
116 1;

  ViewVC Help
Powered by ViewVC 1.1.26