as/casl2lib/abs.casl

   1 ;;; GR1を絶対値に変換する
   2 ;;; 入力 GR1:-32768〜32767の整数
   3 ;;; 出力 GR1:入力された整数の絶対値
   4 ;;;       OF:入力されたGR1が-32768の場合、1
   5 ;;;       SF:入力されたGR1が負数(-32767〜-1)の場合、1
   6 ABS     START
   7         AND     GR1,GR1
   8         JPL     FIN
   9         JZE     FIN
  10         XOR     GR1,ALLON
  11         ADDA    GR1,ONE
  12         JOV     FIN
  13         CPL     GR1,ALLON
  14 FIN     RET
  15 ONE     DC      1
  16 ALLON   DC      #FFFF
  17         END