\prog;XDiv10|Test division par 10
.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

\var;| Globales
.Loc	DebVar
SavW:	.16	1

.Ins	XTrSerV.asi
.Ins	XDiv10V.asi

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

	StopOn			; Stop bit

Loop:	
\b; On lit les 2 nombres du dividente
	Call	SndCR
	Call	RecHex
	Move	W,DDHigh
	Call	RecHex
	Move	W,DDLow
	Call	Div10
	Call	SndCR
	Move	ResHigh,W
	Call	SndSer
	Move	ResLow,W
	Call	SndSer
	Jump	Loop

.Ins	XDiv10R.asi
.Ins	XTrSerR.asi	; routine envoi série
.End