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();
}

int
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);
        debugf(("Reset6502 over"));
        push_R();
        dump_R;
        return 1;
}


MODULE = M6502          PACKAGE = M6502

PROTOTYPES: DISABLE

void
run()

int
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	int
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	debugf(("Reset6502 over"));
31	push_R();
32	dump_R;
33	return 1;
34	}
35
36
37	MODULE = M6502 PACKAGE = M6502
38
39	PROTOTYPES: DISABLE
40
41	void
42	run()
43
44	int
45	reset()