;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 	#85C5
	END
