\module;YyTimeT.asi|Timer 20ms et clignotement d'une led à 1 Hz
\b;Cette tâche est appelée toutes les Perio (=100 microseconde par exemple)
; Doit être en page zero

Time:	\a;Aiguillage des tâches
	Move	TkTime,W
	Add	W,PCL
	Jump	Tt0
	Jump	Tt1
.If	(APC/256) .NE. 0
Aie, l'aiguillage des tâches Time n'est plus entièrement en page 0
.Endif

Tt0:	\b; On reste dans cette tâche 20 ms
	DecSkip,EQ  Cnt20ms
	Jump	Zt	; temps pas encore écoulé
	Move	#IniCnt20ms,W
	Move	W,Cnt20ms
; On passe ici toutes les 20 ms
	Set	FlagTimer:#b20ms
	Test	Timer1
	Skip,EQ
	Dec	Timer1
	Inc	TkTime	; Passera à la tâche suivante
	Jump	Zt

Tt1:	\b;Clignote toutes les secondes
	LedOff
	DecSkip,EQ  Cnt1s
	Jump	N$
	Move	#IniCnt1s,W
	Move	W,Cnt1s	; 1 sec
; On passe ici toutes les secondes
	Set	FlagTimer:#b1s
	LedOn
 N$:	Clr	TkTime	; Recommencera
;	Jump	Zt
Zt:  
.End