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

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

［第５０回］

●ファンクションコール１４Ｈのレコード№指定

前回からの続きです。
ファンクションコール１４Ｈ（シーケンシャルファイルリード）では、ＦＣＢエリアの３３バイト目、デフォルトのＦＣＢエリア（８０５ＣＨ～８０７ＦＨ、本来は００５ＣＨ～００７ＦＨ）の場合は、アドレス８０７ＣＨ（本来は００７ＣＨ）に、００を書いておくことで、ファイルの先頭から読み出しを開始します、ということを前回書きました。

それでは、そのアドレス８０７ＣＨ（本来は００７ＣＨ）に、００を書く代わりにたとえば０１を書いておくとどうなるでしょうか？
というところまでで、前回は終わりました。

そこで、そのようにプログラムを変更して、どうなるかを確認してみました。
８０７ＣＨに０１を書くように変更したプログラムです（アセンブルリストで示します）。

2012/3/3  21:44  ftest4-2.txt
END=8142
              ; BDOS TEST4 TYPE
              ;2012/2/28 3/3
              ;
                      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 CA2D81           JP Z,ERR
810C 3E01             LD A,01
810E 327C80           LD (RECNO),A
              ;
8111 0E14     LOOP1:  LD C,14;read
8113 115C80           LD DE,FCB
8116 CD0580           CALL FCALL
8119 B7               OR A
811A C0               RET NZ;read end
              ;
811B 218080           LD HL,DMA
811E 5E       LOOP2:LD E,(HL)
811F 0E02             LD C,02
8121 E5               PUSH HL
8122 CD0580           CALL FCALL
8125 E1               POP HL
8126 2C               INC L
8127 C21E81           JP NZ,LOOP2
812A C31181           JP LOOP1
              ;
812D 113681   ERR:LD DE,ERRMSG
8130 0E09             LD C,09
8132 CD0580           CALL FCALL
8135 C9               RET
8136 63616E27 ERRMSG:"can'"
813A 74206F70         "t op"
813E 656E             "en"
8140 0D               DB 0D
8141 0A               DB 0A
8142 24               DB 24;$
              ;
DMA          =8080  ERR          =812D  ERRMSG       =8136  
FCALL        =8005  FCB          =805C  LOOP1        =8111  
LOOP2        =811E  RECNO        =807C

アドレス８１０Ｃの　３Ｅ０１　ＬＤ　Ａ，０１　が今回変更した部分です。

下は、アセンブルによって作成されたバイナリファイルｆｔｅｓｔ４－２．ｂｉｎを８１００Ｈからロードして、それを実行してみるまでを記録したログファイルです。
ｆｔｅｓｔ４－２．ｃｏｍというファイル名でＲＡＭディスクに保存しておいて、
ｆｔｅｓｔ４－２　ｆｔｅｓｔ４－１．ｔｘｔ［Ｅｎｔｅｒ］
を実行しました。

logfile nd80zlog\03032144.txt open

ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
>/ld ftest4-2.bin,8100
loading FTEST4-2.BIN ...0043(67)bytes loaded,from 8100 to 8142
>jp d233

a>dir
A: FILLE5   COM : FTEST1   COM : FTEST2   COM : DM       COM
A: TEST     COM : FTEST4   COM : FTEST4-1 TXT
a>save 1 ftest4-2.com
a>dir
A: FILLE5   COM : FTEST1   COM : FTEST2   COM : DM       COM
A: TEST     COM : FTEST4   COM : FTEST4-1 TXT : FTEST4-2 COM
a>ftest4-2 ftest4-1.txt
080
;
        LD C,0F;open
        LD DE,FCB
        CALL FCALL
        INC A;if FFH?
        JP Z,ERR
        XOR A
        LD (RECNO),A
;
LOOP1:  LD C,14;read
        LD DE,FCB
        CALL FCALL
        OR A
        RET NZ;read end
;
        LD HL,DMA
LOOP2:LD E,(HL)
        LD C,02
        PUSH HL
        CALL FCALL
        POP HL
        INC L
        JP NZ,LOOP2
        JP LOOP1
;
ERR:LD DE,ERRMSG
        LD C,09
        CALL FCALL
        RET
ERRMSG:"can'"
        "t op"
        "en"
        DB 0D
        DB 0A
        DB 24;$
;

a>

おお。
テキストファイルの途中から表示されました。
０８０
というところから、開始されています。

さらにもう少し続けてテストをしてみます。
一旦［Ｃｔｒｌ］［Ｄ］でＺＢ３ＢＡＳＩＣに戻って、ＣＭコマンドで８１０Ｄの０１を０２に変更してみました。
その後、そのように変更したプログラムをｆｔｅｓｔ４－３．ｃｏｍというファイル名でＲＡＭディスクに保存しておいてから
ｆｔｅｓｔ４－３　ｆｔｅｓｔ４－１．ｔｘｔ［Ｅｎｔｅｒ］
を実行してみました。

a>^D>a>^D>

ERR:23 
>cm 810d
810D 01-02
810E 32-
>jp d233

a>save 1 ftest4-3.com
a>ftest4-3 ftest4-1.txt
     LD (RECNO),A
;
LOOP1:  LD C,14;read
        LD DE,FCB
        CALL FCALL
        OR A
        RET NZ;read end
;
        LD HL,DMA
LOOP2:LD E,(HL)
        LD C,02
        PUSH HL
        CALL FCALL
        POP HL
        INC L
        JP NZ,LOOP2
        JP LOOP1
;
ERR:LD DE,ERRMSG
        LD C,09
        CALL FCALL
        RET
ERRMSG:"can'"
        "t op"
        "en"
        DB 0D
        DB 0A
        DB 24;$
;

a>^D>a>^D>

ERR:23 
>0000 00C3 - 
リモート接続を終了しました
logfile closed at Sat Mar 03 21:50:46 2012

今度もテキストファイルの途中から表示されました。
今回は、
ＬＤ　（ＲＥＣＮＯ），Ａ
というところから、開始されました。

８０７ＣＨ（本来は００７ＣＨ）に００を入れて、ファイルリードをすると、テキストファイルの先頭から読み込んだデータが表示されました。
００の代わりに０１を入れて、ファイルリードをすると、テキストファイルの途中（”０８０”というところ）からデータが表示されました。
次に、今度は０２を入れて、ファイルリードをすると、テキストファイルの途中（”ＬＤ　（ＲＥＣＮＯ），Ａ”というところ）からデータが表示されました。

０１を入れた場合の”０８０”、０２を入れた場合の”ＬＤ　（ＲＥＣＮＯ），Ａ”、はそれぞれもとのテキストファイルのどの位置にあるのでしょうか？

●ＭＳＤＯＳのＤＥＢＵＧコマンド

それを確かめるために、ＭＳＤＯＳのＤＥＢＵＧコマンドを使ってみました。



ファイル名を指定してデバッグコマンド（ｄｅｂｕｇ）を実行すると、そのファイルはメモリアドレスの０１００Ｈから読み込まれます。
ＣＰ／Ｍの話ではありません。
ＭＳＤＯＳのＤＥＢＵＧコマンドのことです。
ＭＳＤＯＳがＣＰ／Ｍの影響を強く受けていることが、こんなところからもわかります。
ｄ　１００［Ｅｎｔｅｒ］
と入力すると、ファイルの最初から１２８バイトのデータが表示されます。
おや。
この１２８バイトという表示単位もまるでＣＰ／Ｍそのままですね。

次に
ｄ［Ｅｎｔｅｒ］
だけを入力すると、その次のアドレスから１２８バイトが表示されます。
最初の１２８バイトが、レコード№０です。
その次の１２８バイトが、レコード№１です。
右側のＡＳＣＩＩダンプを見てください。
おお。
先頭に”０８０”の文字が見えます。
先ほど、８０７ＣＨに０１を指定したときは、ここから読み込みが開始されたのです。

もう一回
ｄ［Ｅｎｔｅｒ］
を実行して、次の１２８バイトを表示させました。
次はレコード№２です。



先頭には”ＬＤ　（ＲＥＣＮＯ），Ａ”の文字が見えます。
さらによく見ますと、先の”０８０”はレコードの先頭にありました。
ログファイルに戻って表示を確かめてみますと、左端から”０８０”が表示されています。
これに対して”ＬＤ　（ＲＥＣＮＯ），Ａ”は、レコードの先頭に２０Ｈ（スペース）が５個あって、その次に置かれています。
これもログファイルを確かめてみますと、左端から６文字目から”ＬＤ　（ＲＥＣＮＯ），Ａ”が表示されています。

ということで、８０７ＣＨがリードファイルのレコードカウンタとして使われていることがわかりました。
む？
レコードカウンタ？
ひょっとすると、このアドレスの値はレコードを読むたびに、インクリメントされているのでは？

●ＺＢ３ＢＡＳＩＣのＤＭコマンド

ＺＢ３ＢＡＳＩＣを立ち上げて、ＤＭコマンドでＣＰ／Ｍのシステムエリアを表示させてみました。



水色の枠で囲ったところがデフォルトのＦＣＢエリアです。
ＦＴＥＳＴ４－１ＴＸＴの文字が見えます。
そして、８０７ＣＨの値を見ますと、０６になっています。
ＦＴＥＳＴ４－１．ＴＸＴのサイズは３ページ（６レコード）です。
最後のレコード№５を読んだ後、カウンタを次のレコードの０６にしたところでブレイクしたことがわかります。

さて。
ここではＣＰ／Ｍについて書いておりますけれど、そのＣＰ／Ｍが動作しておりますのは、ＷｉｎｄｏｗｓパソコンとＵＳＢで接続したＮＤ８０ＺⅢのＺＢ３ＢＡＳＩＣシステムの上です。
そして、そのＮＤ８０ＺⅢシステムはＭＳＤＯＳのＤＯＳプロンプト（コマンドプロンプト）の中で機能しています。
なんだかややこしいようですけれど、オリジナルのＣＰ／Ｍが動いていた環境から比べますと、今回説明しましたように、ＺＢ３ＢＡＳＩＣのマシン語モニタの機能や、ＭＳＤＯＳのＤＥＢＵＧ機能なども必要に応じて使うことができますから、これはなかなかに便利なものだと思うのですが、いかがでしょうか？

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

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