Well, here it is:
READ_ROM_EEPROM
BSF STATUS,RP1 ;
BCF STATUS,RP0 ; Select bank 2
CLRF EEADR^0x0100 ; Start Loc
BSF STATUS,RP0 ; Select bank 3
BCF EECON1^0x0180,EEPGD
BSF EECON1^0x0180,RD
BCF STATUS,RP0 ; Select bank 2
MOVF EEDATA^0x0100,W
MOVWF STROKE_COUNT ; From EEPROM
INCF EEADR^0x0100,F ; Point to next Loc in EEPROM
BSF STATUS,RP0 ; Select bank 3
BCF EECON1^0x0180,EEPGD
BSF EECON1^0x0180,RD
BCF STATUS,RP0 ; Select bank 2
MOVF EEDATA^0x0100,W
MOVWF STROKE_LED ; From EEPROM
INCF EEADR^0x0100,F ; Point to next Loc in EEPROM
BSF STATUS,RP0 ; Select bank 3
BCF EECON1^0x0180,EEPGD
BSF EECON1^0x0180,RD
BCF STATUS,RP0 ; Select bank 2
MOVF EEDATA^0x0100,W
MOVWF TOTAL_1 ; From EEPROM
INCF EEADR^0x0100,F ; Point to next Loc in EEPROM
BSF STATUS,RP0 ; Select bank 3
BCF EECON1^0x0180,EEPGD
BSF EECON1^0x0180,RD
BCF STATUS,RP0 ; Select bank 2
MOVF EEDATA^0x0100,W
MOVWF TOTAL_2 ; From EEPROM
RETURN
SAVE_EEPROM
BSF STATUS,RP1 ;
BCF STATUS,RP0 ; Select bank 2
CLRF EEADR^0x0100 ; Start Loc
MOVF STROKE_COUNT,W
MOVWF EEDATA^0x0100 ; Load EEPROM
CALL SEND_TO_EEPROM
BCF STATUS,RP0 ; Select bank 2
INCF EEADR^0x0100,F ; Point to next Loc in EEPROM
MOVF STROKE_LED,W
MOVWF EEDATA^0x0100 ; Load EEPROM
CALL SEND_TO_EEPROM
BCF STATUS,RP0 ; Select bank 2
INCF EEADR^0x0100,F ; Point to next Loc in EEPROM
MOVF TOTAL_1,W
MOVWF EEDATA^0x0100 ; Load EEPROM
CALL SEND_TO_EEPROM
BCF STATUS,RP0 ; Select bank 2
INCF EEADR^0x0100,F ; Point to next Loc in EEPROM
MOVF TOTAL_2,W
MOVWF EEDATA^0x0100 ; Load EEPROM
CALL SEND_TO_EEPROM
RETURN
;**********************************
SEND_TO_EEPROM
BSF STATUS,RP0 ; Bank 3
BSF STATUS,RP1 ;
BCF EECON1^0x0180,EEPGD
BSF EECON1^0x0180,WREN
BCF INTCON,GIE ;
MOVLW 0x055
MOVWF EECON2^0x0180
MOVLW 0x0AA
MOVWF EECON2^0x0180
BSF EECON1^0x0180,WR
BTFSC EECON1^0x0180,WR ; Done?
GOTO $-1 ;-1 LINE
BCF EECON1^0x0180,WREN
BSF INTCON,GIE ;
RETURN
Thanks