\prog;PicT675.asm| 12F675 8 pattes clignote  
\b;GP0,1,2,4 RC période 0.65 s

.Proc	16F870
.Ref	12F675

Motif	= 16'55

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

DirA	= 2'001000	; GP3 toujours In

.Loc	0

Deb:
	Clr	PortA
	Move	#16'07,W
	Move	W,CmCon
	 Set	Status:#RP0
	Call	16'3FF
	Move	W,OscCal
	Clr	AnSel
 	Move	#DirA,W
	Move	W,TrisA
	 Clr	Status:#RP0
	Move	#Motif,W
Loop:
	Xor	#-1,W
	Move	W,PortA
; Attente
  A$:
	Nop
	DecSkip,EQ	C1
	Jump	A$
	DecSkip,EQ	C2
	Jump	A$
	
	Jump	Loop
.Align	8
.16	"P","i","c","t","6","7","5"," "
.Fill.16 	FinProg+1-APC,-1
.Loc	16'2007
.16	16'3F94

.End