/[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 39 by dpavlin, Mon Jul 30 23:39:57 2007 UTC revision 40 by dpavlin, Tue Jul 31 08:41:06 2007 UTC
# Line 111  byte Op6502(register word Addr) { Line 111  byte Op6502(register word Addr) {
111          byte Op;          byte Op;
112          Op = mem(Addr);          Op = mem(Addr);
113          debugf(("Op6502(%04x,%02x) PC:%04x\n", Addr, Op, R->PC.W));          debugf(("Op6502(%04x,%02x) PC:%04x\n", Addr, Op, R->PC.W));
114            return Op;
115  }  }
116    
117  /** Loop6502() ***********************************************/  /** Loop6502() ***********************************************/
# Line 172  int main(int argc, char **argv) { Line 173  int main(int argc, char **argv) {
173                  call_pv("Arch::init", G_DISCARD | G_NOARGS );                  call_pv("Arch::init", G_DISCARD | G_NOARGS );
174    
175                  pull_R(R);                  pull_R(R);
176                  printf("run CPU\n");                  int cycles = SvIV( get_sv("M6502::run_for", FALSE) );
177                    printf("run CPU for %d cycles\n", cycles);
178                  dump_R;                  dump_R;
179                  //Run6502(R);                  //Run6502(R);
180                  Exec6502(R, DEFAULT_RUN);                  Exec6502(R, cycles);
181                  dump_R;                  dump_R;
182                  push_R(R);                  push_R(R);
183                  printf("end of CPU run\n");                  printf("end of CPU run\n");
Legend:
Removed from v.39  
changed lines
  Added in v.40
  ViewVC Help
Powered by ViewVC 1.1.26