X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?p=YACASL2.git;a=blobdiff_plain;f=as%2Fmisc%2Fdivl0.casl;h=7eb4d64ef5ca4ef5cb31a3782cb6fb67f02a0959;hp=28357a9045a812f5f5ef8876e9d88a403ae440e3;hb=330f6a8723886b86e745e91ffc3479eda9159b8d;hpb=5a84169c51f754a58929ce360e9e1a358e0ca74e

diff --git a/as/misc/divl0.casl b/as/misc/divl0.casl
index 28357a9..7eb4d64 100644
--- a/as/misc/divl0.casl
+++ b/as/misc/divl0.casl
@@ -2,9 +2,9 @@
 ;;; 入力 GR1:被除数 GR2:除数
 ;;; 出力 GR0:商 GR3:剰余
 ;;; GR2が0の場合は、GR0、GR3とも0になり、オーバーフロー
-DIVL    START
+DIVL0   START
         PUSH    0,GR1
-        AND     GR2,GR2         ; (GR2 = 0)の場合、DYZへジャンプ
+        AND     GR2,GR2         ; (GR2 = 0)の場合、DIVZEROへジャンプ
         JZE     DIVZERO         ; ↓
         LAD     GR0,0           ; GR0を初期化
         LD      GR3,GR1         ; GR3 <- GR1