ＣＰ／ＭがＴＫ－８０互換のワンボードマイコンの上で復活します
ＮＤ８０ＺⅢとＭＹＣＰＵ８０の上でＣＰ／Ｍが走ります！
［第７６回］
●ＣＰ／Ｍの変更作業
今回は、Ｃｔｒｌ－Ｓ、Ｃｔｒｌ－Ｄの処理が正しく行なえるように、プログラムを変更する作業について説明をいたします。
まずは、もう一度あらためてＣＫＣＯＮＳＯＬを見てみることにします。
あらためて見てみますと、なんとも奇妙なプログラムです。
普通はこんなプログラムは書きません。
これは実行不能です。
ですから、あんなおかしなことになってしまったのでした。
１３７９のＣＡＬＬ ＣＯＮＳＴで、コンソール入力があったことを確認したあと、１３８３のＣＡＬＬ ＣＯＮＩＮを実行しています。
しかしこのときに入力されるキー入力コードが、ＣＯＮＳＴでチェックされたキー入力と同じである保証はありません。
事実、ここにはＣｔｒｌ－Ｄが入ってしまいました。
さらに言うならば、１３８３と１３８７の２回ＣＡＬＬ ＣＯＮＩＮを連続して実行していますが、これは実に危ういプログラムです。
ちょいとキー入力のタイミングが変わっただけで、正しく認識してくれなくなります。
これは言うなれば、綱渡り的なプログラムです。
そのように解析できましたので、私はここを書き換えてしまうことにしました。
で。
最初はそのように直して、期待通りの動作になることも確認したのですが。
まてよ？
もう一度考え直すことにしました。
このプログラムは、ＣＯＮＳＴでコンソール入力を確認したときに、コンソール側でそのときに入力された文字コードがラッチされていることを期待しているのではないか？
と考えたからです。
それなら、その次にＣＯＮＩＮを実行すれば、コンソールにラッチされた入力文字を読み込むことができます。
ＺＢ３ＢＡＳＩＣのＩＮＫＥＹ＄もそのように考えて、キー入力を確認すると同時に、その入力されたキー入力コードを読み込みます。
これはコンソール側にそのような応答をする仕組みが必要になりますが、おそらくそういう仕掛けになっていたのではないでしょうか？
そして一旦キーが離されて、再度押されたときにそれが次の１３８７行のＣＡＬＬ ＣＯＮＩＮの入力になる、と考えれば、綱渡りではなくなります。
それならＢＩＯＳを工夫すれば、そのようにできそうです。
そのように考えましたから、ＣＫＣＯＮＳＯＬルーチンはそのままにしておいて、ＢＩＯＳを変更することにしました。
●ＢＩＯＳを変更します
ファンクションコール０ＢＨの動作確認のために、ＣＰ／Ｍソースはあちこちを書き換えてしまいましたが、動作確認はできましたので、それは全部さわらなかったことにします。
ですから、［第７１回］で作成したＣＰＭ２２Ｉ．ＴＸＴに対してＢＩＯＳの変更をすることにします。
おや？
［第７１回］では、ＢＩＯＳのＣＯＮＳＴ（コンソールステータスチェック）を直したのでしたね。
それを再度変更することになります。
それからＲＳ２３２Ｃについての追加も行ないます。
１）システムサブルーチンとワーク変数のアドレスを定義します
ＲＳ２３２Ｃ入力と出力を行なうシステムサブルーチンのアドレスを定義します。
それとコンソールステータスチェック時の入力文字を一時的にラッチしておくためのワークアドレスを追加します。
左が変更前のＣＰＭ２２Ｉ．ＴＸＴです。
それを右のように変更します。
①ＳＩＮ ＥＱＵ １０ＡＥＨの下に次の２行を追加します。
ＲＳＯＵＴ ＥＱＵ ０６７ＣＨ
ＲＳＩＮ ＥＱＵ ０７８ＤＨ
②ＤＲＶＮＯ ＥＱＵ ０ＢＢ０６Ｈの下に次の行を追加します。
ＣＯＮＳＴＤＴ ＥＱＵ ０ＢＢ０７Ｈ
２）ワークアドレスの初期クリアを追加します
上で定義したＣＯＮＳＴＤＴの初期クリアを追加します。
ＪＰ ＣＢＡＳＥの前に次の行を追加します。
ＬＤ （ＣＯＮＳＴＤＴ），Ａ
３）ＣＯＮＳＴとＣＯＮＩＮを変更します
ＣＯＮＳＴに入力文字コードをＣＯＮＳＴＤＴに保存する部分と、ＣＯＮＩＮにそのＣＯＮＳＴＤＴを参照する部分を追加します。
①ＣＯＮＳＴＪ２：ＯＲ ０１を次のように変更します。
ＣＯＮＳＴＪ２：ＬＤ （ＣＯＮＳＴＤＴ），Ａ
ＯＲ ０１
②ＣＯＮＩＮＪ：ＬＤ Ａ，５を次のように変更します。
