\prog;Pict84|PicTest F84 clignote oct 99 
\b;RA RB période 0.65 s

Motif	= 16'55

.Proc	16F84
.Ref	16F84

.Loc	DebVar
C1:	.16	1
C2:	.16	1

.Loc	0

Deb:
 	Move	#0,W		; sorties
	Move	W,TrisA
	Move	W,TrisB

	Move	#Motif,W
Loop:
	Xor	#-1,W
	Move	W,PortA
	Move	W,PortB
; Attente
  A$:
	DecSkip,EQ	C1
	Jump	A$
	DecSkip,EQ	C2
	Jump	A$
	
	Jump	Loop

.Align	16'8
.16	"P","i","c","T","8","4"," "," "
.Fill.16 	FinProg+1-APC,-1
.Loc	16'2007
.16	16'3FF9	; Mode XT
.End