Hola gente, son nuevo en esto. Hice el programador sugerido en este foro, del amigo Pablin.com. Lo arme y funciona!!! Al menos graba y verifica bien (segun mensajes del Ic-Pog). El problema es que solo quiero prender un led a modo de prueba. Lo programo y al probarlo no prende. Lo probe con un cristal de 4Mz (XT) y con un RC y nada. Será necesario mandar los pines que no uso con una resistencia de 10K a +5v ? Estoy usando para compilarlo el Mplab y lo grabo con Ic- Prog del asambler. Cualquier sugerencia es bienvenida. El programa es el siguiente (es la primer parte del ejercicio)
list p=16f84
status equ 0x3
porta equ 0x5
trisa equ 0x5
portb equ 0x6
trisb equ 0x6
rp0 equ 5
rb0 equ 0 ; Omita esta línea hasta que se le
; indique en el transcurso del programa.
contador res 1 ; Reserva un espacio de memoria a la
; variable CONTADOR.
contador1 res 1 ; Reserva un espacio de memoria a la
; variable CONTADOR1.
; Estas dos líneas son variables definidas por el usuario reservadas para
; una subrutina de retardo que utilizaremos.
org 0 ; Hace referencia a una dirección
; de memoria en el área de programa
; a partir de la cual insertaremos
; las instrucciones nemónicas que el
; compilador deberá convertir.
; El siguiente paso es entrar al BANCO 1 para definir los puertos.
bsf status , rp0 ; Entramos al BANCO 1, RP0 lo
; declaramos arriba
; y por lo tanto es igual a 5.
movlw B"00000" ; Movemos 00000 al registro de trabajo.
movwf trisa ; Configuramos el puerto A como salida.
movlw B"00000000" ; Movemos 00000000 al registro de trabajo.
movwf trisb ; Configuramos el puerto B como salida.
bcf status , rp0 ; Salimos del BANCO 1.
; Ahora podemos conectar a cualquiera de las salidas un LED,
; encenderlo y apagarlo. Detalles de conexión al final.
; Conectemos un LED a la salida RB0 del puerto B,
; si lo quisieramos encender solo tendriamos que
; poner un UNO en la SALIDA RB0 del puerto B. Como? asi:
inicio ; Etiqueta definida por el Usuario.
bsf portb , 0 ; Usted podria poner también en
; vez del cero la variable
; declarada RB0, asegurandose que
; esté en el encabezado.
; Si lo desea agregue la linea que
; omitió y cambie el cero
; por RB0
end
