/[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 42 by dpavlin, Tue Jul 31 09:37:01 2007 UTC revision 48 by dpavlin, Tue Jul 31 10:47:30 2007 UTC
# Line 175  int main(int argc, char **argv) { Line 175  int main(int argc, char **argv) {
175                  dSP;                  dSP;
176                  PUSHMARK(SP);                  PUSHMARK(SP);
177                  call_pv("Arch::init", G_DISCARD | G_NOARGS );                  call_pv("Arch::init", G_DISCARD | G_NOARGS );
178                    FREETMPS;
179                    LEAVE;
180    
181                  int cycles = 1;                  int cycles = 1;
182                  while ( cycles ) {                  while ( cycles ) {
183                            dSP;
184                            PUSHMARK(SP);
185                          call_pv("Arch::cli", G_DISCARD | G_NOARGS );                          call_pv("Arch::cli", G_DISCARD | G_NOARGS );
186                          pull_R(R);                          pull_R(R);
187                            FREETMPS;
188                            LEAVE;
189                          cycles = SvIV( get_sv("M6502::run_for", FALSE) );                          cycles = SvIV( get_sv("M6502::run_for", FALSE) );
190                          printf("run CPU for %d cycles\n", cycles);                          printf("run CPU for %d cycles\n", cycles);
191                          dump_R;                          dump_R;
Legend:
Removed from v.42  
changed lines
  Added in v.48
  ViewVC Help
Powered by ViewVC 1.1.26