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