.assume adl = 1
segment data
.def _ToStringData

_ToStringData:
	ld	de, X
DivideLoop:
	ld	a, 10
	call	_DivHLByA
	dec	de
	add	hl, de
	add	a, '0'
	ld	(de), a
	sbc	hl, de
	jr	nz, DivideLoop
	ret