START	BEGIN
BEGIN	LEA	GR1,DATA
	LEA	GR2,1
	CALL	BITCNT
	EXIT
DATA	DC	-12345
	END
BITCNT	START
ZERO	DC	0
SAVE	DS	1
	ST	GR0,SAVE
	LEA	GR3,0
LOOP1	CPA	GR2,ZERO
	JZE	LAST
	LD	GR0,0,GR1
	ADD	GR0,ZERO
LOOP2	JZE	LBL2
	JPZ	LBL1
	LEA	GR3,1,GR3
LBL1	SLL	GR0,1
	JMP	LOOP2
LBL2	LEA	GR1,1,GR1
	LEA	GR2,-1,GR2
	JMP	LOOP1
LAST	LD	GR0,SAVE
	RET
	END