Ｉ２ＣをＨ８ＢＡＳＩＣで制御 電子工作
H83048BASIC
この度ＢＡＳＩＣ言語の繁栄を願い、恐らく必要であろうｉ２ｃシリアルメモリーのリード・ライト通信プログラムを
ＡＫＩ・Ｈ８／３０４８Ｆ専用 ＢＡＳＩＣコンパイラで作ってみました。
使用したＥＥＰＲＯＭはｉ２ｃのＡＴＭＥＬ２４Ｃ６４Ｂです。
入出力の切り替えは面倒なので、ＩＮ−ＰＯＲＴとＯＵＴ−ＰＯＲＴの２ＰＯＲＴを使用しました。
回路図は下記の様にＰ１を出力ポート、Ｐ２の入力プルアップＭＯＳ内臓を入力ポートにしました。
ソフトは、簡単にする為に、ＰＩＣＢＡＳＩＣのように、ピン制御できるようにしました。
頻繁に変化するビットの制御に対応させる為、Ｐ１ポート８ビット、Ｐ２ポート８ビットを全て、ピット単位での制御にしました。
また、出力ポートはダイオード２本で”Ｌ”の時のみ反映するとてもシンプルな回路にし、モニターとしてＬＥＤを２個付けました。
ＳＣＬとＳＤＡから”Ｌ”信号で引いてるダイオードは小信号用シリコンダイオードで１Ｓ１５８８相当品です。
 |
 |
| Ｈ８３０４８Ｆを外した写真でｉ２ｃのＩＣが見える | Ｈ８３０４８Ｆを取付けた写真 |
 |
 |
 |
| 自作のＲＯＭライターで Ｈ８３０５２FにＰＧＭを書き込む |
Ｈ８３０５２Ｆを外した写真で ｉ２ｃのＩＣが見える |
Ｈ８３０５２FをＲＵＮ |
ｈ８３０５２は事前にＲＵＮＴＩＭＥ．ＲＴＬのＣＬＯＣＫを修正します。
ｈ８３０４８とｈ８３０５２のＲＯＭライターをスイッチで切り替えて使いたいと思ったのですが、電圧が違うので
絶対操作ミスでｈ８３０５２を壊すと思いｈ８３０５２専用ＲＯＭライターとベースボードを自作しました。
ベースボードのＰ２ポートには８Ｐスイッチが接続されているので、ｉ２ｃ読み書きソフトを使う時は、
８ＰスイッチをＯＦＦ（Ｐ２-６：ＳＷ７とＰ２−７：ＳＷ８は絶対）にしてください。
下記のリストは、数値データをプログラムのＤＡＴＡ文に置き、そのＤＡＴＡをｉ２ｃのＡＴＭＥＬ２４Ｃ６４Ｂに書込み、その後、ｉ２ｃから
データを読み出して、ＬＣＤに表示するサブルーチンの頭の部分です。
他の言語で開発される方にもＢＡＳＩＣ言語なので理解し易く、お役に立てると思います。
' PGM=i2cBASIC
POKE &HFFFFC5,&H00 '入力PORT4 8BIT INPUT SET
POKE &HFFFFDA,&HFF 'C-MOS PULL UP
PORT4=&HFFFFC7 '入力ポート
' 外部出力とＳＣＬ
POKE &HFFFFC0,&HFF '出力PORT1 8BIT OUTPUT SET
PORT1=&HFFFFC2 '6bit exout 2bit RAM CONTROL
' 外部入力とＳＤＡ
POKE &HFFFFC1,&H00 '入力PORT2 8BIT INPUT SET
POKE &HFFFFD8,&HFF 'C-MOS PULL UP
PORT2=&HFFFFC3 '6bit exinput 2bit RAM CONTROL
'========================================================================
DIM IP2(10)
DIM IP4(10)
DIM OP1(10)
DIM OPT(10)
'========================================================================
console 1,0:print "I2CH8BASIC"
console 1,1:print "READ WRITE PGM"
Dim W(10) '書き込みモード
Dim R(10) '読み込みモード
Dim H(10) '上位アドレス
Dim L(10) '下位アドレス
Dim D(10) '書き込みデータ
Dim E(10) '読み込みデータ
DIM F(10) 'データ確認
'--------------------------------------------------------------------------
A=160 'READ CONTROL SET (10100000)2
FOR I=0 TO 7
B=A/2
IF A=B*2 THEN W(8-I)=0 ELSE W(8-I)=1
A=B
NEXT I
'--------------------------------------------------------------------------
A=161 'WRITE CONTROL SET (10100001)2
FOR I=0 TO 7
B=A/2
IF A=B*2 THEN R(8-I)=0 ELSE R(8-I)=1
A=B
NEXT I
'--------------------------------------------------------------------------
'初期設定
sst=65 'delay time h83048 sst=0
OP1(6)=1:OP1(7)=1
GOSUB !OPORT1
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'ＡＴＭＥＬ ＡＴ２４Ｃ６４Ｂ １データ（０〜６５５３５）１０進を２バイトを使って表現
'読み書き開始
:!LOOPX
GOSUB !IPORT4
IF IP4(4)=0 THEN SPEED=0:GOSUB !W_MEMORY 'Ｓ１黒スイッチ
IF IP4(5)=0 THEN SPEED=0:GOSUB !R_MEMORY 'Ｓ２赤スイッチ
IF IP4(6)=0 THEN SPEED=50000:GOSUB !W_MEMORY 'Ｓ３青スイッチ
IF IP4(7)=0 THEN SPEED=50000:GOSUB !R_MEMORY 'Ｓ４黄スイッチ
GOTO !LOOPX
:!W_MEMORY
'データ文から５０件のデータを読んでｉ２ｃに書き込む。
ADR=0
RESTORE !DATA00
FOR CNT=1 TO 50
READ DAT
XDATA=DAT
GOSUB !EEP_WRITE
CONSOLE 1,0:PRINT " COUNTER=";CNT
CONSOLE 1,1:PRINT "WR=";DAT;" ";DATA1;"
";DATA2
FOR T=0 TO SPEED:NEXT
NEXT
RETURN
:!R_MEMORY
'ｉ２ｃから５０件のデータを読んで内容を表示する。
ADR=0
FOR CNT=1 TO 50
GOSUB !EEP_READ
CONSOLE 1,0:PRINT " ADDRESS=";ADR
CONSOLE 1,1:PRINT "READ DATA=";RDATA
FOR T=0 TO SPEED:NEXT
NEXT
RETURN
:!DATA00
DATA 0,1,2,3,4,5,6,7,8,9
DATA 10,20,30,40,50,60,70,80,90,100
DATA 200,300,400,500,600,700,800,900,1000,2000
DATA 3000,4000,5000,6000,7000,8000,9000,10000,20000,30000
DATA 40000,50000,60000,60001,60002,60003,60004,60005,61234,65535
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
'
サブルーチン省略
追記
ＡＴ２４Ｃ６４Ｂの最大書込みアドレスを調べる為、０番地と１番地の２アドレスに１６ビットのデータ、次に２番地と３番地の２アドレスに
１６ビットのデータの様にデータを書き込み続けた結果、偶数アドレス（８１９０）１０進、（１１１１１１１１１１１１０）２進で、次の偶数アドレスで
先頭アドレスに戻りました。
２進数で見ると、うなずける感じです。
故にＡＴ２４Ｃ６４Ｂの場合、データ数は４、０９６件が最大で、ＡＤＲ＝０〜８１９０の範囲の偶数番地で、指定できると思います。
ＡＴ２４Ｃ２５６Ｂの場合、データ数は１６、３８４件が最大で、ＡＤＲ＝０〜３２７６６の範囲の偶数番地で、指定できると思います。
ＡＴ２４Ｃ１０２４Ｂの場合、データ数は６５、５３６件が最大で、ＡＤＲ＝０〜１３１０７０の範囲の偶数番地で、指定できると思います。
最後に、今回プログラムを作成して、ｉ２ｃは、とても素晴らしいロジックだと思いました。