sgn
numalias sgn_result numalias sgn_num ------ ------ ;============================== ; sgn ;============================== ;機能:正負を返す。 ;引数:正負を返す数字変数と、演算の対象になる数値 *sgn getparam i%sgn_result,%sgn_num if %sgn_num < 0 mov %%sgn_result,-1 if %sgn_num = 0 mov %%sgn_result,0 if %sgn_num > 0 mov %%sgn_result,1 return