			list		p=12f629
			#include	<p12f629.inc>
			org		0x000

			banksel		TRISIO
			movlw		b'11001101'
			movwf		TRISIO
			banksel		CMCON
			movlw		0x07
			movwf		CMCON
			movlw		b'00001101'
			movwf		GPIO
Cycl
			call		LedR
			call		LedR
			call		LedR
			call		LedR
			call		LedR
			call		LedR
			call		LedR
			call		LedR
			call		LedR
			call		LedR

			call		LedG
			call		LedG
			call		LedG
			call		LedG
			call		LedG
			call		LedG
			call		LedG
			call		LedG
			call		LedG
			call		LedG

			call		LedB
			call		LedB
			call		LedB
			call		LedB
			call		LedB
			call		LedB
			call		LedB
			call		LedB
			call		LedB
			call		LedB

			call		LedRG
			call		LedRG
			call		LedRG
			call		LedRG
			call		LedRG
			call		LedRG
			call		LedRG
			call		LedRG
			call		LedRG
			call		LedRG

			call		LedRB
			call		LedRB
			call		LedRB
			call		LedRB
			call		LedRB
			call		LedRB
			call		LedRB
			call		LedRB
			call		LedRB
			call		LedRB

			call		LedGB
			call		LedGB
			call		LedGB
			call		LedGB
			call		LedGB
			call		LedGB
			call		LedGB
			call		LedGB
			call		LedGB

			call		LedRGB
			call		LedRGB
			call		LedRGB
			call		LedRGB
			call		LedRGB
			call		LedRGB
			call		LedRGB
			call		LedRGB
			call		LedRGB
			call		LedRGB
			goto		Cycl

LedR
			bsf		GPIO,4
			call		Pause
			bcf		GPIO,4
			call		Pause
			call		RGB
			return
LedG
			bsf		GPIO,5
			call		Pause
			bcf		GPIO,5
			call		Pause
			call		RGB
			return
LedB
			bsf		GPIO,1
			call		Pause
			bcf		GPIO,1
			call		Pause
			call		RGB
			return
LedRG
			bsf		GPIO,4
			bsf		GPIO,5
			call		Pause
			bcf		GPIO,4
			bcf		GPIO,5
			call		Pause
			call		RGB
			return
LedRB
			bsf		GPIO,4
			bsf		GPIO,1
			call		Pause
			bcf		GPIO,4
			bcf		GPIO,1
			call		Pause
			call		RGB
			return
LedGB
			bsf		GPIO,5
			bsf		GPIO,1
			call		Pause
			bcf		GPIO,5
			bcf		GPIO,1
			call		Pause
			call		RGB
			return
LedRGB
			bsf		GPIO,4
			bsf		GPIO,5
			bsf		GPIO,1
			call		Pause
			bcf		GPIO,4
			bcf		GPIO,5
			bcf		GPIO,1
			call		Pause
			call		RGB
			return
RGB
			btfss		GPIO,2
			COMF		GPIO,0
			btfss		GPIO,0
			goto		RGB
			return
Pause
			movlw		b'00000001'
			movwf		T1CON
Prov
			btfss		PIR1,0
			goto		Prov
			bcf		PIR1,0
			return
			
			end
