第７回：１バイトたりとも無駄にはしない

今回は基本に戻ってBASICでプログラムを作る時の話になります。
ポケコンでゲームを作っている時にどうしても悩まされるのが”メモリ不足”だと思います。

G801をはじめとするRAMが８KB（FRE=5859バイト）のユーザーは、
あまりのメモリの少なさに「大作が作れないよぅ」と嘆いているでしょうし、
RAMが32KB(FRE=30435バイト)のユーザーも、
G801とかでも遊べる様にする為に出来るだけプログラムサイズを小さくしないといけない場合もあります。

そこで今回は、BASICプログラムにおけるメモリの節約法を書いていこうと思います。
わずか数バイトのみみっちい話でも、塵も積もれば山となるのです。

●マルチステートメントにする●

マルチステートメントって何？という人もいるかもしれませんが、
簡単に説明すると『複数のBASIC命令を”：”（コロン）でつないで１つの行に収める事』を指します。

例えば、

リスト　１
１０：Ａ＝１０　２０：Ｂ＝２０　３０：Ｃ＝３０　４０：Ｄ＝４０　５０：Ｅ＝５０　６０：Ｆ＝Ａ＋Ｂ＋Ｃ＋Ｄ＋Ｅ　　７０：ＰＲＩＮＴ　Ｆ　８０：ＥＮＤ

というプログラムをマルチステートメント化すると

リスト　２
１０：Ａ＝１０：Ｂ＝２０：Ｃ＝３０：Ｄ＝４０：Ｅ＝５０：Ｆ＝Ａ＋Ｂ＋Ｃ＋Ｄ＋Ｅ：ＰＲＩＮＴ　Ｆ：ＥＮＤ

のように１行になりました。

この時、リスト１に比べてリスト２の方が14バイトの節約になります。
なぜ同じ内容なのにメモリの節約になるかというと、
BASICリストでは１つの行を作る為には行番号用の２バイトと、
その行のエンドマーク用の１バイトで合計３バイトのメモリを使ってしまいます。

それなら、８行のリストが１行になったんだから（３バイト＊７行分＝21バイト）の節約になりそうですが、
プログラム中のコロンの数が増えた分の７バイト引いて結果的に14バイトの節約になります。

●１６進数は１０進数に直す●

BASICプログラムで１６進数を使うのは、
CHR$とかマシン語にアクセスする命令（POKE,PEEK,CALL）などの時がありますが、
これを１０進数に直すと数バイトの節約になります。

例：ＣＡＬＬ　＆Ｈ１００　→　ＣＡＬＬ２５６
　　（とすると、なんと２バイトの節約！）

あまり意味がないように見えるかもしれませんが、１６進数を１０進数に直す最大のメリットは、
メモリの節約よりも「処理速度が速くなる」という事です。
少なくとも、アクションゲームの様なスピードが要求されるプログラムでは、
全ての１６進数を１０進数に直しておいた方がいいと思います。

●まずは１文字変数を使いきる●

１文字変数（固定変数）とはアルファベットのA($)～Z($)までの２６個の変数の事です。
ポケコンにはあらかじめ「固定変数エリア」というエリアがあって、
１文字変数に数値や文字列データを代入しても、この「固定変数エリア」にデータが確保されるので、
変数使用料（←勝手に命名）としてポケコンに数バイト払う必要はないのです。

ところが、２文字変数（アルファベット２文字　OR　アルファベット＋数字）を使用した時には、
変数使用料として１５バイトも取られてしまいます。（数値変数の場合です）

さすがに１５バイトもとられるのはもったいないので、
１文字変数を全て使い切るまでは２文字変数は使わない様にするとよいでしょう。
もちろん２文字変数を使ってプログラムを書くと、１文字変数の時よりメモリを余計に使いますしね。

例：Ｓ＝Ｓ＋２００　→　ＳＣ＝ＳＣ＋２００
　　（とすると、なんと２バイトの損！！）

ましてや、文字変数に２文字変数なんかを使った日には、
変数使用料として２３バイトも取られてしまいます。余りにももったいないでしょ？

しかし、２文字の文字変数は悪い事ばかりではありません。
A$～Z$までの１文字の文字変数は、最大で７文字までしか文字データを入れる事が出来ないのに対して、
２文字文字変数は最大16文字までの文字データを入れる事が出来るので
ＤＩＭ命令を使いたくない時には有効です。まあ、そのへんは臨機応変に・・・・

●ＴＨＥＮは全然使わない●

THENというのはIF文の後ろについてくる命令で、THENだけを単独で使う事はありません。
E200/G800シリーズのBASICではTHENを省略することが出来ます。

具体的に説明していくと、

リスト　３
１０：ＩＦ　Ｂ＝１　ＴＨＥＮ　ＰＲＩＮＴ　”ＯＫ”　　　　　　　　　　　　　　↓ 　１０：ＩＦ　Ｂ＝１　ＰＲＩＮＴ　”ＯＫ”
リスト　４
１０：ＩＦ　Ａ＝１　ＴＨＥＮ　Ｂ＝１　　　　　　　　　　↓ 　１０：ＩＦ　Ａ＝１　ＬＥＴ　Ｂ＝１

まず、リスト３の方ですが、THENが省略されて「B＝１」の後に直接PRINT文がきています。
なぜこの場合THENが省略できるかというとPRINTという命令が、単独で使える基本命令だからです。

E200/G800シリーズのBASICの場合は、THENの後が基本命令の時はTHENを省略する事が出来ます。
「PRINT」以外の基本命令には、

ＣＡＬＬ　ＣＬＳ　ＥＮＤ　ＦＯＲ～ＮＥＸＴ　　ＧＯＴＯ　ＧＯＳＵＢ　ＩＦ　ＩＮＰＵＴ　ＬＥＴ　　ＬＯＣＡＴＥ　ＯＮ～ＧＯＴＯ　ＯＮ～ＧＯＳＵＢ　　ＰＯＫＥ　ＲＥＡＤ　ＳＴＯＰ　ＵＳＩＮＧ　ＷＡＩＴ

等があります。THENを省略すると１回につき２バイトの節約となるのです。

次にリスト４ですが、この場合はTHENの部分をLETに置き換えています。
「LET」という命令は、変数にある数値やデータを代入する時に頭につける
命令ですが、省略するのが一般的なので普段はあまり見かけない命令です。
「Ａ＝３」という代入文も、本来なら「ＬＥＴ　Ａ＝３」とするのが正式な記述なのです。

リスト４の場合は、THENを省略して基本命令のLETをもってきてる訳です。
しかし、LETという命令自体が普段省略されている命令なのだから、

１０：ＩＦ　Ａ＝１　Ｂ＝１　（ＬＥＴを省略している）

という記述でもいい様な気がしますが、さすがにエラーになってしまいます。
LETという命令は、THENの後に代入文が来た時の為だけに存在するといっても過言ではない命令なのです。

さて、リスト４ではTHENをLETに変えたので見た目には１バイトの節約になっていそうですが、
実際にはメモリの節約にはなっていません。
なぜなら、THENもLETもポケコンのRAMの中では「中間コード」という２バイトの記号として収まってるからです。

「それなら意味ないじゃん！」と言われそうですが、
確かにTHENの後が代入文の時に限ってはそうかもしれません。（速度的にも殆ど変わりませんし）
結局これは好みの問題であって、
私の場合は「THEN」と入力するよりも「LET」と入力した方が楽なのでLETを使っています。

とりあえず『ポケコンのIF文にはTHENを使わなくてもいい』という事さえ頭にいれておけば、
ネット上や雑誌などに載っているプログラムを手入力する時に
掲載されているプログラムを一字一句同じ様に入力しなくても自分で省略出来るので楽になりますよ。

ただしG815やG850ではIF文にELSEを使う事ができ、
ELSEを使う場合はTHENを省略する事は出来ないのでドンドン使っていきましょう。

┃もっと知りたいINDEX ┃第１回 ┃第２回 ┃第３回 ┃第４回 ┃第５回 ┃第６回 ┃第７回 ┃第８回 ┃

TOPページに戻る
　
　