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

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

［第１４８回］


●ファンクションコール２３Ｈ（ファイルサイズの計算）

ファンクションコール２３Ｈについては［第１０９回］で説明をしています。
ファイルサイズを取得して、ＦＣＢエリアの末尾３バイトに入れます。
ＣＰ／Ｍの場合ＦＣＢ（Ｆｉｌｅ　Ｃｏｎｔｒｏｌ　Ｂｌｏｃｋ）という名称は２つの異なった対象に対して使われます。
１つはディレクトリの中で、ファイル名ごとに作成される３２バイトのエリアです。
もう１つはシステム内部でワークとして使われるエリアで、こちらは３６バイトあります。

システムはファイルオープンによってディレクトリエリアから対象になるファイルのＦＣＢを、システム内部のワークエリアにコピーした後は、そのコピーされたワークエリアをもっぱらＦＣＢであるとして使います。
従って、ＣＰ／Ｍのシステム内部で使われる”ＦＣＢ”の多くは後者を示しています。

●まずはＦＣＢの３３バイト目について

ワークエリアとしてのＦＣＢの３３バイト目にはシーケンシャルファイルアクセスの場合に、次にアクセスするレコード№が置かれます。
１バイトですから０～２５５までの№しか置けません。
ちょっと難しい話になってしまいますが、ここに置かれるレコード№は、実は「同一エクステント内で」という言葉が冠されているのです。

ＣＰ／Ｍのディレクトリに置かれるＦＣＢは３２バイトで、その後半の１６バイトがブロック№を置くためのマップとして使われます。
そのファイルがディスク上のどのブロックにどのような順で書き込まれているかを示しているマップです。
１ブロックは標準では８セクタです。
すると、１つのＦＣＢには８×１６＝１２８セクタ分の情報しか置くことができません。
ＣＰ／Ｍでは１セクタ＝１レコードですから、１つのＦＣＢにはレコード№０～１２７までしか入れられないことになります。
では、それを越えるレコードは、どのようにしてマッピングされるのか、といいますと、そこで使われるのがエクステント（Ｅｘｔｅｎｔ）なのです。

ＦＣＢの第1バイトにはドライブ№が入ります。
第２～第９バイトはファイル名のエリアです。
第１０～第１２バイトはエクステンション（Ｅｘｔｅｎｔｉｏｎ）のエリアです。
エクステンションは拡張子などと言います。ＣＯＭ、ＥＸＥ、ＴＸＴなどというファイルの属性を示す部分です。
そしてその次の第１３バイトにエクステントが置かれます。

最初に作成されるファイルのエクステント№は００です。
ファイルのサイズが１２８レコードを越えると、ディレクトリ内に同じファイル名のＦＣＢが新たに作成され、そのエクステントは０１になります。
そのようにしてブロック、レコードを管理していますから、さきほどのワークとしてのＦＣＢの３３バイト目に置かれる次のレコード№は通常は０から１２７の範囲で、ここが１２８になったときに、新たなＦＣＢが作成され、そのエクステントが＋１されるとともに、ＦＣＢの３３バイト目がクリアされます。

●そしてＦＣＢの３４バイト目から３６バイト目

さて。
説明がちょいと横道に外れてしまいましたから、元に戻ります。
ワークとしてのＦＣＢの、３４バイト目から３６バイト目（つまり最後の３バイト）は、ランダムアクセスのときのレコード№や、今回のファンクションコール２３Ｈでのファイルサイズの格納場所として使われます。

３バイト（２４ビット）ありますから、１６７７７２１６までの数を入れることができます。
単位はセクタ（１２８バイト）ですから、１６７７７２１６／８＝２０９７１５２（ＫＢ）という巨大なサイズまで表すことができます。
２０９７１５２ＫＢ≒２０９７ＭＢです。
ＣＰ／Ｍで扱うことのできるドライブの最大サイズは８ＭＢですから、ファイルサイズを示すには、３バイトあれば十分ということになります。

あれ？
２バイトでは６５５３６／８＝８１９２（ＫＢ）≒８ＭＢなので、それなら２バイトあれば十分なはずなのですがねえ。
ＣＰ／Ｍ２．２のソースリストをあらためてよく読み直してみましたら、３バイトあるうちの最上位の１バイトは　’ｏｖｅｒｆｌｏｗ’　とコメントしてありました。
どうやらオーバーフロー用のワークエリアのようです。
やはり、実際に使われるのは２バイトのエリアで、表すことのできる最大のファイルサイズは８１９２ＫＢ（８ＭＢ）のようです。

●ファンクションコール２３Ｈのテスト

またまた横道に外れてしまいました。
本題に戻ります。

ファンクションコール２３Ｈのテストです。
［第１０９回］ではテストプログラムＦＴＳＴ２２を作り、それを使ってテストを行ないました。
今回もそれに習って、同じことをしてみます。

logfile nd80zlog\06020950.txt open

ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
>/ld ftst22.bin,8100
loading FTST22.BIN ...00ce(206)bytes loaded,from 8100 to 81CD
>jp d233

A>save 1 ftst22.com

A>dir
A: FTST20-3 COM : TEST     RAF : FTST22   COM
A>ftst22 test.raf
00 00 00
end

A>ftst22 ftst20-3.com
00 00 02
end

A>ftst22 ftst22.com
00 00 02
end

A>end of ZBDOS
>0000 00C3 - 
リモート接続を終了しました
logfile closed at Sat Jun 02 10:51:01 2012

ファンクションコール２３ＨのテストプログラムがＦＴＳＴ２２つうのは、実にまぎらわしくて、かつそのテストの内容を全く表していないファイル名です。
行き当たりばったりでいいかげんなファイル名をつけていると、こういうことになります。
まあ。テストプログラムだから、いいことにいたしましょお。

さて。
ＦＴＳＴ２２を使って、ランダムファイルＴＥＳＴ．ＲＡＦのファイルサイズを表示させてみましたら。
あれ？
ファイルサイズが０？

それじゃ、シーケンシャルファイルは、ということで、ＦＴＳＴ２０－３．ＣＯＭとＦＴＳＴ２２．ＣＯＭのファイルサイズも表示させてみましたら、どちらも２（セクタ）ですから、正解です。
ＳＡＶＥコマンドでは、２セクタ（２５６バイト）単位でセーブが行なわれますから、ＳＡＶＥコマンドで作成したファイルサイズの最小値は２になります。

おお。
ランダムファイルのサイズが０です！
シーケンシャルファイルはちゃんとまともに読めています。
まさか！

ＣＰ／Ｍ互換ＤＯＳを終了して、ＤＭコマンドで、ディレクトリの中味を表示してみましたら。

>dm 8800,887f
8800  00 46 54 53 54 32 30 2D-33 43 4F 4D 00 00 00 02  .FTST20-3COM....
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 00  .TEST    RAF....
8830  08 00 00 03 06 07 00 00-04 02 05 00 00 00 00 00  ................
8840  00 46 54 53 54 32 32 20-20 43 4F 4D 00 00 00 02  .FTST22  COM....
8850  09 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
8860  E5 E5 E5 E5 E5 E5 E5 E5-E5 E5 E5 E5 E5 E5 E5 E5  ................
8870  E5 E5 E5 E5 E5 E5 E5 E5-E5 E5 E5 E5 E5 E5 E5 E5  ................

なんと。
ファイルサイズのところに値がはいっていません。
ＦＣＢの１６バイト目がそのエクステントのセクタ数（レコード数）が入る場所です。

ううう。
調べてみましたら。
ファンクションコール２２Ｈ（ランダムライト）にバグがありました。

さっそく直しました。
もう一度ランダムファイルの作成からやり直しです。
前回（［第１４７回］）の作業をもう一度最初から行なって、ＴＥＳＴ．ＲＡＦを作り直しました。

logfile nd80zlog\06021051.txt open

ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
>/ld fille5.bin,8100
loading FILLE5.BIN ...0010(16)bytes loaded,from 8100 to 810F
>jp 8100
>/ld ftst20-3.bin,8100
loading FTST20-3.BIN ...0097(151)bytes loaded,from 8100 to 8196
>/ld zbdos1w.bin,c406
loading ZBDOS1W.BIN ...08d2(2258)bytes loaded,from C406 to CCD7
>jp d233

A>save 1 ftst20-3.com

A>ftst20-3 test.raf
done

A>dir
A: FTST20-3 COM : TEST     RAF
A>end of ZBDOS
>dm 8800,887f
8800  00 46 54 53 54 32 30 2D-33 43 4F 4D 00 00 00 02  .FTST20-3COM....
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 2A  .TEST    RAF...*
8830  08 00 00 03 06 07 00 00-04 02 05 00 00 00 00 00  ................
8840  E5 E5 E5 E5 E5 E5 E5 E5-E5 E5 E5 E5 E5 E5 E5 E5  ................
8850  E5 E5 E5 E5 E5 E5 E5 E5-E5 E5 E5 E5 E5 E5 E5 E5  ................
8860  E5 E5 E5 E5 E5 E5 E5 E5-E5 E5 E5 E5 E5 E5 E5 E5  ................
8870  E5 E5 E5 E5 E5 E5 E5 E5-E5 E5 E5 E5 E5 E5 E5 E5  ................
>

最初のところで、仮ＲＡＭディスクのクリアと、ＦＴＳＴ２０－３．ＢＩＮのロードをするとともに、バグ修正済みのＺＢＤＯＳ１Ｗ．ＢＩＮをロードしています。

ＣＰ／Ｍ互換ＤＯＳを起動して、ＦＴＳＴ２０－３．ＣＯＭをＡドライブにセーブしたあと、実行しました。
ＣＰ／Ｍ互換ＤＯＳを終了して、ＺＢ３ＢＡＳＩＣに戻って、ＤＭコマンドでディレクトリエリアを表示し、ＴＥＳＴ．ＲＡＦのＦＣＢエリア（アドレス８８２０Ｈ～８８３ＦＨ）の第１６バイト（アドレス８８２ＦＨ）に、このエクステントのレコード数（２ＡＨ）が入っていることを確認しました。

あらためてＦＴＳＴ２２を実行しました。

>/ld ftst22.bin,8100
loading FTST22.BIN ...00ce(206)bytes loaded,from 8100 to 81CD
>jp d233

A>save 1 ftst22.com

A>dir
A: FTST20-3 COM : TEST     RAF : FTST22   COM
A>ftst22 test.raf
00 00 2A
end

A>end of ZBDOS
>0000 00C3 - 
リモート接続を終了しました
logfile closed at Sat Jun 02 11:04:13 2012

今度は、うまく行きました。
いやあ。
なかなかに。
骨の折れることです。

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

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