;GR2ɐݒ肳ꂽlAGR3ɐݒ肳ꂽÐl
;؂ꂽꍇ͂PA؂Ȃꍇ͂OA
;GR0ɐݒ肵ČĂяoɂǂB
;\[XR[h͏ȗł܂Ȃ̂Ŏ삵B
MAIN 	START
	LD GR2,AA
	LD GR3,DIV
	CALL DIVISIBL
	ST GR0,WARIKIRE
	ST GR6,SHO
	RET
AA 	DC 449
DIV	DC 4
WARIKIRE DS 1
SHO	DS 1
	END
;----------------------------
DIVISIBL 	START
	LD GR4,GR2
	LD GR5,GR3
	LAD GR0,-1
	LAD GR6,0
	;----------------
LOOP	SUBL GR4,GR5
	JZE FIN1
	JMI FIN0
	LAD GR6,1,GR6
	JUMP LOOP
FIN1 	LAD GR0,1
	RET
FIN0	LAD GR0,0
	RET
	END
;-----------------------------
