as/FUNC/abs.casl

   1 ;;; GR1を絶対値に変換する
   2 ABS     START
   3         AND     GR1,GR1
   4         JPL     FIN
   5         JZE     FIN
   6         XOR     GR1,=#FFFF
   7         ADDA    GR1,=1
   8 FIN     RET
   9         END