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 ODIVL ; GR1とGR2の、商をGR0、剰余をGR3に格納
16 LD GR1,GR3 ; GR1にGR3をコピー
17 LD GR1,NCHAR,GR1 ; GR1を文字に変換
18 CALL STSTR ; GR1をSTR領域に格納
19 LD GR1,GR0 ; GR0をGR1にコピー
21 STLST LD GR1,NCHAR,GR1 ; GR1を文字に変換
22 CALL STSTR ; GR1をSTR領域に格納
25 LD GR1,='-' ; 負数の場合、「-」をSTR領域に格納
28 ZPRT LD GR1,NCHAR ; 「0」をSTR領域に格納
30 PRT LD GR2,LEN ; GR2にLENの値を格納
31 LAD GR1,STR ; GR1に文字列のアドレスを格納
32 CALL REV ; 文字列を逆順に並べ替え
38 NCHAR DC '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
40 ;; GR1をSTR領域に格納し、LENをインクリメント
44 LD GR2,LEN ; GR2にLENの値をロード
45 ST GR1,STR,GR2 ; STR+GR2 <- GR1
46 LAD GR2,1,GR2 ; GR2 <- GR2 + 1
47 ST GR2,LEN ; LENにGR2を格納
52 ;;; GR1の値とGR2の値の、商をGR0、剰余をGR3に格納する
56 AND GR2,GR2 ; (GR2 = 0)の場合、ODYZへジャンプ
59 LD GR3,GR1 ; GR3 <- GR1
60 ODLOOP CPL GR3,GR2 ; ループ先頭。(GR3 < GR2)の場合、終了
62 SUBL GR3,GR2 ; GR3 <- GR3 - GR2
65 ODYZ LAD GR3,#FFFF ; 強制的にオーバーフローを発生させ、GR3 <- 0
67 JUMP ODFIN ; ODFINへジャンプ
72 ;; アドレスがGR1、長さがGR2の文字列を逆順に並べ替える
73 ;; 例: 12345 -> 54321、54321- -> -12345
77 RPU CPL GR3,GR2 ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
79 LD GR4,GR1 ; GR4にGR1の値をコピー
80 ADDL GR4,GR3 ; GR4 <- GR4 + GR3
81 LD GR5,0,GR4 ; GR5にアドレスGR4の値を格納
83 LAD GR3,1,GR3 ; GR3 <- GR3 + 1
85 RNEXT LAD GR3,0 ; GR3の初期化
86 RPO CPL GR3,GR2 ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
89 LD GR4,GR1 ; GR4にGR1の値をコピー
90 ADDL GR4,GR3 ; GR4 <- GR4 + GR3
91 ST GR5,0,GR4 ; アドレスGR4にGR5の値を格納
92 LAD GR3,1,GR3 ; GR3 <- GR3 + 1
97 ;; GR1の値を絶対値に変換する。GR1にはマイナスの数値が格納されていると想定。
98 ;; 例: -10 -> 10, -20 -> 20
100 XOR GR1,=#FFFF ; GR1の値を反転
101 LAD GR1,1,GR1 ; GR1 <- GR1 + 1