ＭＹＣＰＵ８０でＣＰ／Ｍを！
超巨大基板の８０８０互換ＨＣＭＯＳ・ＣＰＵでＣＰ／Ｍを走らせてしまおうという、なんとも狂気なプロジェクトです！


［第１００回］


●ファンクション０〜ファンクション２

ファンクション０１とファンクション０２については前回テストしましたが、以前にＮＤ８０Ｚ３．５（ＮＤ８０Ｚ�V）用のＺＢ３ＤＯＳ（ＣＰ／Ｍ互換ＤＯＳ）のテストを行なったときには別のプログラムでもテストをしています。
前回のテストはファンクション０１が中心でしたが、今回のテストではファンクション０２がメインです。
今回のテストではファンクション０のテストも行ないます。
ファンクション０はシステムリセット（リブート）です。

今回のテストプログラムはＶＦＴＳＴ０−２です。
ＶＦＴＳＴ０−２は「ワンボードマイコンでＣＰ／Ｍを！」［第３９１回］でテストをしています。

●テストプログラムＶＦＴＳＴ０−２

下はＶＦＴＳＴ０−２のアセンブルリストです。

2013/5/5 9:32 vftst0-2.txt END=013C ;;FUNCTION 0,1,2 TEST ;2013/5/4 5/5 ; ORG $0100 FCALL=$0005 ; 0100 0E02 START:LD C,02 0102 1E2A LD E,2A;'*' 0104 CD0500 CALL FCALL 0107 0E01 LD C,01 0109 CD0500 CALL FCALL 010C 323C01 LD (BUFF),A 010F FE12 CP 12;^R 0111 CA3701 JP Z,RESET 0114 0E02 LD C,02 0116 1E3A LD E,3A;':' 0118 CD0500 CALL FCALL 011B 0600 LD B,00 011D 3A3C01 LOOP:LD A,(BUFF) 0120 0E02 LD C,02 0122 5F LD E,A 0123 CD0500 CALL FCALL 0126 05 DEC B 0127 C21D01 JP NZ,LOOP 012A 1E0D LD E,0D 012C CD0500 CALL FCALL 012F 1E0A LD E,0A 0131 CD0500 CALL FCALL 0134 C30001 JP START ; 0137 0E00 RESET:LD C,00 0139 CD0500 CALL FCALL ; 013C 00 BUFF:NOP ; BUFF =013C FCALL =0005 LOOP =011D RESET =0137 START =0100

ＶＦＴＳＴ０−２の動作は「ワンボードマイコンでＣＰ／Ｍを！」［第３９１回］で説明していますが、説明不足のところもありますので、あらためて説明をします。

プログラムをスタートすると　＊　を表示して入力待ちになります。
このとき［Ｃｔｒｌ］＋［Ｒ］を入力する（［Ｃｔｒｌ］キーと［Ｒ］キーを同時に押す）とプログラムが打ち切られてリブートします。
入力にはファンクション０１がコールされていますが［Ｃｔｒｌ］＋［Ｒ］でリブートするのはファンクション０１の機能ではなくてプログラムがそのように書かれているからです。
［Ｃｔｒｌ］＋［Ｒ］（コード１２）を検出するとＲＥＳＥＴ：にジャンプします。
ＲＥＳＥＴ：ではファンクション０がコールされます。
ＣＡＬＬ　ＦＣＡＬＬの後ろにはリターン後のプログラムの続きは書いてありませんが、ファンクション０の実行によって以後のプログラムの実行は打ち切られてシステムがリブートしますので、何も書いておく必要はありません。

［Ｃｔｒｌ］＋［Ｒ］以外の何かのキーを押すと　：　に続いてその文字が２５６個表示されたあと、ふたたび最初に戻って　＊　が表示されます。
文字の表示はファンクション０２によって行なわれますが、表示中にキーボードから［Ｃｔｒｌ］＋［Ｐ］を入力すると、表示がそこで停止して入力待ちになります。
表示停止中に［Ｃｔｒｌ］＋［Ｑ］を入力すると、表示が再開されます。
表示停止中に［Ｃｔｒｌ］＋［Ｃ］を入力すると、プログラムの実行が打ち切られてコマンド入力待ちの状態に戻ります。

●［Ｃｔｒｌ］＋［Ｒ］（ファンクション０）と［Ｃｔｒｌ］＋［Ｐ］、［Ｃｔｒｌ］＋［Ｑ］、［Ｃｔｒｌ］＋［Ｃ］（ファンクション０２）のテスト

まずは［Ｃｔｒｌ］＋［Ｒ］（ファンクション０）と［Ｃｔｒｌ］＋［Ｐ］、［Ｃｔｒｌ］＋［Ｑ］、［Ｃｔｒｌ］＋［Ｃ］のテストを行ないました。
下がそのときの画像です。



画面からだけではちょっとわかりにくいですが、画面中ほどで最初のＶＦＴＳＴ０−２［Ｅｎｔｅｒ］を入力し、ＶＦＴＳＴ０−２がスタートして＊が表示されています。
ここで［Ｃｔｒｌ］＋［Ｒ］を入力しました。
画面には表示されませんがＭＹＣＰＵ８０本体のＬＥＤがしばらく激しく点滅してシステムプログラムがリロードされる様子が見えました。
リロードが完了すると
Ｚ＞
と表示されて入力待ちになりました。
ここでもう一度ＶＦＴＳＴ０−２［Ｅｎｔｅｒ］を入力しました。
今度は　ａ　を入力しましたので、a　が連続して表示されています。
途中で［Ｃｔｒｌ］＋［Ｐ］を入力して表示を停止させたあと［Ｃｔｒｌ］＋［Ｑ］を入力すると表示が再開されましたが、上の画像ではそのことは確認できません（そういう動作をするということで、ご納得くださいませ）。
２行目の表示の途中で［Ｃｔｒｌ］＋［Ｐ］を入力して表示を停止させたあと［Ｃｔｒｌ］＋［Ｃ］を入力しました。
今度はシステムのリロードは行なわれないでＶＦＴＳＴ０−２の実行が中止されて
Ｚ＞
と表示されて入力待ちになりました。

オリジナルのＣＰ／Ｍではファンクション０２の実行中に［Ｃｔｒｌ］＋［Ｓ］の入力で表示が一時停止します。
「ワンボードマイコンでＣＰ／Ｍを！」［第３９１回］でも「ファンクション０２を実行してコンソール出力（画面表示）を行なっているときに、［Ｃｔｒｌ］＋［Ｓ］を入力すると表示を一時停止します」と書いています。
しかしその後にさらにシステムプログラムの実装を進めていく過程で［Ｃｔｒｌ］＋［Ｓ］では都合が悪いことがわかりましたので、代わりに［Ｃｔｒｌ］＋［Ｐ］を使うようにシステムプログラムを変更しました（「ワンボードマイコンでＣＰ／Ｍを！」［第４００回］参照）。

「ワンボードマイコンでＣＰ／Ｍを！」［第３９１回］では「ファンクション０２を実行してコンソール出力（画面表示）を行なっているときに、［Ｃｔｒｌ］＋［Ｓ］の入力（現在のシステムでは［Ｃｔｒｌ］＋［Ｐ］の入力）で表示を一時停止させたあと、［Ｃｔｒｌ］＋［Ｂ］を入力するとプログラムの実行が中止されてシステムに戻ります」と書いています。
しかしやっぱり［Ｃｔｒｌ］＋［Ｂ］ではＣＰ／Ｍ互換という観点からはしっくりしないと考えましたので、ＺＢ３ＤＯＳ（ＣＰ／Ｍ互換ＤＯＳ）の正規リリース時点で、［Ｃｔｒｌ］＋［Ｃ］でプログラムを中止してシステムに戻るようにシステムを変更しました。

●そのほかの特殊コードの表示

ファンクション０２はＥレジスタに通常の表示文字コードの代わりに０８，０９，０Ａ，０Ｄを入れてコールするとそれぞれ次の動作をします。
Ｅ＝０８　カーソルが１字分前に戻る（［ＢａｃｋＳｐａｃｅ］の動作）
Ｅ＝０９　カーソルがタブ位置に移動する（［Ｔａｂ］の動作）
Ｅ＝０Ａ　カーソルが行の先頭に戻るとともに１行改行する（ＣＲ＆ＬＦの動作。オリジナルのＣＰ／ＭではＬＦの動作）
Ｅ＝０Ｄ　カーソルが行の先頭に戻る（ＣＲの動作。改行はされない）

以上の動作を確認するためにＶＦＴＳＴ０−２で試してみたのですが入力文字コードが連続して表示されるために今回の目的には不向きでした。
そこで新しくテストプログラム（ＭＦ０２ＴＳＴ）を作って実行しました。

●テストプログラムＭＦ０２ＴＳＴ

下はＭＦ０２ＴＳＴのアセンブルリストです。
今回はＭＹＣＰＵ８０でテストしますから８０８０ニーモニックで書いてからＡＳＭ８０でアセンブルしました。

2015/1/13 14:54 mf02tst.txt END=0144 ;;;FUNCTION02 TEST from VFTST1 ;;; 15/1/13 ; ORG $0100 FCALL=$0005 ; 0100 3E00 MVI A,00 0102 F5 LOOP:PUSH PSW 0103 57 MOV D,A 0104 CD3B01 CALL HEX1 0107 5F MOV E,A 0108 7A MOV A,D 0109 0F RRC 010A 0F RRC 010B 0F RRC 010C 0F RRC 010D CD3B01 CALL HEX1 0110 D5 PUSH D 0111 5F MOV E,A 0112 0E02 MVI C,02 0114 CD0500 CALL FCALL 0117 D1 POP D 0118 0E02 MVI C,02 011A CD0500 CALL FCALL 011D 1E3A MVI E,3A;':' 011F 0E02 MVI C,02 0121 CD0500 CALL FCALL 0124 F1 POP PSW 0125 5F MOV E,A 0126 F5 PUSH PSW 0127 0E02 MVI C,02 0129 CD0500 CALL FCALL 012C 1E2C MVI E,2C 012E 0E02 MVI C,02 0130 CD0500 CALL FCALL 0133 F1 POP PSW 0134 3C INR A 0135 FE20 CPI 20 0137 C20201 JNZ LOOP 013A C9 RET 013B E60F HEX1:ANI 0F 013D C630 ADI 30 013F FE3A CPI 3A 0141 D8 RC;0-9 0142 C607 ADI 07;A-F 0144 C9 RET ; FCALL =0005 HEX1 =013B LOOP =0102

入力するコードは００から１Ｆまでです。
最初にＡレジスタに００を入れてスタートします。
Ａレジスタの値を１６進数で表示してから　：　を表示します（このときもファンクション０２をコールします）。
そのあと、Ａレジスタの値をＥレジスタに入れてファンクション０２をコールします。
最後に　，　を表示してからＡレジスタを＋１します。
Ａレジスタの値が２０になったら処理を終了します。

下はＭＦ０２ＴＳＴを実行したときの画面です。



００〜０７までは（Ｅレジスタに入れてファンクション０２をコールしても）何も表示されません。
０８では　：　が　，　で上書きされています。
［ＢａｃｋＳｐａｃｅ］の動作です。
０９では　：　と　，　の間が空いています。
［Ｔａｂ］の動作です。
０Ａでは改行が行なわれました。
が…。
これはまずいですね。
そのあとの０Ｂ、０Ｃ、０Ｄの結果が消されてしまっています。
おそらく０Ｄの実行によってカーソルが行の先頭に戻ったためだと思いますが、これではそこのところは推測するしかありません。
そのあとのコード０Ｅから１Ａまでは何も表示されていません。
ちなみにコード１Ａは［Ｃｔｒｌ］＋［Ｚ］です。
そのあとの１Ｂ〜１Ｆでは記号が表示されていますがこれはファンクション０２の機能ではなくてＷｉｎｄｏｗｓでの表示によるものです。

上のテストではコード０Ｄによって表示が上書きされてしまいましたので、ＭＦ０２ＴＳＴを少し書き換えてテストをしてみました。
ＭＦ０２ＴＳＴを書き換えて作ったプログラムはＭＦ０２ＴＳＴ２です。

●テストプログラムＭＦ０２ＴＳＴ２

下はＭＦ０２ＴＳＴ２のアセンブルリストです。

2015/1/13 15:54 mf02tst2.txt END=014B ;;;FUNCTION02 TEST /2 ;;; 15/1/13 ; ORG $0100 FCALL=$0005 ; 0100 3E08 MVI A,08 0102 F5 LOOP:PUSH PSW 0103 57 MOV D,A 0104 CD4201 CALL HEX1 0107 5F MOV E,A 0108 7A MOV A,D 0109 0F RRC 010A 0F RRC 010B 0F RRC 010C 0F RRC 010D CD4201 CALL HEX1 0110 D5 PUSH D 0111 5F MOV E,A 0112 0E02 MVI C,02 0114 CD0500 CALL FCALL 0117 D1 POP D 0118 0E02 MVI C,02 011A CD0500 CALL FCALL 011D 1E3A MVI E,3A;':' 011F 0E02 MVI C,02 0121 CD0500 CALL FCALL 0124 F1 POP PSW 0125 5F MOV E,A 0126 F5 PUSH PSW 0127 0E02 MVI C,02 0129 CD0500 CALL FCALL 012C 1E2C MVI E,2C 012E 0E02 MVI C,02 0130 CD0500 CALL FCALL 0133 1E0A MVI E,0A 0135 0E02 MVI C,02 0137 CD0500 CALL FCALL 013A F1 POP PSW 013B 3C INR A 013C FE0E CPI 0E 013E C20201 JNZ LOOP 0141 C9 RET 0142 E60F HEX1:ANI 0F 0144 C630 ADI 30 0146 FE3A CPI 3A 0148 D8 RC;0-9 0149 C607 ADI 07;A-F 014B C9 RET ; FCALL =0005 HEX1 =0142 LOOP =0102

今回は０８から０Ｄまでのテストです。
，　を表示したあと改行するように変更しました。
下はＭＦ０２ＴＳＴ２を実行したときの画面です。



０Ｂ、０Ｃでは何も表示されません。
０Ｄでは　０　が　，　で上書きされています。
カーソルが行の先頭に戻ったことがわかります。

ＭＹＣＰＵ８０でＣＰ／Ｍを！［第１００回］
２０１５．１．１３ｕｐｌｏａｄ

前へ
次へ
ホームページトップへ戻る