\prog;XSer| 30.12.00  140101 Envoi et réception série monotâche
; Test série,

.Proc	16F84
TOIF	= 2
DebVar	= 16'0C	; F84

; PIC à 4MHz (Quartz)
;R2400	= (417-8-2)/4
;R4800  	= (208-8-2)/4
R9600  	= (104-8-2)/4
;R38400	= (26-8-2)/4	; non garanti
RateAdjust	= R9600

\var;Ports| 
\b;PortA
bTxD	= 0
bRxD	= 1 
bS1	= 2
bSw	= 4	; Syncro l'envoi -
DirA	= 2'10010
\b;Port B
DirB	= -1	; 

PortSer	= 5	; PortA

.Ins	XSerM.asi

.macro	S1On
	Set	PortA:#bS1
.endmacro
.macro	S1Off
	Clr	PortA:#bS1
.endmacro

\var;| Globales
.Loc	DebVar

.Ins	XSerV.asi

.Loc	0
\prog;Programme| 
Start:
	Move	#DirA,W
	Move	W,TrisA
	Move	#DirB,W
	Move	W,TrisB

	StopOn			; Stop bit

Loop:		\b; Echo
	Call	RecSer
	Call	SndSer
	Jump	Loop

.Ins	XSerR.asi	; routine envoi série
R.
.End