Pic16F84A Secuencia Leds

TITLE "PIC16F84A LED ON/OFF" ;ID DEL PROGRAMA
LIST P=16F84A, F=INHX32 ;RELACIONAR EL PIC-FORMATO DE INSTRUCCIONES
#INCLUDE ;"LIBRERIA"

;ING. EDGAR MENDEZ
;ENCENDER Y APAGAR UN LED;IDENTIFICACION DE RESGISTROS ESPECIALES
STATUS EQU 03H ;REGISTRO DE ESTADO DEL PIC
PTA EQU 05H ;PUERTO A DEL PIC
PTB EQU 06H ;PUERTO B DEL PIC
TRISA EQU 85H ;REGISTO DE CONFIGURACIONDEL PUERTO A
TRISB EQU 86H ;REGISTO DE CONFIGURACION DEL PUERTO B

;REGISTROS DE PROPOSITO GENERAL
TMP1 EQU 0CH ;REGISTRO TEMPORAL 1
TMP2 EQU 0DH ;REGISTRO TEMPORAL 2
TMP3 EQU 0EH ;REGISTROTEMPORAL 3

;DEFINICION DE BITS
W EQU 0 ;REALIZAR UN ALMACENAMIENTO EN EL REGISTRO DE TRABAJO
F EQU 1
C EQU 0 ;FLAG DE CARRY
Z EQU 2 ;FLAG DE CERO
B0 EQU 0 ;BIT CERO
B1 EQU 1 ;BIT 1
B2EQU 2
B3 EQU 3
B4 EQU 4
B5 EQU 5
B6 EQU 6
B7 EQU 7

;DEFINICION DE CONSTANTES
VAL1 EQU 20H
VAL2 EQU 20H
VAL3 EQU 20H

;DEFINICION DE MACROS
#DEFINE BANK0 BCF STATUS,B5
#DEFINE BANK1 BSFSTATUS,B5
;***********************************
;INICIO DEPROGRAMA

ORG 00H ;DEFINIR EL ORIGEN DE MEMORIA DONDE VAMOS A EMPEZAR EL PROGRAMA
CALL CONFGP ;LLAMAR RUTINA DE CONFIGURAR LOSPUERTOS
PRGPR CLRF PTB
INICIO BSF PTB, B0 ;ESTABLECER EN 1 EL PIN 0 DEL PUERTO B
CALL RET ;LLAMAR A LA RUTINA DE RETARDO
BCF PTB, B0
CALL RET
BSF PTB, B1 ;ESTABLECER EN 1 EL PIN 0DEL PUERTO B
CALL RET ;LLAMAR A LA RUTINA DE RETARDO
BCF PTB, B1
CALL RET
BSF PTB, B2 ;ESTABLECER EN 1 EL PIN 0 DEL PUERTO B
CALL RET ;LLAMAR A LA RUTINA DE RETARDO
BCF PTB, B2CALL RET
BSF PTB, B3 ;ESTABLECER EN 1 EL PIN 0 DEL PUERTO B
CALL RET ;LLAMAR A LA RUTINA DE RETARDO
BCF PTB, B3
CALL RET
BSF PTB, B4 ;ESTABLECER EN 1 EL PIN 0 DEL PUERTO BCALL RET ;LLAMAR A LA RUTINA DE RETARDO
BCF PTB, B4
CALL RET
BSF PTB, B5 ;ESTABLECER EN 1 EL PIN 0 DEL PUERTO B
CALL RET ;LLAMAR A LA RUTINA DE RETARDO
BCF PTB, B5
CALL RET...