/[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 35 by dpavlin, Mon Jul 30 21:53:04 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() ***********************************************/
Legend:
Removed from v.35  
changed lines
  Added in v.36
  ViewVC Help
Powered by ViewVC 1.1.26