Saludos luis
Aqui te envio las rutinas le leer, escribir y borrar la eeprom del pic873, cualquier cosa pega un grito
EN INICIO
CALL BANCO3
BSF EECON1,WREN
BCF EECON1,7
BORRAR
HI MOVLW .255
MOVWF PUNTO
CLRF DIR
LOOP_1 MOVLW 0FFH
MOVWF DATO
CALL GUARDA1
INCF DIR
DECFSZ PUNTO,1
GOTO LOOP_1
CLRF DIR
RETURN
GUARDA1
MOVF DIR,0
BSF STATUS,RP1
BCF STATUS,RP0
MOVWF EEADR
BCF STATUS,RP1
MOVF DATO,0
BSF STATUS,RP1
MOVWF EEDATA
BSF STATUS,RP0
BCF EECON1,7
BSF EECON1,2
MOVLW 55H
MOVWF EECON2
MOVLW 0AAH
MOVWF EECON2
BSF EECON1,1
BTFSC EECON1,1
GOTO $-1
BCF EECON1,2
BCF STATUS,RP1
BCF STATUS,RP0
RETURN
LEER
BCF STATUS,RP1 ;BANCO0
BCF STATUS,RP0
MOVF DIR,0
BSF STATUS,RP1 ;BANCO2
BCF STATUS,RP0
MOVWF EEADR
BSF STATUS,RP0 ;BANCO3
BCF EECON1,7
BSF EECON1,RD
BTFSC EECON1,RD
GOTO $-1
BCF STATUS,RP0 ;BANCO2
MOVF EEDATA,W
BCF STATUS,RP0 ;BANCO0
BCF STATUS,RP1
MOVWF DATO1
RETURN
