/[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 34 by dpavlin, Mon Jul 30 21:34:30 2007 UTC revision 36 by dpavlin, Mon Jul 30 22:06:13 2007 UTC
# Line 31  void update_R(M6502 *R) { Line 31  void update_R(M6502 *R) {
31          R->PC.W = atoi( SvPV_nolen( get_sv("M6502::PC", FALSE) ) );          R->PC.W = atoi( SvPV_nolen( get_sv("M6502::PC", FALSE) ) );
32          R->IPeriod = atoi( SvPV_nolen( get_sv("M6502::IPeriod", FALSE) ) );          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 91  void Wr6502(register word Addr,register Line 92  void Wr6502(register word Addr,register
92  byte Op6502(register word Addr) {  byte Op6502(register word Addr) {
93          byte Op;          byte Op;
94          Op = mem(Addr);          Op = mem(Addr);
95          debugf(("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 156  int main(int argc, char **argv) { Line 156  int main(int argc, char **argv) {
156                  update_R(R);                  update_R(R);
157                  printf("run CPU\n");                  printf("run CPU\n");
158                  Run6502(R);                  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.34  
changed lines
  Added in v.36
  ViewVC Help
Powered by ViewVC 1.1.26