\prog:XAlpha.asm|Envoi alphabet
.Proc	16F84
.Ins	16F84.asi
.Ins	16F84M.asi

DirA	= 2'11111
bTxD	= 0	; diode rouge
bRxD	= 1	; diode verte
PortSer	= 5	; PortA pour bRxD bTxD

DirB	= 0

.Ins	XAlphaI.asi
.Ins	XSndRecI.asi

.APC	Var
DataOut:	.16	1

.APC	Code
	Move	#DirA,W
	Move	W,TrisA
	Move	#DirB,W
	Move	W,TrisB


Alpha$:
	Move	#16'D,W	; CR, on recommence
	Move	W,DataOut
	Call	SendSer
	Move	#"A",W
	Move	W,Alpha
	Move	W,DataOut
	Move	#26,W
	Move	W,Calpha
TA$:
	Move	Alpha,W
	Inc	Alpha
	Move	W,DataOut
	Call	SendSer
	DecSkip,EQ  Calpha
	Jump	TA$
	Jump	Alpha$

.Ins	XRecR.asi
.Ins	XSndR.asi

.End