X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=casl%2Fcasl2lib%2Fabs.casl;fp=casl%2Fcasl2lib%2Fabs.casl;h=be0b9220f54cb9b79c2db6292f9b416e8227cb7a;hb=9512a8c8cb11ec985f9802307a4bd227917814ec;hp=0000000000000000000000000000000000000000;hpb=e3f04e84859b5d5a0351ae7acaa222056ff04ef7;p=fizzbuzz.git

diff --git a/casl/casl2lib/abs.casl b/casl/casl2lib/abs.casl
new file mode 100644
index 0000000..be0b922
--- /dev/null
+++ b/casl/casl2lib/abs.casl
@@ -0,0 +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,ALLON
+        ADDA    GR1,ONE
+        JOV     FIN
+        CPL     GR1,ALLON
+FIN     RET
+ONE     DC      1
+ALLON   DC      #FFFF
+        END