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	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	dpavlin	83	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	dpavlin	82	Reset6502(R);
30			dump_R;
31			}
32
33	dpavlin	80	MODULE = M6502 PACKAGE = M6502
34
35			PROTOTYPES: DISABLE
36
37			void
38			run()
39	dpavlin	82
40			void
41			reset()