.IFNDEF EEPSUPPORT .EQU EEPSUPPORT=1 .CSEG ;->(ZH:)ZL: address in EEP space ;<-R16: read value eep_load: out EEARL,ZL .IFDEF EEARH out EEARH,ZH .ENDIF sbi EECR,EERE in R16,EEDR ret ;->(ZH:)ZL: address in EEP space ; R16: value to write eep_store: sbic EECR,EEPE ;wait until ready rjmp eep_store out EEARL,ZL .IFDEF EEARH out EEARH,ZH .ENDIF out EEDR,R16 sbi EECR,EEMPE sbi EECR,EEPE ret ;<-Zeroflag set, if eeprom is ready for writing eep_ready: clz sbis EECR,EEPE sez ret .ENDIF