X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fcasl2lib%2Foutl.casl;fp=as%2Fcasl2lib%2Foutl.casl;h=09cc91fb525b6ca9f77d448d4e3b41abb2dfb8b1;hp=bf16e79f4ae36140bf86486121b4ecaf2d3a8fcf;hb=ae04e48ee62a95f6f77794d5611db189a19e70de;hpb=4d98d132e119aa98dd7abcb76b6a96ae4723f274

diff --git a/as/casl2lib/outl.casl b/as/casl2lib/outl.casl
index bf16e79..09cc91f 100644
--- a/as/casl2lib/outl.casl
+++ b/as/casl2lib/outl.casl
@@ -3,7 +3,7 @@
 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にジャンプ