X-Git-Url: http://j8takagi.net/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=as%2Fcasl2lib%2Fabs.casl;h=be0b9220f54cb9b79c2db6292f9b416e8227cb7a;hb=63d02a76014f85f18c2b095b9a8e0d5724f91338;hp=35aa20d9b87515dbcaa5b68369dcd82d912fc82a;hpb=2ef92a7c1a848fbe897ac6e14f73fd6dbeef8c84;p=YACASL2.git diff --git a/as/casl2lib/abs.casl b/as/casl2lib/abs.casl index 35aa20d..be0b922 100644 --- a/as/casl2lib/abs.casl +++ b/as/casl2lib/abs.casl @@ -1,5 +1,5 @@ -;;; GR1を絶対値に変換する -;;; 入力 GR1:-32768〜32767の整数 +;;; GR1を符号付き整数とみなし、絶対値に変換 +;;; 入力 GR1:-32768から32767の整数 ;;; 出力 GR1:入力された整数の絶対値 ;;; OF:入力されたGR1が-32768の場合、1 ;;; SF:入力されたGR1が負数(-32767〜-1)の場合、1