is_odd/is_even

ある数値が奇数か偶数かを調べる関数（……）

numalias isodd_result
numalias isodd_num
numalias isodd_temp
------
------
 *is_odd
getparam i%isodd_result,%isodd_num
mov %isodd_temp,%isodd_num/2
mul %isodd_temp,2
mov %%isodd_result,0
notif %isodd_temp = %isodd_num mov %%isodd_result,1
return
 *is_even
getparam i%isodd_result,%isodd_num
mov %isodd_temp,%isodd_num/2
mul %isodd_temp,2
mov %%isodd_result,0
if %isodd_temp = %isodd_num mov %%isodd_result,1
return

is_oddが奇数か否かで、奇数だったら1が返ってくる。
is_evenがその逆で、偶数だったら1が返ってくる。
ご自由にお使いください。