Parent Directory | Revision Log | Patch
revision 53 by dpavlin, Tue Jul 31 12:35:02 2007 UTC | revision 54 by dpavlin, Tue Jul 31 13:35:02 2007 UTC | |
---|---|---|
# | Line 10 our @EXPORT = qw'@mem $PC $A $P $X $Y $S | Line 10 our @EXPORT = qw'@mem $PC $A $P $X $Y $S |
10 | ||
11 | =head1 NAME | =head1 NAME |
12 | ||
13 | M6502 - perl bindings for 6502 emulator | M6502 - perl bindings for M6502 CPU emulator |
14 | ||
15 | =cut | =cut |
16 | ||
# | Line 29 our $IPeriod = 1; | Line 29 our $IPeriod = 1; |
29 | # Exec6502 cycles | # Exec6502 cycles |
30 | our $run_for = 0; | our $run_for = 0; |
31 | ||
32 | =head1 init | =head1 FUNCTIONS |
33 | ||
34 | =head2 init | |
35 | ||
36 | Called before C<Run6502> | Called before C<Run6502> |
37 | ||
# | Line 151 sub dump_R { | Line 153 sub dump_R { |
153 | warn sprintf("## M6502::dump_R PC: %04x A:%02x P:%02x X:%02x Y:%02x S:%02x\n", $PC, $A, $P, $X, $Y, $S) if $debug; | warn sprintf("## M6502::dump_R PC: %04x A:%02x P:%02x X:%02x Y:%02x S:%02x\n", $PC, $A, $P, $X, $Y, $S) if $debug; |
154 | } | } |
155 | ||
156 | ||
157 | =head1 AUTHOR | |
158 | ||
159 | Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >> | |
160 | ||
161 | =head1 COPYRIGHT & LICENSE | |
162 | ||
163 | Copyright 2007 Dobrica Pavlinusic, All Rights Reserved. | |
164 | ||
165 | This program is free software; you can redistribute it and/or modify it | |
166 | under the same terms as Perl itself. | |
167 | ||
168 | =cut | |
169 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |