; A0 - Buffer D1 - Värde
HexLong:
	move.l	#7,d3
.Loop:
	ror.l	#4,d1
	move	d1,d2
	bsr	Nibble
	move.b	d2,(a0)+
	dbra	d3,.Loop
	rts
Nibble:
	and	#$0f,d2
	add	#$30,d2
	cmp	#$3a,d2
	bcs	.Ok
	add	#7,d2
.Ok:
	rts