;DATの１ビットの数を求める。
CNTBIT 	START
	LAD 	GR5,0
	LD 	GR1,ONE
	LD 	GR3,DAT
	JZE 	FIN
LOOP 	LD 	GR2,GR3
	ADDA 	GR5   ,     GR1
	SUBL 		GR2,GR1
	AND 	GR3	,	GR2
	JZE 	FIN
	JUMP 	LOOP
FIN 		ST 	GR5,BITKAZU

	RET

ONE 	DC 1

BITKAZU DS 1

DAT	DC 555555

	END

