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

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

［第４７回］

●ＴＹＰＥプログラム（２）

前回は時間がなくてあせりながら書いたものですから、とんでもない勘違いやら早とちりをしてしまったために、まともな動作確認ができないまま間違ったことを書いてしまいました。
本日になりましてから、とんでもない勘違いをしていたことに気が付きましたので、前回分はばっさり削って、書き直しました。
結局前回最初にお見せしたプログラムリストが正しかったのでした。
今回はそのソースプログラムをもとにして、テスト作業を行ないます。

●ソースプログラムのアセンブル

それではまず、前回のソースプログラムをアセンブルして、それから作成されたバイナリファイルをＲＡＭディスクに保存します。



ｚａｓｍ　ｆｔｅｓｔ４－１．ｔｘｔ［Ｅｎｔｅｒ］を実行しました。
画面にはＥＮＤ＝８１４１としか表示されませんが、バイナリファイルｆｔｅｓｔ４－１．ｂｉｎが作成されています。
ＮＤ８０ＺⅢに接続して、このあとＺＢ３ＢＡＳＩＣを起動します。

上の画面で、ｚを入力してＺＢ３ＢＡＳＩＣを起動しました。
下はそれ以後の操作を行なっている画面です。



／ＬＤコマンドでｆｔｅｓｔ４－１．ｂｉｎを８１００Ｈにロードしました。
そのあと　ｊｐ　ｄ２３３［Ｅｎｔｅｒ］でＣＰ／Ｍを起動して、ｄｉｒコマンドでディレクトリを表示させました。

８１００Ｈにロードしたｆｔｅｓｔ４－１．ｂｉｎを名前をつけてＲＡＭディスクにセーブします。
ＦＴＥＳＴ４．ＣＯＭという名前でセーブします。
ｓａｖｅ　１　ｆｔｅｓｔ４．ｃｏｍ［Ｅｎｔｅｒ］を実行しました。
そのあと、ｄｉｒコマンドでｆｔｅｓｔ４．ｃｏｍがセーブされたことを確認しました。

●ＴＹＰＥプログラムのアセンブルリスト

下はＦＴＥＳＴ４－１．ＴＸＴをアセンブルして作成されたアセンブルリストです。

2012/2/29  21:10  ftest4-1.txt
END=8141
              ; BDOS TEST4 TYPE
              ;2012/2/28
              ;
                      ORG $8100
                      FCALL=$8005
                      FCB=$805C
                      RECNO=$807C
                      DMA=$8080
              ;
8100 0E0F             LD C,0F;open
8102 115C80           LD DE,FCB
8105 CD0580           CALL FCALL
8108 3C               INC A;if FFH?
8109 CA2C81           JP Z,ERR
810C AF               XOR A
810D 327C80           LD (RECNO),A
              ;
8110 0E14     LOOP1:  LD C,14;read
8112 115C80           LD DE,FCB
8115 CD0580           CALL FCALL
8118 B7               OR A
8119 C0               RET NZ;read end
              ;
811A 218080           LD HL,DMA
811D 5E       LOOP2:LD E,(HL)
811E 0E02             LD C,02
8120 E5               PUSH HL
8121 CD0580           CALL FCALL
8124 E1               POP HL
8125 2C               INC L
8126 C21D81           JP NZ,LOOP2
8129 C31081           JP LOOP1
              ;
812C 113581   ERR:LD DE,ERRMSG
812F 0E09             LD C,09
8131 CD0580           CALL FCALL
8134 C9               RET
8135 63616E27 ERRMSG:"can'"
8139 74206F70         "t op"
813D 656E             "en"
813F 0D               DB 0D
8140 0A               DB 0A
8141 24               DB 24;$
              ;
DMA          =8080  ERR          =812C  ERRMSG       =8135  
FCALL        =8005  FCB          =805C  LOOP1        =8110  
LOOP2        =811D  RECNO        =807C

プログラムの先頭のところで、ファイルオープンをしています。
Ｃレジスタに０ＦＨを入れて、ＤＥレジスタにはＦＣＢエリアのアドレス（８０５ＣＨ）を入れてから、システムをコールしています。
ＦＣＢについては［第４５回］で説明をしました。

ＤＥレジスタには、開こうとするファイル名情報を置いたメモリエリアのアドレスをセットします。それがなぜＦＣＢエリアなのか、ということについて、［第４５回］で説明をしたのですが、説明例が不適切でした。

そこでもう一度テストをして、確認をしてみます。
［第４５回］でしたのと同じように、何もしないでＣＰ／Ｍに戻ってくるプログラムＴＥＳＴ．ＣＯＭを下のようにパラメータ　ｃ：ａｂｃ．ｔｘｔ　をつけて実行してみました。
そしてその後ＺＢ３ＢＡＳＩＣに戻って、ＤＭコマンドで８０００Ｈ～８０ＦＦＨの内容を表示しました。



８０５ＣＨ～がデフォルトのＦＣＢエリアです（本来は００５ＣＨ～）。
そこにはパラメータとして入力したＡＢＣ．ＴＸＴが書き込まれています。
先頭の０３はＣドライブを示しています。

このようにＣＰ／Ｍシステムによって、パラメータのファイル名部分が、デフォルトのＦＣＢエリアに書き込まれるので、今回のように、パラメータとしてファイル名を指定して、そのファイルをオープンする、というようなプログラムでは、そのままデフォルトのＦＣＢアドレスを指定するだけで、ファイル名情報をＢＤＯＳに伝えることができるのです。

なおパラメータはそのままのレイアウトでアドレス８０８０Ｈ～のデフォルトのＤＭＡエリアにも入れられます。
ファイル名以外のパラメータはここを見ることで知ることができます。
先頭に置かれた０Ａは、入力されたパラメータの文字数を示しています。

ファンクションコール０ＦＨは、ファイルオープンに失敗すると、ＡレジスタにＦＦＨを入れてリターンします。

ところで、ファンクションコール１４Ｈ（＝２０）のファイルリード（シーケンシャルリード）もファイルオープンと同じように、Ｃレジスタに１４Ｈを入れ、ＤＥレジスタにＦＣＢアドレスを入れて、システムをコールしています。
ファイルオープンのためのシステムコール時点ではＦＣＢエリアにはファイル名しか書かれていませんが、ファイルオープンに成功すると、ＦＣＢエリアにはディレクトリにある、そのファイルのＦＣＢデータが読み込まれます。
ファイルリードでは、ファイルオープンによって読み込まれたＦＣＢの情報をもとにして、データの置かれているセクタを算出して、セクタリードを行ないます。
ファイルリードでもファイルオープンと同じＦＣＢアドレスを指定しているのは、その理由からです。

説明の途中ですが、本日も時間がなくなってしまいました。
この続きは次回にいたします。

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

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