使い古されたネタではあるが。
numalias abs_result
numalias abs_num
------
------
;==============================
; abs
;==============================
;機能:絶対値を返す。
;引数:絶対値を返す数字変数と、演算の対象になる数値
*abs
getparam i%abs_result,%abs_num
mov %%abs_result,%abs_num
if %abs_num < 0 mul %%abs_result,-1
return