;GR1を10で割ったときの商をGR2、剰余をGR3に格納
DIV10	START
	LD	GR3,GR1
	LAD	GR2,0
LOOP	CPA	GR3,TEN
	JMI	FIN
    SUBL GR3,TEN
    LAD	GR2,1,GR2
    JUMP	LOOP
FIN	RET
TEN	DC	10
	END