/[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

Diff of /M6502/M6502.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 24 by dpavlin, Mon Jul 30 13:29:57 2007 UTC revision 30 by dpavlin, Mon Jul 30 17:56:13 2007 UTC
# Line 3  package M6502; Line 3  package M6502;
3  use strict;  use strict;
4  use warnings;  use warnings;
5    
6  # Dobrica Pavlinusic, <dpavlin@rot13.org> 07/30/07 13:23:19 CEST  use Data::Dump qw/dump/;
7  #  use Carp qw/confess/;
 # Simple Orao emulation  
8    
9  my $mem = (0) x 0x10000;        # 64M  =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 = 0xbeef;  our $PC = 0xbeef;
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            warn "inside init\n";
36            print "stdout\n";
37    };
38    
39    =head2 read
40    
41    Read from memory
42    
43      $byte = read( $address );
44    
45    =cut
46    
47    sub read {
48            my ($addr) = @_;
49            my $byte = $mem[$addr];
50            warn "# read(",dump(@_),") = ",dump( $byte ),"\n" if $debug;
51            return $byte;
52    }
53    
54    =head2 write
55    
56    Write into emory
57    
58      write( $address, $byte );
59    
60    =cut
61    
62    sub write {
63            warn "# write(",dump(@_),")\n" if $debug;
64            my ($addr,$byte) = @_;
65            $mem[$addr] = $byte;
66    }
67    
68    =head2 poke_code
69    
70    Write series of bytes into memory without passing through MMU
71    
72      $emu->poke_code( 0xbeef, 0xff, 0x00, 0xff, 0x00, 0xaa );
73    
74    =cut
75    
76    sub poke_code {
77            my $self = shift;
78            my $addr = shift;
79            warn sprintf("# poke_code(%04x,%s)\n", $addr, dump( @_ )) if $self->debug;
80            $mem[$addr++] = $_ foreach @_;
81    }
82    
83    =head2 ram
84    
85    Read searies of bytes from memory without passing through MMU
86    
87      $emu->ram( $from, $to );
88    
89    =cut
90    
91    sub ram {
92            my $self = shift;
93            my ($from,$to) = @_;
94            if ($from + $to) {
95                    printf "ram %04x - %04x\n", $from, $to;
96                    return $mem[$from .. $to - 1];
97            }
98            printf "ram %04x\n", $from;
99            return $mem[$from] if defined($from);
100            confess "no from address";
101    }
102    
103  1;  1;
Legend:
Removed from v.24  
changed lines
  Added in v.30
  ViewVC Help
Powered by ViewVC 1.1.26