SqrRoot:				;d0.L=number
	moveq	#0,d1
	moveq	#31,d2			;bitnr
.BitLp:	btst	d2,d0
	dbne	d2,.BitLp
	addq.w	#1,d2			;Round bitnr
	lsr.w	#1,d2
	lsr.l	d2,d0
	bset	d2,d1
	add.w	d1,d0
	lsr.w	#1,d0			;d0.W=Result
	RTS