かけ算を実行するCASL2ファイルのリファクタリング

[YACASL2.git] / as / FUNC / divl1.casl

diff --git a/as/FUNC/divl1.casl b/as/FUNC/divl1.casl
index f7bb887..9fd2fab 100644 (file)
--- 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            ; ↓