**************************
*** ESTIENNE Sebastien ***
***        2004        ***
**************************

*****************************
***   Function intToStr   ***
*****************************
intToStr
		movem.l		D0-D1/A0,-(A7)	; on empile
		lea		number,A0	; adr auto-incremente
		move.l		16(A7),D1	; cp nb(quotient) ds D1
		move.b		#0,-(A7)	; char fin chaine ds pile
bclitos
		clr.l		D0		; raz de D0 (reste)
		divul.l		#10,D0:D1	; div nb/10 et reste ds D0
		add.l		#48,D0		; aj 48(ascii) a D0
		move.b		D0,-(A7)	; met reste:D0 ds pile
		cmpi.l		#0,D1		; nb passe en revue?
		beq		sitos		; ds ce cas presque fini
		bra		bclitos		; on recommence
sitos
		move.b		(A7),(A0)+	; met char ds A0 & ++
		cmpi.b		#0,(A7)		; verif si fin chaine
		beq		sintToStr	; ds ce cas on a fini
		add.l		#2,A7		; on depile
		bra		sitos		; on continue a recup nb
sintToStr
		add.l		#2,A7		; on depile pour '\0'
		movem.l		(A7)+,D0-D1/A0	; on depile
		rts
fintToStr