テストそのものはマシン語プログラムだけでもできますが、途中の時間経過とか繰り返し回数の表示とかというものも行ないたいということになりますと、その部分はＢＡＳＩＣが圧倒的に便利です。
ですのでメインルーチンはＢＡＳＩＣで書くことにして、マシン語プログラムはそのサブルーチンとしてＢＡＳＩＣプログラムからＣＡＬＬするようにしました。
プログラムの簡単な説明です。
８０００Ｈ～８００９Ｈではリフレッシュの禁止とメモリアクセスのウェイトクロック数を０、Ｉ／Ｏアクセスのウェイトクロック数を１にしています（［第３１５回］参照）。
ここに置くとＢＡＳＩＣからＣＡＬＬされるたびに毎回設定をすることになりますが、そのようにしても問題はありませんから、設定部分を分けて別の処理プログラムにするわずらわしさを避けるため、このようにしました。
８００ＡＨ～８０１３Ｈでは８２Ｃ５５Ａ－２の全ポートの向きを出力に設定しています。
この部分についても上記と同じで毎回設定を行なう必要はありませんが、プログラム処理を簡略にするために、このようにしました。
Ｅ－８０（仮称）ミニコンには８２Ｃ５５Ａ－２が５個搭載されています。
そのうちアドレスＦ８Ｈ～ＦＢＨの１個はシステムで使います。
残りの４個（アドレスＥ０Ｈ～Ｅ３Ｈ、Ｅ４Ｈ～Ｅ７Ｈ、Ｅ８Ｈ～ＥＢＨ、ＥＣＨ～ＥＦＨ）はユーザー用に開放されています。
８０１４Ｈ～８０１７Ｈではカウンタ用のレジスタＤ，Ｅ，Ｈ，Ｌをクリアします。
８０１８Ｈ～８０２ＡＨで、Ｅレジスタの値を３つの８２Ｃ５５（Ｅ０Ｈ～Ｅ３Ｈ、Ｅ４Ｈ～Ｅ７Ｈ、Ｅ８Ｈ～ＥＢＨ）のＡポート～Ｃポートに順に出力します。
次に８０２ＢＨ～８０５７Ｈで、今出力をし終わった各ポートから値を読み込みます。
８２Ｃ５５では出力に設定されているポートに対して入力を行なうと、出力ポートにラッチされている値がそのまま読み込まれます。
当然このときはＩＮ命令を実行しますから、ポートが入力に設定されているときと同じ動作になります。
ですので出力に設定されていても、そのままで入力動作のテストも行なえるのです。
読み込んだ値をＥレジスタと比較します。
不一致ならエラー処理（ＩＮＥＲＲ、８０６９Ｈ）にジャンプします。
８０６９Ｈのエラー処理では、ＤＥレジスタの値をＦ４４０Ｈ、Ｆ４４１Ｈに、ＨＬレジスタの値をＦ４４２Ｈ、Ｆ４４３Ｈに書き込んでメインルーチン（ＢＡＳＩＣプログラム）にリターンします。
Ｆ４４０Ｈ、Ｆ４４１ＨはＢＡＳＩＣの整数変数Ａ％の、Ｆ４４２Ｈ、Ｆ４４３Ｈは整数変数Ｂ％のアドレスです。
このようにすることによってＢＡＳＩＣプログラムで、カウンタの値を知ることができます。
全ポートの値を比較して全て一致していたときは、次の８０５８Ｈの処理に移ります。
８０５８ＨではアドレスＥＣＨ～ＥＦＨの８２Ｃ５５Ａ－２のＡポート～Ｃポートに、レジスタＥ、Ｄ、Ｌの値を出力します。
この８２Ｃ５５Ａ－２の出力にＬＥＤを接続して、進行状況を確認することができるようにするためです。
そのあとＤＥレジスタの値を＋１して、もしその値が一巡して００００Ｈになったのでなければ、ＬＯＯＰ（８０１８Ｈ）に戻って処理を繰り返します。
ＤＥレジスタが００００Ｈ～ＦＦＦＦＨまで、６５５３６回同じ処理が繰り返されます。
その間８２Ｃ５５Ａ－２の各ポートには００Ｈ～ＦＦＨの出力が２５６回繰り返し行なわれます。
ＤＥレジスタが一巡して００００ＨになったらＬレジスタを＋１して、その値が００ＨでなければＬＯＯＰ（８０１８Ｈ）に戻って処理を繰り返します。
ここではさらに２５６回繰り返しが行なわれますから、結局８０１８Ｈ～８０６５Ｈの処理が６５５３６×２５６＝１６７７７２１６回繰り返し行なわれることになります。
繰り返しが完了したら、エラーのときと同様にＤＥレジスタとＨＬレジスタの値をＡ％、Ｂ％に格納してＢＡＳＩＣにリターンします。
正常に終了したときはＡ％もＢ％もともに０になりますから（ＨＬ＝００００Ｈ、ＤＥ＝００００Ｈ）、それを調べることでエラーが発生したのか、それとも正常に終了したのかを知ることができます。
処理の第１回目でエラーが発生したときは、ＨＬ＝ＤＥ＝００００Ｈですから正常に終了したときと区別できないじゃないか、と思われるかも知れませんが、最初のところに書きましたようにＢＡＳＩＣプログラムでは時間経過も表示しておりまして、実はこのマシン語プログラムはＣＰＵクロック２０ＭＨｚでも正常に終了してリターンするまでに５分近くかかります。
ですから第１回目でエラーになってリターンしたのか、正常に処理を終了してリターンしたのかは時間の経過を見れば一目瞭然なのです。
さてそれではいよいよＢＡＳＩＣのメインプログラムのご紹介と、実行を開始したときの様子をお見せすることにいたします。
Ｅ－８０（仮称）ミニコンをＷｉｎｄｏｗｓパソコンとＵＳＢで接続して、ＺＢ３ＢＡＳＩＣを起動しています。
最初に／ＬＤコマンドでマシン語プログラムを８０００Ｈからロードしました。
次にＢＡＳＩＣプログラムの作成をします。
最初のＮＥＷ ８１００は、マシン語プログラムをＢＡＳＩＣのＴＥＸＴエリアの先頭部分、８０００Ｈに置きましたから、ＢＡＳＩＣプログラムがその領域を破壊しないようにするために実行しています。
ＮＥＷコマンドはＢＡＳＩＣプログラムを書き始めるアドレスを指定するコマンドで、ＮＥＷ ８１００とすることで、８０００Ｈ～８０ＦＦＨは、ＢＡＳＩＣが使わない領域としてリザーブされます。
ＢＡＳＩＣプログラムはとても簡単ですから、あえて説明をする必要もありませんでしょう。
ＲＵＮ［Ｅｎｔｅｒ］で実行を開始しました。
開始時刻は１６：４０：０７です。
その下の１６：４４：５９は１回目の処理が終ってリターンしてきたことを示しています。
４分５２秒かかっています。
のちほどこの時間とマシン語プログラムの命令クロック数の計算から、ＣＰＵクロックが本当に２０ＭＨｚで動いていることを確認いたします。
こちらはテスト中の様子です。
８２Ｃ５５Ａ－２の出力にＬＥＤを接続してモニタしています。
なにしろマシン語サブルーチンからリターンしてくるまでに５分近くもかかってしまうものですから、万一途中で何かのトラブルが発生してハングアップしたりしたときでも、すぐに分かるようにしておきたい、という考えからこのようにいたしました。
かなり時間が経過しました。
実行を開始してから６時間近くが経過しています。
途中で１回でもエラーが発生すれば、そこで実行は中止されますから、これだけの長い時間エラーなしで８２Ｃ５５Ａ－２へのＲＥＡＤ、ＷＲＩＴＥを繰り返していることになります。
このまま一晩続けておくことにいたしました。
いえ。
私は寝てしまいましたよ。
あとはパソコンとＥ－８０（仮称）ミニコンだけが闇の中でひたすら働いているだけです。
とうとう翌朝になってしまいました。
なんと１６時間が経過して、エラー無しです。
すばらしいじゃじゃありませんか！
この調子だとまだまだ続けていけそうですが、そうすると他の作業ができません。
ひとまずここで実行を終了いたしました。
参考までに。
下はこの間の実行を記録したログファイルです。