ESTADO	EQU	0X03
PORT_A	EQU	0X05
	ORG	0X00
	BSF	ESTADO,5
	BCF	PORT_A,0
 	BCF	ESTADO,5
UNO:	BSF	PORT_A,0  
	CALL	RETARDO
	GOTO 	CERO
CERO:	BCF	PORT_A,0
	CALL	RETARDO
	GOTO	UNO

RETARDO	MOVLW	0X01
	MOVWF	0X0C
	NOP
	NOP
CICLO2	MOVLW	0X01
	MOVWF	0X0D
	NOP
	NOP
CICLO1	MOVLW	0X01
	MOVWF	0X0E
	NOP
	NOP
CICLO0	NOP
	DECFSZ	0X0E,1
	GOTO	CICLO0
	NOP
	NOP
	DECFSZ	0X0D,1
	GOTO	CICLO1
	NOP
	NOP
	DECFSZ	0X0C,1
	GOTO	CICLO2
	NOP
	NOP
	NOP
	RETURN
END