Zapis i doczyt pamięci EEprom

[laki]

Mam problem z zapisem i odczytem Pamięci EEprom.
Może odbywać się to np. po naciśnięciu przycisku...

Czy ktoś może pomóc

w załaczeniu listing.





' Licznik - 0-99

Config Portb = 255
Portb = &B11111111
Config Portd = &B1111100
Portd = &B1111111



Do
'Readeeprom Eedr , 2
Debounce Pind.0 , 0 , Zmniejsz , Sub
Debounce Pind.1 , 0 , Zwieksz , Sub
Portb = Lookup(eedr , Tabela)
'Writeeeprom Eedr , 2
Loop
End


Zwieksz:
Incr Eedr
If Eedr = 100 Then Eedr = 0
Return

Zmniejsz:
Decr Eedr
If Eedr = 255 Then Eedr = 99
Return

Tabela:
Data 255 , 254 , 253 , 252 , 251 , 250 , 249 , 248 , 247 , 246
Data 239 , 238 , 237 , 236 , 235 , 234 , 233 , 232 , 231 , 230
Data 223 , 222 , 221 , 220 , 219 , 218 , 217 , 216 , 215 , 214
Data 207 , 206 , 205 , 204 , 203 , 202 , 201 , 200 , 199 , 198
Data 191 , 190 , 189 , 188 , 187 , 186 , 185 , 184 , 183 , 182
Data 175 , 174 , 173 , 172 , 171 , 170 , 169 , 168 , 167 , 166
Data 159 , 158 , 157 , 156 , 155 , 154 , 153 , 152 , 151 , 150
Data 143 , 142 , 141 , 140 , 139 , 138 , 137 , 136 , 135 , 134
Data 127 , 126 , 125 , 124 , 123 , 122 , 121 , 120 , 119 , 118