1 ;;; GR1に格納された値を、10進数の整数値(0〜65535)として表示
5 LAD GR2,10 ; GR2に10進数の「10」を格納。
9 JZE ZERO ; GR1が0の場合、ZEROにジャンプ
10 STI CPL GR1,GR2 ; ループ先頭。(GR1 < GR2)の場合は、ループ脱出
12 CALL DIVL ; GR1とGR2の、商をGR0、剰余をGR3に格納
13 LD GR1,GR3 ; GR1にGR3をコピー
14 LD GR1,NCHAR,GR1 ; GR1を文字に変換
15 ST GR1,STR,GR4 ; (STR + GR4) <- GR1
16 LAD GR4,1,GR4 ; GR4 <- GR4 + 1
17 LD GR1,GR0 ; GR0をGR1にコピー
19 STLST LD GR1,NCHAR,GR1 ; GR1を文字に変換
20 ST GR1,STR,GR4 ; (STR + GR4) <- GR1
21 LAD GR4,1,GR4 ; GR4 <- GR4 + 1
23 ZERO LD GR1,NCHAR ; 「0」をSTR領域に格納
24 ST GR1,STR,GR4 ; ↓ (STR + GR4) <- GR1
25 LAD GR4,1,GR4 ; ↓ GR4 <- GR4 + 1
26 PRT ST GR4,LEN ; LEN <- GR4
27 LD GR2,LEN ; GR2にLENの値を格納
28 LAD GR1,STR ; GR1に文字列のアドレスを格納
29 CALL REV ; 文字列を逆順に並べ替え
33 STR DS 17 ; 符号付き2進数で表記した場合を想定
35 NCHAR DC '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'