Pic16F84A Codigo De Cubo

LIST P=16F84A
#Include
__Config _CP_OFF &_WDT_OFF &_PWRTE_ON &_XT_OSC

cont equ 0x0d
cont2 equ 0x0c
topt equ 0x01

bsf STATUS, 5
movlw 0x00
movwf topt
clrf TRISA
clrf TRISB
movlw 0x00movwf PORTA
movlw 0x00
movfw PORTB
bcf STATUS, 5

inicio:
movlw 0x03
movwf cont2
loop1: call secuencia1
decfsz cont2,1
goto loop1

movlw 0x03
movwf cont2
loop2: call secuencia2decfsz cont2,1
goto loop2

movlw 0x02
movwf cont2
loop3: call secuencia3
decfsz cont2,1
goto loop3

movlw 0x01
movwf cont2
loop4: call secuencia4
decfsz cont2,1
goto loop4

movlwb'00010000'
movwf PORTB

movlw 0x0A
movwf cont2
loop5: call secuencia5
decfsz cont2,1
goto loop5

goto inicio

;____________________________________________________;;.......................secuencias...................;
;____________________________________________________;

secuencia1:
movlw b'00000001'
movwf PORTB
call retardo1
movlw b'00000010'
movwf PORTB
call retardo1movlw b'00000100'
movwf PORTB
call retardo1
movlw b'00001000'
movwf PORTB
call retardo1
movlw b'00010000'
movwf PORTB
call retardo1
movlw b'00100000'
movwf PORTB
call retardo1
movlwb'01000000'
movwf PORTB
call retardo1
movlw b'10000000'
movwf PORTB
call retardo1
clrf PORTB
movlw b'00001000'
movwf PORTA
call retardo1
movlw b'00000000'
movwf PORTA
call retardo1return

secuencia2:
movlw b'00000011' ;_________________primer piso
movwf PORTA
movlw b'00000001'
movwf PORTB
call retardo1
movlw b'00000011'
movwf PORTB
call retardo1
movlwb'00000110'
movwf PORTB
call retardo1
movlw b'00100100'
movwf PORTB
call retardo1
movlw b'00110000'
movwf PORTB
call retardo1
movlw b'00011000'
movwf PORTB
call retardo1
movlwb'01001000'
movwf PORTB
call retardo1
movlw b'11000000'
movwf PORTB
call retardo1
movlw b'10000000'
movwf PORTB
call retardo1
movlw b'00001011'
movwf PORTA
call retardo1
clrf PORTB
movlw...