MuluL:
	cmp.l	#0,d1		; Check if value is zero
	beq	.klar		; Exit if so.
	moveq.l	#0,d2		; Cl
	subq.l	#1,d1
.loop:
	add.l	d0,d2
	dbra	d1,.loop
	move.l	d2,d0
.klar:
	rts