Revisadme este codigo please...en el proteus no me rula bien.
LIST P=16F84
PORTA EQU 05
PORTB EQU 06
TMR0 EQU 01
INTCON EQU 0B
TEMPO2 EQU 0E
ESTADO EQU 03
;-------------RUTINA DE RETARDO DE 1SEGUNDO--------------------------------
RETARDO BCF INTCON,2
MOVLW D"39"
MOVWF TMR0
RETARD1 BTFSS INTCON,2
GOTO RETARD1
DECFSZ TEMPO2,1
GOTO RETARDO
RETURN
RETARD_1S MOVLW D"64"
MOVWF TEMPO2
CALL RETARDO
RETURN
;-----------------CONFIGURACION -------------------------------------
BSF ESTADO,5
MOVLW B"00011111"
MOVWF PORTA
CLRF PORTB
MOVLW B"11101000"
MOVWF TMR0
;---------------INICIO DE PROGRAMA----------------------------------
ORG 0
GOTO INICIO
ORG 5
INICIO BCF ESTADO,5
CLRF TMR0
CALL RETARD_1S
MOVF TMR0,0
MOVWF PORTB
GOTO INICIO
END