; Konvertera Binära tal till decimala från d1 till en ASCII buffert

dec_4:		;Subrutin för fyrställiga decimaltal
	lea	buffert,a0
	divu	#1000,d1
	bsr	siffra
	divu	#100,d1
	bsr	siffra
	divu	#10,d1
	bsr	siffra
	
siffra:
	add	#$30,d1
	move.b	d1,(a0)+
	clr	d1
	swap	d1
	rts

buffert:
	ds.b	5