Codigo:
;Voy a comenzar con un programa facil, configurar el puerto B para
;que sean salidas y activar (mandar un 1 logico) RB0, RB1 y RB3.
;NOTA: Cualquier dialogo escrito despues de el signo ";" no es
;tomado en cuenta por el PIC al ser grabado, solo es de ayuda
;para el programador.
;Con las librerias del PIC cargadas podemos configurarlo:
__CONFIG _XT_OSC ;Configuro el oscilador tipo XT
;(cristal, media velocidad), esata info.
;es para el grabador del programa al PIC.
;Se especifica el PIC a utilizar:
LIST P=16F84A
;Se cargan las librerias de dicho PIC:
INCLUDE <P16F84A.INC>
;Es el inicio del programa que comienza en la direccion 0
;de la memoria:
ORG 0
INICIO BSF 0X03,0X05;Se coloca la etiqueta INICIO a este
;reglon, BSF cambia a 1 logico el bit 5
;(0x05) del registro 3 (0x03), pertene-
;ciente al archivo de registro STATUS,
;al hacer esto nos pocisionamos en el
;banco 1 de archivos de registros.
CLRF 0X06 ;Limpie (poner todo en 0 logico) el
;registro 6 perteneciente al archivo de
;registro TRISB (por estar en el
;banco 1) que configura en etradas o
;salidas los pines del puerto B,
;dependiendo de que valor logico tome
;cada bit, en este caso todos tomaron
;el 0 logico que los configura como
;Salidas.
BCF 0x03,0x05;BCF cambia a 0 logico el bit 5
;(0x05) del registro 3 (0x03), pertene-
;ciente al archivo de registro STATUS
;(aun estando en el Banco 1), al hacer
;esto nos pocisionamos en el Banco 0
;de archivos de registros.
ARRIBA MOVLW 0X0B ;Etiqueto el reglon como ARRIBA, coloco
;el numero 11 (binario = 00001011) en el
;archivo de registro de trabajo W
;(acumulador).
MOVWF 0X06 ;Coloco el contenido de W en el archivo
;de registro 6, perteneciente al PORTB,
;entoces mandamos al puerto B un
;00001011 en binario, Por tanto los bits
;3, 1 y 0, estan en alto, y asi mismo
;los pines RB3, RB1 y RB0.
GOTO ARRIBA ;Dirijo el programa a que continue en
;el reglon etiquetado como ARRIBA.
;Finalizo el programa:
END