\prog;PicT877| 16F871 16F877  clignote
\b;RA RB0..7 RC0..7 RD0..7 RE0..2 période 0.65 s
; Ne pas utiliser si des sorties sont court-circuitées

.Proc	16f877
.Ref	16F870

Motif	= 16'55

C1	= 16'20
C2	= 16'21

.Loc	0

Deb:
	Clr	PortA
	Set	Status:#RP0
	Move	#16'06,W
	Move	W,AdCon1
 	Move	#0,W		; sorties
	Move	W,PortA
	Move	W,PortB
	Move	W,PortC
	Move	W,PortD
	Move	W,PortE
	Clr	Status:#RP0

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

.Align	16'8
.16	"P","i","c","t","8","7","7"
.Fill.16 	FinProg+1-APC,-1
.Loc	16'2007
.16	16'3F39

.End