aaa

symbol SetPause = b1
symbol VarDef = b0



main: 					
	VarDef = 0
	SetPause = 250
	goto state 		
goto main
 					

state:
	if pin3 = 1 then 


		if VarDef = 3 then 
		VarDef = 0 
		

		else 
		VarDef = VarDef + 1


		endif
	endif
	gosub setState

goto state



counter:
	low 0 								
	low 1 				
	low 2
	pause SetPause

	low 0
	low 1
	high 2
	pause SetPause

	low 0 								
	high 1 				
	low 2
	pause SetPause

	low 0 								
	high 1 				
	high 2
	pause SetPause

	high 0 								
	low 1 				
	low 2
	pause SetPause

	high 0 								
	low 1 				
	high 2
	pause SetPause

	high 0 								
	high 1 				
	low 2
	pause SetPause

	return


setState:

	select case VarDef
	case 0
		gosub currState0
	case 1
		gosub cycle
	case 2
		gosub counter
	case 3
		gosub ledBlink
	endselect

goto state



currState0:

	pause SetPause
	pause SetPause

goto main



	
ledBlink:
	high 0 								
	high 1 				
	high 2
	pause 100

	low 0 								
	low 1 				
	low 2
	pause 100


cycle: 	
				 
	high 0 				
	pause SetPause 				
	high 1 
	pause SetPause				
	high 2
	pause SetPause
	low 0
	pause SetPause
	low 1
	pause SetPause
	low 2
	pause SetPause
	return