/[VRac]/M6502/M6502.xs
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/M6502.xs

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 195 by dpavlin, Sun Apr 13 00:32:39 2008 UTC revision 197 by dpavlin, Sun Apr 13 00:44:30 2008 UTC
# Line 129  byte Rd6502(register word Addr) { Line 129  byte Rd6502(register word Addr) {
129    
130  void Wr6502(register word Addr,register byte Value) {  void Wr6502(register word Addr,register byte Value) {
131          debugf(("Wr6502(%04x,%02x)", Addr, Value));          debugf(("Wr6502(%04x,%02x)", Addr, Value));
132            if ( perlCallBack[Addr] & CALLBACK_WRITE_MASK == CALLBACK_WRITE_SKIP && opCache[Addr] == Value ) {
133                    debugf(("skipped perl callback, same value"));
134                    return;
135            }
136          opCache[Addr] = Value;          opCache[Addr] = Value;
137          if ( perlCallBack[Addr] & CALLBACK_WRITE_MASK == CALLBACK_WRITE_SKIP ) return;          if ( perlCallBack[Addr] & CALLBACK_WRITE_MASK == CALLBACK_WRITE_SKIP ) return;
138          if ( perlCallBack[Addr] & CALLBACK_WRITE_MASK == CALLBACK_WRITE_ONCE )          if ( perlCallBack[Addr] & CALLBACK_WRITE_MASK == CALLBACK_WRITE_ONCE )
Legend:
Removed from v.195  
changed lines
  Added in v.197
  ViewVC Help
Powered by ViewVC 1.1.26