dumpwordコマンドで10進数/16進数を表す文字列が引数になるよう仕様変更
[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