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

［第１４４回］


●ファンクションコール１７Ｈ（ファイル名の変更）

ファンクションコール１７Ｈは［第９３回］でテストしました。
作成したテストプログラムはＦＴＳＴ１４です。
ファンクションコール１７ＨはビルトインコマンドのＲＥＮ（リネーム）とほぼ同じ働きをします。
ただ、［第９３回］に書きましたようにコピー先のファイル名と同じファイルがすでに存在していてもエラーにならずに同じファイル名にしてしまいます。
ファンクションコール１７ｈを使う場合には、その点に注意する必要があります。

［第９３回］と同じように、ＦＴＳＴ１４を使ってテストをしてみました。

logfile nd80zlog\05312051.txt open ＮＤ８０Ｚ�Vに接続しました 0001 0000 - z 1000 00C3 - *** nd80z3 basic **** >/ld ftst14.bin,8100 loading FTST14.BIN ...0098(152)bytes loaded,from 8100 to 8197 >jp d233 A>b: B>dir B: FNC0BT2 COM : FNC0BT1 COM : FNC0BT COM : FNC06T2 COM B: FNC0304T COM B>save 1 ftst14.com B>save 1 rentst.bin B>dir B: FNC0BT2 COM : FNC0BT1 COM : FNC0BT COM : FNC06T2 COM B: FNC0304T COM : FTST14 COM : RENTST BIN B>ftst14 rentst.bin renam.com 00 B>dir B: FNC0BT2 COM : FNC0BT1 COM : FNC0BT COM : FNC06T2 COM B: FNC0304T COM : FTST14 COM : RENAM COM B>ftst14 abc.xyz xxx.yyy FFerr B>save 1 renam2.com B>dir B: FNC0BT2 COM : FNC0BT1 COM : FNC0BT COM : FNC06T2 COM B: FNC0304T COM : FTST14 COM : RENAM COM : RENAM2 COM B>ftst14 renam.com renam2.com 00 B>dir B: FNC0BT2 COM : FNC0BT1 COM : FNC0BT COM : FNC06T2 COM B: FNC0304T COM : FTST14 COM : RENAM2 COM : RENAM2 COM B>era renam2.com B>dir B: FNC0BT2 COM : FNC0BT1 COM : FNC0BT COM : FNC06T2 COM B: FNC0304T COM : FTST14 COM B>end of ZBDOS >0000 00C3 - リモート接続を終了しました logfile closed at Thu May 31 20:56:57 2012

いろいろテストをしてみたいと思いましたので、アドレス８１００ＨからロードしたＦＴＳＴ１４．ＢＩＮを普通にＦＴＳＴ１４．ＣＯＭとしてセーブするだけではなくて、ＲＥＮＴＳＴ．ＢＩＮというファイル名でもセーブしました。
そしてそのＲＥＮＴＳＴ．ＢＩＮをＦＴＳＴ１４．ＣＯＭを実行して、ＲＥＮＡＭ．ＣＯＭに変更しました。
ＤＩＲコマンドで、ファイル名の変更が正しく行なわれたことを確認しました。

今度は存在しないファイル名を指定して、ＦＴＳＴ１４を実行してみました。
ｆｔｓｔ１４　ａｂｃ．ｘｙｚ　ｘｘｘ．ｙｙｙ［Ｅｎｔｅｒ］の実行です。
結果はＡレジスタの値としてＦＦが表示され、それに続いてｅｒｒが表示されました。

さらにテストをするため、
ｓａｖｅ　１　ｒｅｎａｍ２．ｃｏｍ［Ｅｎｔｅｒ］
を実行しました。
８１００Ｈからのトランジェントエリアには、ＦＴＳＴ１４．ＣＯＭが残っていますから、ＦＴＳＴ１４．ＣＯＭと同じものがＲＥＮＡＭ２．ＣＯＭというファイル名でもセーブされたことになります。
しかしここではＦＴＳＴ１４．ＣＯＭと同じファイルが欲しくてそうしたのではなくて、テストのために削除しても構わない適当なファイルが欲しくて、そのようにしたのです。

テストしたかったのは、変更後のファイル名としてすでに存在するファイル名を指定するというテストです。
ｆｔｓｔ１４　ｒｅｎａｍ．ｃｏｍ　ｒｅｎａｍ２．ｃｏｍ［Ｅｎｔｅｒ］
を実行しました。

ＲＥＮＡＭ．ＣＯＭがＲＥＮＡＭ２．ＣＯＭに名前が変更されたため、ＲＥＮＡＭ２．ＣＯＭが２つできてしまいました。
ファンクションコール１７Ｈを使うときはこういうことにならないように、事前にファイル名サーチをして、同一のファイル名が存在しないことを確認しておく必要があります。
ＦＴＳＴ１４はそのようなチェックをしていないため、同じファイル名での二重登録が行なわれてしまいました。
これは、そういうことに注意しないでプログラムを書くとこういうことになってしまいますよ、という例としてテストしたものです。

このままにしておくと紛らわしいので、ＥＲＡコマンドで削除してしまいました。

●ファンクションコール１ＥＨ（ファイルアトリビュートのセット）

ファンクションコール１ＥＨについては［第９９回］で説明をしました。
ファンクションコール１ＥＨはファイルアトリビュートのセットを行ないます。
そこで作成したテストプログラムはＦＴＳＴ１７です。

ファイルアトリビュートはファイルの属性のことで、ＣＰ／ＭではそのファイルがＲ／Ｏ（Ｒｅａｄ　Ｏｎｌｙ、更新削除禁止）かＲ／Ｗ（読み書き可能）か、またＳＹＳ（システムファイル）か、ＤＩＲ（それ以外のファイル）かというファイル属性を付与できます。

通常の操作でファイルを作成したときは、そのファイルのアトリビュートはＲ／ＷかつＤＩＲになります。
その後ファンクションコール１ＥＨによって、それをＲ／ＯやＳＹＳに変更したり、またはＲ／ＯやＳＹＳをＲ／ＷやＤＩＲに戻したりすることができます。

［第９９回］と同じように、ＦＴＳＴ１７を使ってテストを行ないました。

*** nd80z3 basic **** >/ld ftst17.bin,8100 loading FTST17.BIN ...00e1(225)bytes loaded,from 8100 to 81E0 >jp d233 A>b: B>save 1 ftst17.com B>end of ZBDOS >/ld ftst10-7.bin,8100 loading FTST10-7.BIN ...010e(270)bytes loaded,from 8100 to 820D >jp d233 A>b: B>save 2 ftst10-7.com B>dir B: FNC0BT2 COM : FNC0BT1 COM : FNC0BT COM : FNC06T2 COM B: FNC0304T COM : FTST14 COM : FTST17 COM : FTST10-7 COM B>ftst17 fnc0bt1.com RorW?r SorD?s ok B>ftst17 ftst14.com RorW?r SorD?d ok B>ftst17 fnc0304t.com RorW?w SorD?s ok B>dir B: FNC0BT2 COM : FNC0BT1 COM : FNC0BT COM : FNC06T2 COM B: FNC0304T COM : FTST14 COM : FTST17 COM : FTST10-7 COM B>ftst10-7 drvno.?b FNC0BT2 COM RW DIR FNC0BT1 COM RO DIR FNC0BT COM RW DIR FNC06T2 COM RW DIR FNC0304T COM RW DIR FTST14 COM RO DIR FTST17 COM RW DIR FTST10-7 COM RW DIR end drvno.? B>end of ZBDOS >

ＦＴＳＴ１７を使ってファイルアトリビュートを変更した結果を確認するために、ＦＴＳＴ１０−７を使います。
ＦＴＳＴ１０−７は［第９８回］で作成しました。

最初にＤＩＲコマンドでファイル名を確認してから、ＦＴＳＴ１７を実行して、以下の３ファイルについてアトリビュートを設定しました。
ＦＮＣ０ＢＴ１．ＣＯＭをＲｅａｄＯｎｌｙ（Ｒ）、ＳｙｓｔｅｍＦｉｌｅ（Ｓ）にしました。
ＦＴＳＴ１４．ＣＯＭをＲｅａｄＯｎｌｙ（Ｒ）、ＤｉｒｅｃｔｏｒｙＦｉｌｅ（Ｄ、普通のファイル）にしました。
ＦＮＣ０３０４Ｔ．ＣＯＭをＲｅａｄＷｒｉｔｅ（Ｗ）、ＳｙｓｔｅｍＦｉｌｅ（Ｓ）にしました。

結果を確認するため、ＤＩＲコマンドでファイル名を表示させてみましたら。
あれ？
ＦＮＣ０ＢＴ１．ＣＯＭとＦＮＣ０３０４Ｔ．ＣＯＭはシステムファイルにしましたから、ＤＩＲコマンドでは表示されなくなるはずなのに…。
しっかり表示されています。

ＦＴＳＴ１０−７を実行して確認してみました。
むむむ。
システムファイルになっていません？
バグがあるようです。

バグを修正して、もう一度トライしてみました。

>/ld zbdos1p.bin,c406 loading ZBDOS1P.BIN ...08f5(2293)bytes loaded,from C406 to CCFA >jp d233 A>b: B>dir B: FNC0BT2 COM : FNC0BT1 COM : FNC0BT COM : FNC06T2 COM B: FNC0304T COM : FTST14 COM : FTST17 COM : FTST10-7 COM B>ftst10-7 drvno.?b FNC0BT2 COM RW DIR FNC0BT1 COM RO DIR FNC0BT COM RW DIR FNC06T2 COM RW DIR FNC0304T COM RW DIR FTST14 COM RO DIR FTST17 COM RW DIR FTST10-7 COM RW DIR end drvno.? B>ftst17 fnc0bt2.com RorW?r SorD?s ok B>fnc  tst17 fnc0bt.com RorW?w SorD?s ok B>dir B: FNC0BT1 COM : FNC06T2 COM : FNC0304T COM : FTST14 COM B: FTST17 COM : FTST10-7 COM B>ftst10-7 drvno.?b FNC0BT2 COM RO SYS FNC0BT1 COM RO DIR FNC0BT COM RW SYS FNC06T2 COM RW DIR FNC0304T COM RW DIR FTST14 COM RO DIR FTST17 COM RW DIR FTST10-7 COM RW DIR end drvno.? B>

もう一度ＦＴＳＴ１７を使って、以下の２つのファイルのアトリビュートを変更しました。

ＦＮＣ０ＢＴ２．ＣＯＭをＲｅａｄＯｎｌｙ（Ｒ）、ＳＹｓｔｅｍＦｉｌｅ（Ｓ）にしました。
ＦＮＣ０ＢＴ．ＣＯＭをＲｅａｄＷｒｉｔｅ（Ｗ）、ＳＹｓｔｅｍＦｉｌｅ（Ｓ）にしました。

ＤＩＲコマンドを実行しました。
今度はうまくいったようです。
システムファイルに設定した、 ＦＮＣ０ＢＴ２．ＣＯＭとＦＮＣ０ＢＴ．ＣＯＭは表示されなくなりました。

ＦＴＳＴ１０−７を実行して確認してみました。
おお。
今度はちゃんと’ＳＹＳ’が表示されています。
やれやれ。
こうやってバグをひとつずつつぶしていくのは、なかなかに根気の要る作業なのです。

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

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