Efecto Luces Auto Increible Ensamblador

LIST P=16F84A, ; usar PIC 16F84A
#include

__CONFIG _CP_OFF&_PWRTE_ON&_WDT_OFF&_XT_OSC ; code protec off
; power up timer on
; watchdog off
; osc XT

PDel0equ 0C
PDel1 equ 0D

SEC1 equ 0E
SEC2 equ 0f
SEC3 equ B'10000001'
SEC4 equ B'01000010'
SEC5 equ B'00100100'
SEC6 equ B'00011000'
SEC7 equ B'11100000'
SEC8 equ B'01110000'
SEC9 equB'00111000'
SEC10 equ B'00011100'
SEC11 equ B'00001110'
SEC12 equ B'00000111'

ORG 0
BSF STATUS,5 ; activa la pagina 1
MOVLW B'00000' ; carga 00000 en W
MOVWF TRISA ; puerto a todossalidas
MOVLW B'00000000' ; carga 00000000 en W
MOVWF TRISB ; puerto b todos salidaS
BCF STATUS,5 ; volvemos a la pagina 0

CLRF PORTA ; ponemos a cero el puerto a
CLRF PORTB; ponemos a cero el puerto b
BCF STATUS,0 ; limpia el carry de STATUS,C

MOVLW B'00000001' ; carga 00000001 en w
MOVWF SEC1 ; guarda el valor en SEC1

INICIO ; etiquetaBSF PORTB,0 ; prendemos y apagamos
CALL DEMORA ; led por led
BCF PORTB,0 ; despues trataremos de
; usar otra funcion
BSF PORTB,1
CALL DEMORA
BCF PORTB,1

BSFPORTB,2
CALL DEMORA
BCF PORTB,2

BSF PORTB,3
CALL DEMORA
BCF PORTB,3

BSF PORTB,4
CALL DEMORA
BCF PORTB,4

BSF PORTB,5
CALL DEMORA
BCF PORTB,5

BSF PORTB,6
CALL DEMORABCF PORTB,6

BSF PORTB,7
CALL DEMORA
BCF PORTB,7

BSF PORTB,6
CALL DEMORA
BCF PORTB,6

BSF PORTB,5
CALL DEMORA
BCF PORTB,5

BSF PORTB,4
CALL DEMORA
BCF PORTB,4

BSFPORTB,3
CALL DEMORA
BCF PORTB,3

BSF PORTB,2
CALL DEMORA
BCF PORTB,2

BSF PORTB,1
CALL DEMORA
BCF PORTB,1

;mover 3

MOVLW SEC12 ; carga el valor de SEC1 en W
MOVWFPORTB ; carga w en el puerto b
CALL DEMORA

MOVLW SEC11 ; carga el valor de SEC1 en W
MOVWF PORTB ; carga w en el puerto b
CALL DEMORA

MOVLW SEC10 ; carga el valor de...