MAIN	START
	LD	GR1,I
	LAD	GR2,10
    LAD	GR5,0
LOOP	CPA	GR1,GR2
	JMI	NEXT
	CALL	DIV
    ADDA	GR4,Z
    ST	GR4,STR,GR5
    LAD	GR5,1,GR5
    LD	GR1,GR3
    JUMP	LOOP
NEXT	ADDA	GR1,Z
	ST	GR1,STR,GR5
	LAD	GR5,1,GR5
	ST	GR5,LEN
PRT OUT	STR,LEN
	RET
I	DC	12345
Z	DC	'0'
STR	DS	5
LEN	DS	1
    END
;GR1をGR2で割ったときの商をGR3、剰余をGR4に格納
DIV	LD	GR4,GR1
	LAD	GR3,0
DLOOP	CPA	GR4,GR2
	JMI	DFIN
    SUBL GR4,GR2
    LAD	GR3,1,GR3
    JUMP	DLOOP
DFIN RET
	RET
	END