FT245高速通信カードを用いるファイル転送ソフトのCP/M版とOS-9版をアセンブラで書き直しました

 Cで書いたCP/M版とOS-9版が満足できなかったのでアセンブラで書き直しました

先に作成したC版はサイズが12KB程度と大きく、そのために起動時や動作にやや時間がかかっていました。

その点が不満でしたのでアセンブラで書き直すことにしました。プログラム全体の構造はC版と同じで良いので、Cの命令をひとつひとつアセンブラの命令に置き換えていきました。CP/Mでのアセンブラ開発も初めてでしたので、命令表と首っ引きでしたが勘違いも多く、変なところで手間を食ったりしました。

結果、CP/M版もOS-9版もC版では12KBほどだったサイズが2KB程度と小さくなり、起動はもちろんですが動作も多少ですが速くなりました。

OS-9メニュー画面

CP/Mメニュー画面

メニュー３，４のディレクトリ表示のために、CP/M版ではディレクトリ表示ルーチンを作成してサブルーチンとして組み込みましたが、残念ながらOS-9版では今のところ、コンパクトなディレクトリ表示ルーチンをアセンブラで作成できていませんので、メニュー３，４は動作しません。メニュー３，４が必要な場合はC版を使用することになります。（以前、仮想ドライブ構築ソフトOs9DrvWin.exeをCで作成したときに、ディレクトリ表示部にはかなり複雑な処理が必要でしたので、これをアセンブラで作成できるかどうかは分かりません。）

これでF-BASIC版、FLEX9版、CP/M版、OS-9版の全てがアセンブラで作成できましたので、ファイル転送ソフトslwinftの制作はこれで一区切りをつけようと思います。あとはこれらをツールとしてプログラム開発に生かしていくつもりです。

参考までに、私のプログラム開発の手順を図で示します。

プログラム開発の手順

これで一区切りとしますので、今までに制作したFM側のF-BASIC版、FLEX9版、CP/M版、OS-9版のslwinftとWindows側のslwinft245.exeをOneDriveに上げておきます。ディスクイメージ転送ソフトft245も同梱してあり、簡単な使い方の説明も付けてあります。

FT245高速通信カードを用いるファイル転送ソフトのCP/M版ができました

 これでようやく、F-BASIC版、FLEX9版、OS-9版、CP/M版の４種が揃いました。

最後のCP/M版ができたので、FM-7で動作する全てのDOS(?)用の版（F-BASIC版、FLEX9版、OS-9版、CP/M版）が揃ったことになります。

CP/M版の動作画面です。FM-7上の富士通版CP/M-80上で動作しています。

CP/M版slwinft

しかし残念ながら、メニュー３，４のディレクトリ表示は未実装です。BDS-Cで書いたのですが、標準関数のexec()などではビルトインコマンドのdirは動作しないのです。ということで、dirコマンドに相当するものを作成する必要がありますが、それには時間がかかりそうです。

また、現在のところ、FM77AV2に装着してあるZ80Hカード(IDATEN)上のCP/Mでは何故か正常に動作していません。（ソフトは正常に動作しているように見えるのですが、実際にはファイルが転送されないのです...）AV2でもF-BASIC版など他の版では正常に転送できていますので、ハードには問題はないと思うのですが、原因はまだ分かっていません。

蛇足ですが、純正のCP/M-80カードは大切に保管してあるので、普段は自作のカードを使用しています。

自作CP/M-80カード

完成度については、F-BASIC版＞FLEX9版＞OS-9版＞CP/M版という感じで、特にCP/M版についてはBDS-Cを使うのは初めてということもあり、試行錯誤の連続でした。現在のところ、メニューの３，４は実行できませんし、動作速度もアセンブラで書いたF-BASIC版やFLEX9版より遅いようです。

しかし、今まではディスクイメージ全体を転送するソフトしかなく、2Dディスク一枚の転送に１分ほどの時間がかかっていたので、Windows上のエディタでプログラムソースを作成し、それを各DOSに転送してアセンブルやコンパイルするという手順の繰り返しが面倒でしたが、これらのファイル転送ソフトのおかげで大幅に時間が短縮できるようになりました。これらのソフトの開発中も、Windowsー＞FM-7方向の転送部分をまず作成し、それを繰り返し使いながらソフト全体を仕上げていくことができました。（CP/Mに標準添付のエディタEDを流石に使う気にはなれないので、制作途中の手直しは全てWindows上のエディタで行うという開発スタイルです。）

完成度の低いOS-9版とCP/M版についてはこれからも改善していくことになると思いますが、とりあえず一段落したということにして作成した４種の版をまとめてOneDriveに上げておきます。CP/M版以外の版も細かい修正を重ねていますので、ここに上げたものが最新版となります。また、ディスクイメージ転送ソフトも含まれています。

FT245高速通信カードを用いるファイル転送ソフト（FLEX9版とOS-9版改）

 

F-BASIC版、OS-9版に続いてFLEX9版を作成すると共にOS-9版を微修正しました

【2024年1月13日追記】F-BASIC版、OS-9版、FLEX9版、CP/M版の最新版を1月13日のブログ「FT245高速通信カードを用いるファイル転送ソフトのCP/M版ができました」にアップしましたので、このブログのOneDriveを削除しました。

【12月17日追記】OneDriveに上げたファイルの中のOS-9版が古いものでしたので、最新版に差し替えました。

ようやくFLEX9版ができあがり、これでCP/Mを除いて３つの環境でファイルをFMとWindowsPC間でファイルを自由に転送することができるようになりましたので、Windows上の慣れたエディタで作成したプログラムをFMに転送して最後の仕上げ作業をするという一連の流れがよりスムーズに進められるようになりました。（以前はRS232を使用したものを使っていたのですが、転送時間が格段に短くなりました。）

CP/M版の作成は80系の知識がない自分にとっては敷居が高く、時間がかかりそうですので、とりあえず、これまでのまとめとして３種の版をまとめて紹介しておきます。

まずはWindows側のslwinft245.exeです。

slwinft245.exe

F-BASIC版、OS-9版、FLEX9版に共通して使用できます。

COMポートはbaud:115200以上, 8bit, non-parity, 1stop bit に設定します。

また、FT245通信カードのTXE機能はOFFのままで構いません。

FM側のドライブソフトです。

（１）F-BASIC版です

F-BASIC版のSLWINFT

（２）OS-9版です

OS-9版のslwinft

前回のブログのものではディレクトリを表示するメニュー項目がありませんでしたが、追加することができました。また、FM-7用のOS-9LevelIで動作することも確認しました。

（３）FLEX9版です

FLEX9版のSLWINFT

見てわかりますようにメニューはほとんど同じにしてあり、操作性もほとんど同じですが、処理対象のドライブ指定だけは、OS-9やFLEX9ではOSであらかじめ指定できるのに対して、F-BASICではできないのでメニューでドライブ変更できるようにしてあります。ただし、メニューからディレクトリ表示できるのはドライブ０と１だけです。（メニューソフトはF-BASICで書いてありますので、簡単に書き換えることができますが。）

以上の３つのOS（F-BASIC版、OS-9版、FLEX9版）に対応したソフトをOneDriveに上げておきますので、FT245高速通信カード（RAMディスク付きも）をお持ちの方は自由にご使用ください。

【12月17日追記】差し替えたのはOS-9版のみで、他は変更していません。

【2024年1月4日追記】最新版をOneDriveに上げました。

FT245高速通信カードを用いるファイル転送ソフト（F-BASIC版とOS-9版）

 FT245高速通信カードを用いるファイル転送ソフトのF-BASIC版とOS-9版を作成しました

【追記】Windows側のslwinft245.exeの機能拡張やOS-9版の修正をしましたので、次のブログ「FT245高速通信カードを用いるファイル転送ソフト（FLEX9版とOS-9版改）」の方にソフトの公開を移動しました。

今までFT245高速通信カードを用いる場合には、2D（2DD）ディスクを丸ごと転送するディスク転送ソフト（FDDIMG_RW77.exeやFT245DRV.exe）を使用していました。

しかし、いくら高速とはいえ2Dディスクで約１分、2DDディスクで約２分かかりますので、ファイルを一つだけコピーしたい場合には時間がかかりすぎです。

特に、Windows上の慣れたエディタで作成したプログラム等をF-BASICやOS-9等に転送して使用するという、私のプログラム開発の手順の中では転送時間が長いのは致命的です。

ということで、ディスク転送ソフトではなくファイル転送ソフトが必要と感じていました。

ディスク転送ソフトの場合にはOSの種類によらず、40(80)トラック、16x2セクタ/トラック

のディスクであればF-BASIC上のドライブソフトで転送できましたが（ただし、FLEX9だけは32セクタ/トラックなので転送できない）、ファイル転送の場合にはOSの機能を用いてファイルを読み書きしますので、当然OSに依存することになります。

ということで、まずは使用頻度の高いF-BASIC版を作成し、続いてOS-9版も作成しました。

Windows側のslwinft245.exeはもちろん、全OS共通です。

起動後にCOMポートとOSの選択をしたのちに使用可能状態になります。

Windows側のslwinft245

FM-7/77側のドライブソフトはOSに依存しますので、それぞれのOS用に作成しました。

【１】F-BASIC用のSLWINFT

まずF-BASIC用のSLWINFTを紹介します。

対象ドライブはデフォルトで１ですが、もちろん変更できます。

TXE機能のON,OFFはFT245通信カードの設定と一致させます。

（TXE機能がないカードの場合はOFFに設定します。）

FM-7/77側のSLWINFTメニュー

使用するソフト

〇FM-7/77側　　　メニュープログラムSLWINFT（F-BASIC）を実行する。

　　　　　　　　　起動時に機械語サブプログラムSLWINFToが読み込まれる。

　　　　　　　　　（SLWINFToは&H6000～&H61E7に配置される）

〇WindowsPC側　SLWINFT245.exeを実行する。

動作環境

〇FM-7　　　　　F-BASIC V3.0

〇FM77AV2　　　F-BASIC V3.0、V3.3

〇FM77AV40SX　F-BASIC V3.0、V3.4

以上の環境で動作することを確認してあります。

使い方

◎WindowsPC -> FM-7/77 への転送

　　FM-7/77側でメニュー２を選択する。

　　Windows側で転送するファイルを選択（ドラッグ＆ドロップまたは直接書き込み）して「FMへの書き込み」ボタンを押す。

　　FM-7/77側に既に同名のファイルが存在する場合には、重ね書きをするかどうかを選択できます。

　　ファイル種別は自動的に判別しますが、通常のバイナリファイルの場合は先頭に5バイトのヘッダー、末尾に5バイトのフッターが必要ですので、そのための情報として保存アドレスと実行アドレスをセットします。（既にヘッダー、フッターがついているファイルの場合はそのまま転送されます。）

◎FM-7/77 -> WindowsPC への転送

　　Windows側で読み込んだファイルを保存するファイル名をセットして、「FMから読み込み」ボタンを押す。

　　FM-7/77側のファイル名と異なるファイル名でも構いません。

　　FM-7/77側でメニュー１を選択し、転送するファイル名を入力してEnterキーを押す。

　　存在しないファイル名を入力した場合にはエラーメッセージが出て、再入力を促されます。

　　機械語ファイルの場合にはヘッダーとフッターが削除された通常のバイナリファイルとして保存されます。（読み取った保存アドレスと実行アドレスは画面上に表示されます。）

その他

　　FM-7/77側ではドライブ番号をメニュー３で変更できます。

　　また、メニュー４でTXE機能を使用するかしないかを選択できます。通常は機能OFFで問題はありません。

【２】OS-9用のslwinftos9

OS-9側のslwinftos9のメニュー

使用するソフト

〇FM側　　 　　　ドライブプログラムslwinftos9を実行する。

〇WindowsPC側　SLWINFT245.exe（F-BASIC版と同じ）を実行する。

　（FM側のslwinftos9をどうやってOS-9に読み込むかですが、OS-9のディスクもF-BASIC

上のディスク転送ソフトft245drvで転送できますので、これを利用してOS-9のディスクに

読み込みます。）

動作環境

〇FM77AV40SX　OS-9Level2

　Level1では動作確認をしていません

　【12月15日追記】動作することを確認しました。

使い方

◎WindowsPC -> FM への転送

メニュー２の実行例

　　FM側でメニュー２を選択する。

　　「Send file from Windows...」が出て受信モードに入る。

　　Windows側で転送するファイルを選択（ドラッグ＆ドロップまたは直接書き込み）して「FMへの書き込み」ボタンを押す。このファイル名でFMに保存される。

　　FM側に既に同名のファイルが存在する場合には上書きされる。

　　ファイル種別は自動的に判別するので、実行モジュールファイルとテキストファイルのどちらであっても構わない。

◎FM -> WindowsPC への転送

メニュー１の実行例

　　FM側でメニュー１を選択する。　　

　　Windows側で読み込んだファイルを保存するファイル名をセットして、「FMから読み込み」ボタンを押す。

　　FM側のファイル名と異なるファイル名でも構いません。

　　FM側でメニュー１を選択し、表示「Input file name:」に続いて転送するファイル名を入力してEnterキーを押す。

　　存在しないファイル名を入力した場合にはメニューに戻ってしまうので、最初からやり直す。

その他

　　メニュー３でTXE機能を使用するかしないかを選択できます。通常は機能OFFで構いません。

現在のところはF-BASIC版とOS-9版のみですが、順次CP/M版、FLEX9版を作成する予定です。

現在のF-BASIC版とOS-9版をOneDriveに上げておきますので、FT245高速通信カード（RAMディスク付きも）をお持ちの方は自由にご使用ください。

【12月15日追記】ソフトの公開は12月15日のブログに移動しました。

FM-7/77用F-BASIC,OS-9,CP/M,FLEX9のディスクイメージを操作する

 Windows上でFM-7/77用F-BASIC,OS-9,CP/M,FLEX9のディスクイメージを操作するソフトの紹介

FM用のエミュレータであるXM7を使用されている方も多いと思います。私も使わせていただいています。素晴らしいソフトを作成された開発者に敬意を表します。

XM7を使用していると、しばしばD77形式のディスクイメージ中のファイルを操作したいことがあります。つまり、ディスクイメージ中にWindowsからファイルを書き込んだり、逆にディスクイメージからWindowsへファイルを読み出したりしたいということです。

今までにそのためのソフトを制作してきました。当然のことですが、各OS(?)によってディスク中への保存形式が異なりますので、ソフトも各OSで異なるものとなりました。

制作したソフトについてはその都度紹介してきましたが、扱えるファイル形式を今までのD77(D88)、DSKに加えて、FT245高速通信カードで用いられているDAT形式に対応するように拡張しましたので、ここでまとめて紹介します。

今までに制作したソフトは以下の４本です。

（1）F-BASIC用　FbasDrvWin.exe

（２）OS-9用 　　Os9DrvWin.exe

（３）CP/M用 　　CpmDrvWin.exe

（４）FLEX9用　　FlexDrvWin.exe　（DAT形式には対応しない）

それぞれ対応するOSが異なりますが、操作性は全て同じにしてあります。

（ただし、FLEX9用のみはディスク形式が異なるためにFT245通信カードを使用する転送ソフトは使用できませんので、DAT形式に対応する必要がありません。）

それぞれの画面イメージは次のようです。

FbasDrvWin.exe

Os9DrvWin.exe

CpmDrvWin.exe

FlexDrvWin.exe

イメージファイル処理ソフトとしての使い方

（１）処理したいイメージファイルをドライブ名ボックス（Drive 0～4）にドラッグ＆ドロップすると、下のボックスにそのイメージファイル中のファイルが一覧表示される。

どのボックスに入れても構わない。また、いくつでも重ねて入れることができる。

（２）読み出し

読み出したいファイルをマウスの左ボタンで選択しておいて、右ボタンを押すと現れるメニューから「読み出し」を選択する。

（３）書き込み

書き込みたいWindows上のファイルをこのボックス中にドラッグ＆ドロップする。

（４）全ファイルの一括読み出し

メインメニュー「編集」中の「全ファイル読み出し」を選択する。

（５）他の機能

右ボタンメニューには他のコマンドとして「削除」、「ファイル名変更」がある。

仮想ドライブ構築ソフトとして使用する

イメージファイル処理ソフトとしての使い方は上記のようですが、実はこれらのソフトは本来、Windows上の仮想ドライブ構築ソフトとして制作したものです。

（上の画面イメージ中のFlexDrvWin.exeで右側のボックス中にFM機がアクセスしたトラック/セクタが表示されています。）

ということで、FM機に各OSに対応するドライバをインストールすることで、FM機本体のドライブ（通常0と1）に加えて、これらのxxxxDrvWin.exeのDrive2と3が拡張ドライブとして使用できるようになります。

OS-9用以外の３つの仮想ドライブ構築ソフトについては以前紹介し、ドライバも公開しています。

RS-232C用のドライバをFT245通信カード用に書き換える

今までに、Flex用、F-BASIC用、CP/M用のドライバを紹介してきましたが、それらはいずれもFM機とWindows機との間の通信手段としてRS-232Cを使用していました。

しかし、最近はRS-232C機能を使用することはほとんどなくなり、もっぱら「思い付きハードでソフトに七転八倒」さん（ブログは下記）が製作されたFT-245高速通信カード（本ブログでも何回か紹介しています）を使用していますので、現在、各ドライバをFT-245通信カード用に書き換えているところです。完成し次第公開する予定ですが、残念ながら、私は80系は全くと言ってよいほど経験がないので、CpmDrvWin.exe用のドライバが作成できません。F-BASIC用、OS-9用の２つのみを作成中です。

「思い付きハードでソフトに七転八倒」さんのブログ

（１）FM-7用データ転送基板を使った新ユーティリティの紹介https://vehwk3yxv7hw.blog.fc2.com/blog-entry-39.html

 （２）FDDイメージをバックアップするFM-7専用ソフトの説明https://vehwk3yxv7hw.blog.fc2.com/blog-entry-31.html

以上、各OS用のイメージファイル処理ソフト（実は仮想ドライブ構築ソフト）の紹介でした。

これらの４ソフトと、共に使用することが多いD77,DSK,DATファイル間で形式を変換するソフト CvtDskD77.exeをOneDriveに上げておきます。

【注意】これらのソフトの制作にあたっては、それぞれのOSのFMS（ファイルマネージメントシステム）に相当するものの実装が必要ですが、OSの中身を知っているわけではないので、XM7上で読み書き、追加、削除などの操作をして、操作前後でイメージファイルのどの個所がどのように変化したかを確認することによってOS内の動作を推定し、それをもとにして実装しました。

従って実装が不完全、不十分なための誤動作が予想されますので、使用される場合はその点にご注意ください。特に、操作を何回も繰り返すとイメージファイルがおかしくなる可能性がありますので、何回か操作を繰り返したらXM7で別ファイルにコピーし直したり、転送ソフトを用いてフロッピーディスクにコピーしておくと安心です。（使用した感覚ですが、FlexDrvWin.exe以外は比較的安定しているようです。）

F-BASIC版のP-ROM Writerカード用ドライバが完成

 

F-BASIC版のP-ROM Writerカード用ドライブソフトも作りました

9月16日のブログで、P-ROMライター用のドライブソフトが完成したと書きましたが、それは、私が常用しているFlex9上で動作するものでしたので、オリジナルのOS-9版と同様、一般的ではありませんでした。

そこで、普段はほとんど使うことがないF-BASIC上で動作するものを作ろうとしたのですが、Flex9ではデータバッファとして32KBを確保できたのに対してF-BASICでは$8000番地から上がROMですのでそんなには取れません。

初めは裏RAMを使用することを考えたのですが、それでも32KBは無理です。（32KBにこだわるのは27256の容量だからです。）

結局、裏RAM使用は止めて少ないバッファ容量に合わせてデータを分割して読み込み、複数回の書き込みをすることとしました。（Flex9版でも27512では2回に分けて書き込んでいます。）

下図で分かりますように、バッファ容量として8KB確保しましたので、2716, 2732, 2764は一回で書き込めますが、27128では2回、27256では4回、27512では8回の書き込みを繰り返すことになります。

これに合わせて、Block選択コマンドを追加しました。（1ブロックは8KB）0を選択すると自動的に書き込みを繰り返して全ブロックを書き込みます。0以外では選択したブロックのみを書き込みます。

また、書き込むデータも全体をメモリ上には置いておけず、機械語ファイルとしてディスクに保存することになりますので、そのファイルのLoad, Saveコマンドも追加しました。

さらに、データファイルを8KB単位に分割して機械語ファイル形式に変換するためのソフトも別途必要です。

結局、実装したコマンドは Info, Type, Block, Pwidth, Dump, Erase, Read, Write, Verify, Load, Save, Quitの計12個となりました。

27512を選択した例を示します。

ブランクチェックをした後、書き込んでいます。

ブロック１から８までを連続して書き込んでいます。

ドライブソフトですが、ほとんどの機能を機械語サブルーチンに任せているので、BASIC部は基本的に初期化とコマンド選択・実行準備だけという簡単なものです。

BASIC部を示します。

1000 'PROM READ/WRITE PROGRAM FOR FM-7 1010 ' 1020 WIDTH 80,25 1030 CLEAR ,&H47FF 1040 MADR=&H4800 :'store subroutine 1050 BUFTOP%=&H5000 1060 BUFEND%=&H7000 :'buffer size is 8KB 1070 POKE MADR+&H12,BUFTOP% \ &H100 1080 POKE MADR+&H13,BUFTOP% MOD &H100 1090 POKE MADR+&H14,BUFEND% \ &H100 1100 POKE MADR+&H15,BUFEND% MOD &H100 1110 PRINT:PRINT"Initializing..." 1120 'PIA INIT 1130 PIA=&HFD9C:PIADA=PIA:PIACA=PIA+1:PIADB=PIA+2:PIACB=PIA+3 1140 POKE PIACA,&H30 :'DDRA 1150 POKE PIACB,&H30 :'DDRB 1160 POKE PIADA,&HFF :'PORTA OUT 1170 POKE PIADB,&HFF :'PORTB OUT 1180 POKE PIACA,&H3C 1190 POKE PIACB,&H3C 1200 ' 1210 CMD$="ITBPDERWVLSQ" 1220 ROMTYP$(0)="2716 ":ROMTYP$(1)="2732 ":ROMTYP$(2)="2764 " 1230 ROMTYP$(3)="27128":ROMTYP$(4)="27256":ROMTYP$(5)="27512" 1240 ROMNO%=3 :'default ROM type is 2764 1250 PWIDTH%=1 :'default write pulse width is 1ms 1260 BLKNO%=1 :'default block no 1270 LDFN$="ROMDAT" 1280 SVFN$="ROMDATS" 1290 ' 1300 '===== SET PROGRAM CODE ===== 1310 LOADM "PWRSUB" :'Load subroutine 1320 ' 1330 '+++++ COMMAND INPUT +++++ 1340 PRINT:PRINT "Command:" 1350 PRINT " I)nfo T)ype B)lock P)width D)ump E)rase R)ead W)rite V)erify L)oad S)ave Q)uit" 1360 PRINT "Command in: "; 1370 KIN$=INKEY$ :IF KIN$="" THEN 1370 1380 PRINT KIN$ 1390 IF ASC(KIN$)>&H61 THEN KIN$=CHR$(ASC(KIN$)-&H20) 1400 CMD=INSTR(1,CMD$,KIN$) 1410 IF CMD=1 THEN GOSUB 1560 :GOTO 1340 :'Info 1420 IF CMD=2 THEN GOSUB 1640 :GOTO 1340 :'Type 1430 IF CMD=3 THEN GOSUB 1740 :GOTO 1340 :'Block 1440 IF CMD=4 THEN GOSUB 1960 :GOTO 1340 :'Pwidth 1450 IF CMD=5 THEN GOSUB 2880 :GOTO 1340 :'Dump 1460 IF CMD=6 THEN GOSUB 2030 :GOTO 1340 :'Erase 1470 IF CMD=7 THEN GOSUB 2110 :GOTO 1340 :'Read 1480 IF CMD=8 THEN GOSUB 2360 :GOTO 1340 :'Write 1490 IF CMD=9 THEN GOSUB 2620 :GOTO 1340 :'Verify 1500 IF CMD=10 THEN GOSUB 2930 :GOTO 1340 :'Load 1510 IF CMD=11 THEN GOSUB 2990 :GOTO 1340 :'Save 1520 IF CMD=12 THEN END :'Quit 1530 GOTO 1340 1540 ' 1550 '===== INFORMATION ===== 1560 PRINT:PRINT "ROM type is ";ROMTYP$(ROMNO%-1) 1570 PRINT "Block no (0:ALL) is";BLKNO% 1580 PRINT "Write pulse width is";PWIDTH%;"ms" 1590 PRINT "Load Filename is ";LDFN$ 1600 PRINT "Save Filename is ";SVFN$ 1610 RETURN 1620 ' 1630 '===== SELECT ROM TYPE ===== 1640 PRINT:PRINT "Select ROM: "; 1650 FOR I=0 TO 5 1660 PRINT USING "#!& &";I+1;")";ROMTYP$(I); 1670 NEXT 1680 PRINT 1690 INPUT "Input ROM no (1..6):";ROMNO% 1700 IF ROMNO%<1 OR ROMNO%>6 THEN 1690 1710 PRINT:PRINT "ROM type is ";ROMTYP$(ROMNO%-1) 1720 ' 1730 '===== SELECT BLOCK NO ===== 1740 PRINT:PRINT "Select Block No: " 1750 BLKNO%=1 1760 IF ROMNO%<=3 THEN PRINT "2716,32,64 is BlockNo=1" :GOTO 1860 1770 PRINT "Input block no (0:ALL,"; 1780 ON ROMNO%-3 GOTO 1790,1810,1830 1790 INPUT "1-2):";KIN$ 1800 IF KIN$<"0" OR KIN$>"2" THEN 1770 ELSE 1850 1810 INPUT "1-4):";KIN$ 1820 IF KIN$<"0" OR KIN$>"4" THEN 1770 ELSE 1850 1830 INPUT "1-8):";KIN$ 1840 IF KIN$<"0" OR KIN$>"8" THEN 1770 ELSE 1850 1850 BLKNO%=VAL(KIN$) 1860 POKE MADR+&H1B,ROMNO%-1 1870 RETURN 1880 ' 1890 '===== SET VARIABLE ===== 1900 POKE MADR+&H1A,PWIDTH% 1910 POKE MADR+&H1B,ROMNO%-1 1920 POKE MADR+&H1C,BLKNO% 1930 RETURN 1940 ' 1950 '===== SET WRITE PULSE WIDTH ===== 1960 PRINT:INPUT "Write pulse width (1..50ms): ";KIN$ 1970 IF VAL(KIN$)<1 OR VAL(KIN$)>50 THEN 1960 1980 PWIDTH%=VAL(KIN$) 1990 POKE MADR+&H1A,PWIDTH% 2000 RETURN 2010 ' 2020 '===== ERASE CHECK ===== 2030 PRINT:PRINT "Erase checking" 2040 GOSUB 1900 2050 DEF USR1=MADR+3:'Erase check command 2060 A%=USR1(0) :'Exec command 2070 IF A%=0 THEN PRINT " Erase check complete!" ELSE PRINT " !!! not BLANK !!!" 2080 RETURN 2090 ' 2100 '===== READ ===== 2110 PRINT :PRINT "Reading BlockNo:" 2120 'set variable 2130 GOSUB 1900 2140 DEF USR2=MADR+6 :'Read command 2150 SVBLKNO%=BLKNO% 2160 IF ROMNO%<=3 THEN MAXNO%=1 ELSE MAXNO%=2^(ROMNO%-3) 2170 IF BLKNO%=0 THEN STNO%=1 ELSE STNO%=BLKNO% :MAXNO%=BLKNO% 2180 'Read 2190 GOSUB 2250 2200 'Read end 2210 BLKNO%=SVBLKNO% 2220 IF A%=0 THEN PRINT "Read complete!" 2230 RETURN 2240 ' 2250 'Read subroutine 2260 FOR I=STNO% TO MAXNO% 2270 BLKNO%=I 2280 PRINT BLKNO%; 2290 POKE MADR+&H1C,BLKNO% 2300 A%=USR2(0) :'Exec 2310 IF A%=0 THEN PRINT ELSE PRINT " !!! Read ERROR !!!" 2320 NEXT 2330 RETURN 2340 ' 2350 '===== WRITE ===== 2360 PRINT:PRINT "Writing BlockNo:" 2370 'set variable 2380 GOSUB 1900 2390 DEF USR3=MADR+9:'Write command 2400 SVBLKNO%=BLKNO% 2410 IF ROMNO%<=3 THEN MAXNO%=1 ELSE MAXNO%=2^(ROMNO%-3) 2420 IF BLKNO%=0 THEN STNO%=1 ELSE STNO%=BLKNO% :MAXNO%=BLKNO% 2430 'Write 2440 GOSUB 2500 2450 'Write end 2460 BLKNO%=SVBLKNO% 2470 IF A%=0 THEN PRINT "Write complete!" 2480 RETURN 2490 ' 2500 'Write subroutine 2510 FOR I=STNO% TO MAXNO% 2520 BLKNO%=I 2530 PRINT BLKNO%; 2540 POKE MADR+&H1C,BLKNO% 2550 LOADM LDFN$+HEX$(BLKNO%) 2560 A%=USR3(0) :'Exec 2570 IF A%=0 THEN PRINT ELSE PRINT " !!! Write ERROR !!!" 2580 NEXT 2590 RETURN 2600 ' 2610 '===== VERIFY ===== 2620 PRINT:PRINT "Verifying BlockNo:" 2630 'set variable 2640 GOSUB 1900 2650 DEF USR4=MADR+12 :'Verify command 2660 SVBLKNO%=BLKNO% 2670 IF ROMNO%<=3 THEN MAXNO%=1 ELSE MAXNO%=2^(ROMNO%-3) 2680 IF BLKNO%=0 THEN STNO%=1 ELSE STNO%=BLKNO% :MAXNO%=BLKNO% 2690 'Verify 2700 GOSUB 2760 2710 'Verify end 2720 BLKNO%=SVBLKNO% 2730 IF A%=0 THEN PRINT "Verify complete!" 2740 RETURN 2750 ' 2760 'Verify subroutine 2770 FOR I=STNO% TO MAXNO% 2780 BLKNO%=I 2790 PRINT BLKNO%; 2800 POKE MADR+&H1C,BLKNO% 2810 LOADM LDFN$+HEX$(BLKNO%) 2820 A%=USR4(0) :'Exec 2830 IF A%=0 THEN PRINT ELSE PRINT " !!! Verify ERROR !!!" 2840 NEXT 2850 RETURN 2860 ' 2870 '===== Memory Dump ===== 2880 DEF USR5=MADR+15 'Buffer dump command 2890 A%=USR5(0) :'Exec 2900 RETURN 2910 ' 2920 '===== Load from File ===== 2930 INPUT "Load Filename (except block no):";LDFN$ 2940 PRINT "Load for BlockNo:";BLKNO% 2950 LOADM LDFN$+HEX$(BLKNO%) 2960 RETURN 2970 ' 2980 '===== Save to File ===== 2990 INPUT "Save Filename (except block no):";SVFN$ 3000 PRINT "Save for BlockNo:";BLKNO% 3010 SAVEM SVFN$+HEX$(BLKNO%),BUFTOP%,BUFEND%,&H0 3020 RETURN 3030 ' 3040 END

機械語サブルーチン部を示します。

* * PROMSUB * * PROM Read/Write subroutine for FM-7 * * argument of USR function * MADR+&H17 :PWIDTH * MADR+&H18 :ROMNO-1 * MADR+&H19 :BLKNO * * First version Ver 1.0 '2020.10.10 * Original FLEX9 version '2020.09.13 * Copyright by Y.Yamamoto * BIOS EQU $FBFA ;F-Basic bios PIA EQU $FD9C PIADA EQU PIA ;ADRSH,ADRSL,DATA PIACA EQU PIA+1 PIADB EQU PIA+2 ;PB5:VPPCNT,PB4:OE,PB3:CE,PB1:AHI,PB0:ALO for 2716,32,256,512 * ;PB5:VPPCNT,PB4:OE,PB3:PGM,PB2:CE:PB1:AHI,PB0:ALO for 2764,128 PIACB EQU PIA+3 * ORG $4800 START EQU * LBRA SETPRM point by USR0() ;+0 LBRA CERASE point by USR1() ;+3 LBRA CREAD point by USR2() ;+6 LBRA CWRITE point by USR3() ;+9 LBRA CVERIFY point by USR4() ;+12 LBRA CDUMP point by USR5() ;+15 * BUFTOP FDB $5000 ;start addr BUFEND FDB $7000 ;end addr STADR FDB 0000 ;page top addr EDADR FDB 0000 ;page end addr PWIDTH FCB 01 ;PWIDTH:write pulse length (default 1ms) ROMNO FCB 00 ;ROMNO-1 (0..5) BLKNO FCB 00 ;BLKNO (0,1..8) DATCNT FCB 00 ;data count for disp CPARA1 FCB 00 ;cmd parameter(9bytes) CPARA2 FCB 00 CPARA3 FCB 00 CPARA4 FCB 00 CPARA5 FCB 00 CPARA6 FCB 00 CPARA7 FCB 00 CPARA8 FCB 00 CPARA9 FCB 00 * *------------------------------ * get parameter & set read param *------------------------------ GETPRM EQU * PSHS B,X LDB ROMNO ;ROMNO-1 (0..5) LEAX PARARD,PCR LSLB LSLB x4 ABX LDB #4 ;counter BSR SETPRM PULS B,X,PC * *------------------------------ * set read/write parameter * B:counter * X:adr of CPARARD or CPARAWR *------------------------------ SETPRM EQU * PSHS A,Y LEAY CPARA1,PCR SR1 LDA ,X+ STA ,Y+ DECB BNE SR1 PULS A,Y,PC * *read,verify,erase parameter PARARD EQU * FCB $28,$2A,$2B,$23 ;for 2716 FCB $28,$2A,$2B,$23 ;for 2732 FCB $20,$22,$23,$2B ;for 2764 FCB $20,$22,$23,$2B ;for 27128 FCB $28,$2A,$2B,$23 ;for 27256 FCB $28,$2A,$2B,$23 ;for 27512 * *write parameter PARAWR EQU * FCB $10,$12,$13,$13,$1B,$13,$13,$03,$13 ;for 2716 FCB $28,$2A,$2B,$0B,$03,$0B,$2B,$23,$2B ;for 2732 FCB $1C,$1E,$1F,$1B,$13,$1B,$1B,$0B,$1B ;for 2764 FCB $1C,$1E,$1F,$1B,$13,$1B,$1B,$0B,$1B ;for 27128 FCB $38,$3A,$3B,$1B,$13,$1B,$1B,$0B,$1B ;for 27256 FCB $28,$2A,$2B,$0B,$03,$0B,$2B,$23,$2B ;for 27512 * *------------------------------ * set start & end adrs * 2716,32,64 :whole rom(2k,4k,8k) * 27128,256,512 :8k(block specified by BLKNO) * * STADR decided by BLKNO *------------------------------ SETADR EQU * PSHS A,B,X LDX #0 STX STADR STX EDADR LDB BLKNO ;BLKNO BEQ SE1 DECB LDA #$20 ;8kb MUL EXG A,B STD STADR STD EDADR SE1 LDA #$08 ;2kb LDB ROMNO ;ROMNO-1 BEQ SE2 ;2716 2kb LSLA DECB BEQ SE2 ;2732 4kb LSLA else ;8kb SE2 ADDA EDADR STA EDADR ;2k,4,8k *set bufend LDA #$58 ;$5000+2k LDB ROMNO ;ROMNO-1 BEQ SE3 ;if 2716 ADDA #$08 ;4k DECB BEQ SE3 ;if 2732 ADDA #$10 ;8k SE3 STA BUFEND ;2k,4k,8k PULS A,B,X,PC * *============================ * ERASE CHECK all ROM area *============================ CERASE EQU * *set read parameter PSHS X ;save for return parameter *get param & set read param LBSR GETPRM *set start & end adrs LDX #0 STX STADR ;start adrs is 0 STX EDADR LDB ROMNO ;ROMNO-1 INCB ROMNO LDA #$04 ;assume 1k CE0 LSLA DECB BNE CE0 STA EDADR ;2k,4k,8k,16k,32k,64k * *erase check LDX STADR LDY EDADR CE1 LDA CPARA1 STA PIADB *ADRS SET TFR X,D ;read adrs STA PIADA ;adrsH LDA CPARA2 STA PIADB ;adrsH set STB PIADA ;adrsL LDA CPARA3 STA PIADB ;adrsL set *READ DATA & CHECK LDA CPARA4 STA PIADB ;ce:H->L LDA #$FF STA PIADA ;change to input mode LDA PIADA ;read data CMPA #$FF ;blank data? BNE CERERR LEAX 1,X LEAY -1,Y BHI CE1 CLRA ;no error CEEND PULS X STA 2,X STA 3,X RTS * CERERR LDA #-1 ;error BRA CEEND * *============================ * READ DATA of 1 block *============================ CREAD EQU * *set read parameter PSHS X save for return parameter *get param & set read param LBSR GETPRM * *set start & end adrs CR0 LBSR SETADR *read data LDX STADR LDY BUFTOP * CR1 BSR DSPCNT LDA CPARA1 STA PIADB *ADRS SET TFR X,D ;read adrs STA PIADA ;adrsH LDA CPARA2 STA PIADB ;adrsH set STB PIADA ;adrsL LDA CPARA3 STA PIADB ;adrsL set *READ DATA LDA CPARA4 STA PIADB ;ce:H->L LDA #$FF STA PIADA ;change to input mode LDA PIADA ;read data STA ,Y+ LEAX 1,X BEQ CR2 ;for EDADR=0 (27512) CMPY BUFEND BLO CR1 CR2 CLRA ;no error PULS X STA 2,X STA 3,X RTS * *------------------------- * DISP READ/WRITE COUNTER *------------------------- DSPCNT EQU * PSHS A,B,X TFR X,D TSTB BNE DSPEND LDA #'. JSR PUTCHR DSPEND PULS A,B,X,PC * *============================ * WRITE DATA of 1 block *============================ CWRITE EQU * PSHS X ;SAVE for return parameter LDB ROMNO ;ROMNO-1 PSHS B LEAX PARAWR,PCR LSLB LSLB LSLB x8 ABX PULS B ABX x9 LDB #9 ;counter LBSR SETPRM *set start & end adrs CW0 LBSR SETADR *write data LDX STADR LDY BUFTOP * CW1 BSR DSPCNT LDA CPARA1 STA PIADB ;start *ADRS SET TFR X,D STA PIADA ;adrsH LDA CPARA2 STA PIADB ;adrsH set STB PIADA ;adrsL LDA CPARA3 STA PIADB ;adrsL set LDA ,Y CMPA #$FF ;if $ff then skip BEQ CW4 STA PIADA ;data LDA CPARA4 STA PIADB ;data set *WRITE PULSE LDB PWIDTH ;write pulse width LDA CPARA5 STA PIADB ;write pulse PSHS X CW2 LDX #256 CW3 LEAX -1,X BNE CW3 DECB BNE CW2 PULS X LDA CPARA6 ;end write pulse STA PIADB LDA CPARA7 ;gap STA PIADB *DATA READ for VERIFY LDA CPARA8 STA PIADB ;verify LDA #$FF STA PIADA ;change to input mode LDA PIADA ;data read CMPA ,Y BNE CWERR LDA CPARA9 STA PIADB ;end verify CW4 LEAY 1,Y LEAX 1,X BEQ CW5 ;for EDADR=0 (27512) CMPY BUFEND BLO CW1 CW5 CLRA ;no error CWEND PULS X STA 2,X STA 3,X LDA #$38 ;VPP=0,OE,CE=H STA PIADB RTS * CWERR LDA #-1 BRA CWEND * *============================ * VERIFY DATA of 1 block * compare ROM(STADR-EDADR) and BUF(TOP-END) *============================ CVERIFY EQU * *set read parameter PSHS X ;save for return parameter *get param & set read param LBSR GETPRM *set start & end adrs CV0 LBSR SETADR *verify check LDX STADR LDY BUFTOP * CV1 LBSR DSPCNT LDA CPARA1 STA PIADB *ADRS SET TFR X,D ;read adrs STA PIADA ;adrsH LDA CPARA2 STA PIADB ;adrsH set STB PIADA ;adrsL LDA CPARA3 STA PIADB ;adrsL set *READ DATA & CHECK LDA CPARA4 STA PIADB ;ce:H->L LDA #$FF STA PIADA ;change to input mode LDA PIADA ;read data CMPA ,Y+ ;match data? BNE CVERR LEAX 1,X BEQ CV2 ;for EDADR=0 (27512) CMPY BUFEND BLO CV1 CV2 CLRA ;no error CVEND PULS X STA 2,X STA 3,X RTS * CVERR LDA #-1 ;error BRA CVEND * *============================ * DUMP BUFFER DATA *============================ CDUMP EQU * LBSR PCRLF LDX BUFTOP STX STADR MDMP0 LBSR DSPTTL LDX STADR LDB #16 STB DATCNT ;data cntr in line MDMP1 STX STADR PSHS B LEAX STADR,PCR LBSR OUTADR LDA #': LBSR PUTCHR LDA #$20 LBSR PUTCHR * display hexa data LDX STADR LDB DATCNT LBSR HEXDSP LDB DATCNT * display ascii data LDX STADR LDB DATCNT LBSR ASCDSP STX STADR ;set new start addr LBSR PCRLF * page ? PULS B DECB BNE MDMP1 * MD1 LDX STADR CMPX BUFEND BLO MD2 MDEND LBSR PCRLF RTS * MD2 LEAX MSKIN,PCR LBSR PSTRNG LBSR GETCHR ANDA #$DF CMPA #'Q quit? BEQ MDEND CMPA #'P Prev page? BEQ MD5 CMPA #'S Set address? BNE MD4 MD3 LEAX MADRS,PCR LBSR PSTRNG LBSR ADRIN CMPX BUFTOP BLO MD3 PSHS X LEAX -$100,X CMPX BUFEND PULS X BHS MD3 TFR X,D CLRB TFR D,X STX STADR MD4 LBRA MDMP0 * MD5 LDX STADR LEAX -$200,X CMPX BUFTOP BMI MD6 BRA MD7 MD6 LEAX $100,X MD7 STX STADR BRA MD4 * *-------------------- * display title DSPTTL EQU * LEAX MDTTL1,PCR BSR OUTSTR DEND BSR PCRLF RTS *-------------------- * hexa data disp of 1 line * B:counter HEXDSP BSR OUTHEX LDA #$20 BSR PUTCHR DECB BNE HEXDSP RTS *-------------------- * ascii data disp of 1 line * B:counter ASCDSP LDA ,X+ CMPA #$20 BHS ADSP1 LDA #'. BRA ADSP2 ADSP1 CMPA #$7F BLS ADSP2 LDA #'. ADSP2 BSR PUTCHR DECB BNE ASCDSP RTS * *-------------------- OUTSTR EQU * OU1 LDA ,X+ BEQ OUEND BSR PUTCHR BRA OU1 OUEND RTS * *-------------------- * display split line VSPLN LDB #57 display split line LDA #'- VSP BSR PUTCHR DECB BNE VSP BSR PCRLF RTS * *-------------------- GETCHR EQU * PSHS X,Y LEAX RCBKIN,PCR LEAY DBAKIN,PCR STY 2,X GE1 JSR [BIOS] LDA DBAKIN+1 BEQ GE1 LDA DBAKIN PULS X,Y * PUTCHR EQU * PSHS X,Y LEAX RCBOUT,PCR LEAY DBAOUT,PCR STY 2,X STA 6,X JSR [BIOS] PULS X,Y,PC * PCRLF EQU * LDA #$0D BSR PUTCHR LDA #$0A BSR PUTCHR RTS * PSTRNG EQU * PS1 LDA ,X+ CMPA #4 BEQ PS2 BSR PUTCHR BRA PS1 PS2 RTS * OUTHEX EQU * LDA ,X+ PSHS A ANDA #$F0 LSRA LSRA LSRA LSRA BSR PHEX PULS A ANDA #$0F BSR PHEX RTS * PHEX EQU * CMPA #10 BCS PH1 ADDA #7 PH1 ADDA #$30 BSR PUTCHR RTS * OUTADR EQU * BSR OUTHEX BSR OUTHEX RTS * ADRIN EQU * *clear buffer LEAX INBUF+6,PCR LDB #6 CLRA AD1 STA ,-X DECB BNE AD1 *input 4chr LDB #4 AD2 BSR GETCHR CMPA #$0D BEQ AD3 STA ,X+ DECB BNE AD2 *change hex LDB #2 LEAY INADRS,PCR AD3 LEAX INBUF,PCR AD4 PSHS B LDD ,X++ SUBA #$30 CMPA #10 BCS AD5 SUBA #7 AD5 LSLA LSLA LSLA LSLA STA ,Y SUBB #$30 CMPB #10 BCS AD6 SUBB #7 AD6 ADDB ,Y STB ,Y+ PULS B DECB BNE AD4 *get adrs LDX -2,Y RTS * INBUF FCB 0,0,0,0 INADRS FCB 0,0 * RCBKIN EQU * FCB 21 KEYIN FCB 0 FDB DBAKIN FDB 00 * DBAKIN FCB 0,0 * RCBOUT EQU * FCB 20 OUTPUT FCB 0 FDB DBAOUT FDB 0001 * DBAOUT FCB 0,0 * MDTTL1 FCC $0D,$0A,$0D,$0A,/ADDR: +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F 0123456789ABCDEF/ FCC $0D,$0A,/---- ----------------------------------------------- ----------------/ FCB 0 MSKIN FCC $0D,$0A,/Keyin (Q:Quit, P:Prev page, S:Select address, else:Next page):/ FCB 4 MADRS FCC $0D,$0A,/Address ($xxxx) = $/ FCB 4 END START

また、P-ROMに書き込むデータはF-BASICの機械語データ形式なので、先頭が 0x00,データサイズ(2bytes),書き込みアドレス(2bytes)の計5バイトで始まり、その後にデータ本体が続き、末尾が 0xFF,0x00,0x00,0x00,0x00の計5バイトで終わる形となります。

Windows上でデータファイルを8KB毎に分割し、上記の機械語形式に合わせて先頭と末尾に必要な各5バイトを追加するためのツールソフト spltdat.exeを作成しました。

以上より、私の場合のP-ROMに書き込む標準的な手順をまとめると、

（１）Windows上で書き込むバイナリデータを作成する。

（２）spltdat.exeで8KB単位のデータファイルに分割する。

        元ファイル ROMDAT --> 変換後ファイル ROMDAT1, ROMDAT2,...,ROMDAT8

（３）作成されたデータファイルをFM-7に転送する。

    　転送手段としてはRS-232Cカードを使用できますが、それ以外にも思い付きハードでソフトに七転八倒さんによるFT-245使用の高速転送カードやArduinoMega2560使用のカードも使用できます。

（４）ドライバ PROMWRと書き込みデータを同じディスクに入れておいて、PROMWRを起動する。

（５）P-ROMの種類、書き込むブロック範囲、書き込みパルス幅を指定して書き込む。

以上です。

もちろんF-BASIC上で書き込みデータを直接作成して、そのまま書き込むこともできますが、その場合には＄5000～$6FFFのバッファにデータを置き、一旦SAVEMで末尾にブロック番号を付けたファイル名で保存する必要があります。

作成した 書き込みソフトPROMWR, PWRSUBとツールspltdat.exeをOneDriveに置いておきます。なお、PROMWRはF-BASICのASCIIセーブ形式、PWRSUBは機械語データ形式になっていますので、そのままでF-BASICのディスクに保存できます。

FM-7/77のF-BASIC用の仮想ドライブ構築ソフトが完成

F-BASIC(V3.0)のドライブ2,3として仮想ドライブを構築するソフトが完成

［2020年11月3日］仮想ドライブ構築ソフトのバグ修正版Ver1.2に関して追記しました

［2021年1月13日］仮想ドライブ構築ソフトのバグ修正版Ver1.21に関して追記しました

今まで、FM77AV40SX上でFLEX9とOS-9用にWindows機上の仮想ドライブを構築して、内蔵ドライブ0,1に加えて仮想ドライブを2,3として使用していましたが、最近、常用しているSXに加えて、再びFM-7をいじりだしたこともあり、ディスクドライブを持たないFM-7でDISK-BASICを使いたくて、先日製作したRS232Cカードを使用して何とかしたいと考えていました。
そんな時に、日本橋電気街徘徊日誌さんからプリンタポートに接続するシリアルメモリからDISK-BASICを起動するカードを頂きましたので、これをベースにして仮想ドライブを構築することとしました。

RS232Cを内蔵しているFM77AV以降の機種ではそのままで、FM-7（DISK-BASICが動作する環境が必要）等ではRS232Cカードを追加すれば仮想ドライブが実現できます。これによって、ファイルは全てWindows上のファイルとして保存でき、簡単にDISK-BASICとの間でやり取りできます。
さらに、私の製作した拡張I/OボードのFT245RLやFT232RLを用いたパラレル/シリアルポートを使用することもできます。

全体の構成図は以下のようです。

全体の構成

FM-7用のRS232Cカードは8月16日のブログで紹介したもので、拡張I/Oボードは6月12日と8月26日のブログで紹介したものです。

制作したプログラム

（１）仮想ドライブ構築ソフト FBasDrvWin.exe（Windows側）
基本的な考え方は2018年4月16日のブログ「FLEX用Virtual Driveの作り方」で説明した通りですが、DISK-BASICのFMS（ファイルマネージメントシステム）に相当するものを実装する必要がありますので、エミュレータXM7を用いて、ファイルを追加・削除・名称変更などをする毎に変更前と変更後のDSKファイルの全体を比較し、どこが書き変わっているかを調べるという愚直な手法で調査し実装しました。
手間としては、OS-9のような複雑なシステムではなく、比較的単純なFATシステムですので、それ程大変ではありませんでした。

実際に使用してみると、BASICプログラムについては、Windowsで作成して仮想ドライブにDrag/Dropすることで簡単にDISK-BASIC側に持っていけるのですが、機械語プログラムはそのままでは持っていけないので、S-format形式やHex形式のファイルを読み込んでDISK-BASICの機械語ファイル形式に変換して保存する機能を追加しました。

（２）ドライブ拡張ソフト WINDRVxx（FM側）
基本的にはドライブ番号が2,3の場合にBIOSの8,9,10を切り替えて、仮想ドライブにアクセスするようにすれば良いわけですが、それをどこに置くかが問題です。
参考にしたのは、Oh'FM 1984年11月号に掲載された「裏RAMディスク」（轍名聡さん）です。これを見習ってBIOSの変更部のみを$FC30～に置き、その他は裏RAMの$8000～に置くことで表RAMの消費を少なくすることができました。

後はFMとWindows間の通信に関わる部分のみで、3種類の通信経路を実装しました。
RS232Cの8251A、拡張I/Oボード上の6850+FT232RL(または6850+ADM232)と6821+FT245RLの3つです。

8251Aのプログラムに関して

6850と6821を使用した場合のプログラムは、慣れていることもあり、割とすんなりと作成できましたが、8251Aを使用する方には苦労しました。
FM側からの送信はできるのですが受信ができないのです。F-BASICのプログラムでは問題なく送受信ができることからハードに問題がないことは分かりますし、プログラムも単純なもので、それにRTS/CTSによるハードウエア制御を加えただけで、6850では同様な制御がちゃんとできています。
この問題に一ヶ月以上を費やしましたが、ネットにも8251Aを機械語でハードウエア制御した例は見つからず、お手上げ状態でした。そんな時に、ネットのルネサスの質問箱のようなところで、USARTでのRTSは送信・受信の両方を同時には制御できないようだという書き込みを見ましたので、もしかしたらこれかもと思いましたら、ビンゴでした。

つまり、8251AでRTS制御するときには、RxEとTxENを同時にイネーブルにしてはいけないということでした。受信時にはRxEのみをイネーブルにし、送信時にはTxENのみをイネーブルにしなければならないということなのです。その部分のソースリストを示します。

*

MRSTU EQU $40 ;master reset
MODEU EQU $4E ;1stopbit,non pari,8bit,16x
CLRTSU EQU $15 ;RTS=H,ER,RxE,TxEN
SERTSUR EQU $34 ;RTS=L,ER,RxE for receive
SERTSUS EQU $31 ;RTS=L,ER,TxEN for send
TxEMPTY EQU $04

*

*--------------------------------------

* receive from serial port

* (use USART 8251A)

*    A <- port

*

RCVCH EQU *

 LDA #SERTSUR ;RTS=L

 STA SCMD

 NOP

RCV1 LDA SSTS

 ASRA

 ASRA

 BCC RCV1

 LDA SDATA ;get data

 PSHS A

 LDA #CLRTSU ;RTS=H

 STA SCMD

 PULS A,PC

*

*--------------------------------------

* send to serial port

* (use USART 8251A)

*    port <- A

*

SNDCH EQU *

 PSHS A

 LDA #SERTSUS ;RTS=L

 STA SCMD

 NOP

SND1 LDA SSTS

 ASRA

 BCC SND1

 PULS A

 STA SDATA ;send data

 PSHS A

SND2 LDA SSTS

 BITA #TxEMPTY

 BEQ SND2

 LDA #CLRTSU ;RTS=H

 STA SCMD

 PULS A,PC

*

6850では同時にイネーブルにしても何の不都合もありませんので、8251Aのこの制約は何なのだろうかと思います。

知っている方には常識かもしれませんが、どなたかのプログラミングの参考になればと思いますのであえて書き記しておきます。

プログラムですが、メモリ節約のためにすべてに対応するプログラムではなく、別々のプログラムとしました。
　FM-7（8251Aカード)用　　　　 ：WINDRVU7
　FM77AV40SX（内蔵8251A)用 　：WINDRVUX
　FM-7/FM77AV40SX共通（6850+FT232RL用）：WINDRVA
　　　　　　　　　　　　（6821+FT245RL用）：WINDRVP　（要RTS制御）
の4種類です。

動作中の様子

各部の接続の様子を示します。左上に見えるのがシリアルメモリからDISK-BASICを起動するカードで、プリンタポートに接続されており、電源は拡張ポートから取っています。
左が自作の拡張I/Oボードで、FM77AV40SX用に製作したものですが、インターフェースボードを介して32Pスロットに接続しています。

動作中の様子

Windows機上のFBasDrvWin.exeの画面です。DSKファイルだけでなく、D77ファイルも扱えます。

FBasDrvWin.exeの画面

RS232Cカードと拡張I/Oボードへのケーブルの接続の様子です。

RS232Cカードと拡張I/Oボードへのケーブル

拡張I/Oボードへのインターフェース基板です。単なるピン配置の変換のみです。

拡張I/O ボードへのインターフェース基板

プログラムのインストール方法

インストールするためのF-BASICプログラムを用意しました。インストールの手順書を添付しましたので、そちらをご覧ください。

プログラムの使用方法

（１）FM-7，FM77AV40SX側
起動時にドライブ数として4を指定します。
LOADM "x:WINDRVxx",,R と入力して、必要なプログラムを起動します。

（２）Windows側
FBasDrvWin.exeを起動します。
起動時に同じフォルダ中に.INIファイルがあれば、それを読んでポート番号、ボーレート、ハンドシェークを設定します。
ボーレートはFM77AV40SXで8251A使用の場合のみ19200baud、その他は38400baudです。
処理するディスクファイルをDrive 2や3のボックスにDrag/Dropします。
ディスクファイルの形式はDSK形式とD77(D88)形式のどちらにも対応しています。
ファイルリスト欄でファイルの追加、削除、名称変更ができます。

【制約】2DDディスク対応について
FBasDrvWin.exeは2DDディスクファイルに対応するように制作してありますが、WINDRVxxの方は現在のバージョンではF-BASIC V3.0にのみ対応しています。
F-BASIC V3.3では$FC30からの領域を使っているのか、それとも裏RAMの$8000からの領域を使っているのか不明です。保存領域をずらしてみたりしているのですが、今のところ動作させることができていません。もしかしたらBIOSそのものの場所がV3.0とは違っているのかも。（F-BASICのことは良く分からない。。。）

（FBasDrvWin.exe単独で2DDディスクファイルを処理することはできますので、例えばこれを用いて作成したディスクファイルをエミュレータXM7で使用することもできます。）

（３）F-BASICで扱うファイルの形式（の一部）
（３－１）BASICファイル（アスキーセーブ）
先頭に改行（$0D,$0A）があればBASICアスキーファイルと解釈される。
（３－２）BASICファイル（バイナリセーブ）
先頭からプロテクトフラグ($FF,$FE）、UNLIST開始行番号、以降にテキストが続く。
（３－３）機械語ファイル
先頭から$00、データ長（2バイト）、格納開始アドレス(2バイト）、データという形のデータブロックが一つだけ。最後に$FF、ダミー（2バイト）、入り口番地（2バイト）という形の終了ブロックが続く。

WinodwsからファイルをDrag/Dropで追加する場合、先頭の文字を見て、以上の3つを判別してディスクファイルに格納しています。
例えばBASICプログラムをWindows上で作成する場合は、先頭に空行を入れておけば良いということです。また、機械語ファイルの場合はS-format形式あるいはHex-format形式にして放り込めば、機械語ファイル形式に変換されて保存されます。

終わりに

もう使わないだろうと思ってFM-7の5インチ・3.5インチディスクシステムやディスプレイ一式を処分してしまっていたのですが、63C09カードなどがあるので全てを処分するには忍びなく、本体2台とソフトだけは残しておいたのですが、これでフロッピィを使わずにDISK-BASICを使うことができるようになりました。
カードを下さった日本橋電気街徘徊日誌さんに感謝いたします。

制作したプログラム（WINDRVxxはソースとバイナリ、FBasDrvWin.exeはバイナリのみ、インストールに使用するBASICプログラム）をOneDriveに上げておきます。

蛇足というか愚痴というか...
しかし、32Pスロット用のコネクタは入手しにくいですね。1個1,000円近く出せば入手できるようですが高すぎる。ちょっと前には秋葉原の通販で少しは安く買えたのですが、今回注文したら、何と入荷が11月半ばだそうです。（でも待つしかない、トホホ）
手持ちももう切らしているので、工作が進まない。。。

［2020年11月3日追記］

公開したFBasDrvWin.exeにバグが見つかりましたので修正版Ver1.2をOneDriveに上げておきました。

［2021年1月13日追記］

公開したFBasDrvWin.exeにバグが見つかりましたので修正版Ver1.21をOneDriveに上げておきました。（単純なバイナリファイルのドラッグ＆ドロップ時の処理の修正）