;GR2007Apr(1)ENU
;-----------------
MAIN START
	LD GR1,DATA
	CALL SFT1
	ST GR0,BITKAZU
	RET
DATA DC #0555
BITKAZU DS 1
	END
;----------------
SFT1 START
	RPUSH
	LD GR2,MASK
	LAD GR0,0
LOOP LD GR3,GR2
	AND GR3,GR1
	JZE SKIP
	ADDA GR0,=1
SKIP SRL GR2,1
	JNZ LOOP
	RPOP
	RET
MASK DC #8000
	END
