\titre;PicT870A Lecture canal analogique n --> B

.Proc	16f870
.Ref	16F870

C1	= 16'20
C2	= 16'21
IniAdCon	= 0	; Tous les canaux
SelAd0	= 2'11000001
SelAd1	= 2'11001001
SelAd2	= 2'11010001
SelAd3	= 2'11011001
SelAd4	= 2'11100001

.Loc	0

Deb:
	Clr	PortA
	Set	Status:#RP0
	Move	#IniAdCon,W
	Move	W,AdCon1
	Move	#-1,W
	Move	W,PortA		; in
 	Move	#0,W		; sorties
	Move	W,PortB
	Move	W,PortC
	Clr	Status:#RP0

Loop:
	Move	#SelAd4,W
	Move	W,AdCon0
	Call	Del20
	Set	AdCon0:#Go
 C$:	TestSkip,BC AdCon0:#Go
	Jump	C$
	Not 	AdResH,W
	Move	W,PortB

  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

.16	"P","i","c","t","8","7","0","a"

;.Fill.16 	FinProg+1-APC,-1
.Loc	16'2007
.16	16'3F39	; Config

.End