Para saber que hace este programa y si estan bien creadas las variables

[nano0928]

LIST p=16F877A
INCLUDE <P16F877A.INC>
__CONFIG _WDT_OFF&_PWRTE_ON&_HS_OSC&_LVP_OFF&_CP_OFF ; Configuración para el programador


RETARDO EQU 20h
ESTADO EQU 21h

ORG 0X00
GOTO INICIO
ORG 0X05
INICIO
CLRF STATUS
NOP
BSF STATUS,RP0
NOP
MOVLW 0X06
MOVWF ADCON1
NOP
CLRF TRISA
NOP
CLRF TRISB
NOP
BSF TRISA,0
BSF TRISA,1
BSF TRISA,2
BSF TRISA,3
BSF TRISA,4
NOP
BCF STATUS,RP0
NOP

CLRF ESTADO
CLRF PORTA
BSF ESTADO,5
MOVLW 0X1F
MOVWF PORTA
CLRF PORTB
MOVLW 0X00
MOVWF PORTB
BCF ESTADO,5
CLRF PORTA
CLRF PORTA
NOP
BTFSS PORTA,0
CALL ENCI0
CALL RETARDO
BTFSS PORTA,1
CALL ENCI1
CALL RETARDO
BTFSS PORTA,2
CALL ENCI2
CALL RETARDO
BTFSS PORTA,3
CALL ENCI3
CALL RETARDO
BTFSS PORTA,4
CALL ENCI4
CALL RETARDO
GOTO INICIO

ENCI0

MOVLW 0X00
MOVWF PORTB
CALL RETARDO
MOVLW B'01'
MOVWF PORTB
RETURN

ENCI1

MOVLW 0X00
MOVWF PORTB
CALL RETARDO
MOVLW B'10'
MOVWF PORTB
RETURN

ENCI2

MOVLW 0X00
MOVWF PORTB
CALL RETARDO
MOVLW B'100'
MOVWF PORTB
RETURN

ENCI3

MOVLW 0X00
MOVWF PORTB
CALL RETARDO
MOVLW B'1000'
MOVWF PORTB
RETURN

ENCI4

MOVLW 0X00
MOVWF PORTB
CALL RETARDO
MOVLW B'10000'
MOVWF PORTB
RETURN

RETARD
MOVLW 0X96
MOVWF RETARD

RETA3

DECFSZ RETARD,1
GOTO RETA3
RETURN
END
END

POR FAVOR AYUDENME ES URGENTE!!!!