+++ /dev/null
-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