- LD GR1,GR0 ; GR0をGR1にコピー
- JUMP STI ; ループ終端
-STLST POP GR2
- LD GR1,NCHAR,GR1 ; GR1を文字に変換
- ST GR1,0,GR4 ; (GR4) <- GR1
- LAD GR4,1,GR4 ; GR4 <- GR4 + 1
- JUMP PRT ; PRTにジャンプ
-ZERO LD GR1,NCHAR ; 「0」をSTR領域に格納
- ST GR1,0,GR4 ; ↓ (GR4) <- GR1
- LAD GR4,1,GR4 ; ↓ GR4 <- GR4 + 1
-PRT LD GR1,GR2 ; GR1に文字列のアドレスを格納
- SUBL GR4,GR2 ; GR2 <- GR4 - GR2
- LD GR2,GR4 ; ↓
+ LD GR1,GR0 ; GR0の商をGR1にコピー
+ JUMP LOOP ; ループ終端
+SRT POP GR2 ; GR2の復元
+ LD GR1,GR2 ; GR1に文字列のアドレスを格納
+ SUBL GR4,GR2 ; GR4 <- GR4 - GR2
+ LD GR2,GR4 ; GR2 <- GR4