;______________________________________
;           GESTION EEPROM
; ATtiny 25/45/85
; Lecture et écriture EEPROM
; ENTREE YH:YL Donnée R18
; Utilise le registre R16
; (c) sammy76.free.fr
;______________________________________
;.EQU EEPROMlength=256
; Incrémente YL après EEPROM_read

EEPROM_write:
; Entrée adresse : YH:YL; donnée R18
; Wait for completion of previous write
clr YH
sbic EECR,EEPE
rjmp EEPROM_write
; Set Programming mode
ldi R16, (0<<EEPM1)|(0<<EEPM0)
out EECR, R16
; Set up address (YH:YL) in address register
out EEARH, YH
out EEARL, YL
; Write data (R18) to data register
out EEDR, DATA
; Write logical one to EEMPE
sbi EECR,EEMPE
; Start eeprom write by setting EEPE
sbi EECR,EEPE
ret

EEPROM_read:
clr YH
; Entrée adresse : YH:YL; donnée R18
; Wait for completion of previous write
sbic EECR,EEPE
rjmp EEPROM_read
; Set up address (YH:YL) in address register
out EEARH, YH
out EEARL, YL
; Start eeprom read by writing EERE
sbi EECR,EERE
; Read data from data register
in DATA,EEDR
inc YL
ret	
;______________________________________
;  END OF PROGRAM  ;
;______________________________________