/[VRac]/M6502/perl.c
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/perl.c

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

revision 25 by dpavlin, Mon Jul 30 14:02:31 2007 UTC revision 36 by dpavlin, Mon Jul 30 22:06:13 2007 UTC
# Line 3  Line 3 
3  #include "M6502.h"  #include "M6502.h"
4  #include "config.h"  #include "config.h"
5    
6    #if DEBUGF
7    #define debugf(x)  do {         \
8            PerlIO_stdoutf x ;      \
9    } while (0)
10    #else
11    #define debugf(x)
12    #endif
13    
14  static PerlInterpreter *my_perl;  static PerlInterpreter *my_perl;
15    
16  static M6502 *R;  static M6502 *R;
17    
18  #define dump_R printf("PC: %04x A:%02x P:%02x X:%02x Y:%02x S:%02x", R->PC.W, R->A, R->P, R->X, R->Y, R->S );  #if DUMP_R
19    #define dump_R printf("# PC: %04x A:%02x P:%02x X:%02x Y:%02x S:%02x\n", R->PC.W, R->A, R->P, R->X, R->Y, R->S );
20    #else
21    #define dump_R
22    #endif
23    
24  void update_R(M6502 *R) {  void update_R(M6502 *R) {
25          R->A = atoi( SvPV_nolen( get_sv("M6502::A", TRUE) ) );          R->A = SvIV( get_sv("M6502::A", FALSE) );
26          R->P = atoi( SvPV_nolen( get_sv("M6502::P", TRUE) ) );          printf("--%d", get_sv("M6502::A", FALSE) );
27          R->X = atoi( SvPV_nolen( get_sv("M6502::X", TRUE) ) );          R->P = SvIV( get_sv("M6502::P", FALSE) );
28          R->Y = atoi( SvPV_nolen( get_sv("M6502::Y", TRUE) ) );          R->X = atoi( SvPV_nolen( get_sv("M6502::X", FALSE) ) );
29          R->S = atoi( SvPV_nolen( get_sv("M6502::S", TRUE) ) );          R->Y = atoi( SvPV_nolen( get_sv("M6502::Y", FALSE) ) );
30          R->PC.W = atoi( SvPV_nolen( get_sv("M6502::PC", TRUE) ) );          R->S = atoi( SvPV_nolen( get_sv("M6502::S", FALSE) ) );
31          R->IPeriod = atoi( SvPV_nolen( get_sv("M6502::IPeriod", TRUE) ) );          R->PC.W = atoi( SvPV_nolen( get_sv("M6502::PC", FALSE) ) );
32            R->IPeriod = atoi( SvPV_nolen( get_sv("M6502::IPeriod", FALSE) ) );
33          // ICount IRequest IAutoReset TrapBadOps Trap Trace          // ICount IRequest IAutoReset TrapBadOps Trap Trace
34            printf("update_r finished\n");
35          dump_R;          dump_R;
36  }  }
37    
# Line 29  void update_R(M6502 *R) { Line 43  void update_R(M6502 *R) {
43  /** required if there is a #define FAST_RDOP.               **/  /** required if there is a #define FAST_RDOP.               **/
44  /************************************ TO BE WRITTEN BY USER **/  /************************************ TO BE WRITTEN BY USER **/
45    
46    byte mem(word Addr) {
47            byte byte;
48            int count;
49            dSP;
50            ENTER;
51            SAVETMPS;
52            PUSHMARK(SP);
53            XPUSHs( sv_2mortal( newSViv( Addr ) ) );
54            PUTBACK;
55            count = call_pv("Arch::read", G_ARRAY );
56            if ( count != 1 ) {
57                    printf("expect 1 return value, got %d", count);
58                    exit(1);
59            }
60            //debugf(("got %d values\n", count));
61            SPAGAIN;
62            SV *sv;
63            sv = POPs;
64            byte = SvIV(sv);
65            FREETMPS;
66            LEAVE;
67            //debugf(("mem(%04x) = %02x\n", Addr, byte));
68            return byte;
69    }
70    
71  byte Rd6502(register word Addr) {  byte Rd6502(register word Addr) {
72          byte Value;          byte Value;
73          Value = 0x42;          Value = mem(Addr);
74          printf("Rd6502(%04x,%02x)\n", Addr, Value);          debugf(("Rd6502(%04x) = %02x\n", Addr, Value));
75            return Value;
76  }  }
77    
78  void Wr6502(register word Addr,register byte Value) {  void Wr6502(register word Addr,register byte Value) {
79          printf("Wr6502(%04x,%02x)\n", Addr, Value);          debugf(("Wr6502(%04x,%02x)\n", Addr, Value));
80            dSP;
81            ENTER;
82            SAVETMPS;
83            PUSHMARK(SP);
84            XPUSHs( sv_2mortal( newSViv( Addr ) ) );
85            XPUSHs( sv_2mortal( newSViv( Value ) ) );
86            PUTBACK;
87            call_pv("Arch::write", G_DISCARD );
88            FREETMPS;
89            LEAVE;
90  }  }
91    
92  byte Op6502(register word Addr) {  byte Op6502(register word Addr) {
93          byte Op;          byte Op;
94          Op = 0xff;          Op = mem(Addr);
95          printf("Op6502(%04x,%02x)\n", Addr, Op);          debugf(("Op6502(%04x,%02x) PC:%04x\n", Addr, Op, R->PC.W));
         dump_R;  
96  }  }
97    
98  /** Loop6502() ***********************************************/  /** Loop6502() ***********************************************/
# Line 54  byte Op6502(register word Addr) { Line 103  byte Op6502(register word Addr) {
103  /** emulation loop.                                         **/  /** emulation loop.                                         **/
104  /************************************ TO BE WRITTEN BY USER **/  /************************************ TO BE WRITTEN BY USER **/
105  byte Loop6502(register M6502 *R) {  byte Loop6502(register M6502 *R) {
106          printf("Loop6502\n");          debugf(("Loop6502\n"));
107          dump_R;          dump_R;
108            return INT_NONE;
109  }  }
110    
111  /** Patch6502() **********************************************/  /** Patch6502() **********************************************/
# Line 66  byte Loop6502(register M6502 *R) { Line 116  byte Loop6502(register M6502 *R) {
116  /** or 0 if the opcode was truly illegal.                   **/  /** or 0 if the opcode was truly illegal.                   **/
117  /************************************ TO BE WRITTEN BY USER **/  /************************************ TO BE WRITTEN BY USER **/
118  byte Patch6502(register byte Op,register M6502 *R) {  byte Patch6502(register byte Op,register M6502 *R) {
119          printf("Patch6502(%02x)\n", Op);          debugf(("Patch6502(%02x)\n", Op));
120          dump_R;          dump_R;
121            return 0;
122  }  }
123    
124  /**  /**
# Line 76  byte Patch6502(register byte Op,register Line 127  byte Patch6502(register byte Op,register
127   **/   **/
128    
129  int main(int argc, char **argv) {  int main(int argc, char **argv) {
130          char *command_line[] = {"", "-e",          char *command_line[] = {"", "-e", EMU_START };
                 "use M6502; print \"Loaded M6502 module\n\";"};  
131          my_perl = perl_alloc();          my_perl = perl_alloc();
132          perl_construct(my_perl);          perl_construct(my_perl);
133          if (perl_parse(my_perl, NULL, 3, command_line, (char **)NULL)) {          if (perl_parse(my_perl, xs_init, 3, command_line, (char **)NULL)) {
134                  printf("Failed to parse\n");                  printf("Failed to parse initial: %s\n", EMU_START );
135                  return 0;                  return 0;
136          }          }
137          perl_run(my_perl);          perl_run(my_perl);
# Line 94  int main(int argc, char **argv) { Line 144  int main(int argc, char **argv) {
144                          printf("can't alloc %d bytes for M6502", sizeof(M6502));                          printf("can't alloc %d bytes for M6502", sizeof(M6502));
145                          exit(1);                          exit(1);
146                  }                  }
147                  update_R(R);  
148                  printf("reset CPU\n");                  printf("reset CPU\n");
149                  Reset6502(R);                  Reset6502(R);
                 printf("reset CPU\n");  
                 Run6502(R);  
150    
151                    printf("call Arch::init\n");
152                    dSP;
153                    PUSHMARK(SP);
154                    call_pv("Arch::init", G_DISCARD | G_NOARGS );
155    
156                    update_R(R);
157                    printf("run CPU\n");
158                    Run6502(R);
159                    printf("end of CPU run\n");
160          }          }
161          free(R);          free(R);
162          perl_destruct(my_perl);          perl_destruct(my_perl);
Legend:
Removed from v.25  
changed lines
  Added in v.36
  ViewVC Help
Powered by ViewVC 1.1.26