数値の桁揃え汎用ルーチン

sprintf_zero_fill %num
と使う。数値は0〜999までの数値。引数に与えられた数値を三桁にそろえ、たりない部分には0もしくはスペースを追加する。$numにその文字列が入る。

*sprintf_zero_fill
getparam %num
if %num > 999 mov %num,999
mov $num,""
if %num <  add $num,"0"
if %num < 10 add $num,"0"
itoa $temp,%num
add $num,$temp
return

*sprintf_space_fill
getparam %num
if %num > 999 mov %num,999
mov $num,""
if %num < 100 add $num," "
if %num < 10 add $num," "
itoa $temp,%num
add $num,$temp
return

数値変数を一つ、文字列変数を二つ使う。