1 ;;; GR1に格納された値を、10進数の整数値(-32768〜32767)として表示
4 LAD GR2,10 ; GR2に10進数の「10」を格納。
6 LAD GR4,0 ; 負数フラグ。GR1が負数の場合、GR4は1
9 JZE ZPRT ; GR1が0の場合、ZPRTにジャンプ
10 JPL STI ; GR1が正数の場合、STIにジャンプ
11 LAD GR4,1 ; GR1が負数の場合、GR4をオン
13 STI CPL GR1,GR2 ; ループ先頭。(GR1 < GR2)の場合は、ループ脱出
15 CALL DIVL ; GR1とGR2の、商をGR0、剰余をGR3に格納
16 LD GR1,GR3 ; GR1にGR3をコピー
17 LD GR1,NCHAR,GR1 ; GR1を文字に変換
18 ST GR1,STR,GR5 ; (STR + GR5) <- GR1
19 LAD GR5,1,GR5 ; GR5 <- GR5 + 1
20 LD GR1,GR0 ; GR0をGR1にコピー
22 STLST LD GR1,NCHAR,GR1 ; GR1を文字に変換
23 ST GR1,STR,GR5 ; (STR + GR5) <- GR1
24 LAD GR5,1,GR5 ; GR5 <- GR5 + 1
27 LD GR1,='-' ; 負数の場合、「-」をSTR領域に格納
28 ST GR1,STR,GR5 ; (STR + GR5) <- GR1
29 LAD GR5,1,GR5 ; GR5 <- GR5 + 1
31 ZPRT LD GR1,NCHAR ; 「0」をSTR領域に格納
32 ST GR1,STR,GR5 ; (STR + GR5) <- GR1
33 LAD GR5,1,GR5 ; GR5 <- GR5 + 1
34 PRT ST GR5,LEN ; LEN <- GR5
35 LD GR2,LEN ; GR2にLENの値を格納
36 LAD GR1,STR ; GR1に文字列のアドレスを格納
37 CALL REV ; 文字列を逆順に並べ替え
43 NCHAR DC '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'