/[VRac]/M6502/M6502.xs
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /M6502/M6502.xs

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 86 by dpavlin, Wed Aug 1 22:25:37 2007 UTC revision 87 by dpavlin, Thu Aug 2 11:08:10 2007 UTC
# Line 8  Line 8 
8  #include "config.h"  #include "config.h"
9    
10  M6502 *R;  M6502 *R;
11    int debug = 0;
12    
13  void  void update_C_R(void) {
14  run (void) {          R->A = SvIV( get_sv("M6502::A", FALSE) );
15          debugf(("M6502::run"));          R->P = SvIV( get_sv("M6502::P", FALSE) );
16          run_forever();          R->X = SvIV( get_sv("M6502::X", FALSE) );
17            R->Y = SvIV( get_sv("M6502::Y", FALSE) );
18            R->S = SvIV( get_sv("M6502::S", FALSE) );
19            R->PC.W = SvIV( get_sv("M6502::PC", FALSE) );
20            R->IPeriod = SvIV( get_sv("M6502::IPeriod", FALSE) );
21            R->IRequest = SvIV( get_sv("M6502::IRequest", FALSE) );
22            R->IAutoReset = SvIV( get_sv("M6502::IAutoReset", FALSE) );
23            R->TrapBadOps = SvIV( get_sv("M6502::TrapBadOps", FALSE) );
24            R->Trap = SvIV( get_sv("M6502::Trap", FALSE) );
25            R->Trace = SvIV( get_sv("M6502::Trace", FALSE) );
26            debugf(("pull_R finished"));
27            dump_R;
28    }
29    
30    void update_perl_R(void) {
31            debugf(("update_perl_R"));
32            dSP;
33            ENTER;
34            SAVETMPS;
35            PUSHMARK(SP);
36            XPUSHs( sv_2mortal( newSViv( R->A ) ) );
37            XPUSHs( sv_2mortal( newSViv( R->P ) ) );
38            XPUSHs( sv_2mortal( newSViv( R->X ) ) );
39            XPUSHs( sv_2mortal( newSViv( R->Y ) ) );
40            XPUSHs( sv_2mortal( newSViv( R->S ) ) );
41            XPUSHs( sv_2mortal( newSViv( R->PC.W ) ) );
42            XPUSHs( sv_2mortal( newSViv( R->IPeriod ) ) );
43            XPUSHs( sv_2mortal( newSViv( R->ICount ) ) );
44            XPUSHs( sv_2mortal( newSViv( R->IRequest ) ) );
45            XPUSHs( sv_2mortal( newSViv( R->IAutoReset ) ) );
46            XPUSHs( sv_2mortal( newSViv( R->TrapBadOps ) ) );
47            XPUSHs( sv_2mortal( newSViv( R->Trap ) ) );
48            XPUSHs( sv_2mortal( newSViv( R->Trace ) ) );
49            PUTBACK;
50            call_pv("M6502::_update_perl_R", G_DISCARD );
51            debugf(("_update_perl_R returned to C"));
52            dump_R;
53            FREETMPS;
54            LEAVE;
55  }  }
56    
57  int  int
# Line 22  reset (void) { Line 61  reset (void) {
61                  debugf(("allocating space for R"));                  debugf(("allocating space for R"));
62                  R = malloc(sizeof(M6502));                  R = malloc(sizeof(M6502));
63                  if (!R) {                  if (!R) {
64                          printf("can't alloc %d bytes for M6502", sizeof(M6502));                          PerlIO_stderrf("can't alloc %d bytes for M6502", sizeof(M6502));
65                          exit(1);                          exit(1);
66                  }                  }
67          }          }
68          Reset6502(R);          Reset6502(R);
69          debugf(("Reset6502 over"));          debugf(("Reset6502 over"));
70          push_R();          update_perl_R();
71          dump_R;          dump_R;
72          return 1;          return 1;
73  }  }
74    
75    int set_debug(int state) {
76            debug = state;
77            return debug;
78    }
79    
80    int get_debug(void) {
81            return debug;
82    }
83    
84  MODULE = M6502          PACKAGE = M6502  MODULE = M6502          PACKAGE = M6502
85    
86  PROTOTYPES: DISABLE  PROTOTYPES: DISABLE
87    
88  void  int
89  run()  set_debug(int state)
90    
91    int
92    get_debug()
93    
94  int  int
95  reset()  reset()
96    
97    void
98    update_C_R()
99    
100    void
101    update_perl_R()
102    
Legend:
Removed from v.86  
changed lines
  Added in v.87
  ViewVC Help
Powered by ViewVC 1.1.26