\prog:XAlpha7.asm|Envoie l'alphabet
.Proc	16F870
.List 0
.Ins	16F870.asi
.Ins	16F870M.asi
.Endlist

\const;PortC|
bTxD	= 6
bRxD	= 7
DirC	= 2'10011000

IniRcSta	= 2'10011000
IniTxSta	= 2'00100100
IniSpBrg	= 10'25
PortSer	= 7	; id

\b;Ascii|
CR	= 16'0D
LF	= 16'0A
BEL	= 16'07

.APC	Var

.Ins	Xser7V.asi
.Ins	XAlphaV.asi

.APC	Code
.Loc	0
\prog;Init|
	Move	#DirC,W
	Move	W,TrisC
	Call	IniSer

\b;Boucle principale

Loop:
	Call	RecSer
	Call	SndCR

	Call	SndAlpha

	Jump	Loop

.List 0
.Ins	Xser7R.asi
.Ins	XalphaR.asi
.EndList

TooLong?

.End