1 ;;; GR1に格納された値を文字列に変換してメモリに格納。
2 ;;; GR2に文字列の先頭アドレス、GR3に文字列の長さを返す
8 LD GR4,GR2 ; GR4 <- GR2
10 JZE ZERO ; GR1が0の場合、ZEROにジャンプ
12 STI CPL GR1,GR2 ; ループ先頭。(GR1 < GR2)の場合は、ループ脱出
14 LAD GR2,10 ; GR2に10進数の「10」を格納。
15 CALL DIVL ; GR1とGR2の、商をGR0、剰余をGR3に格納
16 LD GR1,GR3 ; GR1にGR3をコピー
17 LD GR1,NCHAR,GR1 ; GR1を文字に変換
18 ST GR1,0,GR4 ; (GR4) <- GR1
19 LAD GR4,1,GR4 ; GR4 <- GR4 + 1
20 LD GR1,GR0 ; GR0をGR1にコピー
23 LD GR1,NCHAR,GR1 ; GR1を文字に変換
24 ST GR1,0,GR4 ; (GR4) <- GR1
25 LAD GR4,1,GR4 ; GR4 <- GR4 + 1
27 ZERO LD GR1,NCHAR ; 「0」をSTR領域に格納
28 ST GR1,0,GR4 ; ↓ (GR4) <- GR1
29 LAD GR4,1,GR4 ; ↓ GR4 <- GR4 + 1
30 PRT LD GR1,GR2 ; GR1に文字列のアドレスを格納
31 SUBL GR4,GR2 ; GR2 <- GR4 - GR2
33 CALL REV ; 文字列を逆順に並べ替え
34 LD GR3,GR2 ; GR3に文字列の長さを格納
35 LD GR2,GR4 ; GR2に文字列のアドレスを格納