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

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

［第９２回］


●ファンクションコール０ＤＨ（ディスクリセット）

ファンクションコール０ＤＨは接続されている全てのディスクドライブを初期状態にします。
前回はファンクションコール１ＣＨを使ってカレントドライブにライトプロテクトをかけてリードオンリーにしました。
ファンクションコール０ＤＨは全てのドライブのライトプロテクトを解除します。

ファンクションコール０ＤＨのテストプログラムＦＴＳＴ１３．ＴＸＴのソースリストです。

; BDOS TEST13 function0D (disk reset )
;2012/4/10
;
     	ORG $8100
     	FCALL=$8005
;
	LD C,0D
	CALL FCALL
	RET
;

今回もとても簡単なプログラムです。
Ｃレジスタに０ＤＨを入れて、システムをコールするだけです。

ＦＴＳＴ１３．ＴＸＴをＺＡＳＭ．ＣＯＭでアセンブルします。
下はアセンブルの結果作成されたアセンブルリストです。 

2012/4/11  23:2  ftst13.txt
END=8105
              ; BDOS TEST13 function0D (disk reset )
              ;2012/4/10
              ;
                   	ORG $8100
                   	FCALL=$8005
              ;
8100 0E0D     	LD C,0D
8102 CD0580   	CALL FCALL
8105 C9       	RET
              ;
FCALL        =8005


●ＦＴＳＴ１３．ＣＯＭのセーブ

いつものようにログファイルで説明をいたします。
ＺＢ３ＢＡＳＩＣにエントリして、
／ＬＤ　ＦＴＳＴ１３．ＢＩＮ，８１００［Ｅｎｔｅｒ］
を実行します。
そのあと
ＪＰ　Ｄ２３３［Ｅｎｔｅｒ］
でＣＰ／Ｍを起動し、
ｓａｖｅ　１　ｆｔｓｔ１３．ｃｏｍ［Ｅｎｔｅｒ］
と入力し、ＦＴＳＴ１３．ＣＯＭというファイル名でＡドライブにセーブしました。
そのあとＤＩＲコマンドを実行して、ＦＴＳＴ１３．ＣＯＭがセーブされたことを確認しました。

logfile nd80zlog\04112303.txt open

ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
>/ld ftst13.bin,8100
loading FTST13.BIN ...0006(6)bytes loaded,from 8100 to 8105
>jp d233

a>save 1 ftst13.com
a>dir
A: FNC0E-1  COM : FTST10   COM : FTST10-2 COM : FTST10-4 COM
A: FTST10-5 COM : FTST11   COM : FTST12   COM : FTST13   COM
a>

●ＦＴＳＴ１３．ＣＯＭの実行

ファンクションコール０ＤＨの働きを確認するために、ドライブにライトプロテクトをかけます。
それからファンクションコール０ＤＨを実行して、その後、ライトプロテクトが解除されたかどうかを確認します。

a>ftst12
0000

a>ftst11

a>ftst12
0001

a>b:
b>a:ftst11

b>a:ftst12
0003

b>a:ftst13

b>a:ftst12
0000

b>^D
end of CP/M
>0000 00C3 - 
リモート接続を終了しました
logfile closed at Wed Apr 11 23:06:30 2012

最初に、前回作成したＦＴＳＴ１２を実行しました。
リードオンリーになっているドライブはありませんから、Ｒ／Ｏベクトルは００００と表示されました。
次にＦＴＳＴ１１を実行してから、もう一度ＦＴＳＴ１２を実行しました。
今度はカレントドライブ（Ａドライブ）がリードオンリーになりましたから、Ｒ／Ｏベクトルは０００１と表示されました。

次に
ａ＞ｂ：［Ｅｎｔｅｒ］
と入力して、カレントドライブをＢドライブにしました。
それから、
ａ：ｆｔｓｔ１１［Ｅｎｔｅｒ］
と入力してＦＴＳＴ１１．ＣＯＭを実行し、次に
ａ：ｆｔｓｔ１２［Ｅｎｔｅｒ］
と入力してＦＴＳＴ１２．ＣＯＭを実行しました。
Ａドライブに加えてカレントドライブ（Ｂドライブ）もリードオンリーになりましたから、Ｒ／Ｏベクトルは０００３と表示されました。

いよいよＦＴＳＴ１３．ＣＯＭの実行です。
カレントドライブがＢドライブのまま実行しました。

ａ：ｆｔｓｔ１３［Ｅｎｔｅｒ］
と入力してＦＴＳＴ１３．ＣＯＭを実行し、次に
ａ：ｆｔｓｔ１２［Ｅｎｔｅｒ］
と入力してＦＴＳＴ１２．ＣＯＭを実行しました。
ＦＴＳＴ１３のファンクションコール０ＤＨの実行によって、全てのディスクドライブが初期状態に戻りましたから、Ｒ／Ｏベクトルは００００と表示されました。

ファンクションコール０Ｄを実行してもカレントドライブは変更されません。
今回はＢドライブで実行しましたが、ＦＴＳＴ１３．ＣＯＭの実行後も、カレントドライブはＢドライブのままになっています。
ファンクションコール０ＤＨは、ドライブのライトプロテクトを解除して初期状態にするだけで、ディレクトリをクリアしたりディスクをクリアするなど、ディスクにセーブされている内容は一切変化しません。

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

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