projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
8a25f8b4800ddd297cd86292a954f89ff6d6cbfc
[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