Parent Directory | Revision Log
added init, don't auto-vivify variables from M6502 package
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 | dpavlin | 26 | =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 | dpavlin | 24 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |