BCF INTCON,GIE ;DISABLE INTERUPTS
BSF STATUS, RP0 ;Bank 1
MOVLW B'00000001' ;USE ADRESS 1 IN EEPROM MEMORY
MOVWF EEADR
MOVLW B'00001111' ; SEND THIS VALUE AS THE DATA TO ABOVE ADRESS
MOVWF EEDATA
BSF EECON1, WREN ;Enable write
MOVLW 55h ;
MOVWF EECON2 ;Write 55h
MOVLW 0AAh ;
MOVWF EECON2
BSF EECON1,WR
writing ; delay until write is complete
btfsc EECON1, WR
goto writing
BSF INTCON, GIE ;Enable INTs.
BCF STATUS, RP0
nop
BCF PIR1, EEIF
BCF INTCON,GIE ;DISABLE INTERUPTS
BSF STATUS, RP0 ;Bank 1
MOVLW B'00000001' ;USE ADRESS 1 IN EEPROM MEMORY
MOVWF EEADR
MOVLW B'11001100' ; SEND THIS VALUE AS THE DATA TO ABOVE ADRESS
MOVWF EEDATA
BSF EECON1, WREN ;Enable write
MOVLW 55h ;
MOVWF EECON2 ;Write 55h
MOVLW 0AAh ;
MOVWF EECON2
BSF EECON1,WR
BCF STATUS, RP0
writing2 ; delay until write is complete
btfss PIR1, EEIF
goto writing2
BSF INTCON, GIE ;Enable INTs.
BCF STATUS, RP0
nop