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

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            ; ↓