〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
すべてはここからはじまりました。
中日電工も。
４０年前を振り返りつつ新連載です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第７０回］
●ＥＸＰＲ（３）
今回も前回からの続きです。
下は前回もお見せしたＥＸＰＲ１のプログラムリストです。
ＥＸＰＲ１：では関係演算子のテーブルを使って文字列を比較し、一致したらその関係演算子を処理するプログラム部分にジャンプします。
各処理プログラムでは先頭でＸＰ１８をＣＡＬＬしています。
［第６８回］ではそのように書きました。
そして前回ではＸＰ１８について説明をしました。
今回はＥＸＰＲプログラムの最後の仕上げです。
関係演算子を処理する各処理プログラムについて見ていくことにします。
最初は関係演算子が’＞＝’のときに実行されるＸＰ１１（アドレス０３３３）についての説明です。
ＸＰ１１：の先頭でＸＰ１８をＣＡＬＬしています。
０３３３ ＸＰ１１：ＣＡＬＬ ＸＰ１８
そしてＸＰ１８でＨＬとＤＥを比較した結果キャリーフラグが立っていたらそのままリターンします。
０３３６ ＲＣ
ＸＰ１８ではＨＬ＜ＤＥのときにキャリーフラグが立ちます（前回参照）。
その状態は’＞＝’の関係ではありませんから「偽」（ＦＡＬＳＥ）です。
比較演算の結果「偽」だったときはＨＬ＝００００にします。
前回の最後のところでＸＰ１８：ではリターン前にＨＬに００００を入れると書きました。
ＸＰ１８ではメインプログラムでのプログラム処理を短くするために、あらかじめ「偽」のときのＨＬの値（＝０）をセットしてリターンします。
ですから「偽」のときには何もしないでそのままリターンすることになります。
それでは逆に「真」（ＴＲＵＥ）だったときはどうするのでしょうか？
そのときは
０３３７ ＭＯＶ Ｌ，Ａ
０３３８ ＲＥＴ
が実行されます。
なんとも見事なものです。
「真」のときはＨＬ＝０００１にします。
ＸＰ１８からリターンしたときには、ＨＬ＝００００、Ａ＝０１になっています。
それで「偽」だったときはそのまま（ＨＬ＝００００のまま）リターンするのですが、「真」だったときはＬにＡを入れてＨＬ＝０００１にしてからリターンするのです。
それでは次の’＃”はどうでしょうか。
関係演算子が’＃’のときにはＸＰ１２（アドレス０３３９）が実行されます。
ＸＰ１８でＨＬとＤＥを比較した結果Ｚフラグが立っていたらそのままリターンします。
ＸＰ１８ではＨＬ＝ＤＥのときにＺフラグが立ちます（前回参照）。
その状態は’＃’（ｎｏｔ ｅｑｕａｌ）の関係ではありませんから「偽」（ＦＡＬＳＥ）です。
比較演算の結果「偽」だったときはＨＬ＝００００にします。
ＸＰ１８ではＨＬに００００を入れてリターンします。
ですから「偽」ならそのままリターンします（アドレス０３３Ｃ ＲＺ）。
逆に「真」のときは
０３３Ｄ ＭＯＶ Ｌ，Ａ
０３３Ｅ ＲＥＴ
が実行されます。
関係演算子が’＞’のときにはＸＰ１３（アドレス０３３Ｆ）が実行されます。
ＸＰ１８でＨＬとＤＥを比較した結果Ｚフラグが立っていたらそのままリターンします。
ＸＰ１８ではＨＬ＝ＤＥのときにＺフラグが立ちます（前回参照）。
その状態は’＞’の関係ではありませんから「偽」（ＦＡＬＳＥ）です。
比較演算の結果「偽」だったときはＨＬ＝００００にします。
ＸＰ１８ではＨＬに００００を入れてリターンします。
ですから「偽」ならそのままリターンします（アドレス０３４２ ＲＺ）。
その次の
０３４３ ＲＣ
もそのままでリターンします。
ＸＰ１８ではＨＬ＜ＤＥのときにキャリーフラグが立ちます（前回参照）。
その状態は’＞’の関係ではありませんから「偽」（ＦＡＬＳＥ）です。
ですからそのままリターンします
逆に「真」のときは（上記以外のときは）
０３４４ ＭＯＶ Ｌ，Ａ
０３４５ ＲＥＴ
が実行されます。
関係演算子が’＝’のときにはＸＰ１５（アドレス０３４Ｅ）が実行されます。
ＸＰ１８でＨＬとＤＥを比較した結果Ｚフラグが立っていなかったらそのままリターンします。
ＸＰ１８ではＨＬ＝ＤＥのときにＺフラグが立ちます（前回参照）。
Ｚフラグが立っていなかったらその状態は’＝’の関係ではありませんから「偽」（ＦＡＬＳＥ）です。
比較演算の結果「偽」だったときはＨＬ＝００００にします。
ＸＰ１８ではＨＬに００００を入れてリターンします。
ですから「偽」ならそのままリターンします（アドレス０３５１ ＲＮＺ）。
逆に「真」のときは
０３５２ ＭＯＶ Ｌ，Ａ
０３５３ ＲＥＴ
が実行されます。
関係演算子が’＜＝’のときにはＸＰ１４（アドレス０３４６）が実行されます。
今度は今までとはＸＰ１８をＣＡＬＬしたあとの処理が異なっています。
先に
０３４９ ＭＯＶ Ｌ，Ａ
を実行します。
そのあとで
０３４Ａ ＲＺ
０３４Ｂ ＲＣ
０３４Ｃ ＭＯＶ Ｌ，Ｈ
０３４Ｄ ＲＥＴ
を実行します。
先にＭＯＶ Ｌ，Ａを実行しますから今までの処理とは逆に先にＨＬ＝０００１になります。
そして ＸＰ１８でＨＬとＤＥを比較した結果Ｚフラグが立っていたらそのままリターンします。
ＸＰ１８ではＨＬ＝ＤＥのときにＺフラグが立ちます（前回参照）。
その状態は’＜＝’の関係ですから「真」（ＴＲＵＥ）です。
比較演算の結果「真」だったときはＨＬ＝０００１にします。
ですから「真」ならそのままリターンします（アドレス０３４Ａ ＲＺ）。
その次の
０３４Ｂ ＲＣ
もそのままでリターンします。
ＸＰ１８ではＨＬ＜ＤＥのときにキャリーフラグが立ちます（前回参照）。
その状態も’＜＝’の関係ですから「真」（ＴＲＵＥ）です。
ですからそのままリターンします
逆に「偽」のときは（上記以外のときは）
０３４Ｃ ＭＯＶ Ｌ，Ｈ
を実行してＨＬ＝００００にしてから
０３４Ｄ ＲＥＴ
が実行されます。
関係演算子が’＜’のときにはＸＰ１６（アドレス０３５４）が実行されます。
ＸＰ１８ではＨＬ＜ＤＥのときにキャリーフラグが立ちます（前回参照）。
キャリーフラグが立っていなかったらＨＬ＞ＤＥまたはＨＬ＝ＤＥですから、その状態は’＜’の関係ではありません。
つまり「偽」（ＦＡＬＳＥ）です。
ですからそのままリターンします
０３５７ ＲＮＣ
です。
逆に「真」のときは（ＨＬ＞ＤＥのときは）
０３５８ ＭＯＶ Ｌ，Ａ
０３５９ ＲＥＴ
が実行されます。
復活！ＴＩＮＹ ＢＡＳＩＣ［第７０回］
２０２０．８．２０ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る