Try this one, it's working here
Code:define LOADER_USED 1 disable debug Data_READ var byte Data_Write var byte Bad var bit ADDR var word SDA var PORTC.4 SCL var PORTC.3 Control con $A0 Bad = 0 Start: For addr=0 to $FFFF data_write=addr.lowbyte bad = 0 I2CWRITE sda,scl,control,ADDR,[data_write] PAUSE 10 I2CREAD sda,scl,control,ADDR,[Data_read] enable debug data_read=data_read ' refresh ICD display disable debug if data_read != data_write then bad=bad +1 next GOTO Start




Bookmarks