*.caslファイルの整理
[YACASL2.git] / 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