Solucionado

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
list p=16f84 ; Pic a usar
radix hex ; Sistema hexadecimal
;_____Asignacion de puertos_______
status equ 0x03 ; Direccion registro STATUS
porta equ 0x05 ; direccion Pueros A
trisa equ 0x85 ; Direccion TRISA
portb equ 0x06 ; Direccion puertos B
trisb equ 0x86 ; Direccion TRISB
Registro1 equ 0x0C ; Registro 1
;_____Memoria EEPROM______________
;Direccion de los registros para trabajar con la EEPROM del 16f84
EEDATA equ 0x08
EEADR equ 0x09
EECON1 equ 0x88
EECON2 equ 0x89
ADDRES_W equ 0x10 ; Direccion en la que quiero escribir el dato
Dat equ 0x01 ; Dato a guardar
;______Codigo_____________________
reset org 0x00
goto inicio
org 0x05
inicio
;_____Configurar puertos__________
bsf status,5 ; Pasar al banco 1
movlw b'00000'
movwf trisa ; Puerto A como salida
clrw ; Limpiar registro W
movlw b'11111111'
movwf trisb ; Puerto B como entrada
bcf status,5 ; Volver al banco 0
;_____Esrcibe en la EEPROM________
bcf status,5 ; Me aseguro que este en el banco 0
movlw ADDRES_W ; Paso la direccion a W
movwf EEADR ; y la paso al registro de la EEPROM EEADR
movlw Dat ; Pongo en W el dato que quiero grabar
movwf EEDATA ; y lo paso al registro de dato de la EEPROM
bsf status,5 ; paso al banco 1
bsf EECON1,2 ; Pido permiso de escritura (BIT 2: WREN)
;____Proceso de seguridad_______
movlw 0x55
movwf EECON2
movlw 0xAA
movwf EECON2
bsf EECON1,1 ; Ejecuto escritura!! no?¿?¿ :S (bit1: WR = WriteData)
bcf status,5 ; Regreso al banco 0
;_____ Lee EEPROM_________________
movlw ADDRES_W ; Direccion a leer
movwf EEADR ; Se la paso al registro de direcciones de la EEPROM
bsf status,0 ; Paso al banco 1
bsf EECON1,0 ; Activo READ DATA, (bit0)
bcf status,0 ; Regreso de banco
movf EEDATA,W ;guardo el valor leido en W (?¿)
movwf Registro1 ;Lo paso al registro1 (no?¿)
IF Registro1 == 0x01
bcf portb,0 ;Prende led por PINB0
else
end Fin del programa
movf PORTB,R1
MOV portb,b
movf portb,b