ガンシューのサンプルソースをうｐしました。
http://www.erc-j.com/stg/
STG-UPLのstg0313.lzh
変数実装前なので結構無駄な処理が多いかもです。
参考になれば幸いです。