X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FFUNC%2Fdivl1.casl;h=9fd2fab57061659b03779270e8babd6bd059f140;hb=f2cce8431d5dc6646eab7ff40420a2db0cd19295;hp=f7bb887802fb33252b48660300cff5b9d5695af2;hpb=fb893cf9b40d141a0d66f131dba3e0fef28549ab;p=YACASL2.git

diff --git a/as/FUNC/divl1.casl b/as/FUNC/divl1.casl
index f7bb887..9fd2fab 100644
--- a/as/FUNC/divl1.casl
+++ b/as/FUNC/divl1.casl
@@ -9,8 +9,8 @@ DIVL    START
         AND     GR2,GR2         ; (GR2 = 0)の場合、DIVZEROへジャンプ
         JZE     DIVZERO         ; ↓
         ST      GR2,Y           ; YにGR2の初期値を保存
-        LAD     GR0,0           ; GR0の初期化
-        LAD     GR3,0           ; GR3の初期化
+        XOR     GR0,GR0         ; GR0の初期化
+        XOR     GR3,GR3         ; GR3の初期化
         LAD     GR4,1           ; GR4の初期化。対象ビットを表す
 SL      CPL     GR2,GR1         ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出
         JPL     LOOP            ; ↓