decconv macro				;convert dec to ASCII

 ;decconv_type set 5			;number of digits.
 ;decconv_type2 set 10000		;=10^(decconv_type-1)

					;A0 = dest
					;D0 = number to convert

	move.w #decconv_type-1,d1
	move.l #decconv_type2,d2
.\@wr	
	divu d2,d0
	add #$30,d0
	move.b d0,(a0)+
	clr.w d0
	swap d0
	divu #10,d2
	dbra d1,.\@wr

	endm