dumpwordコマンドで数値以外の値が引数のときにエラーが発生するよう修正
[YACASL2.git] / as / FUNC / abs.casl
1 ;;; GR1を絶対値に変換する
2 ABS     START
3         AND     GR1,GR1
4         JPL     ABSFIN
5         JZE     ABSFIN
6         XOR     GR1,=#FFFF
7         LAD     GR1,1,GR1
8 ABSFIN  RET
9         END