'*********************************
' ENDURANCE TEST
' WILL DESTROY YOUR EEPROM!
' MM-Basic 4.5 / Maximite/Duinomite
' by twofingers 21-08-2014 on TBS
'**********************************

Dim t(2)
I2CADDR=&H50 `for 24C32 on DS1307 module from china
dest=4000
K$=Chr$(255)

t(0)=0
t(1)=255


Print Time$, Date$, "Destination:"dest
Timer=0:av=0

For i = 1 To 10000000
av=Abs(av=0)
Print @(0,12) i
eeSaveFx(I2CADDR,dest,t(av))
Next i
Print i,Time$,Timer
'eeDump
End


'**********************************
' Saves 4 identical bytes to AT24C32
' TO DESTROY EEPROMS ONLY!
' address should be divisible
' by 4 without rest
' (page mode roll over trouble)
'**********************************
Sub eeSaveFx (i2caddr,address, v)
'Print i2caddr, address,v

Local i,v1,MSB,LSB

I2C open 100,100 'ENABLE I2C
MSB=Int(address/256) 'MSB
LSB=address Mod 256 'LSB

I2C write I2CADDR, 0, 6, MSB,LSB,v,v,v,v
If MM.I2C <>0 Then Print "Error(1)! 1=NAK 2=TIMEOUT"; MM.I2C: End
Pause 1

'verify
I2C write I2CADDR,0,2,MSB,LSB ' set read address
For i=2 To 5
I2C read I2CADDR,0,1,v1
If MM.I2C <>0 Then Print "Error(2)! 1=NAK 2=TIMEOUT"; MM.I2C: End
If v<>v1 Then Print "Verify error at"; address,i,v,v1,"timer"Timer:End
Next i

I2C close

End Sub


'**********************************
' Saves a floatingp. var to AT24C32
'
' address should be divisible
' by 4 without rest
' (page mode roll over trouble)
' Plz obey mmbasic limits for
' floating point numbers otherwise
' U will get a serious memory error!
'**********************************
Sub eeSaveF4 (i2caddr,address, v)

Local fill(6),i,v1

If address Mod 4 Then
Print "Error: address should be divisible without rest"
End
EndIf

I2C open 100,100 'ENABLE I2C

fill(0)=Int(address/256) 'MSB
fill(1)=address Mod 256 'LSB
For i = 0 To 3: fill(i+2)=Peek(VAR v,i):Next i

I2C write I2CADDR, 0, 6, fill(0)
If MM.I2C <>0 Then Print "Error(1)! 1=NAK 2=TIMEOUT"; MM.I2C: End
Pause 1

'verify
I2C write I2CADDR,0,2,fill(0) ' set read address
For i=2 To 5
I2C read I2CADDR,0,1,fill(i)
If MM.I2C <>0 Then Print "Error(2)! 1=NAK 2=TIMEOUT"; MM.I2C: End
Poke VAR v1,i-2, fill(i)
Next i
If v<>v1 Then Print "Verify error! at"; address,v,v1:End

I2C close

End Sub

'**********************************
' I2C-Scanner
' scans I2C-Bus for addresses
' MM-Basic 4.5 / Maximite/Duinomite
' by twofingers 21-08-2014 on TBS
'**********************************
found=0
Cls
Print "I2C-Scanner from Adr. 8-119":Print:Print

For i = &h08 To &h77 ' gueltige I2C-Adressen von 8-119
I2C open 100, 1000 ' i2c enable 100kHz, 1000ms timeout
I2C read i, 0, 1, temp

Print i;">"; MM.I2C " ";
If MM.I2C = 0 Then
Print:Print:Print "Found I2C-Address at "; i; " ("dec2hex$(i)+")"
found=1
EndIf
I2C close ' i2c disable

Next i
If found = 0 Then Print:Print:Print "NO I2C-Addresse found!"
End

Function dec2hex$(number)
dec2hex$ = "&H"+ Hex$(number)
End Function