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

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

［第５９回］

●ファイル内容比較プログラム（５）

前回はファイル内容を比較するプログラムｃｍｐ．ｃｏｍを使って、その前にｃｏｐｙ．ｃｏｍで作成したｔｅｓｔｄａｔａ．ｔｘｔファイルと、そのもとになったｆｔｅｓｔ４－１．ｔｘｔファイルを比較しました。
ｃｍｐ．ｃｏｍは２つのファイルを先頭から１バイトずつ比較して、不一致のところだけ表示するというプログラムですから、完全に一致しているファイルを比較しても何も表示されません。
結果としてはそれでよいのですけれど、作ったばかりのプログラムですから、なんとなく、いいのかなあ、という気になってしまいます。

そこで今回は短いファイルで、かつ一致している部分と不一致の部分があるような、２つのファイルを比較してみることにいたします。
そういうファイルを新しく作ってもいいのですけれど、わざわざ作るのも面倒ですから、何かすでにあるファイルで手頃なものはないものか、と思いましたら、ありました。手頃なものが。


2012/3/7  9:40  fillff.txt
END=810D
              ; FILL FF 805c-807c
              ;
              	ORG $8100
              	FCB=$805C
                            ;
                   REENT=$1033
              ;          
8100 215C80   	LD HL,FCB
8103 0624     	LD B,24
8105 0EFF     	LD C,FF
8107 71       LOOP:LD (HL),C
8108 23       	INC HL
8109 05       	DEC B
810A C20781   	JP NZ,LOOP
810D C9       	RET
              ;
              
FCB          =805C  LOOP         =8107  REENT        =1033

［第５４回］で使いましたＦＩＬＬＦＦプログラムです。
もともとこのプログラムは［第５４回］で書いておりますように、［第４８回］で作りましたＦＩＬＬ００プログラムをちょいと直して作ったものです。
こちらがそのもとになったＦＩＬＬ００プログラムです。

2012/3/2  19:59  fill00.txt
END=808F
              ; FILL 00 8100-87ff
              ;
                   ORG $8080
                   REENT=$1033
              ;          
8080 210081   	LD HL,$8100
8083 0600     	LD B,00
8085 70       LOOP:LD (HL),B
8086 23       	INC HL
8087 7C       	LD A,H
8088 FE88     	CP 88
808A C28580   	JP NZ,LOOP
808D C33310   	JP REENT
              ;
              
LOOP         =8085  REENT        =1033

両方とも同じぐらいの長さの短いファイルですから比較するには手頃です。
ただし、ＣＰ／Ｍの場合、最低でも２５６バイトのサイズのファイルになってしまいますから、事前に細工が必要です。
そうでないと、実際のプログラムサイズに関係無く２５６バイト分の比較が行なわれてしまいます。

ＦＩＬＬＦＦプログラムはすでにＲＡＭディスクに保存されています。
ＣＰ／ＭにエントリしてＤＩＲコマンドで確認してみました。

ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 - 
*** nd80z3 basic ****
>jp d233

a>dir
A: FILLE5   COM : FTEST1   COM : FTEST2   COM : DM       COM
A: TEST     COM : FTEST4   COM : FTEST4-1 TXT : FTEST4-2 COM
A: FTEST4-3 COM : COPY     COM : TESTDATA TXT : FILLFF   COM
A: TESTDAT2 TXT : CMP      COM
a>

しかしＦＩＬＬＦＦ．ＣＯＭはそんなことは何も考えないで保存したファイルですから、プログラムの後には意味の無いデータもくっついて２５６バイトのファイルになってしまっています。
そこで、まずＦＩＬＬ００プログラムでトランジェントエリアを００でクリアしてから、そこにＦＩＬＬＦＦ．ＢＩＮをロードして、それをあらためてセーブすることにします。

a>^D>a>^D>

ERR:23 
>/ld fill00.bin,8080
loading FILL00.BIN ...0010(16)bytes loaded,from 8080 to 808F
>jp 8080
>/ld fillff.bin,8100
loading FILLFF.BIN ...000e(14)bytes loaded,from 8100 to 810D
>dm 8100,81ff
8100  21 5C 80 06 24 0E FF 71-23 05 C2 07 81 C9 00 00  !\..$..q#.ﾂ..ﾉ..
8110  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
8120  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
8130  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
8140  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
8150  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
8160  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
8170  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
8180  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
8190  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
81A0  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
81B0  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
81C0  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
81D0  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
81E0  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
81F0  00 00 00 00 00 00 00 00-00 00 00 00 00 00 00 00  ................
>jp d233

a>dir
A: FILLE5   COM : FTEST1   COM : FTEST2   COM : DM       COM
A: TEST     COM : FTEST4   COM : FTEST4-1 TXT : FTEST4-2 COM
A: FTEST4-3 COM : COPY     COM : TESTDATA TXT : FILLFF   COM
A: TESTDAT2 TXT : CMP      COM
a>save 1 fillff.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-3 COM : COPY     COM : TESTDATA TXT : FILLFF   COM
A: TESTDAT2 TXT : CMP      COM
a>

上のログファイルの説明です。

［Ｃｔｒｌ］［Ｄ］でＺＢ３ＢＡＳＩＣに戻って、
／ＬＤ　ＦＩＬＬ００．ＢＩＮ，８０８０［Ｅｎｔｅｒ］
で、ＦＩＬＬ００プログラムを８０８０Ｈにロードしました。

そのあと、
ＪＰ　８０８０［Ｅｎｔｅｒ］
で、ＦＩＬＬ００プログラムを実行しました。
これで８１００Ｈ～８７ＦＦＨの範囲が００になりました。

そして、そこに
／ＬＤ　ＦＩＬＬＦＦ．ＢＩＮ，８１００［Ｅｎｔｅｒ］
で、ＦＩＬＬＦＦプログラムをロードしました。

ＤＭ　８１００，８１ＦＦ［Ｅｎｔｅｒ］
で、８１００Ｈ～８１ＦＦＨのメモリ内容を表示させました。
プログラムの後は全て００になっています。

ＪＰ　Ｄ２３３［Ｅｎｔｅｒ］
でＣＰ／Ｍに戻りました。

ＤＩＲコマンドでディレクトリを表示させてみたあと、
ＳＡＶＥ　１　ＦＩＬＬＦＦ．ＣＯＭ［Ｅｎｔｅｒ］
で、８１００Ｈ～８１ＦＦＨの内容をＦＩＬＬＦＦ．ＣＯＭの名前で保存しました。

もう一度ＤＩＲコマンドで、ディレクトリを表示させました。
表示は先に表示したものと同じですが、ＦＩＬＬＦＦ．ＣＯＭはあとからセーブした内容で上書きされています。

次に同じようにして、ＦＩＬＬ００プログラムもＲＡＭディスクに保存します。
ＦＩＬＬ００はＣＰ／Ｍのプログラムではなくて、ＺＢ３ＢＡＳＩＣシステムで動くプログラムで、本来は８０８０Ｈにロードして実行します。
しかし、今回はプログラムとして実行することが目的ではなくて、ファイル比較のためのサンプルとして使うだけですから、ＣＰ／Ｍでファイルとして保存できるようにトランジェントエリア（８１００Ｈ。本来は０１００Ｈ）にロードします。

a>^D>a>^D>

ERR:23 
>/ld fill00.bin,8100
loading FILL00.BIN ...0010(16)bytes loaded,from 8100 to 810F
>jp d233

a>save 1 fill00.bin
a>dir
A: FILLE5   COM : FTEST1   COM : FTEST2   COM : DM       COM
A: TEST     COM : FTEST4   COM : FTEST4-1 TXT : FTEST4-2 COM
A: FTEST4-3 COM : COPY     COM : TESTDATA TXT : FILLFF   COM
A: TESTDAT2 TXT : CMP      COM : FILL00   BIN
a>cmp fillff.com fill00.bin
0001 5C-00
0002 80-81
0004 24-00
0005 0E-70
0006 FF-23
0007 71-7C
0008 23-FE
0009 05-88
000B 07-85
000C 81-80
000D C9-C3
000E 00-33
000F 00-10

a>

ログファイルの説明です。

［Ｃｔｒｌ］［Ｄ］でＺＢ３ＢＡＳＩＣに戻って、
／ＬＤ　ＦＩＬＬ００．ＢＩＮ，８１００［Ｅｎｔｅｒ］
で、ＦＩＬＬ００プログラムを８１００Ｈにロードしました。
ここにはさきほどＦＩＬＬＦＦ．ＢＩＮをロードしましたが、８１０ＥＨからうしろは００になっていました。
そこに上書きする形でＦＩＬＬ００．ＢＩＮをロードしていますが、プログラムの終わりは８１０ＦＨですから、そこからうしろはやはり全て００です。

ＪＰ　Ｄ２３３［Ｅｎｔｅｒ］
でＣＰ／Ｍに戻りました。

ＳＡＶＥ　１　ＦＩＬＬ００．ＢＩＮ［Ｅｎｔｅｒ］
で、８１００Ｈ～８１ＦＦＨの内容をＦＩＬＬ００．ＢＩＮの名前で保存しました。

［注記］このプログラムはＣＰ／Ｍで実行するプログラムではありませんし、本来は８０８０Ｈにロードして実行されるプログラムですから、「ＣＯＭ」ではなくて「ＢＩＮ」にしました。

ＤＩＲコマンドで、ディレクトリを表示させました。
ＦＩＬＬ００．ＢＩＮが保存されました。

いよいよｃｍｐ．ｃｏｍの実行です。
ＣＭＰ　ＦＩＬＬＦＦ．ＣＯＭ　ＦＩＬＬ００．ＢＩＮ［Ｅｎｔｅｒ］
を実行しました。

ファイルの先頭から１バイトずつ比較を行ない、不一致だったところだけが表示されています。
これで、ＣＭＰ．ＣＯＭが正しく実行されていることが確認できました。

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

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