X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FFUNC%2Fabs.casl;h=ef7d045e65629ff57516ba9c11d07857be48eebe;hb=fb893cf9b40d141a0d66f131dba3e0fef28549ab;hp=8a25f8b4800ddd297cd86292a954f89ff6d6cbfc;hpb=fb54b1c9d2fbc3d4a62c6b4d38ff68e9d3b25c26;p=YACASL2.git

diff --git a/as/FUNC/abs.casl b/as/FUNC/abs.casl
index 8a25f8b..ef7d045 100644
--- a/as/FUNC/abs.casl
+++ b/as/FUNC/abs.casl
@@ -1,9 +1,9 @@
 ;;; GR1を絶対値に変換する
 ABS     START
         AND     GR1,GR1
-        JPL     ABSFIN
-        JZE     ABSFIN
+        JPL     FIN
+        JZE     FIN
         XOR     GR1,=#FFFF
-        LAD     GR1,1,GR1
-ABSFIN  RET
+        ADDA    GR1,=1
+FIN     RET
         END