\prog;XMark.asm|Envoi marques sur PortA:#0
; Répétition toutes les 100 us

.Proc	16f84

\const:Ports|
\b;PortA
bS0	= 2	; synchro
bMark	= 3	; Y sur silo
DirA	= 2'00000
.Loc	0

.Ins	XmarkM.asi	; macros

Deb:
 	Move	#DirA,W		; sorties
	Move	W,TrisA

Loop:
	Set	PortA:#bS0
Mark 1
	Clr	PortA:#bS0
	Call	Wait
Mark 8
	Call	Wait
Mark 3
	Call	Wait
	Jump	Loop

Wait:	; Espace 100 us
	Move	#20,W
 W$:	Add	#-1,W
	Skip,EQ
	Jump	W$
	Ret

.End