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

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

［第１４９回］


●ファンクションコール２４Ｈ（ランダムレコードアクセスポインタの更新）

ファンクションコール２４Ｈについては［第１１１回］で説明をしています。
そこでも書きましたように、ちょっとどう使うのかよくわからないファンクションです。
ま、しかし、それほど難しい働きでもありませんから、とにかく作ってしまいました。

そのテストについては、［第１１１回］～［第１１３回］で行なっています。
今回もそこで書きました通りの手順でテストをしてみることにいたします。
［第１１１回］ではＦＴＳＴ２３．ＣＯＭを使ってシーケンシャルファイルＴＥＳＴ．ＳＡＦを作成しています。
ｆｔｓｔ２３　ｔｅｓｔ．ｓａｆ［Ｅｎｔｅｒ］の実行です。

［第１１２回］ではＦＴＳＴ２４．ＣＯＭを使って、ＴＥＳＴ．ＳＡＦの内容を読み出しています。
ｆｔｓｔ２４　ｔｅｓｔ．ｓａｆ［Ｅｎｔｅｒ］の実行です。

そして［第１１３回］ではＦＴＳＴ２４．ＣＯＭにファンクションコール２４Ｈを追加したＦＴＳＴ２５．ＣＯＭを作って、実行しています。

今回もそれと同じことをしてみます。

logfile nd80zlog\06022046.txt open

ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
>/sv bdos88-dfa.bin,8800,dfff
5800(22528)bytes saved
>/ld fille5.bin,8100
loading FILLE5.BIN ...0010(16)bytes loaded,from 8100 to 810F
>jp 8100
>/ld ftst23.bin,8100
loading FTST23.BIN ...0076(118)bytes loaded,from 8100 to 8175
>jp d233

A>dir
no file
A>save 1 ftst23.com

A>ftst23 test.saf
done

A>dir
A: FTST23   COM : TEST     SAF
A>
また何かで前の状態に戻ってテストをしなくてはならないことも出てくるかも知れませんから、仮ＲＡＭディスク～ＣＰ／Ｍ互換ＤＯＳの範囲のＲＡＭ（アドレス８８００Ｈ～ＤＦＦＦＨ）の内容を名前をつけて保存しました。
／ｓｖ　ｂｄｏｓ８８－ｄｆａ．ｂｉｎ，８８００，ｄｆｆｆ［Ｅｎｔｅｒ］
です。

次にＦＩＬＬＥ５．ＢＩＮを実行して仮ＲＡＭディスクをフォーマット（クリア）しました。
ＦＩＬＬＥ５．ＢＩＮは［第３８回］で説明をしました。

それからＦＴＳＴ２３．ＢＩＮをトランジェントエリアにロードしたあと、ＣＰ／Ｍ互換ＤＯＳを起動して、ＦＴＳＴ２３．ＣＯＭをＡドライブにセーブしました。
そしてＦＴＳＴ２３を使って、シーケンシャルファイルＴＥＳＴ．ＳＡＦを作成しています。
ｆｔｓｔ２３　ｔｅｓｔ．ｓａｆ［Ｅｎｔｅｒ］の実行です。

次はＦＴＳＴ２４を実行して、ＴＥＳＴ．ＳＡＦの内容を読み出しました（下のリスト）。
ｆｔｓｔ２４　ｔｅｓｔ．ｓａｆ［Ｅｎｔｅｒ］の実行です。

A>end of ZBDOS
>/ld ftst24.bin,8100
loading FTST24.BIN ...00d6(214)bytes loaded,from 8100 to 81D5
>jp d233

A>save 1 ftst24.com

A>ftst24 test.saf
r=01 d=00
r=02 d=01
r=03 d=02
r=04 d=03
r=05 d=04
r=06 d=05
r=07 d=06
r=08 d=07
r=09 d=08
r=0A d=09
r=0B d=0A
r=0C d=0B
r=0D d=0C
r=0E d=0D
r=0F d=0E
r=10 d=0F

A>

そして、ＦＴＳＴ２５を実行しました（下のリスト）。

A>end of ZBDOS
>/ld ftst25.bin,8100
loading FTST25.BIN ...00f9(249)bytes loaded,from 8100 to 81F8
>jp d233

A>save 1 ftst25.com

A>ftst25 test.saf
r=01 d=00 00 00 10
r=02 d=01 00 00 10
r=03 d=02 00 00 10
r=04 d=03 00 00 10
r=05 d=04 00 00 10
r=06 d=05 00 00 10
r=07 d=06 00 00 10
r=08 d=07 00 00 10
r=09 d=08 00 00 10
r=0A d=09 00 00 10
r=0B d=0A 00 00 10
r=0C d=0B 00 00 10
r=0D d=0C 00 00 10
r=0E d=0D 00 00 10
r=0F d=0E 00 00 10
r=10 d=0F 00 00 10

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

あれっ？
ランダムレコード№が全て１０です！
むむむ。
ファンクションコール２４Ｈにバグがあるようです。

バグを直して、再実行しました。 

logfile nd80zlog\06022149.txt open

ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
>/ld zbdos1x.bin,c406
loading ZBDOS1X.BIN ...0907(2311)bytes loaded,from C406 to CD0C
>jp d233

A>dir
A: FTST23   COM : TEST     SAF : FTST24   COM : FTST25   COM

A>ftst25 test.saf
r=01 d=00 00 00 01
r=02 d=01 00 00 02
r=03 d=02 00 00 03
r=04 d=03 00 00 04
r=05 d=04 00 00 05
r=06 d=05 00 00 06
r=07 d=06 00 00 07
r=08 d=07 00 00 08
r=09 d=08 00 00 09
r=0A d=09 00 00 0A
r=0B d=0A 00 00 0B
r=0C d=0B 00 00 0C
r=0D d=0C 00 00 0D
r=0E d=0D 00 00 0E
r=0F d=0E 00 00 0F
r=10 d=0F 00 00 10

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

今度はうまくいきました。
やれやれです。

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

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