Parent Directory | Revision Log
added init, don't auto-vivify variables from M6502 package
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 | =head1 init |
20 | |
21 | Called before C<Run6502> |
22 | |
23 | =cut |
24 | |
25 | sub init { |
26 | warn "inside init\n"; |
27 | print "stdout\n"; |
28 | }; |
29 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |