VRac/M6502/M6502.xs

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

#include "M6502.h"
#include "config.h"

M6502 *R;

void
run (void) {
        debugf(("M6502::run"));
        run_forever();
}

void
reset (void) {
        debugf(("M6502::reset called"));
        if ( ! R ) {
                debugf(("allocating space for R"));
                R = malloc(sizeof(M6502));
                if (!R) {
                        printf("can't alloc %d bytes for M6502", sizeof(M6502));
                        exit(1);
                }
        }
        Reset6502(R);
        dump_R;
}

MODULE = M6502          PACKAGE = M6502

PROTOTYPES: DISABLE

void
run()

void
reset()
1	#include "EXTERN.h"
2	#include "perl.h"
3	#include "XSUB.h"
4
5	#include "ppport.h"
6
7	#include "M6502.h"
8	#include "config.h"
9
10	M6502 *R;
11
12	void
13	run (void) {
14	debugf(("M6502::run"));
15	run_forever();
16	}
17
18	void
19	reset (void) {
20	debugf(("M6502::reset called"));
21	if ( ! R ) {
22	debugf(("allocating space for R"));
23	R = malloc(sizeof(M6502));
24	if (!R) {
25	printf("can't alloc %d bytes for M6502", sizeof(M6502));
26	exit(1);
27	}
28	}
29	Reset6502(R);
30	dump_R;
31	}
32
33	MODULE = M6502 PACKAGE = M6502
34
35	PROTOTYPES: DISABLE
36
37	void
38	run()
39
40	void
41	reset()