Créer un compteur binaire visuel avec les 8 leds de la carte MI

Une seule led s'allume, à la fois, mais lorsque la dernière led

s'allume, le processus est inversé et l'on décompte au lieu de

compter donnant un effet de lampe qui renondit comme le chenillard

de la célèbre voiture du feuilleton K2000



Comme pour l'exercice 02-2 l'astuce consiste à utiliser le registre

OUTL du STAMP2, et l'instruction << (décalage à gauche) du STAMP2.



*******************************************************************************



Structure du programme



BEGIN



DECLARE i as nibble

DECLARE j as bit

DECLARE outl AS Byte



LET i = 0

DO WHILE j=j

	DO WHILE i <= 6

		PAUSE 250 ms

		outl = 2 ^ i

		LET i = i + 1

	ENDDO

	DO WHILE i >= 0

		PAUSE 250 ms

		outl = 2 ^ i

		LET i = i - 1

	ENDDO

ENDDO



END



******************************************************************************



'Listing du programme pour le STAMP2



	i	VAR	NIB



debut:	FOR i=0 TO 6

		outl = 1 << i

		PAUSE 250

		NEXT

		FOR i=7 TO 1

		outl = 1 << i

		PAUSE 250

		NEXT

		GOTO debut

		END