chnsa
id:eiji8pou:20050603:1117728765 の続きと言うか焼き直し
numalias chnsa_input numalias chnsa_now ------ ------ ;============================== ; chnsa ;============================== ;機能:nsaファイルを検索する追加のディレクトリを指定する。 ;引数:追加のディレクトリにしたいコンテンツの番号 ;付記:addnsadirのラッパー。 ;念のために、現在指定しているディレクトリを指定すると、何もせずに戻る。 *chnsa getparam %chnsa_input if %chnsa_input > 1 return ; 数値が変だと何もせずに返す。 if %chnsa_input < 10 return ; 数値が変だと何もせずに返す。 if %chnsa_now = %chnsa_input return ; 同じだと何もせずに返す。 getnsadir $chnsa_input,%chnsa_input addnsadir $chnsa_input mov %chnsa_now,%chnsa_input return