AYUDA NO FUNCIONA NOSE PORQUE
Publicado por WALTER (3 intervenciones) el 06/06/2002 01:59:04
NOSE PORQEU NO CORRE BIEN
LIST P=16F84
INCLUDE "P16F84.INC"
LECT01 EQU 0x0C
LECT02 EQU 0x0D
LECT03 EQU 0x0E
LECT04 EQU 0x0F
DATO01 EQU 0x10
DATO02 EQU 0x11
DATO03 EQU 0x12
DATO04 EQU 0x13
STOP01 EQU 0x14 ; control 1
ORG 00
INICIO
BCF STATUS,RP0 ; selecciona banco0
MOVLW LECT01 ; direccion de dato 1 en memoria de pic
MOVWF EEADR ; ubica posic. de memoria en banco 0
BSF STATUS,RP0 ; banco 1
BSF EECON1,RD ; set como lectura
BCF STATUS,RP0 ; pasando a banco 0
MOVF EEDATA,W ; cargando posicion dato01
MOVWF DATO01
MOVF DATO01,PORTB
GOTO INICIO
END
LIST P=16F84
INCLUDE "P16F84.INC"
LECT01 EQU 0x0C
LECT02 EQU 0x0D
LECT03 EQU 0x0E
LECT04 EQU 0x0F
DATO01 EQU 0x10
DATO02 EQU 0x11
DATO03 EQU 0x12
DATO04 EQU 0x13
STOP01 EQU 0x14 ; control 1
ORG 00
INICIO
BCF STATUS,RP0 ; selecciona banco0
MOVLW LECT01 ; direccion de dato 1 en memoria de pic
MOVWF EEADR ; ubica posic. de memoria en banco 0
BSF STATUS,RP0 ; banco 1
BSF EECON1,RD ; set como lectura
BCF STATUS,RP0 ; pasando a banco 0
MOVF EEDATA,W ; cargando posicion dato01
MOVWF DATO01
MOVF DATO01,PORTB
GOTO INICIO
END
Valora esta pregunta
0