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 ) |