\rout:XDiv10|
\in;DDHigh DDHigh
\out;ResHigh ResHigh
\mod;
Div10:
	Move	#12+1,W
	Move	W,CntDiv
	Clr	ResHigh
	Clr	ResLow
	Move	#2'10100000,W
	Move	W,DivHigh
	Clr	DivLow
L$:
Call	AfDD
	ClrC
	RLC	ResLow
	RLC	ResHigh
	Move	DivLow,W
	Sub	W,DDLow
	Move	DivHigh,W
	Skip,CS
	Add	#1,W	; Tenir compte de l'emprunt
	Sub	W,DDHigh
	Skip,CS
	Jump	N$
Call AfDD
	Set	ResLow:#0  ; Résultat positif
	Jump	Q$
 N$:		; Négatif, il faut rétablir
Call AfDD
	Move	DivLow,W
	Add	W,DDLow
	Skip,CC
	Inc	DDHigh
	Move	DivHigh,W
	Add	W,DDHigh  ; Rétablissement
 Q$:
	ClrC
	RRC	DivHigh
	RRC	DivLow
Call AfRes
Call SndCR
	DecSkip,EQ  CntDiv
	Jump	L$
	Ret

AfDD:	Move	#"[",W
	Call	SndSer
	Move	DDHigh,W
	Call	SndHex
	Move	DDLow,W
	Call	SndHex
	Move	#"]",W
	Call	SndSer
	Ret

AfRes:	Move	#"<",W
	Call	SndSer
	Move	ResHigh,W
	Call	SndHex
	Move	ResLow,W
	Call	SndHex
	Move	#">",W
	Call	SndSer
	Ret