X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fcasl2lib%2Foutl.casl;h=09cc91fb525b6ca9f77d448d4e3b41abb2dfb8b1;hb=ad8b526f2b1058dc41db2928fbf6605648495593;hp=a7a6d1557c895bafeace2b0f58aa4373e2bce15f;hpb=20ef96d09cd596ca0f243f2e18a6766c93974674;p=YACASL2.git

diff --git a/as/casl2lib/outl.casl b/as/casl2lib/outl.casl
index a7a6d15..09cc91f 100644
--- 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