X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2FFUNC%2Fabs.casl;fp=as%2FFUNC%2Fabs.casl;h=35aa20d9b87515dbcaa5b68369dcd82d912fc82a;hb=6a9e7118e7f1a32304a1ffba0cb7a4b44f90d9fe;hp=ef7d045e65629ff57516ba9c11d07857be48eebe;hpb=d2638d2dd5f2437cabbf752c89042ca49347a248;p=YACASL2.git

diff --git a/as/FUNC/abs.casl b/as/FUNC/abs.casl
index ef7d045..35aa20d 100644
--- a/as/FUNC/abs.casl
+++ b/as/FUNC/abs.casl
@@ -1,9 +1,17 @@
 ;;; GR1を絶対値に変換する
+;;; 入力 GR1:-32768〜32767の整数
+;;; 出力 GR1:入力された整数の絶対値
+;;;       OF:入力されたGR1が-32768の場合、1
+;;;       SF:入力されたGR1が負数(-32767〜-1)の場合、1
 ABS     START
         AND     GR1,GR1
         JPL     FIN
         JZE     FIN
-        XOR     GR1,=#FFFF
-        ADDA    GR1,=1
+        XOR     GR1,ALLON
+        ADDA    GR1,ONE
+        JOV     FIN
+        CPL     GR1,ALLON
 FIN     RET
+ONE     DC      1
+ALLON   DC      #FFFF
         END