〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第６９回］
●ＥＸＰＲ（２）
前回からの続きです。
ＥＸＰＲのエントリ部分はＲＳＴ ３です、ということは前回説明しました。
最初にＥＸＰＲ２をＣＡＬＬしてその計算結果をスタックに保存したあとＥＸＰＲ１にジャンプします。
下は前回もお見せしたＥＸＰＲ１のプログラムリストです。
ＥＸＰＲ１：では関係演算子のテーブルを使って文字列を比較し、一致したらその関係演算子を処理するプログラム部分にジャンプします。
各処理プログラムでは先頭でＸＰ１８をＣＡＬＬしています。
ＸＰ１８：ではおかしなことをやっています。
というところまでで前回は終りました。
今回はその続きです。
０３５Ｃ ＸＰ１８：ＭＯＶ Ａ，Ｃ
と
０３６１ ＭＯＶ Ｃ，Ａ
は何をやっているのか、はじめはわかりませんでしたが、しばらくしてやっと思い当たりました。
ＸＰ１８：の中でＢＣレジスタを使うのですが（あとで説明します）、そのときＣレジスタの値を一時的に退避させておくための処理です。
それはわかりますが問題はなぜＣレジスタを退避させておく必要があるのかということです。
実はＣレジスタはＰＲＩＮＴ命令の中で数値を表示するときにその表示桁数を保持するのに使っています（［第４５回］参照）。
おそらくその値を壊してしまわないようにするのが目的だと思います。
Ｃレジスタは以下のプログラム部分でＢＣレジスタとして使うため、一時的にＡレジスタを使って退避させているのです。
０３５Ｄ ＰＯＰ Ｈ
０３５Ｅ ＰＯＰ Ｂ
０３５Ｆ ＰＵＳＨ Ｈ
０３６０ ＰＵＳＨ Ｂ
ここでＨＬレジスタとＢＣレジスタを使っています。
何をやっているのでしょう？
この部分を実行すると、スタックトップの値（２バイトで１組）が入れ替わります。
なぜそうするのでしょうか？
最初にＣＡＬＬ ＥＸＰＲ２を実行してその結果の値をスタックに保存します。
その値とこのあとでＣＡＬＬするＥＸＰＲ２の値との間で比較演算を行ないます。
しかし最初は第１のＥＸＰＲ２の値はスタックトップにありましたがＸＰ１８：の先頭ではスタックトップにはありません。
ＸＰ１８：はサブルーチンなので、ＣＡＬＬされたときに戻り先のアドレスがスタックトップにＰＵＳＨされます。
そのためここで演算に使う最初のＥＸＰＲ２の値はスタックトップではなくてスタックの２番目に押されてしまっています（！）。
そこでそれを入れ替えて、スタックトップにＥＸＰＲ２の値を置き、その奥に戻り先アドレスを置くようにするのが上のプログラム部分の目的です。
なるほど。
でもなかなか思いつきませんよね。
スタックの使い方など手馴れたものです。
感心してしまいます。
そのように準備をしたうえで
０３６２ ＣＡＬＬ ＥＸＰＲ２
を実行します。
その結果２番目のＥＸＰＲ２の値がＨＬに入ります。
０３６５ ＸＣＨＧ
でＨＬとＤＥが入れ替わるため、ＤＥに２番目のＥＸＰＲ２の値が入ります。
そしてＨＬにはテキストプログラムの位置アドレス（もとはＤＥに入っていた）が入ります。
０３６６ ＸＴＨＬ
を実行すると上の０３５Ｄ〜０３６０のプログラムでスタックトップに持ってきておいた１番目のＥＸＰＲ２の値がＨＬに入ります。
そして代わりにテキストプログラムの位置アドレスがスタックトップに置かれます。
いつもながらまるで手品を見ているような見事なプログラムです。
そのあと
０３６７ ＣＡＬＬ ＣＫＨＬＤＥ
を実行します。
ＣＫＨＬＤＥは［第４８回］で説明しました。
ＨＬとＤＥの比較を行ないます。
一致しているときはＺフラグが立ちます。
ＨＬ＜ＤＥのときはキャリーフラグが立ちます。
このフラグがリターン後に利いてきます。
最後に
０３６Ａ ＰＯＰ Ｄ
でテキストプログラムの位置アドレスをＤＥに戻します。
０３６Ｂ ＬＸＩ Ｈ，０Ｈ
０３６Ｅ ＭＶＩ Ａ，１
でＨＬに００００を入れて、Ａレジスタに０１をセットして、メインルーチンにリターンします。
このＨＬとＡもリターン後に活躍することになります。
ここのところも、実にうまいものだと感心してしまいます。
その見事な使い方については、次回にて説明をすることにします。
復活！ＴＩＮＹ ＢＡＳＩＣ［第６９回］
２０２０．８．１９ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る