Witam
Przy zapisie możesz podać dokładny adres gdzie chcesz zapisać dane w eeprom
np: Dim zmienna as Eram Byte At &H10
Zawsze możesz odczytać komórkę EEprom i porównać czy jest na przykład różna niż FF.
$sim
$prog &HFF , &H3F , &HD9 , &H00 ' generated. Take care that the chip supports all fuse bytes.
$regfile = "m8def.DAT" 'uc type
$crystal = 11059200 'crysal frequency
$baud = 9600
'Config Portb = Output
'*******************************************************************************
'****************************Variables*****************************************
Dim X As Byte
Dim Y As Eram Byte At &H10
Y = 100
X = 50
'y nie istniej w SRAM wiec nie możemy się do niej bez pośrednio odwoływać
Print X 'powinno byc 50
Readeeprom X , &H10
Print X ' powinno byc 100
If X <> 255 Then ' jeśli różne od 255
Print "rozne X= " ; X
End If
Wait 1
Y = 255
Readeeprom X , &H10
If X = 255 Then 'jelsi równe czyli zwykle FF
Print "pusta komorka X=" ; X
End If
End
Pozdrawiam
Paweł
Przy zapisie możesz podać dokładny adres gdzie chcesz zapisać dane w eeprom
np: Dim zmienna as Eram Byte At &H10
Zawsze możesz odczytać komórkę EEprom i porównać czy jest na przykład różna niż FF.
$sim
$prog &HFF , &H3F , &HD9 , &H00 ' generated. Take care that the chip supports all fuse bytes.
$regfile = "m8def.DAT" 'uc type
$crystal = 11059200 'crysal frequency
$baud = 9600
'Config Portb = Output
'*******************************************************************************
'****************************Variables*****************************************
Dim X As Byte
Dim Y As Eram Byte At &H10
Y = 100
X = 50
'y nie istniej w SRAM wiec nie możemy się do niej bez pośrednio odwoływać
Print X 'powinno byc 50
Readeeprom X , &H10
Print X ' powinno byc 100
If X <> 255 Then ' jeśli różne od 255
Print "rozne X= " ; X
End If
Wait 1
Y = 255
Readeeprom X , &H10
If X = 255 Then 'jelsi równe czyli zwykle FF
Print "pusta komorka X=" ; X
End If
End
Pozdrawiam
Paweł