/[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 73 by dpavlin, Tue Jul 31 16:42:09 2007 UTC revision 74 by dpavlin, Tue Jul 31 23:48:19 2007 UTC
# Line 30  void pull_R(M6502 *R) { Line 30  void pull_R(M6502 *R) {
30          R->S = SvIV( get_sv("M6502::S", FALSE) );          R->S = SvIV( get_sv("M6502::S", FALSE) );
31          R->PC.W = SvIV( get_sv("M6502::PC", FALSE) );          R->PC.W = SvIV( get_sv("M6502::PC", FALSE) );
32          R->IPeriod = SvIV( get_sv("M6502::IPeriod", FALSE) );          R->IPeriod = SvIV( get_sv("M6502::IPeriod", FALSE) );
33          // ICount IRequest IAutoReset TrapBadOps Trap Trace          R->IRequest = SvIV( get_sv("M6502::IRequest", FALSE) );
34            R->IAutoReset = SvIV( get_sv("M6502::IAutoReset", FALSE) );
35            R->TrapBadOps = SvIV( get_sv("M6502::TrapBadOps", FALSE) );
36            R->Trap = SvIV( get_sv("M6502::Trap", FALSE) );
37            R->Trace = SvIV( get_sv("M6502::Trace", FALSE) );
38          printf("pull_R finished\n");          printf("pull_R finished\n");
39          dump_R;          dump_R;
40  }  }
# Line 46  void push_R(M6502 *R) { Line 50  void push_R(M6502 *R) {
50          XPUSHs( sv_2mortal( newSViv( R->Y ) ) );          XPUSHs( sv_2mortal( newSViv( R->Y ) ) );
51          XPUSHs( sv_2mortal( newSViv( R->S ) ) );          XPUSHs( sv_2mortal( newSViv( R->S ) ) );
52          XPUSHs( sv_2mortal( newSViv( R->PC.W ) ) );          XPUSHs( sv_2mortal( newSViv( R->PC.W ) ) );
53            XPUSHs( sv_2mortal( newSViv( R->IPeriod ) ) );
54            XPUSHs( sv_2mortal( newSViv( R->ICount ) ) );
55            XPUSHs( sv_2mortal( newSViv( R->IRequest ) ) );
56            XPUSHs( sv_2mortal( newSViv( R->IAutoReset ) ) );
57            XPUSHs( sv_2mortal( newSViv( R->TrapBadOps ) ) );
58            XPUSHs( sv_2mortal( newSViv( R->Trap ) ) );
59            XPUSHs( sv_2mortal( newSViv( R->Trace ) ) );
60          PUTBACK;          PUTBACK;
61          call_pv("M6502::push_R", G_DISCARD );          call_pv("M6502::push_R", G_DISCARD );
62          printf("push_R called\n");          printf("push_R called\n");
Legend:
Removed from v.73  
changed lines
  Added in v.74
  ViewVC Help
Powered by ViewVC 1.1.26