moveq.l	#31,d0
	clr.w	d1
	clr.w	d2
loop:	lsr.l	#1,d3
	addx.w	d1,d2
	dbf	d0,loop