\prog;PicT675a.asm| 12F675 lecture analogique An0 pin 7
\b;GP0 Ana in  GP1,2,4,5 affiche les bits du résultat 8 bits.
; Voir Pict675AD pour un affichage 8 bits en série (module WdDev676)

.Proc	16F870
.Ref	12F675
.Macro	Bank1
	Set	Status:#RP0
.endmacro
.Macro	Bank0
	Clr	Status:#RP0
.endmacro

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

DirA	= 2'001001	; GP3 toujours In
; AdCon0 mode Left justif  AdOn
SelAd0    	= 2'00000001	; RA0 pin 7 pour AdCon0
ModeAnSel0	= 2'00100001	; pour AnSel  AD clock :8

; Sélection des autres canaux avec AdCon0 et AnSel
SelAd1	=2'00000101	; RA1 pin 6
ModeAnSel1	= 2'00100010
SelAd2	=2'00001001	; RA2 pin 5
ModeAnSel2	= 2'00100100
SelAd3	= 2'00001101	; RA4=AN3 
ModeAnSel3	= 2'00101000	; Sel An3 sur RA4 pin 3, 

.Loc	0

Deb:
	Call	16'3FF
	Bank1
	Move	W,OscCal
	Move	#ModeAnSel,W
	Move	W,AnSel
 	Move	#DirA,W
	Move	W,Tris
	Bank0
	Move	#7,W
	Move	W,CmCon

Loop:	Move	#SelAd0,W
	Move	W,AdCon0
	Call	Del20
	Set	ADCon0:#Go
	TestSkip,BC ADCon0:#Go
	Jump	APC-1	; Attente fin

	Move	ADResH,W
	Move	W,GPIO
; Attente
  A$:
	DecSkip,EQ	C1
	Jump	A$
	DecSkip,EQ	C2
	Jump	A$
	
	Jump	Loop

\rout:Del20| 20 \mu;s pour convertisseur AD
\mod:W
Del20:	Move	#6,W
 A$:	Add	#-1,W
	Skip,EQ
	Jump	A$
	Ret
.Align	8
.16	"P","i","c","t","6","7","5","a"
.Fill.16 	FinProg-APC,-1
.Loc	16'2007
.16	16'3F94
.End