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

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

［第１５１回］


●大きなランダムファイルを作る

ここまでがんばって一気に飛ばして片付けてきました。
あ。皆様は１日に１回ずつお読みいただいておりますが、実はこのところテスト作業を一気に進めてきましたので、１２～３回分を３日ほどで片付けてしまいました。
かなりのスピードです。

それで。
ランダムファイルにつきましては、テストの手順もありまして、とりあえず１バイトのレコード№のみを使って、小さなランダムファイルを使ってテストをしてきました。

ところで。
ＣＰ／Ｍ２．２のテストをしておりましたときには、［第１０６回］で、２バイトのレコード№を使って大きなランダムファイルを作成しました。
今回のＣＰ／Ｍ互換ＤＯＳでのテストでは、その作業は後回しにしてここまできました。
相当にホネな作業であることが予測されたからです。

しかし。
今や、とうとう、といいますか、ついに、といいますか、それに取りかかる時が来てしまいました。

なんと大げさな、とお思いかもしれませんが、決して大げさではありませんです。
事実、大変なことなのですよ。
どの位大変なことなのかということを認識していただくためには、［第１０７回］をもう一度じっくりお読みいただくのがよろしいかと思います。
そこでは［第１０６回］で作成した２バイト（１６ビット）のレコード番号をキーにして、それに対応するレコードを書き込んでランダムファイルを作成しました。

ランダムファイルはそれまでにも作成してきましたが、それとどこがどのように異なっているのかにつきましては、ディレクトリに作成されたランダムファイルのＦＣＢを見ていただきますと、一目瞭然、ご納得いただけることと思います。

［第１０７回］でテスト作業を行なったあとの、Ａドライブのディレクトリエリアのメモリダンプです。

a>^D
end of CP/M
>dm 8800,88ff
8800  00 46 54 53 54 32 30 2D-32 43 4F 4D 00 00 00 02  .FTST20-2COM....
8810  01 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
8820  00 54 45 53 54 20 20 20-20 52 41 46 00 00 00 48  .TEST    RAF...H
8830  00 00 00 00 00 00 00 00-05 00 00 00 00 00 00 00  ................
8840  00 54 45 53 54 20 20 20-20 52 41 46 03 00 00 28  .TEST    RAF...(
8850  00 00 00 00 02 00 00 00-00 00 00 00 00 00 00 00  ................
8860  00 54 45 53 54 20 20 20-20 52 41 46 07 00 00 37  .TEST    RAF...7
8870  00 00 00 00 00 00 03 00-00 00 00 00 00 00 00 00  ................
8880  00 54 45 53 54 20 20 20-20 52 41 46 01 00 00 20  .TEST    RAF... 
8890  00 00 00 04 00 00 00 00-00 00 00 00 00 00 00 00  ................
88A0  E5 E5 E5 E5 E5 E5 E5 E5-E5 E5 E5 E5 E5 E5 E5 E5  ................
88B0  E5 E5 E5 E5 E5 E5 E5 E5-E5 E5 E5 E5 E5 E5 E5 E5  ................
88C0  E5 E5 E5 E5 E5 E5 E5 E5-E5 E5 E5 E5 E5 E5 E5 E5  ................
88D0  E5 E5 E5 E5 E5 E5 E5 E5-E5 E5 E5 E5 E5 E5 E5 E5  ................
88E0  E5 E5 E5 E5 E5 E5 E5 E5-E5 E5 E5 E5 E5 E5 E5 E5  ................
88F0  E5 E5 E5 E5 E5 E5 E5 E5-E5 E5 E5 E5 E5 E5 E5 E5  ................
>

今まで普通に扱ってきましたファイルのＦＣＢは１つでした。
ところが、ここで作成されたランダムファイルＴＥＳＴ．ＲＡＦのＦＣＢは、なんと４つもあります。
１つだけならなんとかなるけれど…（って、１つだけでも、大変な作業が必要なのですよお）。
なんと４つもできてしまうなんて、一体どうすればよいのお？
といいますのが正直なご感想かと。
４つのＦＣＢを区別しておりますのは、先頭から１３バイト目のエクステント（ＥＸＴＥＮＴ）№です。
そこを見ますと上から順に、００、０３、０７、０１です（全然、順じゃありませんし、しかも歯抜けです）。
エクステントにつきましては［第１０６回］と［第１０７回］で説明をしております。

そして［第１０７回］での説明によりますと、実は最初に作成されたレコードは、１番目のＦＣＢ（エクステント№００）ではなくて、２番目のＦＣＢ（エクステント№０３）に属するレコードなのですね。
ああ。そんな順不同なＦＣＢをどのようにして作成するのでありましょうか。
ねえ。思わずため息が出てしまいますでしょう。

まあ。
こういうプログラムが書けるようになりますと、一人前以上であります。
掛け値無しに上級者でありましょう。

前回までの検証で、ＦＣＢが１つに収まるランダムファイルの作成につきましては、うまくいきました。
ＦＣＢが２つ以上になる場合につきましても、一応は考えてプログラム（ＺＢＤＯＳ）を作成してあります。
はたして、一発でうまくいきますかどうか（こんな複雑なものが一発でうまくいくわけはありませぬ）。

ともかくは［第１０６回］と［第１０７回］でやりました通りにテストを行なってみることにしました。
以下はそのように実行したログファイルです。

logfile nd80zlog\06031750.txt open

ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
>/sv bdos88-dfb.bin,8800,dfff
5800(22528)bytes saved
>/ld fille5.bin,8100
loading FILLE5.BIN ...0010(16)bytes loaded,from 8100 to 810F
>jp 8100
>cm d25b
D25B 02-03
D25C 03-07
D25D 00-
D25E 0B-05
D25F 00-
D260 0F-1f
D261 00-
>cm 8300
8300 26-a2
8301 0F-01
8302 22-b5
8303 27-03
8304 29-9e
8305 0E-00
8306 11-44
8307 12-00
8308 16-b6
8309 03-03
830A 0D-a7
830B FF-01
830C 07-9f
830D 07-00
830E 07-9a
830F 07-00
8310 F6-b3
8311 89-03
8312 C1-a5
8313 E1-01
8314 77-98
8315 C3-00
8316 DD-47
8317 C5-00
8318 78-42
8319 B7-00
831A CA-ff
831B 9F-ff
831C C5-
>/ld ftst20-2.bin,8100
loading FTST20-2.BIN ...00a9(169)bytes loaded,from 8100 to 81A8
>jp d233

A>save 1 ftst20-2.com
A>

念のために今まで作業したＲＡＭの内容を、仮ＲＡＭディスクとＣＰ／Ｍ互換ＤＯＳを含めて保存しました。
／ｓｖ　ｂｄｏｓ８８－ｄｆｂ．ｂｉｎ，８８００，ｄｆｆｆ［Ｅｎｔｅｒ］
の実行です。
そのあとＦＩＬＬＥ５．ＢＩＮを実行して、仮ＲＡＭディスクをフォーマット（クリア）しました。

今回の作業のために、［第１０５回］で説明しましたように、１ブロックのセクタ数を今までの４セクタから８セクタに変更しました。
そのためにディスクパラーメータを書き換えました。
ｃｍ　ｄ２５ｂ［Ｅｎｔｅｒ］と入力して行なった作業です。

［第１０６回］では、２バイトのレコード№を扱えるように変更したテストプログラムＦＴＳＴ２０－２．ＣＯＭを作成しました。
そのテストプログラムを実行するために、２バイト長のレコード№表を作成しました。
今回も同じレコード№表を作成しました。
ｃｍ　８３００［ｅｎｔｅｒ］と入力して行なった作業です。

そのように準備してから、［第１０７回］でＦＴＳＴ２０－２．ＣＯＭを実行しました。
今回も同じように、ＦＴＳＴ２０－２．ＢＩＮを８１００Ｈ～にロードしてからＣＰ／Ｍ互換ＤＯＳを起動して、ＡドライブにＦＴＳＴ２０－２．ＣＯＭの名前でセーブしました。

さて。
いよいよ、実行です。
ｆｔｓｔ２０－２　ｔｅｓｔ．ｒａｆ［Ｅｎｔｅｒ］
と入力しましたら。

A>ftst20-2 test.raf
read error(hidread)
write error(2)
read error(hidread)
write error(2)
write error(2)

リモート接続を終了しました
logfile closed at Sun Jun 03 17:55:27 2012

おおお。
とんでもないエラーです。
これは尋常ではありませぬ。
なんと。
ＵＳＢ通信のエラーが発生してしまいました。

だから。
そんなに簡単に行くわけはなかったのですよお。

ちょいと長くなってしまいましたので、この続きは次回にすることにいたします。

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

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