Parent Directory | Revision Log
begin refactoring into proper XS module (really need to do this so I can handle SDL event loop)
1 | dpavlin | 80 | #include "EXTERN.h" |
2 | #include "perl.h" | ||
3 | #include "XSUB.h" | ||
4 | |||
5 | #include "ppport.h" | ||
6 | |||
7 | dpavlin | 82 | #include "M6502.h" |
8 | #include "config.h" | ||
9 | |||
10 | M6502 *R; | ||
11 | |||
12 | dpavlin | 80 | void |
13 | run (void) { | ||
14 | dpavlin | 82 | debugf(("M6502::run")); |
15 | dpavlin | 80 | run_forever(); |
16 | } | ||
17 | |||
18 | dpavlin | 82 | void |
19 | reset (void) { | ||
20 | debugf(("M6502::reset called")); | ||
21 | Reset6502(R); | ||
22 | dump_R; | ||
23 | } | ||
24 | |||
25 | dpavlin | 80 | MODULE = M6502 PACKAGE = M6502 |
26 | |||
27 | PROTOTYPES: DISABLE | ||
28 | |||
29 | void | ||
30 | run() | ||
31 | dpavlin | 82 | |
32 | void | ||
33 | reset() |
ViewVC Help | |
Powered by ViewVC 1.1.26 |