\prog;PicT676.asm| 16F676  clignote  
\b;RA0,1,2,4 RC0..5  période 0.526s 
; Si OscCal est bien réglé, il doit y avoir 114 clignotement par minute
.Proc	16f870
.Ref	16F676

Motif	= 16'07

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

.Loc	0

Deb:
	Clr	PortA
	Move	#16'07,W	; Déconnecte les comparateurs
	Move	W,CmCon
	Set	Status:#RP0
	Clr	AnSel		; Déconnecte le A/D
	Call	16'3FF
	Move	W,OscCal	; Corrige la fréquence
	Clr	Status:#RP0

	Move	#16'0,W	; out
	Move	W,TrisA
	Move	#16'0,W
	Move	W,TrisC	; out

	Move	#Motif,W
Loop:
	
	Xor	#-1,W
	Move	W,PortA
	Move	W,PortC
; Attente
  A$:
	Nop
	DecSkip,EQ	C1
	Jump	A$
	DecSkip,EQ	C2
	Jump	A$
	
	Jump	Loop
.Align	16'8
.16	"P","i","c","t","6","7","6"," "
.Fill.16 	FinProg+1-APC,-1
.Loc	16'2007
.16	16'3F94

.End