;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 555
	END

