Amigos este es el codigo completo:
LIST P=16F877A ;TIPO DE PROCESADOR
INCLUDE "P16F877A.INC" ;DEFINICON DE LOS SFR
__CONFIG _XT_OSC & _CP_OFF & _PWRTE_ON & _WDT_OFF & _BODEN_ON & _WRT_OFF & _LVP_OFF & _CPD_OFF & _DEBUG_OFF
INICIO ORG H'0000'
GOTO START
;****************************************************************
WRITEF
BANKSEL EECON1 ;BANCO3
BSF EECON1,EEPGD ;SELECCIONAMOS ACCESO A LA FLASH
BSF EECON1,WREN ;SE HABILITA ESCRITURA EN LA FLASH
BCF INTCON,GIE ;SE PROHIBEN LAS INTERRUPCIONES
MOVLW H'55'
MOVWF EECON2
MOVLW H'AA'
MOVWF EECON2
BSF EECON1,WR ;SE DA LA ORDEN DE ESCRITURA
NOP
NOP
BSF INTCON,GIE ;SE HABILITAN LAS INTERRUPCIONES
BCF EECON1,WREN ;SE PROHIBE LA ESCRITURA DE NUEVOS DATOS
BANKSEL EEADR ;BANCO2
;
RETURN
;****************************************************************
START
BANKSEL EEADR ;BANCO2
CLRF EEADR ;LIMPIAMOS PARTE BAJA DEL DIRECCIONADOR DE LA FLASH
CLRF EEADRH ;LIMPIAMOS PARTE ALTA DEL DIRECCIONADOR DE LA FLASH
MOVLW H'90'
MOVWF EEADR
MOVLW H'01'
MOVWF EEDATH
MOVLW H'86'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'16'
MOVWF EEDATH
MOVLW H'83'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'10'
MOVWF EEDATH
MOVLW H'06'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'12'
MOVWF EEDATH
MOVLW H'83'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'14'
MOVWF EEDATH
MOVLW H'06'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'20'
MOVWF EEDATH
MOVLW H'09'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'10'
MOVWF EEDATH
MOVLW H'06'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'20'
MOVWF EEDATH
MOVLW H'09'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
;==========================================
MOVLW H'28'
MOVWF EEDATH
MOVLW H'04'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'30'
MOVWF EEDATH
MOVLW H'C8'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'00'
MOVWF EEDATH
MOVLW H'A0'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'30'
MOVWF EEDATH
MOVLW H'6E'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'00'
MOVWF EEDATH
MOVLW H'A1'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'00'
MOVWF EEDATH
MOVLW H'00'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'0B'
MOVWF EEDATH
MOVLW H'A1'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'28'
MOVWF EEDATH
MOVLW H'0D'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
;==========================================
MOVLW H'0B'
MOVWF EEDATH
MOVLW H'A0'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'28'
MOVWF EEDATH
MOVLW H'0B'
MOVWF EEDATA
CALL WRITEF
INCF EEADR,1
MOVLW H'00'
MOVWF EEDATH
MOVLW H'08'
MOVWF EEDATA
CALL WRITEF
GOTO H'0090'
;==========================================
END