1 ;;; GR1に格納された値を、2進数値として表示
4 LAD GR2,2 ; GR2に2進数の「2」を格納。
8 JZE ZINS ; GR1が0の場合、ZINSにジャンプ
9 STI CPL GR1,GR2 ; ループ先頭。(GR1 < GR2)の場合は、ループ脱出
11 CALL ODIVL ; GR1とGR2の、商をGR0、剰余をGR1に格納
12 LD GR1,NCHAR,GR1 ; GR1を文字に変換
13 CALL STSTR ; GR1をSTR領域に格納
14 LD GR1,GR0 ; GR0をGR1にコピー
16 STLST LD GR1,NCHAR,GR1 ; GR1を文字に変換
17 CALL STSTR ; GR1をSTR領域に格納
19 ZINS LD GR1,NCHAR ; 「0」をSTR領域に格納
21 EMB LD GR1,NCHAR ; GR0 <- '0'
22 EMLOOP LD GR2,LEN ; GR2 <- LEN
23 CPA GR2,DIG ; ループ先頭。(GR2 = DIG)の場合は、ループ脱出
26 CALL STSTR ; GR1をSTR領域に格納
28 PRT LD GR2,LEN ; GR2にLENの値を格納
29 LAD GR1,STR ; GR1に文字列のアドレスを格納
30 CALL REV ; 文字列を逆順に並べ替え
36 NCHAR DC '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
39 ;; GR1をSTR領域に格納し、LENをインクリメント
42 LD GR2,LEN ; GR2にLENの値をロード
43 ST GR1,STR,GR2 ; STR+GR2 <- GR1
44 LAD GR2,1,GR2 ; GR2 <- GR2 + 1
45 ST GR2,LEN ; LENにGR2を格納
50 ;;; GR1の値とGR2の値の、商をGR0、剰余をGR1に格納する
56 ST GR2,ODY ; DYにGR2の初期値を保存
57 LAD GR3,1 ; GR3の初期化。対象ビットを表す
58 ODSL CPL GR2,GR1 ; ループ先頭。(GR3 > GR1)の場合、DLOOPへループ脱出
60 SLL GR3,1 ; GR3を1回左シフト
61 SLL GR2,1 ; GR2を1回左シフト
62 JOV ODYOV ; オーバーフローの場合は、ODYOVにジャンプ
64 ODYOV SRL GR2,1 ; GR2を1回右シフト
65 LAD GR2,#8000,GR2 ; GR2 <- GR2 + #8000
66 SRL GR3,1 ; GR3を1回右シフト
67 JUMP ODLPIN ; ODLPINへジャンプ
68 ODLOOP SRL GR3,1 ; ループ先頭。GR3を1回右シフト
69 JZE ODFIN ; (GR3= 0)の場合、ループ脱出
70 SRL GR2,1 ; GR2を1回右シフト
71 CPL GR1,ODY ; (GR1 < ODY)の場合、ループ脱出
73 CPL GR1,GR2 ; (GR1 < GR2)の場合、ループ先頭へジャンプ
75 ODLPIN SUBL GR1,GR2 ; GR1 <- GR1 - GR2
76 ADDL GR0,GR3 ; GR0 <- GR0 + GR3
84 ;; アドレスがGR1、長さがGR2の文字列を逆順に並べ替える
85 ;; 例: 12345 -> 54321、54321- -> -12345
89 RPU CPL GR3,GR2 ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
91 LD GR4,GR1 ; GR4にGR1の値をコピー
92 ADDL GR4,GR3 ; GR4 <- GR4 + GR3
93 LD GR5,0,GR4 ; GR5にアドレスGR4の値を格納
95 LAD GR3,1,GR3 ; GR3 <- GR3 + 1
97 RNEXT LAD GR3,0 ; GR3の初期化
98 RPO CPL GR3,GR2 ; ループ先頭。(GR3 = GR2)の場合、ループ脱出
101 LD GR4,GR1 ; GR4にGR1の値をコピー
102 ADDL GR4,GR3 ; GR4 <- GR4 + GR3
103 ST GR5,0,GR4 ; アドレスGR4にGR5の値を格納
104 LAD GR3,1,GR3 ; GR3 <- GR3 + 1