;GR2に設定された整数値が、GR3に設定された静数値で
;割り切れた場合は１を、割り切れない場合は０を、
;GR0に設定して呼び出し元にもどる。
;ソースコードは省略でしまされないので自作した。
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
;-----------------------------
