LIST P=10F200
 #INCLUDE "P10F200.INC"
	__CONFIG     _WDT_OFF & _CP_OFF & _MCLRE_OFF
	radix   dec
	CBLOCK	10H
	T5,T6,HEAD
	ENDC
	ORG	0
	
START
	CLRF	GPIO
	CLRW
	MOVLW	B'00000000'
	OPTION 
	MOVLW	B'01111110'
	MOVWF	OSCCAL


	MOVLW	B'00001000'
	TRIS		GPIO
	CLRW

	

	CLRF	HEAD

	MOVLW	0XFF
	MOVWF	T5
	MOVLW	0XFF
	MOVWF	T6





TRIPLE

	
	MOVLW	1H
	XORWF	HEAD,F


	BTFSS	GPIO,3
	GOTO	_END
	GOTO	TRIPLE


_END
	BTFSC	HEAD,0
	CALL	FEJ
	CALL	IRAS

FEJ

	BSF		GPIO,0
	BTFSS	GPIO,3
	GOTO	FEJ
	DECFSZ	T5,F
	GOTO	FEJ
	DECFSZ	T6,F
	GOTO	FEJ
	GOTO	START

IRAS

	BSF		GPIO,2
	BTFSS	GPIO,3
	GOTO	IRAS
	DECFSZ	T5,F
	GOTO	IRAS
	DECFSZ	T6,F
	GOTO	IRAS
	GOTO	START

	END