FT-245高速通信カードにRTCモジュールを搭載

 FT-245高速通信カードにRTCモジュールを搭載してしまいました

RTCモジュール（ZS-042）を6809のアセンブラによるI2Cでコントロールできたので、調子に乗っていくつかのカードに搭載してきましたが、その第４作です。
第１作：RTC＋SDカード（FM-7/77版）
第２作：RTC＋68B50通信カード（FM-7/77版、FM-11版）
第３作：RTC＋8251A通信カード（FM-7/77版）
第４作：RTC＋FT245高速通信カード（FM-7/77版）・・・本カード

製作の動機としては、F-Basicはともかく、Flex9やOS-9では起動時に時刻設定が必須なので、その面倒を避けるためには時刻機能が必要ということと、FM-7系は拡張カード用のスロットが少ないので装着するカードの枚数を減らす必要があるということがあります。

特に私の常用機であるFM77AV40SXには32Pスロットが一つしかないので、どうしても合体カードが必要でした。

これが作成したカードです

RTC_FT245カード

裏面です

その裏面

一枚のサイズに収めるために、いつものようにいくつかのゲートICをGALに置き換えています。

その回路図を示します。

回路図

実は上記のカードは2枚目の製作品で、１枚目は下図のもので、これを実際にFM77AV40SXに装着して使用しています。

第１作のカード

SXに装着の様子

画像を見ても違いが分からないのではと思いますが、実はPIA（6821)のランクが異なっています。第１作は動作速度が1MHzの6821で第２作は2MHzの68B21のものを使用しています。

回路自体は2MHzを前提にしていますので1MHzバージョンでは動作しないはずなのですが、実際には動作する6821があります。個体差があるようで、同じHD6821でも動作するものとしないものがありました。

実際にFM77AV40SXに装着して起動した画面を示します。

OS-9起動画面

Flex9起動画面

上記の２つのOSではStartupファイルにRTCから日付・時刻を読み出してOSにセットするドライバRtcSet2を組み込んでありますので、起動時にセットされています。

また、下記の画像はF-Basicでの例ですが、このように起動後にRtc_Set2を起動して直接セットすることもできます。

F-Basicでの例

ドライバソフトとしてRtcRd2、RtcWr2、RtcSet2の３つをOSそれぞれについて作成してあります。

F-Basic用           RTC_RD2, RTC_WR2, RTC_SET2
OS-9用                RtcRd2, RtcWr2, RtcSet2
Flex9用               RTC_RD2.CMD, RTC_WR2.CMD, RTC_SET2.CMD

いずれもFM-7/77だけでなくFM-11でも動作することを確認してあります。

（FM-11対応にする際には「Retro PC Gallery」のはせりんさまにアドバイスをいただきました。ありがとうございました。）

なお、FT245高速通信部のドライバは今までに公開しているものがそのまま使えます。

これらのドライバソフトは、別途公開する予定です。

FM-7/77用RS-232CカードにRTCモジュールを追加して一枚のカードに

 FM-7/77用RS-232CカードにRTCモジュールを追加して一枚にしました

以前、FM-7/77用のRS-232Cカードを製作しました。
「FM-7/77用のRS232Cカードを作りました　2019年8月16日」
（https://flexonsbd.blogspot.com/2019/08/fm-777rs232c.html）

より使いやすくなるように、何回か修正を加えて最終的に下記のような形で使用してきました。
「FM-7/77用の自作基板（RS232Cカード、FT245通信カード、1024KB拡張RAMカード）のプチ改良　2024年3月25日」
（https://flexonsbd.blogspot.com/2024/03/fm-777rs232cft2451024kbram.html）

しかし、FM-7/77の32Pスロットは数少ないので、自作した32Pスロット拡張基板を用いても窮屈になってきました。

ということで、とりあえずRS-232CカードにRTC_SDカード中のRTC機能を追加して一枚にまとめてみることにしました。（F-Basicではともかく、Flex9やOS-9ではRTC機能は必須です）

製作の方針

COM部の入出力ですがシリアルコネクタは使いにくいので、今はTTL_USB変換ケーブルを使用することにしています。

また、RTC機能はZS-042というモジュールを使用し、そのコントロールにはPIA(68B21)のポートAを使用しています。スペース的には40ピンICを使用するのは非常に不利なのですが、PIAのポートAの特別な機能（出力に設定したままで入力も可能）がアセンブラでI2C機能を使用するのに最適ですので、そのまま使用することにしました。（回路を変更するとI2Cのプログラムを書き換えるのがかなりの手間になりそうなので、、、）

そのために全ICがそのままでは収まらなくなり、やむを得ず6個のゲートICをGAL20V8Bに置き換えることで何とか10x8cmのサイズに収めることができました。

（40ピンのICのわずか2ビットしか使わないのはいかにも勿体ないので、必要ならポートBが他の用途に使用できるようにピンヘッダを付けましたが、、、）

製作したカード

以上より、下記のようなRTC_COM8251Aカードが出来上りました。

製作したRTC_COM8251Aカード

本体に装着しました

本体スロットに装着した様子

回路図を示します（GALのプログラムは省略しました）

RTC_COM8251A

機能の確認

通信テストに使用したプログラム（F-BASIC文法書掲載のもの）

サンプルプログラム

通信の様子（FM-7側）

実行の様子（FM-7側）

通信の様子（Windows  TeraTerm側）

実行の様子（TeraTerm側）

RTCモジュール機能を下記に示します。

RTC機能の確認

起動直後のF-Basicでは日付・時刻が不定です。

RTC_WR2で時刻を設定します。RTCモジュールに設定されると同時にF-Basicのタイマー関係のバッファにもセットされます。

PRINT文で確認できています。

また、RTCモジュールの設定値をRTC_RD2で読み出し、RTC_SET2でF-Basicのバッファに転送できます。

最後に

製作直後は8251Aによる通信機能が全く反応せず、焦りましたが、TeraTermの改行コードの設定をデフォルト値のCRからAUTOやCR+LFに変更することで正常に通信ができました。（最初にRS232Cカードを製作した時に必要だった設定を忘れてしまっていました。。。）

通信速度ですが、純正のRS232Cカードでは19200baudまでとなっていますが、インテルやOKIの8251Aでは38400baudまで可能です。

また、RTCモジュールのコントロールソフト（RTC_WR2, RTC_RD2, RTC_SET2）ですが、FM-11用のものがそのまま使用できます。

FM-11用に作成したRTC_COMカードをFM-7/77用に移植

 FM-11用に作成したRTC_COMカードをFM-7/77用に移植しました。

FM-7用には以前、RTC_SDカードを作成して使用してきました。

（ブログ「FM-7にRTCとSDを接続する試み（2023年3月9日～5月19日の計6回掲載）」で紹介。）

しかし、カードを筐体の中にセットする機種ではSDの挿入・取り外しが非常に不便でしたので、常用しているFM77系には不向きということでFM-7でのみ使用してきました。

今回、FM-11用を作成する際にはそれを考慮してSDカード用の回路を取り除き、代わりに6850ACIAを用いた通信ポートを設けることにしました。RS232Cを持っている機種もありますが、別途通信ポートがあると便利な場合があると考えたからです。

実際にFM-11用を作成してみて、FM-7系にもあったら良いなと思えてきましたので、FM-7系用として32Pスロットに装着する形でのカードを作成しました。

これが作成したカードです。

FM-7用RTC_COMカード

いつものようにドジをしましたので、基板の修正（パターンカット1箇所、追加配線２本）が必要でしたが、修正して無事に動作しました。

裏面の修正箇所

回路図を示します。

上記の不具合を修正してあります。

回路図（修正済み）

（１）RTCモジュールのドライブソフト

ドライブソフト（RTC_RD2, RTC_WR2, RTC_SET2）はFM-11のF-Basic用に作成したものがそのまま使えます。RTCの時刻の読み出しにはRTC_RD2、RTCへの時刻の設定にはRTC_WR2、F-Basicへの時刻の転送にはRTC_SET2を使用します。

また、F-Basicと並んで良く使用しているOS-9Level2用にも同じ機能の３つのソフト（RtcRd2, RtcWr2, RtcSet2）を作成しました。実際には、F-Basic用に作成したものをOS-9用に移植したということですが、OS-9ではファイル名に「_」を使えないので名称も変更してあります。

F-Basicでの動作の様子は以前のブログで示していますので、ここではOS-9上での動作の様子を示します。

OS-9の起動直後は日付・時刻の設定がされていませんので（バッテリーが上がっている）、date t コマンドを実行するとデタラメな日付・時刻が表示されています。

ここでRtcWr2コマンドを実行して日付・時刻を設定します。このコマンドはRTCモジュールに設定すると同時にOS-9にも設定しますので、再度date tを実行すると設定した日付・時刻になっていることが確認できます。

（2000年問題に対処していないので2025年が1925年になっているのには笑えますが、実用上の不便はありません。）

 

RtcWr2の動作画面

一旦電源を落としてから再度起動すると、やはり日付・時刻がデタラメになっていますが、RTCモジュールはバッテリーバックアップされていますので、設定した値が保存されています。ここでRtcSet2コマンドを実行すると、RTCモジュールに保存されている日付・時刻がOS-9に設定されます。date tでそれが確認できます。

RtcSet2の動作画面

ということで、OS-9のStartupファイルにRtcSet2コマンドを書き込んでおけば、起動時にRTCモジュールの値でOS-9の日付・時刻を設定してくれます。

なお、RtcRd2コマンドは動作画面を示しませんが、RTCモジュールに設定された日付・時刻を読み出して表示するものです。

（２）ExCOM用通信ソフト

COMポートとして追加した6850ACIA（63C50を実装）用の通信ソフトですが、以前のブログにも書きましたが、何故かFT245、8251A、6850の３つの通信経路を一本のソフトで切り替えて使用する方法ではうまく動作しませんでしたので、FM側のソフトをそれぞれを単独のソフトとしFT245DRF(FT245用), FT245DRE(6850のExCOM用)の２本を作成しました。Windows側のソフトはFM-7/77/11に共通のft245drv.exeです。

FT245DRFは従来のソフトと同様ですので、ここではFT245DREの動作画面を示します。

FM側のFT245DREの動作画面（読み込み）

FM側のFT245DREの動作画面（書き込み）

Windows側のft245drv.exeの動作画面

なお、転送速度ですが、FT245カード使用では2Dディスクで１分弱、ExCOMでは５分ほどでしたので、ディスクイメージの転送に使用するのは実用的ではありませんが、このExCOMは以前からFlex9, F-Basic, OS-9, CP/Mで使用しているWindows上の仮想ドライブとのインターフェースに使用したいという目的のために実装したものです。

この場合には、ファイルの送受信が基本になりますので、ExCOMの38400baudでも十分に実用になることを体験しています。

ExCOＭを使用したWindows上の仮想ドライブのドライブルーチンができましたら、改めて報告させていただきます。

FM-11用のRTC & COMカードが完成

 FM-11用のリアルタイムクロック（RTC）と拡張COMを作成しました

OS-9やFlex9の起動時には日付・時刻を入力する必要があり、結構面倒です。またF-Basicの場合にも、日付・時刻を必要とする場合には直接入力する必要があります。

ということで、FM-7用に作成してあったRTC_SDカードのRTC部をFM-11に移植することにしましたが、SDカード部を省いたために空いたスペースに68B50(ACIA)を増設して38400baudのCOMポートを増設しました。本体内蔵の8251A使用のCOMポートの通信速度が19200baudなので、その倍の速度のものが欲しかったということでもあります。

移植そのものはFM-11のコネクタに出ていないIOS信号の生成部を追加するだけで良いのですが、EB信号とQB信号が*EB, *QBと反転していることを見落としていたために最初は動作しませんでしたが、その点を修正することで正常に動作しました。（ということで、基板を再発注することになってしまいました。。。）

これが再発注した基板で完成させたRTC_ExCOMカードです。使用しているRTCモジュールはクロックタイムIC  DS3231を使用したZS-042というもので、5Vで動作するので使いやすいです。（バッテリーはCR2032なので充電回路部はカットしてあります。）これを68B21(PIA)を介してI2Cで制御しています。

RTC_ExCOMカード

回路図を示します。

RTC_ExCOM R1.1

まずはCOMポートのテストをしてみました。画像右端の6ピンコネクタからTTL-USB変換ケーブルを使用してWindowsPCに接続します。FT245カード用のドライブソフト（FM側、Windows側）を拡張して、FT245、内蔵COM（8251A）に加えて拡張COM（68B50）も使用できるようにして実行してみました。結果ですが、転送時間は内蔵COMポートの場合とほとんど変わりませんでした。ちょっとがっかりでした。

続いてRTCのテストをしました。FM-7用のドライブソフト（RTC_WR, RTC_RD, RTC_SET）はF-Basic3.0の内部ルーチンを使用していましたので、それをF-Basic5.0のDisplay Sub System中のSET TIMER, READ TIMERに置き換えました。また、FM-11の時刻関係のワークエリアが不明なので困っていましたが「Retro PC Gallery」（http://haserin09.la.coocan.jp/）のはせりん様から、FM-7と同じだと教えていただきましたので、無事にFM-11用のドライブソフトを完成させることができました。ありがとうございました。

作成したRTC_WR2, RTC_RD2, RTC_SET2はF-Basic5.0用の機械語プログラムで、RTC_WR2でZS-042に日付・時刻を設定し、RTC_RD2で設定されている値を読み込み・表示します。RTC_SET2はZS-042に設定されている値を読み込んでF-Basicのワークエリアに設定するもので、起動時に自動的に設定させたい場合にSTARTUPに書き込んで使用します。

参考までにRTC_WR2のアセンブルリストを示しておきます。68B21(PIA)のポートAを使用してI2CでDS3231をコントロールしています。68B21のポートAは入力に設定したままで出力もできるのでこのような入出力が同じポートで行なわれるような用途には適しています。

0001 * 0002 * RTC_WR.CMD for F-BASIC V3.0 0003 * 0004 * WRITE DATE,TIME to RTC3231 on F-BASIC 0005 * 0006 * 6821(PIA) Port A <--> RTC3231 (use I2C) 0007 * 0008 * Adapted to FM-11 '2025.06.16 0009 * Applied to F-BASIC '2023.03.09 0010 * Original version '2018.11.03 0011 * Copyright by Y.Yamamoto 0012 * 0013 FBFA BIOS EQU $FBFA 0014 0015 02FA WKDATE EQU $02FA work area for date 0016 0017 FDDC PADAT EQU $FDDC 0018 FDDD PACTL EQU PADAT+1 0019 0020 000D CR EQU $0D 0021 000A LF EQU $0A 0022 0023 00D0 SADRW EQU $D0 (01101000+0) 0024 00D1 SADRR EQU $D1 (01101000+1) 0025 0026 6000 ORG $6000 0027 0028 6000 20 0F START BRA MAIN 0029 6002 FF WRDATA RMB 7 0030 6009 FF WKTIME RMB 6 0031 600F FF ODAT FCB $FF 0032 6010 00 WK FCB 00 0033 0034 6011 MAIN EQU * 0035 6011 17 01AF LBSR PCRLF 0036 *get date data 0037 6014 8E 6236 LDX #MDAT 0038 6017 17 019A LBSR PSTRNG 0039 0040 *clr inbuf 0041 601A 8E 627C LDX #INBUF+20 0042 601D 4F CLRA 0043 601E C6 14 LDB #20 0044 6020 A7 82 CLLOP STA ,-X 0045 6022 5A DECB 0046 6023 26 FB BNE CLLOP 0047 *keyin date,time 0048 6025 17 01E0 INDLOP LBSR INCHA 0049 6028 17 01C6 LBSR OUTCHA 0050 602B A7 80 STA ,X+ 0051 602D 81 0D CMPA #CR 0052 602F 26 F4 BNE INDLOP 0053 6031 6F 1F CLR -1,X change last CR to NUL 0054 0055 *take out date from input data 0056 6033 8E 6268 LDX #INBUF 0057 6036 C6 07 LDB #7 0058 6038 108E 6002 LDY #WRDATA 0059 603C 34 04 INLOP PSHS B 0060 603E EC 81 LDD ,X++ 0061 6040 C1 30 CMPB #'0 if B is sep. not 2dec 0062 6042 25 04 BLO INL1 0063 6044 C1 39 CMPB #'9 0064 6046 23 06 BLS INL2 0065 6048 1F 89 INL1 TFR A,B 0066 604A 86 30 LDA #'0 0067 604C 30 1F LEAX -1,X 0068 604E 48 INL2 ASLA 0069 604F 48 ASLA 0070 6050 48 ASLA 0071 6051 48 ASLA 0072 6052 C4 0F ANDB #$0F 0073 6054 34 04 PSHS B 0074 6056 AB E0 ADDA ,S+ 0075 6058 A7 A0 STA ,Y+ 0076 605A 30 01 LEAX 1,X skip separator 0077 605C 35 04 PULS B 0078 605E 5A DECB 0079 605F 27 0A BEQ INEND 0080 6061 C1 04 CMPB #4 0081 6063 26 D7 BNE INLOP 0082 6065 86 01 LDA #$01 add week data 0083 6067 A7 A0 STA ,Y+ 0084 6069 20 D1 BRA INLOP 0085 606B INEND EQU * 0086 0087 *reset pia 0088 *port A,B:output, data $ff:out 0089 606B 4F CLRA 0090 606C B7 FDDD STA PACTL select ddra 0091 606F 86 FF LDA #$FF 0092 6071 B7 FDDC STA PADAT set output mode 0093 6074 86 36 LDA #$36 0094 6076 B7 FDDD STA PACTL select peripheral 0095 *out High = bus release (set input mode) 0096 6079 86 FF LDA #$FF 0097 607B B7 600F STA ODAT save out data 0098 607E B7 FDDC STA PADAT 0099 0100 *start cond. (scl=H,sda=H->L) 0101 6081 17 00D8 LBSR SETDTL 0102 6084 17 00B7 LBSR SETCKL 0103 0104 *send slave adr+W ($D0) 0105 6087 86 D0 LDA #SADRW 0106 6089 17 00EE LBSR WRDAT 0107 0108 *wait ACK 0109 608C 17 0106 LBSR WACK 0110 0111 *send reg top adr ($00) 0112 608F 86 00 LDA #$00 reg adr:00-06 0113 6091 17 00E6 LBSR WRDAT 0114 0115 *wait ACK 0116 6094 17 00FE LBSR WACK 0117 0118 *write data 0119 6097 8E 6009 LDX #WRDATA+7 0120 609A C6 07 LDB #7 0121 609C 34 04 WRLOP PSHS B 0122 609E A6 82 LDA ,-X 0123 60A0 17 00D7 LBSR WRDAT 0124 60A3 17 00EF LBSR WACK 0125 60A6 35 04 PULS B 0126 60A8 5A DECB 0127 60A9 26 F1 BNE WRLOP 0128 0129 *stop 0130 *scl=H,sda=L->H 0131 60AB 17 009F LBSR SETCKH 0132 60AE 17 00BA LBSR SETDTH 0133 0134 *display data 0135 60B1 17 010F LBSR PCRLF 0136 60B4 8E 6257 LDX #MDATE 0137 60B7 17 00F1 LBSR DSPMSG 0138 60BA 108E 6261 LDY #MDELM 0139 60BE 8E 6002 LDX #WRDATA year month day week hour min sec 0140 60C1 8C 6005 DLOP CMPX #WRDATA+3 0141 60C4 27 08 BEQ DLOP2 0142 60C6 17 0107 LBSR OUTHEX 0143 60C9 A6 A4 LDA ,Y 0144 60CB 17 0123 LBSR OUTCHA 0145 60CE 31 21 DLOP2 LEAY 1,Y 0146 60D0 30 01 LEAX 1,X 0147 60D2 8C 6009 CMPX #WRDATA+7 0148 60D5 26 EA BNE DLOP 0149 60D7 17 00E9 LBSR PCRLF 0150 0151 *set time to F-BASIC 0152 *set to work area using F-BASIC routine 0153 60DA CE 6009 LDU #WKTIME 0154 60DD 8E 6006 LDX #WRDATA+4 0155 60E0 C6 03 LDB #3 0156 60E2 34 04 STLOP PSHS B 0157 60E4 A6 80 LDA ,X+ 0158 60E6 1F 89 TFR A,B 0159 60E8 44 LSRA 0160 60E9 44 LSRA 0161 60EA 44 LSRA 0162 60EB 44 LSRA 0163 60EC A7 C0 STA ,U+ 0164 60EE 1F 98 TFR B,A 0165 60F0 84 0F ANDA #$0F 0166 60F2 A7 C0 STA ,U+ 0167 60F4 35 04 PULS B 0168 60F6 5A DECB 0169 60F7 26 E9 BNE STLOP 0170 60F9 33 5A LEAU -6,U 0171 0172 *setime 0173 60FB C6 03 LDB #3 0174 60FD 8E 6009 LDX #WKTIME 0175 6100 108E 6232 LDY #SETTIMBF+5 0176 6104 34 04 SETLOP PSHS B 0177 6106 EC 81 LDD ,X++ 0178 6108 34 04 PSHS B 0179 610A C6 0A LDB #10 0180 610C 3D MUL 0181 610D 1F 98 TFR B,A 0182 610F AB E0 ADDA ,S+ 0183 6111 A7 A0 STA ,Y+ 0184 6113 35 04 PULS B 0185 6115 26 ED BNE SETLOP 0186 6117 8E 6225 LDX #RCBSOUT setime 0187 611A AD9F FBFA JSR [BIOS] 0188 0189 *set date to F-BASIC 0190 *set to work area directly 0191 611E CE 02FA LDU #WKDATE 0192 6121 8E 6002 LDX #WRDATA 0193 6124 C6 03 LDB #3 0194 6126 34 04 SDLOP PSHS B 0195 6128 A6 80 LDA ,X+ 0196 612A 1F 89 TFR A,B 0197 612C 44 LSRA 0198 612D 44 LSRA 0199 612E 44 LSRA 0200 612F 44 LSRA 0201 6130 A7 C0 STA ,U+ 0202 6132 1F 98 TFR B,A 0203 6134 84 0F ANDA #$0F 0204 6136 A7 C0 STA ,U+ 0205 6138 35 04 PULS B 0206 613A 5A DECB 0207 613B 26 E9 BNE SDLOP 0208 613D 39 RTS 0209 0210 *************************************** 0211 *set clk low(out b0=0) 0212 613E SETCKL EQU * 0213 613E 34 04 PSHS B 0214 6140 F6 600F LDB ODAT 0215 6143 C4 FE ANDB #$FE b0=0 0216 6145 F7 FDDC STB PADAT 0217 6148 F7 600F STB ODAT 0218 614B 35 84 PULS B,PC 0219 0220 *set clk Hi = bus release (set input mode) 0221 614D SETCKH EQU * 0222 614D 34 04 PSHS B 0223 614F F6 600F LDB ODAT 0224 6152 CA 01 ORB #$01 b0=1 0225 6154 F7 FDDC STB PADAT 0226 6157 F7 600F STB ODAT 0227 615A 35 84 PULS B,PC 0228 0229 *set data low(out b7=0) 0230 615C SETDTL EQU * 0231 615C 34 04 PSHS B 0232 615E F6 600F LDB ODAT 0233 6161 C4 7F ANDB #$7F b7=0 0234 6163 F7 FDDC STB PADAT 0235 6166 F7 600F STB ODAT 0236 6169 35 84 PULS B,PC 0237 0238 *set data Hi = bus release (set input mode) 0239 616B SETDTH EQU * 0240 616B 34 04 PSHS B 0241 616D F6 600F LDB ODAT 0242 6170 CA 80 ORB #$80 b7=1 0243 6172 F7 FDDC STB PADAT 0244 6175 F7 600F STB ODAT 0245 6178 35 84 PULS B,PC 0246 0247 *write data or adr 0248 *A:data or adr 0249 617A WRDAT EQU * 0250 617A C6 08 LDB #8 0251 617C 8D C0 WLOP BSR SETCKL 0252 617E 34 04 PSHS B 0253 6180 48 ASLA b7->C 0254 6181 24 04 BCC WL1 0255 6183 8D E6 BSR SETDTH 0256 6185 20 02 BRA WL2 0257 6187 8D D3 WL1 BSR SETDTL 0258 6189 8D C2 WL2 BSR SETCKH 0259 618B 8D B1 BSR SETCKL 0260 618D 8D CD BSR SETDTL 0261 618F 35 04 PULS B 0262 6191 5A DECB 0263 6192 26 E8 BNE WLOP 0264 6194 39 RTS 0265 0266 *wait ACK 0267 *ACK:sda=L 0268 6195 WACK EQU * 0269 6195 8D B6 BSR SETCKH 0270 6197 F6 FDDC WALOP LDB PADAT 0271 619A 58 ASLB data->C 0272 619B 25 FA BCS WALOP 0273 619D 8D 9F BSR SETCKL 0274 619F 8D CA BSR SETDTH sda release 0275 61A1 39 RTS 0276 0277 *set ACK 0278 61A2 SACK EQU * 0279 61A2 8D B8 BSR SETDTL 0280 61A4 8D A7 BSR SETCKH 0281 61A6 8D 96 BSR SETCKL 0282 61A8 8D C1 BSR SETDTH sda release 0283 61AA 39 RTS 0284 0285 *disp message 0286 61AB DSPMSG EQU * 0287 61AB A6 80 DSPLOP LDA ,X+ 0288 61AD 27 04 BEQ DSPEND 0289 61AF 8D 40 BSR OUTCHA 0290 61B1 20 F8 BRA DSPLOP 0291 61B3 39 DSPEND RTS 0292 0293 *pstring 0294 61B4 PSTRNG EQU * 0295 61B4 34 02 PSHS A 0296 61B6 A6 80 PSLOP LDA ,X+ 0297 61B8 81 04 CMPA #4 0298 61BA 27 04 BEQ PSEND 0299 61BC 8D 33 BSR OUTCHA 0300 61BE 20 F6 BRA PSLOP 0301 61C0 35 02 PSEND PULS A 0302 61C2 39 RTS 0303 0304 *print CR,LF 0305 61C3 PCRLF EQU * 0306 61C3 34 02 PSHS A 0307 61C5 86 0D LDA #CR 0308 61C7 8D 28 BSR OUTCHA 0309 61C9 86 0A LDA #LF 0310 61CB 8D 24 BSR OUTCHA 0311 61CD 35 02 PULS A 0312 61CF 39 RTS 0313 0314 *print hex 0315 61D0 OUTHEX EQU * 0316 61D0 34 06 PSHS A,B 0317 61D2 A6 84 LDA ,X 0318 61D4 1F 89 TFR A,B 0319 61D6 44 LSRA 0320 61D7 44 LSRA 0321 61D8 44 LSRA 0322 61D9 44 LSRA 0323 61DA 8D 0C BSR OUTS 0324 61DC 8D 13 BSR OUTCHA 0325 61DE 1F 98 TFR B,A 0326 61E0 84 0F ANDA #$0F 0327 61E2 8D 04 BSR OUTS 0328 61E4 8D 0B BSR OUTCHA 0329 61E6 35 86 PULS A,B,PC 0330 0331 61E8 8B 30 OUTS ADDA #$30 0332 61EA 81 39 CMPA #$39 0333 61EC 23 02 BLS OUTSE 0334 61EE 8B 07 ADDA #$7 0335 61F0 39 OUTSE RTS 0336 0337 * out 1 cha 0338 * display <- A 0339 61F1 OUTCHA EQU * 0340 61F1 34 10 PSHS X 0341 61F3 B7 6207 STA OUTDB 0342 61F6 8E 61FF LDX #RCBOUT 0343 61F9 AD9F FBFA JSR [BIOS] 0344 61FD 35 90 PULS X,PC 0345 0346 61FF RCBOUT 0347 61FF 14 FCB 20 OUTPUT 0348 6200 00 FCB 0 0349 6201 6207 FDB OUTDB 0350 6203 0001 FDB 0001 0351 6205 0000 FDB 0000 0352 0353 6207 00 OUTDB FCB 0 0354 0355 * input 1 cha 0356 * A <- keyboard 0357 6208 INCHA EQU * 0358 6208 34 10 PSHS X 0359 620A 8E 621B INCH1 LDX #RCBIN 0360 620D AD9F FBFA JSR [BIOS] 0361 6211 B6 6224 LDA INDB+1 0362 6214 27 F4 BEQ INCH1 0363 6216 B6 6223 LDA INDB 0364 6219 35 90 PULS X,PC 0365 0366 621B 15 RCBIN FCB 21 KEYIN 0367 621C 00 FCB 0 0368 621D 6223 FDB INDB 0369 621F 0001 FDB 0001 0370 6221 0000 FDB 0000 0371 0372 6223 0000 INDB FDB 0000 0373 0374 *set time to F-Basic 0375 6225 RCBSOUT 0376 6225 10 FCB 16 SUBOUT 0377 6226 00 FCB 0 0378 6227 622D FDB SETTIMBF 0379 6229 0009 FDB 9 0380 622B 0000 FDB 0000 0381 0382 622D SETTIMBF 0383 622D 0000 FDB 0000 0384 622F 3D FCB $3D command (set timer) 0385 6230 02 FCB $02 RS (select T1) 0386 6231 00 FCB 0 TC 0387 6232 00 FCB 0 hour(0-23) 0388 6233 00 FCB 0 minute(0-59) 0389 6234 00 FCB 0 sec(0-59) 0390 6235 00 FCB 0 20ms countup(0-49) 0391 0392 * 0393 6236 69 6E 70 75 MDAT FCC "input date (YY/MM/DD HH:MM:SS): " 74 20 64 61 74 65 20 28 59 59 2F 4D 4D 2F 44 44 20 48 48 3A 4D 4D 3A 53 53 29 3A 20 0394 6256 04 FCB 4 0395 6257 54 69 6D 65 MDATE FCC /Time : 20/ 20 3A 20 32 30 0396 6260 00 FCB 0 0397 6261 2F 2F 20 20 MDELM FCC "// ::." 3A 3A 2E 0398 *************************************** 0399 * 0400 6268 INBUF EQU * 0401 0402 END START 0 error(s), 0 warning(s) is detected. Label address BIOS FBFA CLLOP 6020 CR 000D DLOP 60C1 DLOP2 60CE DSPEND 61B3 DSPLOP 61AB DSPMSG 61AB INBUF 6268 INCH1 620A INCHA 6208 INDB 6223 INDLOP 6025 INEND 606B INL1 6048 INL2 604E INLOP 603C LF 000A MAIN 6011 MDAT 6236 MDATE 6257 MDELM 6261 ODAT 600F OUTCHA 61F1 OUTDB 6207 OUTHEX 61D0 OUTS 61E8 OUTSE 61F0 PACTL FDDD PADAT FDDC PCRLF 61C3 PSEND 61C0 PSLOP 61B6 PSTRNG 61B4 RCBIN 621B RCBOUT 61FF RCBSOUT 6225 SACK 61A2 SADRR 00D1 SADRW 00D0 SDLOP 6126 SETCKH 614D SETCKL 613E SETDTH 616B SETDTL 615C SETLOP 6104 SETTIMBF 622D START 6000 STLOP 60E2 WACK 6195 WALOP 6197 WK 6010 WKDATE 02FA WKTIME 6009 WL1 6187 WL2 6189 WLOP 617C WRDAT 617A WRDATA 6002 WRLOP 609C  

 

参考までに作成したRTC_WR2, RTC_RD2, RTC_SET2をOneDriveに上げておきます。

機械語プログラムでI2Cを使用するサンプルとしてみていただければと思います。

FM-7にRTCとSDを接続する試み（RTC編）

 FM-7用のRTC＆SDカード基板を製作してみました

【修正】OneDriveのリンク先が間違っていましたので、正しいリンク先に変更しました。

以前、6821PIAを用いてI2CでRTCを、SPIでSDカードを読み書きする試みを紹介しました。

「アセンブラでのPIAとRTCの間のI2C通信に成功しました（2018年10月27日）」
（https://flexonsbd.blogspot.com/2018/10/piartci2c.html）

「SDカードを6809のアセンブラで読み書きしてみる（2022年6月12日）」
（https://flexonsbd.blogspot.com/2022/06/sd6809.html）

最終の目的は、FM-7にRTC(リアルタイムクロック)とSDカードを実装することなのですが、RTCはともかく、SDカードを実装するのはそれ程簡単ではありません。

しかし、あれこれ考えているだけでは進まないので、とりあえず基板を作成してみることにしました。

作成した基板です。

製作したRTC&SDカード基板

その回路図を示します。

回路図

基本的には以前紹介したものと同じで、68B21のAポートを使用してI2CでRTCを、Bポートを使用してSPIでSDカードを制御しています。なお、RTCは5V駆動ですので68B21と直結していますが、SDカードは3.3V駆動ですので、レベル変換モジュールを通しており、その3.3V電源はSDカードから供給しています。

使用しているRTC基板はDS3231チップを使用しているZS-042で、バッテリを充電しないようにパターンカットを施しています。またSDカード基板は画像のものの他に、以前秋月電子で販売されていた基板も使えるように両方のパターンを用意してあります。（下のマイコン用基板に装着されています。）

同時に、自作6809/6802ボードマイコン用の基板も製作しました。

この基板はFlex9の起動時に自動的に日付を読み込むために使用しています。

マイコン用基板

今回は、RTC部分についてのみ紹介します。

FM-7に装着した状態です。

動作風景

実行中の様子です。

実行画面

FM-7のF-BASIC V3.0用に制作したソフトは、RTCから読み出すRTC_RDと書き込むRTC_WRの２本です。

RTC_WRでは日付と時刻をF-BASICのワークエリアに直接書き込んでいますので、RTC_WRはV3.0専用です。

画像にありますように、書き込んだデータがPRINT文で表示できており、正しく設定されていることが確認できます。

参考までに、RTC_WRのリストを示します。

0001 * 0002 * RTC_WR.CMD for F-BASIC V3.0 0003 * 0004 * WRITE DATE to RTC3231 by I2C on F-BASIC 0005 * 0006 * 6821(PIA) Port A <--> RTC3231 0007 * 0008 * Applied to F-BASIC '2023.03.09 0009 * Original version '2018.11.03 0010 * Copyright by Y.Yamamoto 0011 * 0012 FBB8 INCHA EQU $FBB8 0013 FBBB OUTCHA EQU $FBBB 0014 E2E9 SETIME EQU $E2E9 set time data routine 0015 02FA WKDATE EQU $02FA work area for date 0016 0017 FD9C PADAT EQU $FD9C 0018 FD9D PACTL EQU PADAT+1 0019 0020 000D CR EQU $0D 0021 000A LF EQU $0A 0022 0023 00D0 SADRW EQU $D0 (01101000+0) 0024 00D1 SADRR EQU $D1 (01101000+1) 0025 0026 6000 ORG $6000 0027 0028 6000 20 03 START BRA MAIN 0029 6002 01 VN FCB 1 0030 6003 FF ODAT FCB $FF 0031 6004 00 WK FCB 00 0032 0033 6005 MAIN EQU * 0034 6005 BD 619A JSR PCRLF 0035 *get date data 0036 6008 8E 61CC LDX #MDAT 0037 600B BD 618A JSR PSTRNG 0038 0039 600E 8E 621F LDX #INBUF+20 0040 6011 4F CLRA 0041 6012 C6 14 LDB #20 0042 6014 A7 82 CLLOP STA ,-X 0043 6016 5A DECB 0044 6017 26 FB BNE CLLOP 0045 6019 BD FBB8 INDLOP JSR INCHA 0046 601C BD FBBB JSR OUTCHA 0047 601F A7 80 STA ,X+ 0048 6021 81 0D CMPA #CR 0049 6023 26 F4 BNE INDLOP 0050 6025 6F 1F CLR -1,X 0051 6027 8E 620B LDX #INBUF 0052 0053 602A C6 07 LDB #7 0054 602C 108E 61FE LDY #WRDATA 0055 6030 34 04 INLOP PSHS B 0056 6032 EC 81 LDD ,X++ 0057 *if B is sep. not 2dec 0058 6034 C1 30 CMPB #'0 0059 6036 25 04 BLO INL1 0060 6038 C1 39 CMPB #'9 0061 603A 23 06 BLS INL2 0062 603C 1F 89 INL1 TFR A,B 0063 603E 86 30 LDA #'0 0064 6040 30 1F LEAX -1,X 0065 6042 48 INL2 ASLA 0066 6043 48 ASLA 0067 6044 48 ASLA 0068 6045 48 ASLA 0069 6046 C4 0F ANDB #$0F 0070 6048 F7 6004 STB WK 0071 604B BB 6004 ADDA WK 0072 604E A7 A0 STA ,Y+ 0073 6050 30 01 LEAX 1,X skip separator 0074 6052 35 04 PULS B 0075 6054 5A DECB 0076 6055 27 0A BEQ INEND 0077 6057 C1 04 CMPB #4 0078 6059 26 D5 BNE INLOP 0079 605B 86 01 LDA #$01 add week data 0080 605D A7 A0 STA ,Y+ 0081 605F 20 CF BRA INLOP 0082 6061 INEND EQU * 0083 0084 *reset pia 0085 *port A,B:output, data $ff:out 0086 6061 4F CLRA 0087 6062 B7 FD9D STA PACTL select ddra 0088 6065 86 FF LDA #$FF 0089 6067 B7 FD9C STA PADAT set output mode 0090 606A 86 36 LDA #$36 0091 606C B7 FD9D STA PACTL select peripheral 0092 *out High = bus release (set input mode) 0093 606F 86 FF LDA #$FF 0094 6071 B7 6003 STA ODAT save out data 0095 6074 B7 FD9C STA PADAT 0096 0097 *start cond. (scl=H,sda=H->L) 0098 6077 17 00B7 LBSR SETDTL 0099 607A 17 0096 LBSR SETCKL 0100 0101 *send slave adr+W ($D0) 0102 607D 86 D0 LDA #SADRW 0103 607F 17 00CD LBSR WRDAT 0104 0105 *wait ACK 0106 6082 17 00E5 LBSR WACK 0107 0108 *send reg top adr ($00) 0109 6085 86 00 LDA #$00 reg adr:00-06 0110 6087 17 00C5 LBSR WRDAT 0111 0112 *wait ACK 0113 608A 17 00DD LBSR WACK 0114 0115 *write data 0116 608D 8E 6205 LDX #WRDATA+7 0117 6090 C6 07 LDB #7 0118 6092 34 04 WRLOP PSHS B 0119 6094 A6 82 LDA ,-X 0120 6096 17 00B6 LBSR WRDAT 0121 6099 17 00CE LBSR WACK 0122 609C 35 04 PULS B 0123 609E 5A DECB 0124 609F 26 F1 BNE WRLOP 0125 0126 *stop 0127 *scl=H,sda=L->H 0128 60A1 8D 7F BSR SETCKH 0129 60A3 17 009A LBSR SETDTH 0130 0131 *display data 0132 60A6 BD 619A JSR PCRLF 0133 60A9 8E 61ED LDX #MDATE 0134 60AC 17 00D1 LBSR DSPMSG 0135 60AF 108E 61F7 LDY #MDELM 0136 60B3 8E 61FE LDX #WRDATA year month day week hour min sec 0137 60B6 8C 6201 DLOP CMPX #WRDATA+3 0138 60B9 27 08 BEQ DLOP2 0139 60BB BD 61A9 JSR OUTHEX 0140 60BE A6 A4 LDA ,Y 0141 60C0 BD FBBB JSR OUTCHA 0142 60C3 31 21 DLOP2 LEAY 1,Y 0143 60C5 30 01 LEAX 1,X 0144 60C7 8C 6205 CMPX #WRDATA+7 0145 60CA 26 EA BNE DLOP 0146 60CC BD 619A JSR PCRLF 0147 0148 *set time to F-BASIC 0149 *set to work area using F-BASIC routine 0150 60CF CE 6205 LDU #WKTIME 0151 60D2 8E 6202 LDX #WRDATA+4 0152 60D5 C6 03 LDB #3 0153 60D7 34 04 STLOP PSHS B 0154 60D9 A6 80 LDA ,X+ 0155 60DB 1F 89 TFR A,B 0156 60DD 44 LSRA 0157 60DE 44 LSRA 0158 60DF 44 LSRA 0159 60E0 44 LSRA 0160 60E1 A7 C0 STA ,U+ 0161 60E3 1F 98 TFR B,A 0162 60E5 84 0F ANDA #$0F 0163 60E7 A7 C0 STA ,U+ 0164 60E9 35 04 PULS B 0165 60EB 5A DECB 0166 60EC 26 E9 BNE STLOP 0167 60EE 33 5A LEAU -6,U 0168 60F0 BD E2E9 JSR SETIME 0169 *set date to F-BASIC 0170 *set to work area directly 0171 60F3 CE 02FA LDU #WKDATE 0172 60F6 8E 61FE LDX #WRDATA 0173 60F9 C6 03 LDB #3 0174 60FB 34 04 SDLOP PSHS B 0175 60FD A6 80 LDA ,X+ 0176 60FF 1F 89 TFR A,B 0177 6101 44 LSRA 0178 6102 44 LSRA 0179 6103 44 LSRA 0180 6104 44 LSRA 0181 6105 A7 C0 STA ,U+ 0182 6107 1F 98 TFR B,A 0183 6109 84 0F ANDA #$0F 0184 610B A7 C0 STA ,U+ 0185 610D 35 04 PULS B 0186 610F 5A DECB 0187 6110 26 E9 BNE SDLOP 0188 6112 39 RTS 0189 0190 *************************************** 0191 *set clk low(out b0=0) 0192 6113 SETCKL EQU * 0193 6113 34 04 PSHS B 0194 6115 F6 6003 LDB ODAT 0195 6118 C4 FE ANDB #$FE b0=0 0196 611A F7 FD9C STB PADAT 0197 611D F7 6003 STB ODAT 0198 6120 35 84 PULS B,PC 0199 0200 *set clk Hi = bus release (set input mode) 0201 6122 SETCKH EQU * 0202 6122 34 04 PSHS B 0203 6124 F6 6003 LDB ODAT 0204 6127 CA 01 ORB #$01 b0=1 0205 6129 F7 FD9C STB PADAT 0206 612C F7 6003 STB ODAT 0207 612F 35 84 PULS B,PC 0208 0209 *set data low(out b7=0) 0210 6131 SETDTL EQU * 0211 6131 34 04 PSHS B 0212 6133 F6 6003 LDB ODAT 0213 6136 C4 7F ANDB #$7F b7=0 0214 6138 F7 FD9C STB PADAT 0215 613B F7 6003 STB ODAT 0216 613E 35 84 PULS B,PC 0217 0218 *set data Hi = bus release (set input mode) 0219 6140 SETDTH EQU * 0220 6140 34 04 PSHS B 0221 6142 F6 6003 LDB ODAT 0222 6145 CA 80 ORB #$80 b7=1 0223 6147 F7 FD9C STB PADAT 0224 614A F7 6003 STB ODAT 0225 614D 35 84 PULS B,PC 0226 0227 *write data or adr 0228 *A:data or adr 0229 614F WRDAT EQU * 0230 614F C6 08 LDB #8 0231 6151 8D C0 WLOP BSR SETCKL 0232 6153 34 04 PSHS B 0233 6155 48 ASLA b7->C 0234 6156 24 04 BCC WL1 0235 6158 8D E6 BSR SETDTH 0236 615A 20 02 BRA WL2 0237 615C 8D D3 WL1 BSR SETDTL 0238 615E 8D C2 WL2 BSR SETCKH 0239 6160 8D B1 BSR SETCKL 0240 6162 8D CD BSR SETDTL 0241 6164 35 04 PULS B 0242 6166 5A DECB 0243 6167 26 E8 BNE WLOP 0244 6169 39 RTS 0245 0246 *wait ACK 0247 *ACK:sda=L 0248 616A WACK EQU * 0249 616A 8D B6 BSR SETCKH 0250 616C F6 FD9C WALOP LDB PADAT 0251 616F 58 ASLB data->C 0252 6170 25 FA BCS WALOP 0253 6172 8D 9F BSR SETCKL 0254 6174 8D CA BSR SETDTH sda release 0255 6176 39 RTS 0256 0257 *set ACK 0258 6177 SACK EQU * 0259 6177 8D B8 BSR SETDTL 0260 6179 8D A7 BSR SETCKH 0261 617B 8D 96 BSR SETCKL 0262 617D 8D C1 BSR SETDTH sda release 0263 617F 39 RTS 0264 0265 *disp message 0266 6180 DSPMSG EQU * 0267 6180 A6 80 DSPLOP LDA ,X+ 0268 6182 27 05 BEQ DSPEND 0269 6184 BD FBBB JSR OUTCHA 0270 6187 20 F7 BRA DSPLOP 0271 6189 39 DSPEND RTS 0272 0273 *pstring 0274 618A PSTRNG EQU * 0275 618A 34 02 PSHS A 0276 618C A6 80 PSLOP LDA ,X+ 0277 618E 81 04 CMPA #4 0278 6190 27 05 BEQ PSEND 0279 6192 BD FBBB JSR OUTCHA 0280 6195 20 F5 BRA PSLOP 0281 6197 35 02 PSEND PULS A 0282 6199 39 RTS 0283 0284 *print CR,LF 0285 619A PCRLF EQU * 0286 619A 34 02 PSHS A 0287 619C 86 0D LDA #CR 0288 619E BD FBBB JSR OUTCHA 0289 61A1 86 0A LDA #LF 0290 61A3 BD FBBB JSR OUTCHA 0291 61A6 35 02 PULS A 0292 61A8 39 RTS 0293 0294 *print hex 0295 61A9 OUTHEX EQU * 0296 61A9 34 06 PSHS A,B 0297 61AB A6 84 LDA ,X 0298 61AD 1F 89 TFR A,B 0299 61AF 44 LSRA 0300 61B0 44 LSRA 0301 61B1 44 LSRA 0302 61B2 44 LSRA 0303 61B3 8D 0E BSR OUTS 0304 61B5 BD FBBB JSR OUTCHA 0305 61B8 1F 98 TFR B,A 0306 61BA 84 0F ANDA #$0F 0307 61BC 8D 05 BSR OUTS 0308 61BE BD FBBB JSR OUTCHA 0309 61C1 35 86 PULS A,B,PC 0310 0311 61C3 8B 30 OUTS ADDA #$30 0312 61C5 81 39 CMPA #$39 0313 61C7 23 02 BLS OUTSE 0314 61C9 8B 07 ADDA #$7 0315 61CB 39 OUTSE RTS 0316 0317 * 0318 61CC 69 MDAT FCC "input date (YY/MM/DD HH:MM:SS): " 0319 61EC 04 FCB 4 0320 61ED 54 MDATE FCC /Time : 20/ 0321 61F6 00 FCB 0 0322 61F7 2F MDELM FCC "// ::." 0323 *************************************** 0324 * 0325 61FE FF WRDATA RMB 7 0326 6205 FF WKTIME RMB 6 0327 0328 620B INBUF EQU * 0329 0330 END START 0 error(s), 0 warning(s) is detected. Label address CLLOP 6014 CR 000D DLOP 60B6 DLOP2 60C3 DSPEND 6189 DSPLOP 6180 DSPMSG 6180 INBUF 620B INCHA FBB8 INDLOP 6019 INEND 6061 INL1 603C INL2 6042 INLOP 6030 LF 000A MAIN 6005 MDAT 61CC MDATE 61ED MDELM 61F7 ODAT 6003 OUTCHA FBBB OUTHEX 61A9 OUTS 61C3 OUTSE 61CB PACTL FD9D PADAT FD9C PCRLF 619A PSEND 6197 PSLOP 618C PSTRNG 618A SACK 6177 SADRR 00D1 SADRW 00D0 SDLOP 60FB SETCKH 6122 SETCKL 6113 SETDTH 6140 SETDTL 6131 SETIME E2E9 START 6000 STLOP 60D7 VN 6002 WACK 616A WALOP 616C WK 6004 WKDATE 02FA WKTIME 6205 WL1 615C WL2 615E WLOP 6151 WRDAT 614F WRDATA 61FE WRLOP 6092  

F-BASICの起動時にRTC_WRを実行して日付・時刻を設定することで、以降はF-BASICから日付・時刻を参照することができます。

以上でFM-7にRTCを搭載することができましたが、問題はSDカードです。

独自のフォーマットでSDカードにファイルを保存・読み出しをするのであれば、今回作成した基板でも可能かと思いますが、Windows PCと共通のフォーマット（FAT16/32）でと考えると、FM-7と6821の機械語だけでは無理があるようです。

ネット検索をしても、ほとんどがマイコン用に用意されているFATライブラリを使用しているようです。

しかし、困難かもしれませんが、マイコンを使用せずにやれるところまでやってみようと思います。

うまくファイルの読み書きができましたら紹介させていただきます。

（ネット検索をしても、FM系にSDカードを装着した記事が見当たらないようですが、私が見つけられないだけでしょうか？　見つかるのは80系ばかりのような。。。）

紹介しましたRTC用に制作した２本のソフト（RTC_WRとRTC_RD）のソースとバイナリをOneDriveに上げておきます。なお、これらのソースのアセンブリには以前紹介した自作のクロスアセンブラ6809AsmWin.exeを使用しています。

6809SBCボードやFM-7にArduinoを接続してRTCやLCDを制御

 6809SBCボードとFM-7にArduinoを接続してRTCやLCDを制御してみました

現在では様々なセンサー等が気軽に入手できて、電子工作好きには楽しい時代ですが、シングルボードマイコンやFM-7などにもそれらのセンサーを接続してみたいと考えていました。

今までにも、6809/6802Dualボードに搭載しているPIA（6821）を利用してRTC（ZS-042）を接続して、Flex9の起動時に時刻を自動的に読み込ませて、起動時の時刻の手入力を省略したりしていましたが（下記のブログで紹介）、もっと他のセンサーなども接続したいと思うようになりました。

　　2018年11月3日のブログ「PIAのみでRTCからの時刻の読み書きができました」

上記のPIAにRTCを接続した際には、I2Cによる通信プログラムをアセンブラで作成しましたのでかなり時間がかかりました。センサー毎にアセンブラによるプログラムを作成するのは非現実的ですので、間にArduinoのようなマイコンを挟めばよいのではないかと思いつきました。手持ちには数種類のマイコンがありますが、とりあえず最も手軽そうなArduinoで始めて性能に不満が出たら他のマイコンに置き換えれば良いと思って始めましたが、思ったよりも難しくて一ヶ月余りもかかってしまいました。

難しかったのは、6809側ではアセンブラによるプログラムでI2C通信するのですが、それに対するArduino側のC++(?)のプログラムの応答との関係が良く分からないことでした。

とりあえず、Arduinoを通してRTCとLCDを制御できましたので報告します。

全体の接続を下に示します。6821PIAとArduino間をハードI2Cで通信し、Arduinoと各センサー間はソフトI2Cで通信します。ソフトI2CではArduinoがマスターにしかなれないのでこのような構成となりました。

接続図

（１）ハードの設定

実際の実験の様子です。上部に見えるのが6809/6802Dualボードで、下にあるのがArduinoとセンサーです。

実験風景

ブレッドボード上の中央がRTC（ZS-042）、右が8桁x2行のLCD（AQM0802A）で、RTCから読んだ日時を表示しています。どちらも5V版なので、Arduinoに直結できています。またI2Cのプルアップ抵抗は、ハードI2C側は6821内部の抵抗を、ソフトI2C側はArduino内部の抵抗を利用していますので、単純にセンサーをArduinoに接続するだけで済んでいます。

（左のセンサーは他の実験のもので無関係です。）

センサー部のアップ

6809/6802Dualボードに接続した場合の結果です。アセンブラによるプログラムでArduinoに指示を送り、ArduinoがRTCを読んで結果を送ってきています。（とりあえずの実験なので単純にデータを順に表示していますが、左から年月日と時分秒です。）

6809/6802Dualボードによる結果

続いて、FM-7でも同様な実験を行ってみました。

右に装着されているのが6821PIAボード

使用したのは、以前報告したブログ「FM-7/77用拡張PIAボードとP-ROMライタ」（2020年6月26日）で製作したP-ROMライタ用の6821PIAボードです。

FM-7用6821PIAボード

6809ボードで用いたアセンブラプログラムをサブルーチン化して、F-BASICのプログラムから呼び出す形で使用しています。F-BASICのプログラムはサブルーチンを呼び出すことと結果を表示するためだけに用いています。

FM-7による結果

（２）プログラム作成

プログラム作成上で私が引っかかった点を列挙します。

１．ソフトI2CではArduinoはマスターにしかなれず、スレーブにはなれない。

　→ 最初は6809側をソフトI2Cで、センサー側をハードI2Cでと考えていたのですが、結局、逆にせざるを得ませんでした。

２．RTC（ZS-042）の制御ICであるDS3231用のライブラリDS3231.ｈはI2Cのアドレスを決め打ちしておりソフトI2Cには対応していない（ようです）。

　→ ライブラリを使わずに直接DS3231のレジスタを操作することになりました。

３．Arduinoで標準のWire.hでの割り込み関数 Wire.onRequest(requestEvent); や Wire.onReceive(receiveEvent); を6809ボードからのアセンブラプログラムでどうしたら起動させることができるか。また、Wire.requestFrom(ID, no); は使えないが、その代わりにどのようにしたらリクエストできるのか。

　→ 6809側からArduinoに何かのデータを書き込むと onReceive関数が反応するので、この receiveEvent関数内で送られてきたデータを読み込んで（必要がないので）捨てる。6809側にデータを送り返す作業は onRequest関数で呼び出される requestEvent関数内で行うという形で通信することができました。（receiveEvent関数では6809側に送り返すことはできませんでした。）

参考までに6809側のプログラムのソースを示します。

  0001 * 0002 * SBC_I2C.CMD 0003 * 0004 * ARDUINO (UNO) READ/WRITE by I2C on 6809SBC 0005 * 0006 * 6821(PIA) Port A <--> ARDUINO (UNO) 0007 * 0008 * Port A: b0:SCL -- Arduino A5 0009 * b7:SDA -- A4 0010 * 0011 * write format: 0012 * command : S+ADR+cmd1+cmd2+...+lastcmd+P 0013 * data : S+ADR+dat1+dat2+...+lastdat+P 0014 * (S:start condition, ADR:slave adrs, P:stop condition) 0015 * 0016 * Original version '2021.08.21 0017 * Copyright by Y.Yamamoto 0018 * 0019 0020 * subroutine on 6809SBC 0021 F803 WARMS EQU $F803 0022 FAAA PSTRNG EQU $FAAA 0023 F000 GETCHR EQU $F000 0024 F002 PUTCHR EQU $F002 0025 FA92 OUT2HS EQU $FA92 0026 FAB2 PCRLF EQU $FAB2 0027 0028 F0DC PADAT EQU $F0DC 0029 F0DD PACTL EQU PADAT+1 0030 0031 0010 SADRW EQU $10 =$08<<1+0 <-- Arduino adr set to $08 0032 0011 SADRR EQU $11 =$08<<1+1 0033 0034 1000 ORG $1000 0035 0036 1000 20 0A START BRA MAIN 0037 1002 01 VN FCB 1 0038 1003 FF ODAT FCB $FF 0039 1004 00 WK FCB 00 0040 1005 FF RDDATE RMB 7 sec,min,hour,day,date,month,year 0041 0042 100C MAIN EQU * 0043 0044 *=====reset pia===== 0045 *port A,B:output, data $ff:out 0046 100C 4F CLRA 0047 100D B7 F0DD STA PACTL select ddra 0048 *for pia exist check 0049 1010 86 55 LDA #$55 test data 0050 1012 B7 F0DC STA PADAT 0051 1015 B6 F0DC LDA PADAT 0052 1018 81 55 CMPA #$55 0053 101A 27 09 BEQ PIAOK 0054 101C 8E 10A3 LDX #MERR 0055 101F BD FAAA JSR PSTRNG 0056 1022 7E F803 JMP WARMS 0057 * 0058 1025 86 FF PIAOK LDA #$FF 0059 1027 B7 F0DC STA PADAT set output mode 0060 102A 86 36 LDA #$36 0061 102C B7 F0DD STA PACTL select peripheral 0062 *out High = bus release (set input mode) 0063 102F 86 FF LDA #$FF 0064 1031 B7 1003 STA ODAT save out data 0065 1034 B7 F0DC STA PADAT 0066 0067 *start cond. (scl=H,sda=H->L) 0068 1037 17 00C7 LBSR SETDTL 0069 103A 17 0097 LBSR SETCKL 0070 0071 *send slave adr+W ($10) 0072 103D 86 10 LDA #SADRW 0073 103F 17 00DD LBSR WRDAT 0074 0075 *wait ACK 0076 1042 17 0111 LBSR WACK 0077 0078 *send 1 chr 0079 1045 86 00 LDA #$00 <------ test data 0080 1047 17 00D5 LBSR WRDAT 0081 0082 *wait ACK 0083 104A 17 0109 LBSR WACK 0084 0085 *restart cond. 0086 104D 17 0084 LBSR SETCKL 0087 * LBSR SETDTL 0088 1050 17 0090 LBSR SETCKH 0089 1053 17 00BA LBSR SETDTH 0090 0091 *start cond. 0092 1056 17 00A8 LBSR SETDTL 0093 1059 17 0078 LBSR SETCKL 0094 0095 *send slave adr+R ($11) 0096 105C 86 11 LDA #SADRR 0097 105E 17 00BE LBSR WRDAT 0098 0099 *wait ACK 0100 1061 17 00F2 LBSR WACK 0101 0102 *read data 0103 1064 8E 1005 LDX #RDDATE 0104 1067 C6 06 LDB #7-1 read data on reg 0-6 0105 1069 34 04 RDLOP PSHS B 0106 106B 17 00CC LBSR RDDAT 0107 106E 17 00F3 LBSR SACK 0108 1071 30 01 LEAX 1,X 0109 1073 35 04 PULS B 0110 1075 5A DECB 0111 1076 26 F1 BNE RDLOP 0112 1078 17 00BF LBSR RDDAT read last data 0113 0114 *set NACK 0115 107B 17 0092 LBSR SETDTH 0116 107E 8D 63 BSR SETCKH 0117 1080 8D 52 BSR SETCKL 0118 1082 17 007C LBSR SETDTL 0119 0120 *stop 0121 *scl=H,sda=L->H 0122 1085 8D 5C BSR SETCKH 0123 1087 17 0086 LBSR SETDTH 0124 0125 *===== data disp ===== 0126 * 0127 108A 8E 100B LDX #RDDATE+6 0128 108D C6 07 LDB #7 0129 108F C1 04 DSPLOP CMPB #4 skip day of week 0130 1091 27 05 BEQ DSP1 0131 1093 BD FA92 JSR OUT2HS 0132 1096 30 1F LEAX -1,X 0133 1098 30 1F DSP1 LEAX -1,X 0134 109A 5A DECB 0135 109B 26 F2 BNE DSPLOP 0136 0137 109D BD FAB2 JSR PCRLF 0138 10A0 7E F803 JMP WARMS 0139 0140 10A3 50 MERR FCC /PIA does not exist!/,$0D,$0A 0141 10B8 04 FCB 4 0142 *************************************** 0143 * 0144 *start condition (scl=H,sda=H->L) 0145 10B9 STTCND EQU * 0146 10B9 34 06 PSHS A,B 0147 10BB 17 0043 LBSR SETDTL 0148 10BE 17 0013 LBSR SETCKL 0149 *send slave adr+W ($7C) 0150 10C1 86 10 LDA #SADRW 0151 10C3 17 0059 LBSR WRDAT 0152 *wait ACK 0153 10C6 17 008D LBSR WACK 0154 10C9 35 86 PULS A,B,PC 0155 0156 *stop condition (scl=H,sda=L->H) 0157 10CB STPCND EQU * 0158 10CB 34 06 PSHS A,B 0159 *scl=H,sda=L->H 0160 10CD 8D 14 BSR SETCKH 0161 10CF 17 003E LBSR SETDTH 0162 10D2 35 86 PULS A,B,PC 0163 0164 *set scl low(out b0=0) 0165 10D4 SETCKL EQU * 0166 10D4 34 04 PSHS B 0167 10D6 F6 1003 LDB ODAT 0168 10D9 C4 FE ANDB #$FE b0=0 0169 10DB F7 F0DC STB PADAT 0170 10DE F7 1003 STB ODAT 0171 10E1 35 84 PULS B,PC 0172 0173 *set scl Hi-Z = bus release (set input mode) 0174 10E3 SETCKH EQU * 0175 10E3 34 04 PSHS B 0176 *clock stretch 0177 10E5 F6 1003 LDB ODAT 0178 10E8 CA 01 ORB #$01 0179 10EA F7 F0DC STB PADAT 0180 10ED 12 SHWAIT NOP 0181 10EE F6 F0DC LDB PADAT 0182 10F1 57 ASRB b0->C 0183 10F2 24 F9 BCC SHWAIT 0184 *set scl Hi-Z 0185 10F4 F6 1003 LDB ODAT 0186 10F7 CA 01 ORB #$01 b0=1 0187 10F9 F7 F0DC STB PADAT 0188 10FC F7 1003 STB ODAT 0189 10FF 35 84 PULS B,PC 0190 0191 *set sda low(out b7=0) 0192 1101 SETDTL EQU * 0193 1101 34 04 PSHS B 0194 1103 F6 1003 LDB ODAT 0195 1106 C4 7F ANDB #$7F b7=0 0196 1108 F7 F0DC STB PADAT 0197 110B F7 1003 STB ODAT 0198 110E 35 84 PULS B,PC 0199 0200 *set sda Hi-Z = bus release (set input mode) 0201 1110 SETDTH EQU * 0202 1110 34 04 PSHS B 0203 1112 F6 1003 LDB ODAT 0204 1115 CA 80 ORB #$80 b7=1 0205 1117 F7 F0DC STB PADAT 0206 111A F7 1003 STB ODAT 0207 111D 35 84 PULS B,PC 0208 0209 *write data or adr 0210 *A:data or adr 0211 111F WRDAT EQU * 0212 111F C6 08 LDB #8 0213 1121 8D B1 WLOP BSR SETCKL 0214 1123 34 04 PSHS B 0215 1125 48 ASLA b7->C 0216 1126 24 04 BCC WL1 0217 1128 8D E6 BSR SETDTH 0218 112A 20 02 BRA WL2 0219 112C 8D D3 WL1 BSR SETDTL 0220 112E 8D B3 WL2 BSR SETCKH 0221 1130 8D A2 BSR SETCKL 0222 1132 8D CD BSR SETDTL 0223 1134 35 04 PULS B 0224 1136 5A DECB 0225 1137 26 E8 BNE WLOP 0226 1139 39 RTS 0227 0228 *read data 0229 *bit7:input data 0230 *(X):data 0231 113A RDDAT EQU * 0232 113A 6F 84 CLR ,X 0233 113C C6 08 LDB #8 0234 113E 34 04 RLOP PSHS B 0235 1140 8D CE BSR SETDTH 0236 1142 8D 9F BSR SETCKH 0237 1144 B6 F0DC LDA PADAT read data 0238 1147 48 ASLA data->C,clk=L 0239 1148 69 84 ROL ,X C->wk 0240 114A 8D 88 BSR SETCKL 0241 114C 8D B3 BSR SETDTL 0242 114E 35 04 PULS B 0243 1150 5A DECB 0244 1151 26 EB BNE RLOP 0245 1153 8D BB BSR SETDTH sda release 0246 1155 39 RTS 0247 0248 *wait ACK 0249 *ACK:sda=L 0250 1156 WACK EQU * 0251 1156 8D 8B BSR SETCKH 0252 1158 F6 F0DC WALOP LDB PADAT 0253 115B 58 ASLB data->C 0254 115C 25 FA BCS WALOP 0255 115E 17 FF73 LBSR SETCKL 0256 1161 8D AD BSR SETDTH sda release 0257 1163 39 RTS 0258 0259 *set ACK 0260 1164 SACK EQU * 0261 1164 8D 9B BSR SETDTL 0262 1166 17 FF7A LBSR SETCKH 0263 1169 17 FF68 LBSR SETCKL 0264 116C 8D A2 BSR SETDTH sda release 0265 116E 39 RTS 0266 0267 **wait ACK 0268 **ACK:sda=L 0269 *WACK EQU * 0270 * BSR SETCKH 0271 *WALOP LDB PADAT 0272 * ASLB data->C 0273 * BCS WALOP 0274 * BSR SETCKL !important! 0275 * RTS 0276 0277 *wait us 0278 116F WAIT EQU * 0279 116F 17 0000 LBSR WAI1 0280 1172 17 0000 WAI1 LBSR WAI2 0281 1175 17 0000 WAI2 LBSR WAI3 0282 1178 17 0000 WAI3 LBSR WAI4 0283 117B 39 WAI4 RTS 0284 0285 *************************************** 0286 0287 END START 0 error(s), 0 warning(s) is detected. Label address DSP1 1098 DSPLOP 108F GETCHR F000 MAIN 100C MERR 10A3 ODAT 1003 OUT2HS FA92 PACTL F0DD PADAT F0DC PCRLF FAB2 PIAOK 1025 PSTRNG FAAA PUTCHR F002 RDDAT 113A RDDATE 1005 RDLOP 1069 RLOP 113E SACK 1164 SADRR 0011 SADRW 0010 SETCKH 10E3 SETCKL 10D4 SETDTH 1110 SETDTL 1101 SHWAIT 10ED START 1000 STPCND 10CB STTCND 10B9 VN 1002 WACK 1156 WAI1 1172 WAI2 1175 WAI3 1178 WAI4 117B WAIT 116F WALOP 1158 WARMS F803 WK 1004 WL1 112C WL2 112E WLOP 1121 WRDAT 111F

以上、あちこち引っかかりながらも何とか目的を達することができましたが、次に何とかしたいと考えているのは、Windows側からUSBを通してArduinoにデータを送り、それをさらに6809/6802DualボードやFM-7に送ることです。

とりあえず、現在の状態でのプログラム（6809側のSBC_I2C.txtとそのバイナリ、Arduino側のsbc_i2c.ino、FM-7用のFBI2C、FBI2CSUBとその保存形式のFBI2CSUB2の６本）をOneDriveに上げておきます。

PIAのみでRTCからの時刻の読み書きができました

PIAに接続したRTCから時刻を読み書きするアセンブラのプログラムが完成

前回（10月27日）はRTCモジュールから時刻を読み込むまででしたが、時刻の書き込みもできるようになりました。
読み込み・書き込みプログラムはそれぞれRTC_RD.CMD、RTC_WR.CMDですが、読み込みプログラムに、FLEX9の起動時に時刻をRTCモジュールから読み込んでFLEX9の日付を設定する機能を追加したSETDATE.CMDを用意しました。

RTC_RD.CMDとRTC_WR.CMDはFLEX9上のコマンドとして使用します。

FLEX9システムに組み込んで使用する

SETDATE.CMDはFLEX9の起動時に自動的に実行されるように、STARTUP.TXTに書き込んでおいて使用しますが、FLEX9の起動時にデフォルトで実行される日付入力ルーチンが不要になりますので、FLEX9のシステムを一箇所変更します。

FLEX9システムをTrk01,Sct01から保存した場合、初期化ルーチンはSct08にあります。
そのうちの日付入力ルーチンはオフセット$76からのBD,CA,AC (JSR $CAAC) ですので、このBDを39 (RTS)に変更します。

初期化ルーチン（変更前）

初期化ルーチン（変更後）

これによって、起動時に日付を問い合わせてくることは無くなり、代わりに、STARTUP.TXTに書き込んだSETDATE.CMDがRTCモジュールから取得した日付を設定してくれることになります。

その様子を下図に示します。

起動画面（従来のもの）

今までは、起動時に日付を「月、日、年」の順に入力する必要がありました。
（FLEX9では時刻は管理していませんので、年月日のみです。）
それに対して、SETDATE.CMDを組み込むと、

起動画面（RTCモジュールから読み込み）

日付を問い合わせてくることなく、RTCモジュールから取得した日付と時刻を表示してそのままコマンド入力待ちになります。DATEコマンドを入力してみると、確かに日付が設定されていることが分かります。
なお、RTCモジュールが無い場合には、デフォルトの日付入力ルーチンが呼び出されて手動で日付を入力することになります。

起動画面（RTCモジュールが無い場合）

作成したRTC_RD.CMD, RTC_WR.CMD, SETDATE.CMDのソースをOneDriveに上げておきます。
入出力ルーチンなど一部にFLEX9のシステムルーチンを使用していますが、I2C通信部分は一般的な6809のアセンブラですので、I2C機能を持たないマイコンで、しかもアセンブラでI2C通信をしたいという場合の参考になれば嬉しいです。
（I2Cの解説も、DS3231のマニュアルも、もう少し分かりやすく書いてもらえればこんなに苦労しなくても済んだかもしれないのに．．．愚痴でした。）