〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第５４回］
●ＰＵＳＨＡ
今回はＦＯＲプログラムについてプログラムリストをもとにしながら実際のプログラムの動作について説明するつもりだったのですが、下のリストの通り、プログラムの先頭から、まだ説明をしていない他のアドレスのプログラムをＣＡＬＬしたり、他のアドレスのプログラムにジャンプしていますので、やっぱりそれらのプログラムについて先に説明をしておいたほうがよさそうです。
ということで今回は予定を変更してＰＵＳＨＡについて説明をします。
ＰＵＳＨＡは現在のＦＯＲ変数領域をスタックに保存します。
ＰＵＳＨＡはスタックを消費するため、先頭のアドレス０６１９から０６２１でスタックオーバーにならないかどうかをチェックしています。
ＳＰ−ＳＴＫＬＭＴの計算をしたいのですが８０８０には１６ビットの減算命令がありません。
そこでＣＨＧＳＧＮサブルーチンでＳＴＫＬＭＴを負数に変換したうえでそこにＳＰを加算します。
ＣＨＧＳＧＮは［第４８回］で説明をしました。
ＰＯＰ ＢはＰＵＳＨＡをＣＡＬＬしたもとのプログラムに戻るためのアドレスを一時保存しておくためです。
ＳＴＫＬＭＴはオリジナルのＴＩＮＹ ＢＡＳＩＣでは１３ＤＥになっています。
ここがスタックの下限アドレスです。
スタックトップは１４００です。
ＳＰ＜＝ＳＴＫＬＭＴならスタックオーバーなのでＳＯＲＲＹ表示ルーチンへジャンプします。
それならＪＮＣではなくてＪＣではないか？と思われるかもしれませんが、この計算を行なうと本当の減算のときとはキャリーが逆になります。
実は、このプログラムにはまずいところがあります。
作者の見落としではないかと思います。
下のアドレスマップは［第１６回］〜［第１８回］でお見せしました。
ＳＴＫＬＭＴの前にはＢＵＦＥＮＤ（１３ＤＤ）があります。
ＢＵＦＦＥＲは入力バッファです。
サイズはＣＲコードを含めて６４バイトです。
実際に入力バッファとして使われるのは１３９Ｄ〜１３ＤＣまでで１３ＤＤが使われることはありません。
ということはスタックとして使えるのは１３ＤＤ〜１３ＦＦまでということになります。
ＳＰの値としては１３ＤＤが下限値です。
すると、さきほどのＰＵＳＨＡの先頭の計算はおかしいのではないか？
と思います。
ＳＰ＜＝ＳＴＫＬＭＴでスタックオーバーになるということはＳＰ＝１３ＤＦがリミットということです。
ＰＵＳＨＡがリターンするときには、
ＰＵ１：ＰＵＳＨ Ｈ
ＰＵＳＨ Ｂ
ＲＥＴ
が実行されます。
もしもＳＰ＝１３ＤＦだったとすると、ＲＥＴの直前にはＳＰ＝１３ＤＢになるのですが、それは一時的でＲＥＴしたときにはＳＰ＝１３ＤＤになります。
ぎりぎりセーフで、ここまでなら計算はあっています。
しかし。
後で説明するつもりですが、ＰＵＳＨＡの本来の目的はＦＯＲ変数領域をスタックに保存することです。
ＦＯＲ変数領域は１０バイトです。
上の計算でＰＵＳＨ Ｈだけを実行したときにぎりぎりセーフになるとしても、本来の目的でＰＵＳＨＡを実行すると、ぎりぎりのときにはスタックが８バイト不足してしまいます（入力バッファに食い込んでしまいます）。
その状態でＩＮ命令が実行されると最悪の場合ＦＯＲ変数領域の一部が破損してしまう可能性があります。
そうならないようにするためにはＳＴＫＬＭＴの値は１３ＤＥ＋８＝１３Ｅ６でなければならないことになります。
安全を考えると１３ＤＥ＋Ａ＝１３Ｅ８が望ましいでしょう。
それはともかくとしまして。
もともとスタックエリアは十分とはいえないほど小さいです。
スタック領域が１３ＤＤ〜１３ＦＦとした場合、スタックのサイズは３６バイトしかありません。
ＦＯＲ〜ＮＥＸＴを多重使用した場合３重が限界です。
うーん。
確かに、ＴＩＮＹですねえ。
ＦＯＲプログラムの説明に戻ります。
スタックオーバーではなかった場合にはアドレス０６２４のＬＨＬＤ ＬＯＰＶＡＲ以降が実行されます。
ＨＬ＝０のときはＰＵ１：にジャンプしてリターンします。
ＨＬ＝０は現在アクティブなＦＯＲループはないということを示しています。
ＨＬ＝０ではなかった場合には現在アクティブなＦＯＲループの中にいることになりますから、そこで新たなＦＯＲ変数の値を設定するために、現在のＦＯＲ変数領域をスタックに退避させます。
スタックにはＬＯＰＰＴ、ＬＯＰＬＮ、ＬＯＰＬＭＴ、ＬＯＰＩＮＣそしてＬＯＰＶＡＲの順に退避されます。
復活！ＴＩＮＹ ＢＡＳＩＣ［第５４回］
２０２０．８．２ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る