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

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