INICIO
BSF STATUS,5 ;CONFIGURACION DE PUERTOS banco1
MOVLW B'11000'
MOVWF PORTA
CLRF PORTE ;PUERTO E COMO SALIDAS
MOVLW 07
MOVWF ADCON0 ;PUERTA A COMO SALIDAS O ENTRADAS DIGITALES.
BCF PIE1,4 ;BITS DE EEPROM
MOVLW B'00000110'
MOVWF TMRO_OPT ;ACTIVO RESISTENCIA DE PULL- UP
MOVLW B'11110000' ;SALIDAS ENTRADAS AL TECLADO MATRICIAL
MOVWF PORTB
CLRF PORTD ;SALIDAS EL CRISTAL LCD
MOVLW B'00100100' ;SELECCION TX DE 8 BITS,ALTA VELOCIDAD, MODO
BCF STATUS,5 banco 0
seguir el programa
ESCRIBIR en eeprom
BCF STATUS,6 ;BANCO 0
BCF STATUS,5
MOVF ADDR_L,W
BSF STATUS,6 ;BANCO 2 SE METE EEADR LA DIRECCION
MOVWF EEADR ;A LA QUE SE BA A ACCEDER.
BCF STATUS,6 ;BANCO CERO
MOVF MINUTO,W ;SE METE EN EEDATA EL DATO A
BSF STATUS,6
MOVWF EEDATA ;ESCRIBIR
BSF STATUS,5 ;BANCO 3
BCF EECON1,EEPGD ;ACCESO A LA MEMORIA DE PROGRAMA
BSF EECON1,WREN ;HABILITO ESCRITURA DE EEPROM.
MOVLW 55H
MOVWF EECON2
MOVLW 0AAH
MOVWF EECON2
BSF EECON1,WR ;SE LE DA ORDEN A LA ESCRITURA.
MOVLW B'11000000' ;HABILITO INTERRUPCIONES.
MOVWF INTCON
BCF STATUS,6 ;BANCO 0
BCF STATUS,5
RET BTFSS PIR2,EEIF ;¿ESCRITURA LISTA? SI, SALTE.
GOTO RET ;NO GOTO RET
BCF PIR2,EEIF ;BORRAR BIT DE PREGUTA.
BSF STATUS,5
BSF STATUS,6
BCF EECON1,WREN
BCF STATUS,6 ;BANCO 0
BCF STATUS,5
RETURN
LEER en eeprom
BCF STATUS,6 ;BANCO 0
BCF STATUS,5
MOVF ADDR_L,W ;ACCEDER A LA POSICION DE LA EEPROM
BSF STATUS,6 ;BANCO 2
MOVWF EEADR
BSF STATUS,5 ;BANCO 3
BCF EECON1,EEPGD ;ACCESO A LA MEMORIA DE PROGRAMA
BSF EECON1,RD ;INICIA EL PROCESO DE LECTURA.
BCF STATUS,5 ;BANCO 2
MOVF EEDATA,W ;EXPLORO EL CONTENIDO DE EEPROM
BCF STATUS,6 ;BANCO0
MOVWF MINUTO ;..........MINUTO=EEPROM
RETURN
saludos ................