; d0 - value

	xdef	_BitCount

_BitCount	movem.l	d1-d2,-(a7)
	moveq	#0,d1
	moveq	#31,d2	; number of bit
.loop	btst.l	d2,d0
	beq.s	.skip
	addq	#1,d1
.skip	dbra	d2,.loop
	move.l	d1,d0
	movem.l	(a7)+,d1-d2
	rts