;;; GR1に格納された値を、10進数の整数値(0〜65535)として表示
+;;; 依存プログラム: DIVL, REV
OUTL START
RPUSH
LAD GR2,10 ; GR2に10進数の「10」を格納。
- LAD GR0,0 ; GR0 <- 0
+ XOR GR0,GR0 ; GR0 <- 0
XOR GR4,GR4 ; 整数値の長さ
AND GR1,GR1 ; GR1をテスト
JZE ZERO ; GR1が0の場合、ZEROにジャンプ
OUT STR,LEN ; 文字列を出力
RPOP
RET
-STR DS 17
+STR DS 17 ; 符号付き2進数で表記した場合を想定
LEN DS 1
NCHAR DC '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
END