Lee un número binario de 4 bits del PORTA, escribe ese número a la memoria EEPROM interna del microcontrolador, hace una pequeña pausa, lee el número de la memoria EEPROM y escribe el número leido al PORTB

PIC16F84A.EEPROM.ASM

;
; Archivo helloEEPROM.asm
; FUNCIONA CON UN PIC16F84A
;
; @author: DiganmeGiovanni
;
; Lee un número binario de 4 bits del PORTA, escribe ese número a la
; memoria EEPROM interna del microcontrolador, hace una pequeña pausa,
; lee el número de la memoria EEPROM y escribe el número leido al
; PORTB
;

        ;** Algunas instrucciones de configuración
        processor 16f84
        include<p16f84.inc>
        __config _RC_OSC & _WDT_OFF & _PWRTE_ON

;** DIRECCIONES UTILES PARA LOS DELAYS
J       EQU     H'1F'
K       EQU     H'1E'

        ;** Inicia en la dirección 0
        org     0

        ;** Configura el PORTB como salidas
        BSF     STATUS, RP0     ; Ir a banco 1
        MOVLW   B'00000000'
        MOVWF   TRISB
        BCF     STATUS, RP0     ; Ir a banco 0

;** Si RA0=1 enviara a leer la EEPROM
TEAM9:
        CALL    EEPW
        GOTO    EEPR

;** Leer de la EEPROM
EEPR:
        BCF     STATUS, RP0     ; Ir a banco 0
        MOVLW   H'02'           ; Dirección de lectura
        MOVWF   EEADR

        BSF     STATUS, RP0     ; Ir a banco 1
        BSF     EECON1, RD      ; Iniciar lectura de EEPROM
        BCF     STATUS, RP0     ; Ir a banco 0
        
        MOVF    EEDATA, W       ; Mostrar datos leeidos en PORTB
        MOVWF   PORTB
        CALL    DELAY
        GOTO    TEAM9

;** Escribir en la EEPROM
EEPW:
        MOVLW   B'00010000'     ; Notifica por led de la escritura en curso
        MOVWF   PORTB

        MOVF    PORTA, W        ; Dato a escribir tomado del PORTA
        MOVWF   EEDATA
        MOVLW   H'02'           ; Dirección de escritura
        MOVWF   EEADR

        BSF     STATUS, RP0     ; Cambiar a banco 1
        BCF     INTCON, GIE     ; Dehabilitar interrupciones
        BSF     EECON1, WREN    ; Activar bit de 'enable-write'

        MOVLW   55h             ; Secuencia requerida
        MOVWF   EECON2
        MOVLW   0AAh
        MOVWF   EECON2
        BSF     EECON1, WR      ; Iniciar secuencia de escritura
        BTFSS   EECON1, EEIF    ; Esperar a que la secuencia de escritura termine
        GOTO    $-1

        BSF     INTCON, GIE     ; Habilitar interrupciones
        BCF     EECON1, WREN    ; Desactivar bit de 'enable-write'
        BCF     EECON1, EEIF
        BCF     STATUS, RP0     ; Regresar al banco 0

        CALL    DELAY           ; Una ligera pausa para apreciar el led indicador de escritura
        RETURN

;** Delay
DELAY:
        CALL    DODEL
        CALL    DODEL
        CALL    DODEL
        CALL    DODEL
        CALL    DODEL
        CALL    DODEL
        RETURN
DODEL:
        MOVLW   D'255'
        MOVWF   J
JLOOP:
        MOVWF   K
KLOOP:
        DECFSZ  K, F            ; K = K-1 ... SALTA SIG INSTRUCCION SI = 0
        GOTO    KLOOP
        DECFSZ  J, F            ; K = K-1 ... SALTA SIG INSTRUCCION SI = 0
        GOTO    JLOOP
        RETURN

        END

You can use the program (compiled with MPLAB in my case) with a circuit like this:

The 4 leds on right side displays the number readed from EEPROM, the blue led turn on when EEPROM is writing.