２０１２．６．５
前へ
次へ
ホームページトップへ戻る

復活！ＣＰ／Ｍ　ワンボードマイコンでＣＰ／Ｍを！
ＣＰ／ＭがＴＫ－８０互換のワンボードマイコンの上で復活します
ＮＤ８０ＺⅢとＭＹＣＰＵ８０の上でＣＰ／Ｍが走ります！

［第１４１回］


●ファンクションコール１８Ｈ（ログインベクトルの取り出し）、１９Ｈ（ログインディスク№の取り出し）

ファンクションコール１８Ｈと１９Ｈについては［第９０回］でテストをしました。
そこでも書きましたようにログインディスクというのは、今では耳慣れない言葉になってしまいました。
今でしたらカレントドライブ、カレントディスクと言ったほうがわかりやすいと思います。

ＣＰ／Ｍ２．２では最大１６台のディスクを接続することができました。
ディスクドライブはＡ～Ｐの名前をつけて識別します。
そしてそのＡドライブ～Ｐドライブをビット０～ビット１５までの各ビットに順に割り当てた１６ビットの値がログインベクトルです。

あるドライブに１回でもアクセスすると、ログインベクトルの、そのドライブに対応するビットが１になります。
これはドライブがフロッピーディスクであった場合には必要な機能だったかもしれませんが、ＲＡＭディスクではおそらく不要だと思います。
ですからこの機能はなくてもいい、とも思ったのですが。

まあ。しかし。
ひょっとするとアプリケーションが参照していたりして。
ですから、互換性維持のために。
面倒くさいのですけれど、作ることにいたしました。

あ。
ファンクションコール１９Ｈ（ログインディスク№の取り出し）は、簡単そのものです。
要するにカレントドライブ№をゲットすればよいだけですから、何の問題もありません。

両ファンクションコールのテストプログラムは、［第９０回］でＦＴＳＴ１０－５を作って、それでテストをしました。
今回も同じテストをしてみます。

テストの過程を画像に撮れませんでしたので、ログファイルで説明をいたします。

logfile nd80zlog\05310853.txt open

ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
>jp d233

A>dir
A: FTST10-2 COM : SEARCH   COM : CMP      COM : FTST9    COM
A: FTST7    COM : FTST8    COM : FTEST2   COM : FTST10-5 COM
A: FTEST4   COM : COPY     COM : FNC0BT2  COM
A>ftst10-5
drvno.?0
0001
00
FTST10-2.COM
SEARCH.COM
CMP.COM
FTST9.COM
FTST7.COM
FTST8.COM
FTEST2.COM
FTST10-5.COM
FTEST4.COM
COPY.COM
FNC0BT2.COM
end
drvno.?b
0003
01
FNC0BT2.COM
FNC0BT1.COM
FNC0BT.COM
FNC06T2.COM
FNC0304T.COM
end
drvno.?a
0003
00
FTST10-2.COM
SEARCH.COM
CMP.COM
FTST9.COM
FTST7.COM
FTST8.COM
FTEST2.COM
FTST10-5.COM
FTEST4.COM
COPY.COM
FNC0BT2.COM
end
drvno.?
A>end of ZBDOS
>0000 00C3 - 
リモート接続を終了しました
logfile closed at Thu May 31 08:55:25 2012

ｆｔｓｔ１０－５［Ｅｎｔｅｒ］
と入力して、
ｄｒｖｎｏ．？
の表示に、最初は’０’を入力し、次に’ｂ’を入力し、最後に’ａ’を入力しました。
表示されたディレクトリの内容は異なっていますが、ログインベクトル、ログインディスク№は、 ［第９０回］でＦＴＳＴ１０－５を実行したときと同じように表示されました。
ここも、クリアということでよろしいでしょう。

●ファンクションコール１ＣＨ（ライトプロテクトセット）、１ＤＨ（Ｒ／Ｏベクトルの取り出し）

ファンクションコール１ＣＨと１ＤＨは［第９１回］でテストをしました。
ファンクションコール１ＣＨはカレントドライブにライトプロテクトをかけてリードオンリーにします。
Ｒ／Ｏベクトルは上で説明しましたログインベクトルと同じ形式の１６ビットの値で、リードオンリーになっているドライブに対応するビットが１になります。

ファンクションコール１ＤＨは、そのＲ／Ｏベクトルの値をＨＬレジスタに入れてリターンします。

［第９１回］ではファンクションコール１ＣＨをテストするＦＴＳＴ１１と、ファンクションコール１ＤＨをテストするＦＴＳＴ１２を作りました。

今回はそのＦＴＳＴ１１とＦＴＳＴ１２を使って、［第９１回］で行なったのと同じテストを行ないました。

下はそのテストを行なったときのログファイルです。

logfile nd80zlog\05311504.txt open

ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
>jp d233

A>dir
A: FTST10-2 COM : SEARCH   COM : FTST11   COM : FTST9    COM
A: FTST7    COM : FTST8    COM : FTST12   COM : FTST10-5 COM
A: FNC0BT2  COM
A>ftst11

A>ftst12
0001

A>save 1 test.txt
err
A>b:
B>a:ftst11

B>a:ftst12
0003

B>save 1 test.txt
err
B>a:ftst12
0003

B>end of ZBDOS
>0000 00C3 - 
リモート接続を終了しました
logfile closed at Thu May 31 15:05:41 2012

もう何回も書いておりますように仮ＲＡＭディスクはサイズがうんと小さいので、すぐにディスクフルになってしまいます。
そこでＦＴＳＴ１１．ＣＯＭとＦＴＳＴ１２．ＣＯＭをセーブするために、いくつかのファイルを削除してから、両ファイルをセーブしました。
このログファイルはそのようにして、両ファイルをセーブしたあとで行なった作業の記録です。

Ａ＞の表示でＦＴＳＴ１１を実行したあとでＦＴＳＴ１２を実行したところ、
０００１
と表示されました。
ＦＴＳＴ１２はＲＯベクトルを読んで１６進４桁で表示します。
ＦＴＳＴ１１の実行によってカレントドライブ（Ａ：）がリードオンリーに設定されましたから、ＲＯベクトルのビット０が１になりました。

そのことを確かめるために適当なファイル名でセーブしてみました。
ｓａｖｅ　１　ｔｅｓｔ．ｔｘｔ［Ｅｎｔｅｒ］の実行です。
すると　ｅｒｒ　が表示されました。
なにしろ超特急でプログラムを書いていますから、まだエラーメッセージは整理していません。
ですから、ただ　ｅｒｒ　としか表示されませんが、これはＡドライブが「書き込み禁止」のため、ファイルがセーブできなかったことを示しています。

なおＣＰ／Ｍ２．２では、こういう場合にはエラーメッセージを表示したあと、そこでポーズします。
これはフロッピーディスクを交換するなどの作業を想定しているためと思われます。
そのあとで何かキーを入力すると、システムがリブートします。
しかしＲＡＭディスクのシステムではそのような動作は余り意味がありません。

そこでＣＰ／Ｍ互換ＤＯＳでは、ｅｒｒ表示後リブートは行なわず、そのままシステムに戻るようにしてあります。
上のログファイルの最後のほうで、Ｂ＞の表示でも　ｓａｖｅ1ｔｅｓｔ．ｔｘｔ［Ｅｎｔｅｒ］を実行していて、そこでも　ｅｒｒ　が表示されていますが、そのあともＢ＞が表示され、またそのあとで再度実行したＦＴＳＴ１２でも、０００３と表示されていることで、リブートが行なわれていないことがわかると思います。
リブートが行なわれると全てのディスクのライトプロテクトは解除され、カレントドライブはＡドライブになります。

今回のテストによって、ＡドライブとＢドライブがリードオンリーに設定され、読み出したＲＯベクトルのビット０とビット１が１になった（＝０００３）ことから、ファンクションコール１８Ｈと１９Ｈが正しく機能していることが確認できました。

ワンボードマイコンでＣＰ／Ｍを！［第１４１回］
２０１２．６．５ｕｐｌｏａｄ

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