FM-7用の32Pスロット拡張基板の製作（第５作）

 32Pスロット拡張基板の第５作目です（ついに最終版？）

2022年3月1日の「FM-7用の32Pスロット拡張基板の製作（第４作！）」で紹介した拡張基板ですが、これで終わりにしようと考えていました。

しかし、使用していると、本体の50P拡張コネクタからのケーブルをあまり長くできないので不便を感じることがありました。ということで、拡張ベース基板上にスペースが十分ありますので、データ線と制御線にバッファを追加することで50Pケーブルを長くしても動作するようにしたいと考えました。さらに、FM-7本体の32Pスロットには+12V,-12V電源も来ているので、私的には特に必要はなかったのですが、ついでに12V電源も追加して本体の32Pスロットとの完全互換を実現することにしました。

製作した基板を示します。

拡張コネクタベース基板

32Pコネクタ拡張基板

製作したベース基板の回路図です。

ExConnBase51

正負12V電源用のDC-DCコンバータとしてMAU109（秋月電子で購入）を使用することにしました。これについては、カベキンブログの「富士通 FM-7用32Pスロット拡張基板に±12Vの電源を追加」（2022年4月6日）を参考にさせていただきました。カベキンさまに感謝いたします。

相変わらずミスがあって、、、

実は製作したプリント基板にはミスがあり、なかなか動作しませんでした。上記の回路図はそのミスを修正したものです。

単純なミスのU2(74LS541)のEXTDETとIRQの入出力の向きが逆であることはすぐに分かったのですが、最後の一つはなかなか分かりませんでした。

FM-7に接続すると、殆どの場合起動しないのですが、ごくまれに正常に起動するのです。しかも、起動した場合でもU5(74LS245)だけが異常に熱くなるのです。

プリント基板上の配線を何度見直しても異常はありません、試作品という事でICソケットを使用していましたので、74LS245を交換してみましたが変わりません。ついには追加した12V電源の存在を疑って、MAU108を取り外したりしてみましたが変化はありません。

あれこれと２日間も悩んだ挙句ようやく原因に気づきました。

何と、U5(74LS245)のCE端子をGNDに落としていました。これによってU5が常にアクティブになっていて、FM-7本体のデータバスと衝突したために発熱していたという事なのでした。（相変わらずいつもどこかでドジをしています。。。）

修正してようやく動作した

U5のCE端子をIOS0に接続することによって、ようやく正常に動作するようになりました。期待した通り、50Pフラットケーブルを長くしても正常に動作しましたので、配置などの取り回しが楽になりました。

32Pコネクタ拡張基板の方は、コネクタの数を第４作の３個から４個に増やしてみました。これは、バッファを追加したことでドライブ能力が大きくなった（？）と期待してのことです。さらにコネクタを増設できるような端子が２箇所ありますが、これは富士通のFCNコネクタ（現在は入手が極めて困難です）を使用せずに、通常のコネクタとピンヘッダでも使用できるようにと考えてのことです。

最終と考えているこの基板ですが、最終基板に修正用のジャンパ線が走っているのは嬉しくないので、修正した回路でもう一度基板を発注しました。（今度こそ最終版にしたい...）

PC用の2DDドライブをFM-7等で使うためのアダプタの基板化

PC用の2DDドライブをFM-7等で使うためのアダプタを基板化してみました 

2019年10月26日の「FM-7でPC用のフロッピードライブを使う」で紹介しました、PC用の2DDドライブをFM-7等で使うための、FDDに直接装着するタイプのアダプタをプリント基板化しました。

簡単なものですのであえて基板化する必要もないのですが、他の基板を発注する際に、ついでにということで製作してみたものです。

製作したアダプタは下画像のようです。

アダプタのFDD側

アダプタのFDC側

回路は簡単すぎて、回路図を示すほどのものではありませんが、FDCからのドライブセレクト信号（0あるいは1）をピン12に入れる切り替えスイッチと、ダイオード1個によるReady信号生成回路からなっています。このダイオード1個によるReady信号生成回路は前回同様に、てきとーに。さんの「FM77AV20/40以降のFDD修理というか交換」中のダイオード1個による簡便な変換回路を使わせていただいています。感謝いたします。

FDD ADAPTER

FDDに直接装着して使用します。

FDDに装着した様子

そしてFDCからのケーブルと電源ケーブルを接続します。画像では、FM-7上の自作FDCカードと接続しています。この時、FDC右端のStep信号2倍化回路のスイッチをDouble側にセットしておきます。使用したFDDはTEACのFD-235HGです。

【注意】対応しているFDDには制限があります。構造上、34Pコネクタの上部に電源コネクタがあるMITSUMIのドライブにはそもそも装着できないので使用できません。これは、以前私がチェックした限りでは、このダイオード1個によるReady信号生成回路ではMITSUMIのD353やD359の中には動作しないものがあったために、対象外と考えたためです。確実に動作するのはTEACのFD-235HGやHFで、他にSONYのMPF920も動作確認をしています。これらについては、2019年12月31日の「FM-7でPC用のフロッピードライブを使う（その後の訂正・補足）」をご覧ください。

なお、FM-7ではStep信号２倍化回路が必要ですが、FM77AV20/40/40SX等のFDDが2DD仕様のものでは接続するだけでそのまま使用できます。私は手配線のものをFM77AV40SXで2019年以来使用していますが、特に不都合は生じていません。

ドライブ番号として0と1が選択できますので、2台までのFDDが制御できます。

FDDを2台制御できます

以上、手配線で使用していたものをプリント基板化してみたというだけの報告でした。

なお、画像のような基板が数多くできてしまいましたので、もしご希望の方がおられましたらお申し出くだされば、郵送料(84円)のみでお送りできます。

製作した基板

実際に製作するためには、34Pのピンヘッダ（オス）、34Pのピンソケット（メス）、通常の信号用ダイオード、3Pスライドスイッチが必要です。

また、本文中に書きましたように、対応していないドライブがあることをご承知おきください。

2DDドライブ用ステップ信号２倍化回路をFDD２台に対応させました

 2DDドライブ用ステップ信号２倍化回路を２台のFDDが接続できるように改良しました

2020年7月29日の「2DDドライブ用ステップ2倍化回路のその後」で紹介しましたステップ2倍化回路ですが、ドライブ毎にそれぞれ2倍化基板が必要となるのは煩雑なので、1枚の基板でドライブ2台を制御できるように改良しました。

最初は単純に２回路を１枚の基板に収めたものを製作して使用してみましたが、これは如何にも大きすぎて、扱いにくいものでした。

左：従来のもの　右：最初に製作した２回路版

そもそも、よく考えてみるとATtiny85が2個も必要なわけではありませんでした。ということで、回路を見直した結果、現在の基板と同じサイズに収めることができました。

その回路を示します。

FDD2台用回路

次に製作した２台用基板

右端の34PコネクタにFDCからのケーブルを、左端のコネクタとその隣の上向きのコネクタに2台のFDDへのケーブルを接続します。上下に出ている4PはFDD用の電源ケーブルです。

（FDD用のコネクタが左と上に向いているのは、当初、左向きのコネクタをメスにしてFDDに直接装着することでケーブルを省略できると考えていたからなのですが、それはそれで使いにくい面もあり、結局ケーブルで接続する形にしています。）

ドライブ番号は0～3から指定でき、それぞれStep信号2倍化回路を通すか通さないかを選択できますので、PC用の2DDのFDDのみでなくGOTEKや2Dのドライブも接続できます。

（GOTEKを使用する場合は、常に本体のドライブ番号はS0ではなくS1にセットしておきます。）

下画像はGOTEKをドライブ0に、PC用FDDをドライブ1に指定して、自作のFDCカードに接続した様子です。

使用中の様子

長いケーブルを使用したので、結構ゴチャゴチャに見えますね...

でも従来の基板と同じサイズのもので2台のFDDが制御できるようになったので、目的は達成できました。

自作クロスアセンブラの修正とASSIST09のFM-7への移植

 ASSIST09がアセンブルできるように自作クロスアセンブラを修正し、FM-7に移植してみました

【9月20日訂正】末尾に訂正が一個所あります。

発注しているプリント基板ができあがるまでハードいじりは措いておいて、いつかは直そうと思っていたソフトの修正に取り掛かりました。

まずは6809用のクロスアセンブラですが、以前、「必要に迫られて自作したアセンブラ等のツールソフトの紹介（2021年9月1日）」で紹介したもので、ASSIST09のソースをアセンブルする際にはそのままではアセンブルできず、ソースを修正する必要がありました。

例えばASSIST09のソースの1684行は

FCB 'H,$01,'H,$01,'H,$00,',,$00　--> $48,$01,$48,$01,$48,$00,$2C,$00 になって欲しい

となっていますが、この中の「',」が$2Cとならずに区切り記号と解釈されてしまうのです。ですので、アセンブルする際には「',」を$2Cと置き換えてアセンブルしていました。

ちなみに、使用者が多いと思われるアークピットさんのX6809でもこれは正常にアセンブルされません。アセンブル結果は次のようになります。

$48,$2Ｃ,$24,$30,$31,$2C,$00,$01,$48,$2C,$24,$30,$30,$2C,$00,$00

これは、X6809では1文字は「'」で囲んで「','」にしなければならないという仕様になっているからです。

私の自作アセンブラ（6809用、6800用）でも、最初はそのような仕様にしていたのですが、ASSIST09だけではなく他のソースでも後ろの「'」のない書き方が多いようなので、どちらの書き方にも対応するように変更した結果、「',,」が正常に変換されないというバグが発生していました。

もう一つの不具合も FCB疑似命令に関するもので、負数がちゃんと変換されないというもので、FCBのオペランド中での負数の処理にバグがありました。そのため、やはりアセンブル前にソースのFCBのオペランド中の-1を$FF,-2を$FEのように書き換えていました。

上記の２つの不具合はいずれもFCBのオペランド文字列の解釈に関するものでしたので、それを修正したVer1.92を作成しました。これによって「',」でも「','」のどちらでも正しく変換できるようになりました。

Ver1.92でのアセンブル結果

WARNINGが出ている

ASSIST09をアセンブルするために

以上で自作クロスアセンブラでASSIST09をアセンブルできるようになったのですが、実はソースそのものを何箇所か変更する必要があります。

私が以前から使用していたものは、書籍「MC6809-MC6809Eマイクロプロセッサ プログラミング マニュアル」中のソースではなくバイナリを手入力したもので、必要な個所を直接書き換えて使用していました。当時はアセンブラを所有していなかったので、ソースをアセンブルできなかったのです。

その後、ネットからソースを入手しましたが、そのソースが書籍のものと何箇所か異なっていることに気づいてはいましたが、ちゃんとソースを読んでいませんでした。

最近、ソースをアセンブルしてバイナリを得る必要があったので、書籍と見比べた結果、やはり書籍版を使用することにして、書籍版に合わせてネット版ソースを変更しました。

（私は今まで書籍版のバイナリを使い続けており、ネット版をそのままアセンブルしたものを使用したことがありませんので、動作にどんな違いがあるのかは分かりません。）

変更したのは下記の４箇所です。

１．825行からのCIDTAルーチン

２．870行からのCODTAOルーチン

３．1085行のCPX命令は6800の命令なのでCMPXに変更

４．1619行のCBKADDルーチンのDECBを変更

以上の変更を加えたソースを自作クロスアセンブラでアセンブルすると６つのWarningが出ますが、これはExtend命令と解釈したがDirect命令に変更できるよという警告ですので、該当の6箇所のオペランドの先頭にDirect命令を指示する「<」を付加します。改めてアセンブルするとWarningも出ずに、書籍と同じバイナリが生成されました。

以前は、Direct命令に変更できる場合は常に変更したコードを生成するようにしていたのですが、これではまずい場合がありましたので現在のような仕様にしているのですが、元のソースを書き換える必要があるのは嬉しくないので、変更するかしないかを選択できるようにしたVer1.93を作成しました。プログラムソースをかなり書き換えたので、正常に動作するかどうかをテスト中です。

FM-7へのASSIST09の移植

以前、ASSIST09に関するブログを書いた際には、もう既に移植済みのASSIST09にコマンドを追加したという内容でした。

「ASSIST09に追加したLoad, Saveコマンドを改良しました」（2018年6月27日）

「ASSIST09にLoad, Saveコマンドを追加」（2018年5月26日）

今さらとは思いますが、マイコンなどへの移植はネットでもいくつか見ますが（私も昔から自作マイコンで使用しています）、FM-7への移植はあまり見たことがないので、ここでFM-7へのASSIST09の移植の手順について書いてみたいと思います。

なお、以下の移植の手順についてはインターフェース誌1982年4月号の「ASSIST09の詳細とFM-8への移植（高橋豊）」をほとんどそのままFM-7に適用したものです。高橋豊さんに感謝いたします。

［１］最も簡単な移植（入出力にACIAを使用、領域圧縮なし、拡張ROMなし、アドレス$F800からに配置）

アセンブラが使用できればソースを変更してバイナリを生成できますので、ソースの24行、25行のACIAとPTMのアドレスを変更し、配置するアドレスを20行に書いてアセンブルするだけです。PTMが実装されていない場合はアドレスに$0000を書いておきます。

しかし、これでは2KBのASSIST09の他に6KBもの使われないエリアが生じて無駄が多くなりますし、そもそも、FM-7のようなパソコンの$F800からには移植できません...

［２］簡単な移植（入出力にACIAを使用、領域圧縮なし、拡張ROMなし、任意のアドレスに配置）

任意のアドレスに配置する場合には、２０行目のROMBEG（スタートアドレス）を書き換えます。さらに［１］の設定に加えて、SWIやNMIのベクターアドレスをASSIST09用に再設定する必要があります。ベクターアドレスについては直接設定することになります。

［３］未使用領域を圧縮して移植（拡張ROMあり、他は［２］と同様）

拡張ROMを使用する場合は、それを用いて必要な再設定をすることができます。図のFM-7への配置例で示したものでは、$6800～$6FFFにASSIST09を配置し、その下に$100バイトの拡張ROMを置き、その下からがスタック／ワークエリアとしています。ソースの変更箇所はROMBEG（スタートアドレス）とRAMOFS（拡張ROMのオフセット）のみで、他は拡張ROM中で設定できます。

ASSIST09の配置例

ASSIST09は拡張を容易にするために、自身のアドレスから2KB下に$20,$FE(BRA *)があると、拡張ROMがあるとみなし、ASSIST09の起動前に$20,$FEの次のアドレスにサブルーチンジャンプすることで、ユーザの初期化プログラムなどを実行することができます。図では、2KB下ではなく$100バイト下に設定しています。

この初期化プログラム中で必要な処理を書くわけですが、最小限必要な処理は以下の２つです。

・1文字入力ルーチン、1文字出力ルーチンをFM-7のそれに置き換える。

・SWI、NMIルーチンをASSIST09用に置き換える。

SWIはASSIST09の内部でサブルーチンコールなどのために使用しています。NMIはBREAKキーでF-BASICに戻るために使います。

その他、コマンドの拡張もここで行うことができます。

拡張ROMの例を下に示します。まず最小限のものです。

0001 * 0002 * ExROM for FM-7 （最小版） 0003 * 0004 * ASSIST09の詳細とFM-8への移植 0005 * 高橋豊 インターフェース 1982年4月号 PP138-162 0006 * 0007 6800 ROMBEG EQU $6800 0008 0100 ROMSIZ EQU $100 0009 6700 ROM2OF EQU ROMBEG-ROMSIZ 0010 0020 LINSIZ EQU $20 0011 67E0 ROMLIN EQU ROMBEG-LINSIZ 0012 0013 0016 QCIDTA EQU 22 0014 001C QCODTA EQU 28 0015 0016 * ----- USER ROM ------ 0017 0018 6700 ORG ROM2OF 0019 0020 6700 20 FE BRA * USER ROM MARK 0021 0022 6702 INIT EQU * 0023 * CIDTA==> GETKEY 0024 6702 31 8C 0C LEAY <GETKEY,PCR 0025 6705 10AF C8 16 STY QCIDTA,U 0026 * CODTA==> OUTCRT 0027 6709 31 8C 27 LEAY <OUTCRT,PCR 0028 670C 10AF C8 1C STY QCODTA,U 0029 6710 39 RTS 0030 0031 * FM-7 HANDLER 0032 DB6D GTKEYE EQU $DB6D INPUT 1 CHR 0033 D9D9 OTCRTE EQU $D9D9 OUTPUT 1 CHR 0034 FBF7 CSRONE EQU $FBF7 CURSOR ON 0035 FBEB CSROFE EQU $FBEB CURSOR OFF 0036 8684 BASICE EQU $8684 RETURN TO BASIC 0037 0313 STPFLG EQU $0313 BREAK FLAG 0038 0039 6711 GETKEY EQU * 0040 6711 34 7C PSHS B,DP,X,Y,U 0041 6713 4F CLRA 0042 6714 1F 8B TFR A,DP 0043 6716 B6 0313 LDA STPFLG 0044 6719 27 03 BEQ CONT 0045 0046 671B 7E 8684 JMP BASICE 0047 0048 671E BD FBF7　CONT JSR CSRONE 0049 6721 BD DB6D JSR GTKEYE 0050 6724 1C FE ANDCC #$FE 0051 6726 27 09 BEQ GTKYRT 0052 6728 34 02 PSHS A 0053 672A BD FBEB JSR CSROFE 0054 672D 35 02 PULS A 0055 672F 1A 01 ORCC #1 0056 6731 35 FC GTKYRT PULS B,DP,X,Y,U,PC 0057 0058 6733 OUTCRT EQU * 0059 6733 34 7E PSHS A,B,DP,X,Y,U 0060 6735 4F CLRA 0061 6736 1F 8B TFR A,DP 0062 6738 A6 E4 LDA ,S 0063 673A BD D9D9 JSR OTCRTE 0064 673D 35 FE PULS A,B,DP,X,Y,U,PC 0065 0066 67E0 ORG ROMLIN 0067 0068 *LINK TO FM-7 0069 0269 MONTRP EQU $0269 FM-7 MONITOR 0070 01D7 SWITRP EQU $01D7 FM-7 SWI 0071 01DA NMITRP EQU $01DA FM-7 NMI 0072 0073 67E0 LINKER EQU * 0074 67E0 30 8C 54 LEAX <RESET,PCR 0075 67E3 BF 026A STX MONTRP+1 0076 67E6 308D 07FE LEAX SWI,PCR 0077 67EA BF 01D8 STX SWITRP+1 0078 67ED 308D 07FB LEAX NMI,PCR 0079 67F1 BF 01DB STX NMITRP+1 0080 67F4 86 7E LDA #$7E JMP $**** 0081 67F6 B7 0269 STA MONTRP 0082 67F9 B7 01D7 STA SWITRP 0083 67FC B7 01DA STA NMITRP 0084 67FF 39 RTS 0085 0086 6837 RESET EQU ROMBEG+$037 ASSIST09 START 0087 6FE8 SWI EQU ROMBEG+$7E8 ASSIST09 SWI 0088 6FEC NMI EQU ROMBEG+$7EC ASSIST09 NMI 0089 0090 END 0 error(s), 0 warning(s) is detected. Label address BASICE 8684 CONT 671E CSROFE FBEB CSRONE FBF7 GETKEY 6711 GTKEYE DB6D GTKYRT 6731 INIT 6702 LINKER 67E0 LINSIZ 0020 MONTRP 0269 NMI 6FEC NMITRP 01DA OTCRTE D9D9 OUTCRT 6733 QCIDTA 0016 QCODTA 001C RESET 6837 ROM2OF 6700 ROMBEG 6800 ROMLIN 67E0 ROMSIZ 0100 STPFLG 0313 SWI 6FE8 SWITRP 01D7  

コマンドの拡張は非常に有用ですので、高橋豊さんの例をそのままお借りしてコマンド拡張方法の具体例を示します。

0001 * 0002 * ExROM for FM-7　（拡張コマンドあり、ACIA/PTM処理あり） 0003 * 0004 * ASSIST09の詳細とFM-8への移植 0005 * 高橋豊 インターフェース 1982年4月号 PP138-162 0006 * 0007 6800 ROMBEG EQU $6800 0008 0100 ROMSIZ EQU $100 0009 6700 ROM2OF EQU ROMBEG-ROMSIZ 0010 0020 LINSIZ EQU $20 0011 67E0 ROMLIN EQU ROMBEG-LINSIZ 0012 0000 PTM EQU $0000 0013 0000 ACIA EQU $0000 0014 0015 000A LF EQU $A 0016 000D CR EQU $D 0017 0020 SPACE EQU $20 0018 0019 0003 PDATA EQU 3 0020 0009 VCTRSW EQU 9 0021 0022 0016 QCIDTA EQU 22 0023 001C QCODTA EQU 28 0024 002A QEXPAN EQU 42 0025 002C QCMDL2 EQU 44 0026 002E QACIA EQU 46 0027 0034 QPTM EQU 52 0028 0029 009B NUMBER EQU $9B 0030 0031 * ----- USER ROM ----- 0032 0033 6700 ORG ROM2OF 0034 0035 6700 20 FE BRA * USER ROM MARK 0036 0037 6702 INIT EQU * 0038 * CIDTA==> GETKEY 0039 6702 31 8C 23 LEAY <GETKEY,PCR 0040 6705 10AF C8 16 STY QCIDTA,U 0041 * CODTA==> OUTCRT 0042 6709 31 8C 3E LEAY <OUTCRT,PCR 0043 670C 10AF C8 1C STY QCODTA,U 0044 * PTM==> USER PTM 0045 6710 108E 0000 LDY #PTM 0046 6714 10AF C8 34 STY QPTM,U 0047 * ACIA==> USER ACIA 0048 6718 108E 0000 LDY #ACIA 0049 671C 10AF C8 2E STY QACIA,U 0050 *SET USER COMMAND TABLE 0051 6720 31 8C 33 LEAY <USRCMD,PCR 0052 6723 10AF C8 2C STY QCMDL2,U 0053 6727 39 RTS 0054 0055 * FM-7 HANDLER 0056 DB6D GTKEYE EQU $DB6D INPUT 1 CHR 0057 D9D9 OTCRTE EQU $D9D9 OUTPUT 1 CHR 0058 FBF7 CSRONE EQU $FBF7 CURSOR ON 0059 FBEB CSROFE EQU $FBEB CURSOR OFF 0060 8684 BASICE EQU $8684 RETURN TO BASIC 0061 0313 STPFLG EQU $0313 BREAK FLAG 0062 0063 6728 GETKEY EQU * 0064 6728 34 7C PSHS B,DP,X,Y,U 0065 672A 4F CLRA 0066 672B 1F 8B TFR A,DP 0067 672D B6 0313 LDA STPFLG 0068 6730 27 03 BEQ CONT 0069 0070 6732 7E 8684 JMP BASICE 0071 0072 6735 BD FBF7　CONT　JSR CSRONE 0073 6738 BD DB6D JSR GTKEYE 0074 673B 1C FE ANDCC #$FE 0075 673D 27 09 BEQ GTKYRT 0076 673F 34 02 PSHS A 0077 6741 BD FBEB JSR CSROFE 0078 6744 35 02 PULS A 0079 6746 1A 01 ORCC #1 0080 6748 35 FC GTKYRT PULS B,DP,X,Y,U,PC 0081 0082 674A OUTCRT EQU * 0083 674A 34 7E PSHS A,B,DP,X,Y,U 0084 674C 4F CLRA 0085 674D 1F 8B TFR A,DP 0086 674F A6 E4 LDA ,S 0087 6751 BD D9D9 JSR OTCRTE 0088 6754 35 FE PULS A,B,DP,X,Y,U,PC 0089 0090 * USER COMMAND 0091 6756 USRCMD EQU * 0092 6756 04 FCB 4 0093 6757 46 FCC /F/ 0094 6758 0007 FDB FILL-* 0095 675A 04 FCB 4 0096 675B 58 FCC /X/ 0097 675C 0041 FDB XFER-* 0098 675E FE FCB -2 0099 0100 675F FILL EQU * 0101 675F 8D 19 BSR GETNUM 0102 6761 109E 9B LDY <NUMBER 0103 6764 8D 14 BSR GETNUM 0104 6766 DE 9B LDU <NUMBER 0105 6768 33 41 LEAU 1,U 0106 676A 8D 0E BSR GETNUM 0107 676C 96 9C LDA <NUMBER+1 0108 676E 34 40 PSHS U 0109 6770 1F 21 TFR Y,X 0110 6772 A7 80 FILNXT STA ,X+ 0111 6774 AC E4 CMPX ,S 0112 6776 26 FA BNE FILNXT 0113 6778 35 C0 PULS U,PC 0114 0115 677A GETNUM EQU * 0116 677A 86 2A LDA #QEXPAN 0117 677C 8E 0000 LDX #0 0118 677F 3F SWI 0119 6780 09 FCB VCTRSW 0120 6781 AD 84 JSR ,X 0121 6783 26 09 BNE ERR 0122 6785 81 20 CMPA #SPACE 0123 6787 27 04 BEQ RTS 0124 6789 81 0D CMPA #CR 0125 678B 26 01 BNE ERR 0126 678D 39 RTS RTS 0127 0128 678E ERR EQU * 0129 678E 30 8C 04 LEAX <ERRMSG,PCR 0130 6791 3F SWI 0131 6792 03 FCB PDATA 0132 6793 35 90 PULS X,PC 0133 6795 45 ERRMSG FCC /ERROR/,CR,LF,4 0134 0135 679D XFER EQU * 0136 679D 8D DB BSR GETNUM 0137 679F 109E 9B LDY <NUMBER 0138 67A2 8D D6 BSR GETNUM 0139 67A4 DE 9B LDU <NUMBER 0140 67A6 33 41 LEAU 1,U 0141 67A8 8D D0 BSR GETNUM 0142 67AA DC 9B LDD <NUMBER 0143 67AC 34 66 PSHS D,Y,U 0144 67AE A3 62 SUBD 2,S 0145 67B0 22 0E BHI BACKWD 0146 67B2 35 10 PULS X 0147 67B4 1E 12 EXG X,Y 0148 67B6 A6 80 FORWD1 LDA ,X+ 0149 67B8 A7 A0 STA ,Y+ 0150 67BA AC 62 CMPX 2,S 0151 67BC 26 F8 BNE FORWD1 0152 67BE 35 B0 PULS X,Y,PC 0153 67C0 30 CB BACKWD LEAX D,U 0154 67C2 A6 C2 BAKWD1 LDA ,-U 0155 67C4 A7 82 STA ,-X 0156 67C6 AC E4 CMPX ,S 0157 67C8 26 F8 BNE BAKWD1 0158 67CA 35 F0 PULS X,Y,U,PC 0159 0160 67E0 ORG ROMLIN 0161 *LINK TO FM-7 0162 0269 MONTRP EQU $0269 FM-7 MONITOR 0163 01D7 SWITRP EQU $01D7 FM-7 SWI 0164 01DA NMITRP EQU $01DA FM-7 NMI 0165 0166 67E0 LINKER EQU * 0167 67E0 30 8C 54 LEAX <RESET,PCR 0168 67E3 BF 026A STX MONTRP+1 0169 67E6 308D 07FE LEAX SWI,PCR 0170 67EA BF 01D8 STX SWITRP+1 0171 67ED 308D 07FB LEAX NMI,PCR 0172 67F1 BF 01DB STX NMITRP+1 0173 67F4 86 7E LDA #$7E JMP $**** 0174 67F6 B7 0269 STA MONTRP 0175 67F9 B7 01D7 STA SWITRP 0176 67FC B7 01DA STA NMITRP 0177 67FF 39 RTS 0178 0179 6837 RESET EQU ROMBEG+$037 ASSIST09 START 0180 6FE8 SWI EQU ROMBEG+$7E8 ASSIST09 SWI 0181 6FEC NMI EQU ROMBEG+$7EC ASSIST09 NMI 0182 0183 END 0 error(s), 0 warning(s) is detected. Label address ACIA 0000 BACKWD 67C0 BAKWD1 67C2 BASICE 8684 CONT 6735 CR 000D CSROFE FBEB CSRONE FBF7 ERR 678E ERRMSG 6795 FILL 675F FILNXT 6772 FORWD1 67B6 GETKEY 6728 GETNUM 677A GTKEYE DB6D GTKYRT 6748 INIT 6702 LF 000A LINKER 67E0 LINSIZ 0020 MONTRP 0269 NMI 6FEC NMITRP 01DA NUMBER 009B OTCRTE D9D9 OUTCRT 674A PDATA 0003 PTM 0000 QACIA 002E QCIDTA 0016 QCMDL2 002C QCODTA 001C QEXPAN 002A QPTM 0034 RESET 6837 ROM2OF 6700 ROMBEG 6800 ROMLIN 67E0 ROMSIZ 0100 RTS 678D SPACE 0020 STPFLG 0313 SWI 6FE8 SWITRP 01D7 USRCMD 6756 VCTRSW 0009 XFER 679D  

配置例にあるように、拡張ROM($6700～$67FF)とASSIST09($6800～$6FFF)を一つにまとめておいて、

　CLEAR ,&H6000

　LOADM "ASSIST"　<-- ASSIST09とExROMを合体したファイル

　EXEC &H67E0

その後

　MON でASSIST09が起動します。ASSIST09から抜ける場合はBREAKキーを押します。

FM-7への移植手順は以上ですが、改めてインターフェース誌で情報を公開して下さった高橋豊さんに感謝いたします。

修正した6809用クロスアセンブラについてはチェックが終わり次第公開します。

それにしても、6809の命令一覧表には載っていない命令（例えば、LEA命令のプログラムカウンタ相対のDirectモード命令）が存在したりして、情報不足のせいか今一つ理解できないことがいくつかあるのが悩ましいところです。

【9月20日訂正】私の勘違い（＆知識不足）でした。Directモード命令ではなく、プログラムカウンタ相対の8ビットオフセットか16ビットオフセットかの違いでした。

ESPRIMO D583/HXのマザーボードにSATAコネクタを取り付ける

 常用のWindows機のマザーボードにSATAコネクタを増設してみました

動機

私の常用機は富士通のESPRIMO D583/HXです。使い始めてもう7，8年になりますが、これを選んだのはビジネスユーザ向けということで、余計なソフトが入っていないことと、ある程度仕様を選択できることからでした。

今までに、Windows8.1を10に、メモリを4GB->8GB->12GB->16GBと増設し、500GBのHDDを500GBのSSDに交換してきましたが、いよいよディスクが窮屈になってきていました。

ちなみに、ファイルの保存等には4TBと2TBの２台のLANDISKを使用しているのですが、プログラミング時などのWorkエリアとしてSSDの200GBをDドライブとして使っていたので、Cドライブが残り少なくなってしまったということです。

そこで、現用のSSDを全てCドライブにして、Workエリア等としては、以前購入したままにしてあった3TBのHDDを使用することを考えました。

ところが何と、D583/HXのマザーボードにはSATAコネクタが２個しかないのです。これではSSDとDVDドライブの２台でおしまいです。筐体を開けてマザーボードを見ると、SATA1というパターンはありますが、コネクタが実装されていません。。。

（サブ機はHP製で、これには十分な数のSATAコネクタが実装されていたので、HDDの増設が簡単にできたのに...）

ということで、始めは画像のようなHDDスタンドを購入して使用していました。これによって、確かに簡単にHDDを増設できたのですが、使用しているとUSB3と言えども遅いのですね。（このスタンドのせいではなく、本体がUSB3.0なので仕方がないのですが...）HDDのフォルダを最初に選択した時には、最悪数秒待たされるのです。その後はまあまあ普通にアクセスできるので良いのですが、今までSSDの速度に慣れてしまっていたためか我慢ができません。

当初使用していたUSB3のHDDスタンド

SATAコネクタを増設された方がいた！

そんな時に、マザーボードに直接SATAコネクタを増設したという蓼科電研さんのブログを見つけました。

正に目からうろこで、これならHDDも内蔵できるし速度も上がるだろうという事で、早速部品集めにかかりました。しかし、こんなことをする人はあまりいないようで、まずSATAコネクタが見つかりません...　aitendoでは扱っているようですが品切れですし、DigikeyではMolex製を扱っていますが、両端の固定ピンが平行で、マザーボードのパターンとは合っていません。また、直流カットコンデンサも蓼科電研さんのブログではパターンが小さいので、容量が22nFでサイズが1005が良いと書かれていましたが、これも手に入りにくい...　結局、何とかなるという甘い考えでMolexのコネクタ２種と、サイズ1608の22nFのコンデンサを入手しました。

マザーボードの現状

左下部にSATAコネクタが２個ありますが

D583/HXのマザーボード

その下部のSATA１にはコネクタが実装されていません。

SATA1のコネクタが未実装

裏面を見ても、直流カットのコンデンサ４個も実装されていません。。。

Cも未実装

コネクタ増設作業

まずはパターンのハンダ除去作業から取り掛かります。

私のハンダ吸い取り器は十年ほど前にヤフオクで入手したHOZANのHS-800というとても古いもので、入手時から真空ポンプの吸引力が弱っていましたが、消耗部品もストックしてあるので使い続けています。（さすがに今回のマザーボードは手強かった。）

ハンダ吸い取り器

両端にある固定ピン用や信号用の穴はすぐにハンダが吸い取れましたが、GND用の３つの穴のハンダはなかなか抜けず、何度も試みているうちにすぐ隣の信号用の穴がふさがってしまったりで、結局30分ほどもかかってしまいましたが、何とか吸い取ることができました。

ハンダ吸い取り前

ハンダ吸い取り後

パターン付近が汚れてしまいましたが、ハンダは吸い取れています。

SATAコネクタを実装

SATAコネクタは片側の固定ピンを無理矢理曲げることで、何とか取り付けることができましたが、問題は直流カットの４個のコンデンサの取り付けでした。

基板のパターンはやはり1005用らしくてとても小さく、サイズ1608のコンデンサはとにかく大きすぎました。何とかハンダ付けしてみましたが、隣と接触してショートしてしまうのです。ということで、結局直接の取り付けは諦めて、0.32mmのポリウレタン線を10～15mmぐらいに切って1608のコンデンサにハンダ付けして、その先を基板にハンダ付けしました。画像はとても見苦しいですが、カプトンテープで絶縁してあります。

Cを４個取り付けたが...

仕上げ

以上で、無事に３つ目のSATAコネクタが使えるようになりましたので、SATA0にSSD、SATA1にHDD、SATA4にDVDを装着して、SSDを取り付けてあった位置にHDDを取り付けました。SSDはとりあえずですが、画像のようにライザーカードに空いている穴の一つを利用してねじ止めして、あとはテープで固定してみました。

（ちなみに、本来のライザーカードはPCIスロットが２個のものでしたが、当初はSATA拡張カードを利用することを考えていたのでPCIeスロットのものを入手して交換してあります。結局今回は使うことがありませんでしたが...）

SSD取り付けの様子

結果

動作させてみた結果ですが、間違いなくHDDのアクセスは速くなりました。USB3のHDDスタンドの場合にあった最初のアクセスが待たされる現象が無くなり、快適に使用できています。また、外付けだったHDDが内蔵できたのも良かったです。

終わりに

以上ですが、マザーボードを加工してSATAコネクタを増設するという報告があまり見当たらないようですので、私の試みを紹介させていただきました。

と言いましても、何も新しいことはありませんで、殆どが蓼科電研さんのブログの後追いにすぎません。蓼科電研さんに心より感謝いたします。

強調しておきたい事は、ハンダ吸い取り器がないとマザーボードのハンダの吸い取りは絶対に無理だという事、直流カットコンデンサのハンダ付けはサイズ1005のコンデンサが必須で、しかも細いコテ先のハンダごてが必要だという事の２つです。SATAコネクタについては固定ピンがパターンと合っていないものでも、無理矢理ですがピンを曲げることで何とか取り付けることはできるようです。

万が一、同様な試みを実行してみようという方がおられましたら、最悪の場合はマザーボードを破壊してしまう可能性がある事をご承知ください。私の場合はたまたまうまく行っただけかも知れませんので。

FT245通信カードとRAMディスクカードの合体カードの製作

 FT245カードとRAMディスクカードを合体させてみました

以前、秋月電子のFT245モジュールが品切れだった時期があり、それならという事で代わりにFT245RLチップを使ったカードを試作してみたことがあります。

それについては4月2日のブログ「FT245高速通信カードの改造の試み」で紹介しましたが、その試作機は秋月のFT245モジュールの回路をそのままそっくりプリント基板に実装したものでした。しかし、USBから電源を取る必要はないなど、不要なパーツを省くことで回路を簡単化できそうでした。

製作してみると、スペースに結構余裕ができましたので、これならさらに回路を追加することができるのではないかということで、表面実装のSRAMを用いればRAMディスクの回路を入れることができるのではと思いつきました。

それまではFM-7の32PスロットにはFDCカード、FT245通信カードの２枚が刺さっていましたので、RAMディスクカードを使う際には自作の32Pスロット拡張基板を使用していました。しかしFT245通信カードと512KBのRAMディスクカードを一枚に合体させれば、FM-7本体だけで収まることになり使い勝手が向上します。

ということで製作したものが下画像のカードです。今までのFT245カードや512KB RAMディスクと同様、TTL ICには74LSを使用しています。

試作第１作（74LS使用）

回路はどちらも実績があるものですので、配置に多少手間を掛けただけで完成しました。回路的には74LSだけでなく74HCも使用できるので、バッテリバックアップ機能の向上を期待して、全てのTTL ICを74HCにしたものも製作してみました。

USBコネクタとしてminiとmicroの両方を実装したのはどちらの接続ケーブルも使用できるようにするためです。上部に見えるスライドスイッチはFM-7からWindowsへの転送時にTXEフラグを読むか読まないかを切り替えるものです。（ソフトでの対応が必要です。）

実装としては、USB microコネクタの取り付けに最も苦労しました。0.65mmピッチのFT245RLチップはそれほど大変ではありませんでしたが、それよりも1.27mmピッチのHM628512の方が大変でした。ハンダの乗りがチップによって異なるようです。

74HCでの製作品

裏面

ドライブソフトはFT245通信カード用、RAMディスクカード用のそれぞれがもちろん使用できますが、両カードの開発者の「思い付きハードでソフトに七転八倒」さんが統合したものを制作されています。

FPGAボードで6809を作ってNitros9を走らせてみました

安価なFPGAボードでOS-9互換と言われているNitros9を走らせてみました

「FPGAで6809を作ってOS9を動かす」というサイトを見て、同じFPGAボードを入手してNitros9を走らせようとしてみました。

 目的は２つありまして、一つはOS-9互換と言われていますが、本当なのかどうかを所有しているOS-9Level1（FM-7用）とLevel2（FM77AV40用）と比較して確認してみたいことと、もう一つは普段使用している自作の6809/6802DualボードでNitros9を走らせたいので、その前準備のためということです。

入手したFPGAボードは下画像のものです。ALTERAのCyclone IIのEP2C5が載っています。他に購入したのは3.3Vで動作するSRAMのみで、あとは全て手持ちの部品で済ませました。

購入したFPGAカード

ネットの情報に従って、裏面のR1, R2, R9, R10は取り外してあります。

その裏面

基板も使いまわしなので余計な穴が開いていたりします...

3.3Vの512KB SRAMが載っていますが、もう一個載せられるようにスペースを空けてあります。

製作したボード

まず最初の試みとして慣れているFLEX9を動作させる方が簡単かと思って、同じ著者の「FPGAで6809を作ってFLEXを動かすぞ」という記事の通りにインストールしてみることにしましたが、うまくいきませんでした。

コンパイルはエラー無く終了し、書き込みも一瞬で無事に終了します。コンフィグROMへの書き込みもできましたが、RAMでもROMでも動作しないのです。

FPGAに書き込んだ6809がまず動作してメッセージが表示され、続いてSDカードに書き込んだFLEX9が読み込まれて走るはずですが、画面には何も表示されません。SDカードを読みに行く気配がないので、それ以前のFPGAに書き込んだプログラムの動作がダメなようです。

一部Verilogで書かれているので、VHDLならともかくVerilogの細かいところは良く分かりません。

これはあかんということで、FLEX9ではなくOS-9の方も試みたのですが、やはり画面には何も表示されず、SDカードを読みにいく以前の段階に問題があるという状態でした。

ハードが悪いのかそれともソフトのせいか

何しろ回路が手配線なのでハードのミスがあるかもしれず、悪いのは回路なのかFPGAデータなのか、それともSDカードに書き込んだファイルなのかが全く分からず、途方に暮れるばかりでした。

そんな時に「Multicomp Cyclone II-CでCP/Mが動いた」という記事を見つけました。これも同じFPGAボードを使用しており、かつSDカードに書き込むイメージファイルも既に用意されていましたので、FPGA用のプログラムをそのままコンパイルして書き込み、さらに用意されているイメージファイルをSDカードにそのまま書き込むことで、あっさりとCP/Mが動作しました。

Z80書き込み中

CP/M3.0起動直後

CP/M3.0動作中

ハードには問題がなかった

この結果、ハードには問題がないことが確認できましたので、あとはFPGAに書き込むプログラムとSDカードに書き込むイメージファイルの作成という事に注力することができます。

FLEXとOS-9を走らせる記事は、こうすればできますよという手順を詳細に解説したというものではなく、分かっている人には分かるという書き方ですので、私のような素人には引っかかる個所が多すぎます。

ということで、あちこちを修正しながらコンパイルして実行することを繰り返しましたが、やはりSDカードを読みに行く前段階の、FPGAに書き込んだプログラムが動作しない状態から脱却できません...（VHDファイルのセット、コンパイル、実行の手順を数百回も繰り返したおかげで、操作手順だけは目を瞑っていても出来るぐらいになってしまいました...）

オリジナルのファイルで動作させることができた

結局、ブログ中のファイルを諦めて、元々のファイルから始めることにしてGithubにある「nealcrook/multicomp6809」をダウンロードし、その中のMicrocomputerPCBフォルダ中のMicrocomputer.vhdから作成することにしました。これについても色々と試行錯誤をしましたが、何とか6809を立ち上げることができました。

これはシリアル出力に設定してコンパイルした場合の出力画面です。まずCamelForthが立ち上がり、Enterー＞OK表示ー＞NITROS9入力でNitros9が立ち上がり、日付の入力の後、dir /d0でドライブ0の内容が表示されています。

シリアル出力の場合

こちらはビデオ出力に設定してコンパイルした場合で、PS/2キーボードから操作できます。

ビデオ出力の場合

なお、シリアル出力とビデオ出力の切り替えですが、VHDファイルの該当部分を有効・無効化するだけではダメで、シリアル出力に設定した場合はブログの著者による数か所の変更が必要なようです。（元のmulticomp6809中のVHDファイルと比較すると変更部が分かります。）

SDカードに書き込むデータファイルですが、ブログに書かれていますようにLinux環境で行いましたが、書かれていますようにbin\create_sd_imageをそのまま実行してもエラーで止まってしまいますので、実行行を一行ずつ手作業で修正しながら行いました。どうも、著者はLinuxかMac環境のようで（ファイルの改行コードが0x0D,0x0Aでなく0x0Aになっていた）、それもあって私のWindows環境では難しかったのかもしれません。

蛇足ですが、FPGAは便利なものですね。コンパイルに１分程度かかりますが、その手間をかけるだけで同じボードがZ80や6809に変身するのですから。また、ROMに書き込めば電源スイッチONで即起動しますし。

しかし、一ヶ月以上の試行錯誤の結果として何とか動作したので良かったのですが、つくづく自分の知識の無さを痛感しました。未だに理解しきれていない部分が多いですし、おまけに、何故かQuartus IIの13.0sp1をLinuxにインストールできない状態が続いています。

この後は

この後は、まず手持ちのOS-9L1, L2とどの位の互換性があるのかを確認してみたいと思います。その次には、いよいよ自作のボードマイコンへのNitros9の移植に挑戦したいです。

SDカードを6809のアセンブラで読み書きしてみる

SDカードを6809のアセンブラを用いてSPIモードで読み書きしてみました

 以前からSDカードに興味がありましたが、難しそうで手を出せずにいました。昨年ですがSPIモードでセンサを読み書きしてみたところ、I2Cよりもかなり簡単だという印象を持ちました。

「6821PIAからアセンブラによるSPI通信でセンサーを制御する（2021年11月3日）」

その経験からSPIモードでのSDカードの読み書きなら割と簡単にできるのではないかと試してみることにしました。

参考にしたのは、いつもお世話になっている中日電工の菱田さんのブログの「［新連載］マイコン独立大作戦「ＳＤカードインターフェースの製作」第1回～第32回」です。いつも貴重な情報をありがとうございます。

ということで、回路はブログ第8回の5V-3.3V変換部をそのまま使わせてもらい、元記事は82C55でコントロールしているのですが、私は6809/6802Dualマイコンに搭載している68B21を使用しました。

実験回路の画像と接続図を示します

画像左に立ててあるのが6809/6802Dualボードで68B21からフラットケーブルで実験回路に接続しています。

実験回路

ブロック図

68B21のポートAは出力モードのままで入力もできる便利な機能を持っているので、ポートAのみで入出力を行なっています。クロックSCKは1ビット出力のCA2を利用しています。このCA2によるクロックの周波数は私のプログラムではおよそ30.7KHzでした。

5V-3.3Vインターフェースはインバータひとつで構成しているために信号が反転してしまいますのでプログラムの方で考慮します。

秋月電子のSDカードモジュールは5V電源から3.3Vを生成するようになっていますので、インターフェース回路にその3.3Vも供給しています。

プログラム作成

プログラム作成ですが、Windows上で行いました。

Windows上のエディタ（私はEmEditorを使っています）でソースを作成し、それをWindows上で動作する自作の6809クロスアセンブラでアセンブルして、できたmotファイルを6809/6802DualボードのモニタのLコマンドで読み込んで実行します。

その手順を画像で紹介します。

エディタでプログラムリストを作成します。

エディタで作成中

できたプログラムをアセンブラに放り込んでアセンブルします。

アセンブル中

実行画面でLコマンドを用いてロードします。通常、このロードプログラムの画面は最初に起動するだけで操作する必要はありませんので閉じておきます。

ロードプログラム動作中

実行画面です。Lコマンドで読み込み、Gコマンドで実行します。

ロードして実行中

プログラムに修正の必要があれば、上記の手順を繰り返します。

実際にSDカードを読み書きできるようになるまでには結構はまってしまう個所もあり、中日電工さんのブログの他に、「えるむ by ChaN」さん、「SDカード」さんや「SDカードの操作」さんのブログなども参考にさせていただきました。ありがとうございます。

とりあえず完成したプログラムですが、SDカードとSDHCカードの両方が読み書きできるものとSDカードのみを読み書きするものの２本立てとしました。

目的としている6809/6802DualボードのFlex9に組み込むためには少しでも短いほうが良いので、SD専用とする予定ですが、折角ですのでSDHCカードも読み書きできることを確かめたという事です。

ここではSD、SDHCカード両用のプログラムのリストを紹介します。SDカード専用版との違いは初期化ルーチンとRead/Writeルーチンのセクタ番号の指定方法の違いのみで、特に初期化ルーチンはSD専用版に比べてかなり複雑です。

0001 * 0002 * SDHC-RW.TXT 0003 * 0004 * SD Read/Write on SBC 0005 * 0006 * 6821(PIA) Port A <--> SD 0007 * 0008 * SBC SD 0009 * CA2 2 --> 16 SCK 0010 * PA0 3 --> 15 CS 0011 * PA1 4 <-- 7 MISO 0012 * PA7 10 --> 20 MOSI 0013 * GND 31 -- 10 GND 0014 * VCC 33 -- 9 VCC 0015 * 0016 * cf. all data line is inverted 0017 * 0018 * PA output mode 0019 * CA2 1bit output 0020 * 0021 * READ/WRITE BUFFER $6600 - 67FF 0022 * 0023 * Original version '2022.06.11 0024 * Copyright by Y.Yamamoto 0025 * 0026 F800 MON EQU $F800 0027 F000 INCHA EQU $F000 0028 F002 OUTCHA EQU $F002 0029 FAA4 PSTRNG EQU $FAA4 0030 0031 6600 RWBUF EQU $6600 0032 0033 F0DC PADAT EQU $F0DC 0034 F0DD PACTL EQU PADAT+1 0035 0036 6000 ORG $6000 0037 0038 6000 20 07 START BRA MAIN 0039 6002 01 VN FCB 1 0040 6003 00 SCTN0 FCB 0 top adrs of sct 0041 6004 00 SCTN1 FCB 0 0042 6005 00 SCTN2 FCB 0 0043 6006 00 SCTN3 FCB 0 0044 6007 00 RESDAT FCB 0 response data 0045 6008 00 SDHC FCB 0 sd:0,sdhc:1 0046 0047 6009 MAIN EQU * 0048 *=====reset pia===== 0049 *portA:output 0050 6009 86 30 LDA #$30 0051 600B B7 F0DD STA PACTL select ddra, ca2:0 0052 600E 86 FF LDA #$FF 0053 6010 B7 F0DC STA PADAT set output mode 0054 6013 86 34 LDA #$34 0055 6015 B7 F0DD STA PACTL select peripheral,ca2:0 0056 0057 *for pia exist check 0058 6018 86 55 LDA #$55 test data 0059 601A B7 F0DC STA PADAT 0060 601D B6 F0DC LDA PADAT 0061 6020 81 55 CMPA #$55 0062 6022 27 09 BEQ INIT 0063 6024 8E 64A0 LDX #MERR 0064 6027 BD FAA4 JSR PSTRNG 0065 602A 7E F800 JMP MON 0066 0067 602D INIT EQU * 0068 602D 8D 3A BSR SDINIT 0069 0070 602F MENU EQU * 0071 602F BD 6384 JSR CRLF 0072 6032 8E 643F LDX #MSMENU 0073 6035 BD FAA4 JSR PSTRNG 0074 0075 6038 BD F000 JSR INCHA 0076 603B 81 31 CMPA #'1 0077 603D 26 05 BNE MEN2 0078 603F 17 0199 LBSR SDRD 0079 6042 20 EB BRA MENU 0080 6044 81 32 MEN2 CMPA #'2 0081 6046 26 05 BNE MEN3 0082 6048 17 0208 LBSR SDWRT 0083 604B 20 E2 BRA MENU 0084 604D 81 33 MEN3 CMPA #'3 0085 604F 26 05 BNE MEN4 0086 6051 17 0149 LBSR GETSD 0087 6054 20 D9 BRA MENU 0088 6056 81 34 MEN4 CMPA #'4 0089 6058 26 05 BNE MEN5 0090 605A 17 000C LBSR SDINIT 0091 605D 20 D0 BRA MENU 0092 605F 81 39 MEN5 CMPA #'9 0093 6061 26 CC BNE MENU 0094 6063 BD 6384 JSR CRLF 0095 6066 7E F800 JMP MON 0096 * 0097 0098 6069 SDINIT EQU * 0099 *---------- start ---------- 0100 * cs:1,di:1,sck>74ms 0101 6069 86 FF LDA #$FF mosi:b7=H,miso:b1=H(for PIA),cs:b0=H 0102 606B 43 COMA 0103 606C B7 F0DC STA PADAT 0104 606F C6 50 LDB #80 80times 0105 6071 17 02D5 ISTT LBSR SETCKL 0106 6074 17 02DB LBSR SETCKH 0107 6077 5A DECB 0108 6078 26 F7 BNE ISTT 0109 * 0110 *---------- cmd 0 ---------- 0111 607A SCMD0 0112 607A 17 02CC LBSR SETCKL 0113 607D C6 06 LDB #6 0114 607F 8E 6409 LDX #CMD0 0115 6082 A6 80 SC01 LDA ,X+ 0116 6084 43 COMA 0117 6085 17 0250 LBSR SNDDAT 0118 6088 5A DECB 0119 6089 26 F7 BNE SC01 0120 *get response 0121 608B 5F CLRB 0122 608C GR00 0123 608C 5A DECB 0124 608D 1027 0141 LBEQ SDERR 0125 6091 17 0260 LBSR GETDAT 0126 6094 B6 6007 LDA RESDAT 0127 6097 43 COMA 0128 6098 17 02C0 LBSR DSPBIN disp response 0129 609B 81 01 CMPA #$01 0130 609D 26 ED BNE GR00 0131 0132 609F BD 6384 JSR CRLF 0133 * 0134 *---------- cmd 8 ---------- 0135 60A2 SCMD8 0136 60A2 17 02A4 LBSR SETCKL 0137 60A5 C6 06 LDB #6 0138 60A7 8E 6421 LDX #CMD8 0139 60AA A6 80 SC80 LDA ,X+ 0140 60AC 43 COMA 0141 60AD 17 0228 LBSR SNDDAT 0142 60B0 5A DECB 0143 60B1 26 F7 BNE SC80 0144 *get response 0145 60B3 GR80 0146 60B3 17 023E LBSR GETDAT 0147 60B6 B6 6007 LDA RESDAT 0148 60B9 43 COMA 0149 60BA 17 029E LBSR DSPBIN disp response 0150 60BD 81 01 CMPA #$01 0151 60BF 26 F2 BNE GR80 0152 60C1 C6 04 GR81 LDB #4 0153 60C3 17 022E GR82 LBSR GETDAT 0154 60C6 B6 6007 LDA RESDAT 0155 60C9 43 COMA 0156 60CA 17 028E LBSR DSPBIN disp response 0157 60CD 5A DECB 0158 60CE 26 F3 BNE GR82 0159 0160 60D0 BD 6384 JSR CRLF 0161 * 0162 *---------- cmd 58 ---------- 0163 60D3 SCMD58 0164 60D3 17 0273 LBSR SETCKL 0165 60D6 C6 06 LDB #6 0166 60D8 8E 6427 LDX #CMD58 0167 60DB A6 80 SC581 LDA ,X+ 0168 60DD 43 COMA 0169 60DE 17 01F7 LBSR SNDDAT 0170 60E1 5A DECB 0171 60E2 26 F7 BNE SC581 0172 *get response 0173 60E4 GR580 0174 60E4 17 020D LBSR GETDAT 0175 60E7 B6 6007 LDA RESDAT 0176 60EA 43 COMA 0177 60EB 17 026D LBSR DSPBIN disp response 0178 60EE 81 01 CMPA #$01 0179 60F0 26 F2 BNE GR580 0180 60F2 C6 04 GR581 LDB #4 0181 60F4 17 01FD GR582 LBSR GETDAT 0182 60F7 B6 6007 LDA RESDAT 0183 60FA 43 COMA 0184 60FB 17 025D LBSR DSPBIN disp response 0185 60FE 5A DECB 0186 60FF 26 F3 BNE GR582 0187 0188 6101 RPT41 0189 *---------- cmd 55 ---------- 0190 6101 SCMD55 0191 6101 17 0245 LBSR SETCKL 0192 6104 C6 06 LDB #6 0193 6106 8E 642D LDX #CMD55 0194 6109 A6 80 SC551 LDA ,X+ 0195 610B 43 COMA 0196 610C 17 01C9 LBSR SNDDAT 0197 610F 5A DECB 0198 6110 26 F7 BNE SC551 0199 *get response 0200 * CLRB 0201 6112 GR550 0202 * DECB 0203 * BEQ SDERR 0204 6112 17 01DF LBSR GETDAT 0205 6115 B6 6007 LDA RESDAT 0206 6118 43 COMA 0207 6119 17 023F LBSR DSPBIN disp response 0208 611C 81 01 CMPA #$01 0209 611E 26 F2 BNE GR550 0210 0211 6120 BD 6384 JSR CRLF 0212 *---------- acmd 41 ---------- 0213 6123 ASCMD41 0214 6123 17 0223 LBSR SETCKL 0215 6126 C6 06 LDB #6 0216 6128 8E 6433 LDX #ACMD41 0217 612B A6 80 ASC411 LDA ,X+ 0218 612D 43 COMA 0219 612E 17 01A7 LBSR SNDDAT 0220 6131 5A DECB 0221 6132 26 F7 BNE ASC411 0222 *get response 0223 6134 GR410 0224 6134 17 01BD LBSR GETDAT 0225 6137 B6 6007 LDA RESDAT 0226 613A 43 COMA 0227 613B 17 021D LBSR DSPBIN disp response 0228 613E 17 01B3 LBSR GETDAT 0229 6141 B6 6007 LDA RESDAT 0230 6144 43 COMA 0231 6145 17 0213 LBSR DSPBIN disp response 0232 6148 81 00 CMPA #$00 0233 614A 26 B5 BNE RPT41 0234 0235 614C BD 6384 JSR CRLF 0236 0237 *---------- second cmd 58 ---------- 0238 614F SCMD258 0239 614F 17 01F7 LBSR SETCKL 0240 6152 C6 06 LDB #6 0241 6154 8E 6427 LDX #CMD58 0242 6157 A6 80 SC2581 LDA ,X+ 0243 6159 43 COMA 0244 615A 17 017B LBSR SNDDAT 0245 615D 5A DECB 0246 615E 26 F7 BNE SC2581 0247 *get response 0248 6160 GR2580 0249 6160 17 0191 LBSR GETDAT 0250 6163 B6 6007 LDA RESDAT 0251 6166 43 COMA 0252 6167 17 01F1 LBSR DSPBIN disp response 0253 616A 81 00 CMPA #$00 0254 616C 26 F2 BNE GR2580 0255 616E 17 0183 LBSR GETDAT 0256 6171 B6 6007 LDA RESDAT 0257 6174 43 COMA 0258 6175 17 01E3 LBSR DSPBIN disp response 0259 6178 48 LSLA 0260 6179 48 LSLA 0261 617A 24 03 BCC GR2581 0262 617C 7C 6008 INC SDHC if sdhc then 1 0263 617F C6 03 GR2581 LDB #3 0264 6181 17 0170 GR2582 LBSR GETDAT 0265 6184 B6 6007 LDA RESDAT 0266 6187 43 COMA 0267 6188 17 01D0 LBSR DSPBIN disp response 0268 618B 5A DECB 0269 618C 26 F3 BNE GR2582 0270 0271 618E 8E 648E LDX #MSSD0 0272 6191 B6 6008 LDA SDHC 0273 6194 27 03 BEQ SD1 0274 6196 8E 6496 LDX #MSSD1 0275 6199 BD FAA4 SD1 JSR PSTRNG 0276 0277 619C 39 RTS 0278 0279 **************************************** 0280 * GET SD DATA ROUTINE 0281 * use CMD9 0282 **************************************** 0283 619D GETSD EQU * 0284 619D 17 01A9 LBSR SETCKL 0285 61A0 C6 06 LDB #6 0286 61A2 8E 6439 LDX #CMD9 0287 61A5 A6 80 SC91 LDA ,X+ 0288 61A7 43 COMA 0289 61A8 17 012D LBSR SNDDAT 0290 61AB 5A DECB 0291 61AC 26 F7 BNE SC91 0292 61AE BD 6384 JSR CRLF 0293 *get response 0294 61B1 GR90 0295 61B1 17 0140 LBSR GETDAT 0296 61B4 B6 6007 LDA RESDAT 0297 61B7 43 COMA 0298 61B8 17 01A0 LBSR DSPBIN disp response 0299 61BB 81 00 CMPA #$00 0300 61BD 26 F2 BNE GR90 0301 0302 61BF BD 6384 JSR CRLF 0303 61C2 C6 14 LDB #16+1+2+1 fe,crcH,crcL,ff 0304 61C4 17 012D GR91 LBSR GETDAT 0305 61C7 B6 6007 LDA RESDAT 0306 61CA 43 COMA 0307 61CB 17 018D LBSR DSPBIN disp response 0308 61CE 5A DECB 0309 61CF 26 F3 BNE GR91 0310 61D1 39 RTS 0311 0312 * 0313 61D2 SDERR EQU * 0314 61D2 8E 64A0 LDX #MERR 0315 61D5 BD FAA4 JSR PSTRNG 0316 61D8 OKEND 0317 61D8 7E F800 JMP MON 0318 * 0319 **************************************** 0320 * READ ROUTINE 0321 * use CMD17 0322 * set sctno to $6005,6006 0323 * read data set to $6800-69FF 0324 **************************************** 0325 61DB SDRD EQU * 0326 61DB BD 6384 JSR CRLF 0327 61DE 17 012D LBSR INSCT 0328 *copy sct no to cmd param 0329 61E1 8E 6003 LDX #SCTN0 0330 61E4 108E 6416 LDY #CMD17+1 0331 61E8 C6 04 LDB #4 0332 61EA A6 80 CPY1 LDA ,X+ 0333 61EC A7 A0 STA ,Y+ 0334 61EE 5A DECB 0335 61EF 26 F9 BNE CPY1 0336 *send cmd 0337 61F1 17 0155 LBSR SETCKL 0338 61F4 C6 06 LDB #6 0339 61F6 8E 6415 LDX #CMD17 0340 61F9 A6 80 SDR1 LDA ,X+ 0341 61FB 17 015D LBSR DSPBIN disp response 0342 61FE 43 COMA 0343 61FF 17 00D6 LBSR SNDDAT 0344 6202 5A DECB 0345 6203 26 F4 BNE SDR1 0346 *get response 0347 6205 SDR2 0348 6205 17 00EC LBSR GETDAT 0349 6208 B6 6007 LDA RESDAT 0350 620B 43 COMA 0351 620C 17 014C LBSR DSPBIN disp response 0352 620F 81 FE CMPA #$FE token? 0353 6211 26 F2 BNE SDR2 0354 0355 *get data 0356 6213 BD 6384 JSR CRLF 0357 6216 8E 6600 LDX #RWBUF <-temp buf 0358 6219 108E 0200 LDY #512 0359 621D C6 20 DSPDAT LDB #32 0360 621F 31 3F DSPD1 LEAY -1,Y 0361 6221 17 00D0 LBSR GETDAT 0362 6224 B6 6007 LDA RESDAT 0363 6227 43 COMA 0364 6228 A7 80 STA ,X+ save buf 0365 622A 17 012E LBSR DSPBIN disp data 0366 622D 108C 0000 CMPY #0 0367 6231 27 08 BEQ DSPD2 0368 6233 5A DECB 0369 6234 26 E9 BNE DSPD1 0370 6236 BD 6384 JSR CRLF 0371 6239 20 E2 BRA DSPDAT 0372 0373 623B BD 6384 DSPD2 JSR CRLF 0374 623E 17 00B3 LBSR GETDAT 0375 6241 B6 6007 LDA RESDAT 0376 6244 43 COMA 0377 6245 17 0113 LBSR DSPBIN crcH 0378 6248 17 00A9 LBSR GETDAT 0379 624B B6 6007 LDA RESDAT 0380 624E 43 COMA 0381 624F 17 0109 LBSR DSPBIN crcL 0382 6252 39 RTS 0383 0384 **************************************** 0385 * WRITE ROUTINE 0386 * use CMD24 0387 * set sctno to $6005,6006 0388 * write data from $6A00-6BFF 0389 **************************************** 0390 6253 SDWRT EQU * 0391 6253 8E 6482 LDX #MSWROK 0392 6256 BD FAA4 JSR PSTRNG 0393 6259 BD F000 JSR INCHA 0394 625C 84 DF ANDA #$DF 0395 625E 81 59 CMPA #'Y 0396 6260 27 01 BEQ SDWR1 0397 6262 39 RTS 0398 6263 BD 6384 SDWR1 JSR CRLF 0399 6266 17 00A5 LBSR INSCT 0400 *copy sct no to cmd param 0401 6269 8E 6003 LDX #SCTN0 0402 626C 108E 641C LDY #CMD24+1 0403 6270 C6 04 LDB #4 0404 6272 A6 80 CPY2 LDA ,X+ 0405 6274 A7 A0 STA ,Y+ 0406 6276 5A DECB 0407 6277 26 F9 BNE CPY2 0408 *send cmd 0409 6279 17 00CD LBSR SETCKL 0410 627C C6 06 LDB #6 0411 627E 8E 641B LDX #CMD24 0412 6281 A6 80 SDW1 LDA ,X+ 0413 6283 17 00D5 LBSR DSPBIN disp response 0414 6286 43 COMA 0415 6287 8D 4F BSR SNDDAT 0416 6289 5A DECB 0417 628A 26 F5 BNE SDW1 0418 *get cmd response 0419 628C SDW2 0420 628C 8D 66 BSR GETDAT 0421 628E B6 6007 LDA RESDAT 0422 6291 43 COMA 0423 6292 17 00C6 LBSR DSPBIN disp response 0424 6295 81 00 CMPA #$00 0425 6297 26 F3 BNE SDW2 0426 *1byte skip 0427 6299 86 FF LDA #$FF 0428 629B 43 COMA 0429 629C 8D 3A BSR SNDDAT 1byte skip 0430 629E BD 6384 JSR CRLF 0431 0432 *send data packet 0433 62A1 8E 6600 LDX #RWBUF <-temp buf 0434 62A4 108E 0200 LDY #512 0435 *send data token 0436 62A8 86 FE LDA #$FE 0437 62AA 43 COMA 0438 62AB 8D 2B BSR SNDDAT data token 0439 62AD A6 80 SNDDT1 LDA ,X+ 0440 62AF 43 COMA 0441 62B0 8D 26 BSR SNDDAT 0442 62B2 31 3F LEAY -1,Y 0443 62B4 26 F7 BNE SNDDT1 0444 0445 62B6 86 FF LDA #$FF 0446 62B8 43 COMA 0447 62B9 8D 1D BSR SNDDAT crcH 0448 62BB 8D 1B BSR SNDDAT crcL 0449 *get data response 0450 62BD CKRS 0451 62BD 8D 35 BSR GETDAT 0452 62BF B6 6007 LDA RESDAT 0453 62C2 43 COMA 0454 62C3 17 0095 LBSR DSPBIN disp response 0455 62C6 81 E5 CMPA #$E5 data response? 0456 62C8 26 F3 BNE CKRS 0457 *wait until busy 0458 62CA BUSY 0459 62CA 8D 28 BSR GETDAT 0460 62CC B6 6007 LDA RESDAT 0461 62CF 43 COMA 0462 62D0 17 0088 LBSR DSPBIN disp response 0463 62D3 81 FF CMPA #$FF 0464 62D5 26 F3 BNE BUSY 0465 62D7 39 RTS 0466 ************************************************** 0467 *========== sub routine ========== 0468 *send data 0469 62D8 SNDDAT EQU * 0470 62D8 34 06 PSHS A,B 0471 62DA 7F 6007 CLR RESDAT 0472 62DD C6 08 LDB #8 0473 62DF 34 02 SNDD1 PSHS A 0474 62E1 84 FC ANDA #$FC 0475 62E3 8A 03 ORA #$03 miso:b1=H(for PIA),cs:b0=L 0476 62E5 B7 F0DC STA PADAT send data 0477 62E8 8D 5F BSR SETCKL 0478 62EA 35 02 PULS A 0479 62EC 48 LSLA 0480 62ED 8D 63 BSR SETCKH 0481 62EF 5A DECB 0482 62F0 26 ED BNE SNDD1 0483 62F2 35 86 PULS A,B,PC 0484 0485 *get data 0486 62F4 GETDAT EQU * 0487 62F4 34 06 PSHS A,B 0488 62F6 C6 08 LDB #8 0489 62F8 8D 4F GETD1 BSR SETCKL 0490 62FA 12 NOP 0491 62FB 12 NOP 0492 62FC 12 NOP 0493 62FD 8D 53 BSR SETCKH 0494 62FF B6 F0DC LDA PADAT get response 0495 6302 44 LSRA 0496 6303 44 LSRA b1->C 0497 6304 79 6007 ROL RESDAT C->b0 0498 6307 5A DECB 0499 6308 26 EE BNE GETD1 0500 630A 8D 3D BSR SETCKL 0501 630C 35 86 PULS A,B,PC 0502 * 0503 0504 *input SCT No 0505 630E INSCT EQU * 0506 630E 8E 647A LDX #MSSCT 0507 6311 BD FAA4 JSR PSTRNG 0508 6314 8D 79 BSR GET8CH get 8chr, convert 4bin 0509 0510 6316 7D 6008 TST SDHC 0511 6319 26 1D BNE CALCHC 0512 *SD card 0513 631B C6 03 LDB #3 0514 631D 8E 6004 LDX #SCTN1 0515 6320 108E 6003 LDY #SCTN0 0516 6324 A6 80 SFT1 LDA ,X+ 0517 6326 A7 A0 STA ,Y+ 0518 6328 5A DECB 0519 6329 26 F9 BNE SFT1 0520 632B 7F 6006 CLR SCTN3 0521 *calc top adrs of sct 0522 632E CALCSD EQU * 0523 632E 78 6006 LSL SCTN3 0524 6331 79 6005 ROL SCTN2 0525 6334 79 6004 ROL SCTN1 0526 6337 39 RTS 0527 0528 *SDHC card 0529 *calc top adrs of sct 0530 6338 CALCHC EQU * 0531 6338 8E 6003 LDX #SCTN0 0532 633B 108E 6416 LDY #CMD17+1 0533 633F C6 04 LDB #4 0534 6341 A6 80 CALCH1 LDA ,X+ 0535 6343 A7 A0 STA ,Y+ 0536 6345 5A DECB 0537 6346 26 F9 BNE CALCH1 0538 6348 39 RTS 0539 0540 * 0541 *set sck:L 0542 6349 SETCKL EQU * 0543 6349 34 02 PSHS A 0544 634B 86 3C LDA #$3C ca2=L 0545 634D B7 F0DD STA PACTL 0546 6350 35 82 PULS A,PC 0547 0548 *set sck:H 0549 6352 SETCKH EQU * 0550 6352 34 02 PSHS A 0551 6354 86 34 LDA #$34 ca2=H 0552 6356 B7 F0DD STA PACTL 0553 6359 35 82 PULS A,PC 0554 0555 *binary(A)->ascii(A)(B) 0556 635B DSPBIN EQU * 0557 635B 34 06 PSHS A,B 0558 635D 1F 89 TFR A,B 0559 635F 44 LSRA 0560 6360 44 LSRA 0561 6361 44 LSRA 0562 6362 44 LSRA 0563 6363 8A 30 ORA #$30 0564 6365 C4 0F ANDB #$0F 0565 6367 CA 30 ORB #$30 0566 6369 81 39 CMPA #$39 0567 636B 23 02 BLS BI21 0568 636D 8B 07 ADDA #$07 0569 636F C1 39 BI21 CMPB #$39 0570 6371 23 02 BLS BI22 0571 6373 CB 07 ADDB #$07 0572 6375 BD F002 BI22 JSR OUTCHA 0573 6378 1F 98 TFR B,A 0574 637A BD F002 JSR OUTCHA 0575 637D 86 20 LDA #$20 0576 637F BD F002 JSR OUTCHA 0577 6382 35 86 PULS A,B,PC 0578 0579 *crlf 0580 6384 CRLF EQU * 0581 6384 86 0D LDA #$0D 0582 6386 BD F002 JSR OUTCHA 0583 6389 86 0A LDA #$0A 0584 638B BD F002 JSR OUTCHA 0585 638E 39 RTS 0586 0587 * 0588 638F GET8CH EQU * 0589 *input chr 0590 638F 8E 64C6 LDX #INPBUF 0591 6392 5F CLRB 0592 6393 BD F000 CLOP JSR INCHA 0593 6396 81 0D CMPA #$0D 0594 6398 27 07 BEQ INEND 0595 639A A7 85 STA B,X 0596 639C 5C INCB 0597 639D C1 08 CMPB #8 0598 639F 25 F2 BLO CLOP 0599 0600 63A1 INEND 0601 *shift 0602 63A1 5D TSTB 0603 63A2 27 11 BEQ CL1 0604 63A4 8E 64C6 LDX #INPBUF 0605 63A7 3A ABX 0606 63A8 108E 64CE LDY #INPBUF+8 0607 63AC 34 04 PSHS B 0608 63AE A6 82 SFLOP LDA ,-X 0609 63B0 A7 A2 STA ,-Y 0610 63B2 5A DECB 0611 63B3 26 F9 BNE SFLOP 0612 *clr 0613 63B5 C6 08 CL1 LDB #8 0614 63B7 E0 E0 SUBB ,S+ 0615 63B9 27 0A BEQ CLEND 0616 63BB 8E 64C6 LDX #INPBUF 0617 63BE 86 30 LDA #'0 0618 63C0 A7 80 CLLOP STA ,X+ 0619 63C2 5A DECB 0620 63C3 26 FB BNE CLLOP 0621 63C5 CLEND 0622 0623 *convert to bin 0624 63C5 C6 04 LDB #4 0625 63C7 8E 64C6 LDX #INPBUF 0626 63CA 108E 6003 LDY #SCTN0 0627 63CE CVT1 0628 63CE A6 80 LDA ,X+ 0629 63D0 8D 1F BSR CVBIN 0630 63D2 25 16 BCS EREND1 0631 63D4 48 LSLA 0632 63D5 48 LSLA 0633 63D6 48 LSLA 0634 63D7 48 LSLA 0635 63D8 34 02 PSHS A 0636 63DA A6 80 LDA ,X+ 0637 63DC 8D 13 BSR CVBIN 0638 63DE 25 08 BCS EREND0 0639 63E0 AB E0 ADDA ,S+ 0640 63E2 A7 A0 STA ,Y+ 0641 63E4 5A DECB 0642 63E5 26 E7 BNE CVT1 0643 63E7 39 RTS 0644 0645 63E8 35 02 EREND0 PULS A 0646 63EA 8E 64B7 EREND1 LDX #MSERR 0647 63ED BD FAA4 JSR PSTRNG 0648 63F0 39 EEND RTS 0649 0650 *-------------------- 0651 *ascii -> bin 0652 63F1 CVBIN EQU * 0653 63F1 80 30 SUBA #'0 0654 63F3 2B 11 BMI CVERR 0655 63F5 81 09 CMPA #9 0656 63F7 23 0A BLS CVBEND 0657 63F9 81 11 CMPA #$11 0658 63FB 25 09 BLO CVERR 0659 63FD 81 16 CMPA #$16 0660 63FF 22 05 BHI CVERR 0661 6401 80 07 SUBA #7 0662 6403 CVBEND 0663 6403 1C FE ANDCC #$FE reset C 0664 6405 39 RTS 0665 6406 1A 01 CVERR ORCC #$01 set C 0666 6408 39 RTS 0667 ************************************************** 0668 * 0669 *========== parameter ========== 0670 6409 40 CMD0 FCB $40,$00,$00,$00,$00,$95 '@ 0671 640F 41 CMD1 FCB $41,$00,$00,$00,$00,$FF 'A 0672 6415 51 CMD17 FCB $51,$00,$00,$00,$00,$FF 'Q 0673 641B 58 CMD24 FCB $58,$00,$00,$00,$00,$FF 'X 0674 6421 48 CMD8 FCB $48,$00,$00,$01,$AA,$87 'H 0675 6427 7A CMD58 FCB $7A,$00,$00,$00,$00,$FF 'z 0676 642D 77 CMD55 FCB $77,$00,$00,$00,$00,$FF 'w 0677 6433 69 ACMD41 FCB $69,$40,$FF,$80,$00,$FF 'i 0678 6439 49 CMD9 FCB $49,$00,$00,$00,$00,$FF 'I 0679 0680 * 0681 643F 31 MSMENU FCC /1:Read Sct, 2:Write Sct, 3:Get SD data, 4:SD Init, 9:End: / 0682 6479 04 FCB 4 0683 647A 53 MSSCT FCC /SctNo: / 0684 6481 04 FCB 4 0685 6482 57 MSWROK FCC /Write OK?: / 0686 648D 04 FCB 4 0687 648E 53 MSSD0 FCC /SD Card/ 0688 6495 04 FCB 4 0689 6496 53 MSSD1 FCC /SDHC Card/ 0690 649F 04 FCB 4 0691 64A0 53 MERR FCC /SD Initialize error!/,$0D,$0A 0692 64B6 04 FCB 4 0693 64B7 49 MSERR FCC /Input error!/,$0D,$0A 0694 64C5 04 FCB 4 0695 *************************************** 0696 64C6 FF INPBUF RMB 8 0697 0698 END START 0 error(s), 0 warning(s) is detected. Label address ACMD41 6433 ASC411 612B ASCMD41 6123 BI21 636F BI22 6375 BUSY 62CA CALCH1 6341 CALCHC 6338 CALCSD 632E CKRS 62BD CL1 63B5 CLEND 63C5 CLLOP 63C0 CLOP 6393 CMD0 6409 CMD1 640F CMD17 6415 CMD24 641B CMD55 642D CMD58 6427 CMD8 6421 CMD9 6439 CPY1 61EA CPY2 6272 CRLF 6384 CVBEND 6403 CVBIN 63F1 CVERR 6406 CVT1 63CE DSPBIN 635B DSPD1 621F DSPD2 623B DSPDAT 621D EEND 63F0 EREND0 63E8 EREND1 63EA GET8CH 638F GETD1 62F8 GETDAT 62F4 GETSD 619D GR00 608C GR2580 6160 GR2581 617F GR2582 6181 GR410 6134 GR550 6112 GR580 60E4 GR581 60F2 GR582 60F4 GR80 60B3 GR81 60C1 GR82 60C3 GR90 61B1 GR91 61C4 INCHA F000 INEND 63A1 INIT 602D INPBUF 64C6 INSCT 630E ISTT 6071 MAIN 6009 MEN2 6044 MEN3 604D MEN4 6056 MEN5 605F MENU 602F MERR 64A0 MON F800 MSERR 64B7 MSMENU 643F MSSCT 647A MSSD0 648E MSSD1 6496 MSWROK 6482 OKEND 61D8 OUTCHA F002 PACTL F0DD PADAT F0DC PSTRNG FAA4 RESDAT 6007 RPT41 6101 RWBUF 6600 SC01 6082 SC2581 6157 SC551 6109 SC581 60DB SC80 60AA SC91 61A5 SCMD0 607A SCMD258 614F SCMD55 6101 SCMD58 60D3 SCMD8 60A2 SCTN0 6003 SCTN1 6004 SCTN2 6005 SCTN3 6006 SD1 6199 SDERR 61D2 SDHC 6008 SDINIT 6069 SDR1 61F9 SDR2 6205 SDRD 61DB SDW1 6281 SDW2 628C SDWR1 6263 SDWRT 6253 SETCKH 6352 SETCKL 6349 SFLOP 63AE SFT1 6324 SNDD1 62DF SNDDAT 62D8 SNDDT1 62AD START 6000 VN 6002  

プログラムのメニュー部です。

1:Read Sct, 2:Write Sct, 3:Get SD data, 4:SD Init, 9:End:

メニューの１や２を選択するとセクタ番号を聞いてくるので、入力するとそのセクタの内容が読み込まれたり、そのセクタにバッファの内容が書き込まれます。

３でSDの情報を表示したりすることもできます。

モニタ中のサブルーチンとして INCHA, OUTCHA, PSTRNG を使用していますが、それ以外は特別なものはないので、6809機で6821さえあればSDカードが読み書きできることになります。