movlw .5 movwf eedaten movwf eeadresse movf eeadresse,w movwf EEADR movf eedaten,w movwf EEDATA bcf EECON1,EEPGD bcf EECON1,CFGS bsf EECON1,WREN bcf INTCON,GIE movlw 55h movwf EECON2 movlw 0xAA movwf EECON2 bsf EECON1,WR eewait btfsc EECON1,WR goto eewait movlw .250 movwf loops call WAIT bcf EECON1,WREN movlw .250 movwf loops call WAIT movlw .250 movwf loops call WAIT movlw .250 movwf loops call WAIT call eepromread movlw .250 movwf loops call WAIT movlw .250 movwf loops call WAIT movlw .250 movwf loops call WAIT movlw .250 movwf loops call WAIT goto rtcrueck eepromread movlw .5 movwf eeadresse movf eeadresse,w movwf EEADR bcf EECON1,EEPGD bcf EECON1,CFGS bsf EECON1,RD eeread btfsc EECON1,RD goto eeread movlw .250 movwf loops call WAIT movf EEDATA,w movwf eedaten ;löschen movlw .5 subwf eedaten,w btfsc STATUS,Z bsf PORTA,0 retlw .0