valgrindのオプションを変更

[YACASL2.git] / as / casl2lib / outl.casl

diff --git a/as/casl2lib/outl.casl b/as/casl2lib/outl.casl
index a7a6d15..09cc91f 100644 (file)
--- a/as/casl2lib/outl.casl
+++ b/as/casl2lib/outl.casl
@@ -1,8 +1,9 @@
 ;;; 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にジャンプ
@@ -29,7 +30,7 @@ PRT     ST      GR4,LEN         ; LEN <- GR4
         OUT     STR,LEN         ; 文字列を出力
         RPOP
         RET
-STR     DS      17
+STR     DS      17              ; 符号付き2進数で表記した場合を想定
 LEN     DS      1
 NCHAR   DC      '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'
         END