;---'1'̃rbǧ߂---CASL2̎dlɂvO
MAIN	START
	LD 	GR1,WORD
	CALL 	COUNT1
	ST	GR0,KAZU
	RET
WORD	DC 	55555
KAZU	DS 	1		;'1'̃rbg̐
	END
;----------------------------
COUNT1 		START		;
;  GR1:
;  GR1 '1'̃rbǧ߂
; o GR0:GR1 '1'̃rbǧ
	PUSH 	0,GR1		;
	PUSH 	0,GR2	 	;
	SUBA 	GR2,GR2 	; Count = 0
	AND 	GR1,GR1 	; S̃rbg'0'H
	JZE 	RETURN	 	; S̃rbg'0'ȂI
MORE 	LAD 	GR2,1,GR2	; Count = Count + 1
	LAD 	GR0,-1,GR1 	; ŉʂ'1'̃rbg 1 
	AND 	GR1,GR0	 	; '0'ɕς
	JNZ 	MORE 		; '1'̃rbgcĂΌJԂ
RETURN LD 	GR0,GR2 	; GR0 = Count
	POP 	GR2		;
	POP 	GR1 		;
	RET			; ďovO֖߂
	END			;
;----------------------------------------------
