復活！ＣＰ／Ｍ ワンボードマイコンでＣＰ／Ｍを！
ＣＰ／ＭがＴＫ－８０互換のワンボードマイコンの上で復活します
ＮＤ８０ＺⅢとＭＹＣＰＵ８０の上でＣＰ／Ｍが走ります！
［第１５回］
●ＣＰ／Ｍのファイルはページ単位で保存される
前回説明をしましたように、ＣＰ／ＭではプログラムやデータをＳＡＶＥするときに、メモリ上の実際のバイト数ではなくて、ページという単位でそれを行ないます。
１ページは２５６バイトです。
たとえばメモリ上のプログラムが３００バイトの長さでも、４００バイトでもあるいは５００バイトでも、それをファイルとして保存するときは、２ページ５１２バイトのプログラム（データ）として保存してしまいます。
当然、そのファイルをディスクからメモリに読み出すときも、そのサイズ（ページ単位）の通りにメモリに書き出します。
つまり、ディスクにファイルとして保存されたプログラムやデータは本来の長さの後ろに余計な部分がくっついていることになります。
プログラムの場合には、いくら後に余計なものがくっついていたとしても、プログラム以外の部分はどうせ参照されることはありませんから、特に支障はありません。
しかしそれがテキストファイルの場合には、ちょっと困ったことになってしまいます。
●テキストファイルの中味を表示するプログラム
ＣＰ／Ｍシステムの中核はＢＤＯＳですが、そのさらに中心とでも言うべき機能にファンクションコール（システムコールとも言うようです）があります。
Ｃレジスタに機能を選択するための番号を入れてアドレスの０００５ＨをＣＡＬＬすることで、文字列の表示やファイルのオープンやＲＥＡＤ、ＷＲＩＴＥなど、いろいろな処理を行なうことができます。
先日から、ＮＤ８０ＺⅢに仮に移植したＣＰ／Ｍ２．２の動作テストを行なうために、このファンクションコールを使ったテストプログラムを書いて、それを実行することで、動作の確認をしています。
Ｙ様から送っていただいた３冊のＣＰ／Ｍ解説書（［第２回］参照）のうちの「応用ＣＰ／Ｍ」には、このファンクションコールを使ったサンプルプログラムがたくさんついています。
そのリストの通りのプログラムを書いて、それを実行して、そこに書いてある通りの結果が得られれば、ＮＤ８０ＺⅢへの移植は成功したと評価できることになります。
そこで、先日から、その「応用ＣＰ／Ｍ」に書かれているサンプルプログラムを順に入力し、それを実行しては結果を確認する、という作業を行なっています。
そのサンプルプログラムは８０８０のニーモニックで書かれていますが、私はＺ８０ニーモニックに慣れてしまっていますから、そのリストを見ながらＺ８０ニーモニックに直してプログラムを書いています。
そのサンプルプログラムの中に、ディスクに保存されているテキストファイルの中味を表示する、というプログラムがあります。
ＭＳＤＯＳのＴＹＰＥコマンドと同じ機能のプログラムです。
ＣＰ／ＭにもＴＹＰＥコマンドがあります（本当はＣＰ／Ｍが元祖でＭＳＤＯＳはその真似をしたのですけれど）。
ＴＹＰＥコマンドは、ＣＣＰ（Ｃｏｎｓｏｌｅ Ｃｏｍｍａｎｄ Ｐｒｏｃｅｓｓｏｒ）のコマンドです。
ＴＹＰＥコマンドもそれ以外のコマンドも、ＢＤＯＳに用意されている機能（ファンクションコール）を使って組み立てられています。
ということは、ファンクションコールを使えば、ＴＹＰＥコマンドと同じ機能のプログラムを書くことができる、ということになります。
下は「応用ＣＰ／Ｍ」の８２ページに書かれている、ＴＹＰＥコマンドと同じ働きをするサンプルプログラムをＺ８０ニーモニックに書き直したものです。
前にも書いたことですが、本に書かれているプログラムを、８０８０ニーモニックからＺ８０ニーモニックに書き直しても、それは翻訳と同じことですから、そのまま公開するわけにはいきません。
そこで一部のみをお見せすることにいたします。
2012/1/16 17:49 T1520.TXT
END=814A
; cp/m t1520 ｵｳﾖｳcp/m p.82
;12/1/16
;
ORG $8100
FCB=$805C
FCBCR=$807C
DMABF=$8080
DIRPOINT=$8790
BDOS=$C409
;
8100 0E0F START:LD C,0F;=15
8102 115C80 LD DE,FCB
8105 CD09C4 CALL BDOS
8108 FEFF CP FF
810A CA3181 JP Z,OPNERR
8131 0E09 OPNERR:LD C,09
8133 113A81 LD DE,MSGERR
8136 CD09C4 CALL BDOS
8139 C9 RET
813A 0D MSGERR:DB 0D
813B 0A DB 0A
813C 0A DB 0A
813D 46494C45 "FILE"
8141 20474120 " GA "
8145 4E4149 "NAI"
8148 0D DB 0D
8149 0A DB 0A
814A 24 "$"
;END
BDOS =C409 DIRPOINT =8790 DMABF =8080
FCB =805C FCBCR =807C MSGERR =813A
NXTREC =8111 OPNERR =8131 SCROUT =811F
START =8100
|
a>t1520 t1520.txt
; cp/m t1520 ｵｳﾖｳcp/m p.82
;12/1/16
;
ORG $8100
FCB=$805C
FCBCR=$807C
DMABF=$8080
DIRPOINT=$8790
BDOS=$C409
;
START:LD C,0F;=15
LD DE,FCB
CALL BDOS
CP FF
JP Z,OPNERR
XOR A
" GA "
"NAI"
DB 0D
DB 0A
"$"
;END
+ｹPl!･кKﾝｮ莎ｿｮ玩ﾉ� ﾀ｡<Uｭ\"hｰ楳Dｼ?ﾖG鹿ｴwｿﾔｽ淌s｢@ﾈDDｰ"NQ-�?互}oﾋ]ｿ脹�+XSﾑ"MAH%ｿ�ﾒﾏｸ齢Bﾉｹtﾁ｢…5機A!源D�ﾚ{_bZUco｣A ｨDﾜ, B D√l�ｪﾟDﾟ/=>ﾛﾀ`ﾀ,D1L
,bKｫﾋ[}ｾnﾚx緖ﾟyﾙ鴆��%輊 ( t
|
,bKｫﾋ[}ｾnﾚx緖ﾟyﾙ鴆��%輊 ( t
a>^D
ERR:23
>/ld t1520.txt,8100
loading T1520.TXT ...0218(536)bytes loaded,from 8100 to 8317
>d.,8300,837f
8300 0D 0A 09 44 42 20 30 41-0D 0A 09 22 24 22 0D 0A ...DB 0A..."$"..
8310 3B 45 4E 44 0D 0A 0D 0A-2B 00 B9 50 6C 01 21 10 ;END....+.ｹPl.!.
8320 A5 F9 ED 84 7B 4B DD AE-E4 B3 BF AE 8A DF C9 94 ･...{Kﾝｮ.ｳｿｮ.ﾟﾉ.
8330 1C C0 A1 3C 1A 55 AD 5C-22 08 68 00 B0 94 80 44 .ﾀ｡<.Uｭ\".h.ｰ..D
8340 BC 3F D6 47 8E AD B4 77-F1 FB BF D4 BD 9F C3 73 ｼ?ﾖG.ｭｴw..ｿﾔｽ.ﾃs
8350 A2 14 40 C8 03 44 00 44-B0 05 01 18 22 4E 51 08 ｢.@ﾈ.D.Dｰ..."NQ.
8360 2D F9 3F FF 8C DD F9 E7-7D 6F CB 5D BF 92 AF F5 -.?..ﾝ..}oﾋ]ｿ.ｯ.
8370 2B 00 80 14 58 53 07 D1-22 4D 41 48 00 00 25 04 +...XS.ﾑ"MAH..%.
>cm 8318
8318 2B-1a
8319 00-
>d.,8310,831f
8310 3B 45 4E 44 0D 0A 0D 0A-1A 00 B9 50 6C 01 21 10 ;END......ｹPl.!.
>jp bc00
a>save 3 t1520.txt
a>
|
ｔ１５２０．ｔｘｔは仮想フロッピーディスクに保存してあるだけではなくて、Ｗｉｎｄｏｗｓのハードディスクにも保存してあります。
ＺＢ３ＢＡＳＩＣの／ＬＤコマンドでそれをメモリーにロードします。
そのあとＤＭコマンド（Ｄｕｍｐ Ｍｅｍｏｒｙ。ここでは省略形のＤ．を使っています）でテキストファイルの終わり近くを表示して確認しています。
／ＬＤコマンド実行時の表示から、ファイルの終わりは８３１７Ｈであることがわかります。
ダンプした内容を見ると、改行コード（０Ｄ０Ａ）が２回使われて、そこで終わっています。
この後に１Ａを追加します。
メモリの中味を書き換えるにはＣＭコマンドを使います。
８３１８Ｈの中味を１Ａに書き換えました。
念の為にもう一度ＤＭコマンドで中味を確認しています。
８３１８Ｈは１Ａになっています。
ここまでで作業は終了しましたから、もう一度ＣＰ／Ｍに戻ります。
ｊｐ ｂｃ００［Ｅｎｔｅｒ］でＣＰ／Ｍに戻りました。
いかがでしょうか？
ＮＤ８０ＺⅢのＺＢ３ＢＡＳＩＣシステムはメチャメチャ便利でしょう。
もう、自由自在、といった感じです（こんなに便利なものは、ありませんですよぉ）。
変更した内容をあらためてｔ１５２０．ｔｘｔの名前で仮想フロッピーディスクに保存するために、
ｓａｖｅ ３ ｔ１５２０．ｔｘｔ［Ｅｎｔｅｒ］
を実行しています。
このあと、もう一度
ｔｙｐｅ ｔ１５２０．ｔｘｔ［Ｅｎｔｅｒ］
を実行したところ、今度はちゃんと本来のテキストの終わりまで表示して終わりました（ゴミは表示されなくなりました）。
めでたし、めでたし、です。
そこで、あらためて
ｔ１５２０ ｔ１５２０．ｔｘｔ［Ｅｎｔｅｒ］
を実行しましたら。
やっぱりゴミが表示されてしまいました。
えええ？
どうして？？？
ワンボードマイコンでＣＰ／Ｍを！［第１５回］
２０１２．１．２５ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る