;FE2007Apr(1)ENU
;---------------------
MAIN START
	LD GR1,DATA
	CALL SFT2
	ST GR0,BITKAZU
	RET
DATA DC #0555
BITKAZU DS 1
	END
;----------------
SFT2 START
	RPUSH
	LAD GR0,0
LOOP LD GR3,GR1
	AND GR3,=#0001
	ADDA GR0,GR3
	SRL GR1,1
	JNZ LOOP
	RPOP
	RET
	END
