\titre;PicT870  16F873  clignote  
\b;RA0..5  RB0..7 RC0..7  période 0.65 s

.Proc	16f870
.Ref	16F870

Motif	= 16'CC

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
	Clr	Status:#RP0

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

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