でじたる百葉箱2(温度+紫外線ロガー)

3.プログラム

【3-2  ◆SAVE1 EEPROM データ書き込み(初期化)

1000 @EWRIT2:’Write(Init) to EEPROM
1010 N=0:IF !L ? “EEPROM Undefined L!”:BEEP100,50:LOAD0
1020 IF I2CR(82,#8E6,2,#8E4,2) ?”EEPROM I2C ERR!”:GOTO@ERR
1030 M=M+1
1035 IF M>16383/L*2 ?”EEPROM OverFlow M=”;M,N:GOTO@ERR
1040 N=M*L*2
1050 N=N<<8|N>>8&#FF
1060 IF I2CW(82,#8E6,2,#800,L*2) ?”EEPROM Write Error WP?”:GOTO@ERR
1070 N=0
1080 Z=I2CW(82,#8E6,2,#8E4,2)
1090 @END1:GOSUB @LCD
1100 IF FILE()=1 LRUN0,100 ELSE RTN

1111 @EINIT2:N=0:M=0

1112 IF I2CW(82,#8E6,2,#8E4,2) ?”EEPROM I2CW ERROR!”:GOTO@ERR
1113 IF I2CR(82,#8E6,2,#8E4,2) ?”EEPROM I2CR ERROR!”:GOTO@ERR
1114 IF M ?”EEPROM ライトプロテクト?”:GOTO@ERR
1115 ?”EEPROM ヲ ショキカ シマシタ”
1116 IF FILE()=1 LOAD0
1117 RTN
1900 @ERR:BEEP1,1000:CONT

9010 @LCD

9020 LET[96],640,64,#5639,#C6C,#C080,64
9030 Z=I2CW(62,#8C3,5)
9040 Z=I2CW(62,#8C0,3,#900,16)
9050 Z=I2CW(62,#8C8,3,#920,16)
9060 RTN

【プログラム説明】
LRUN1     EEPROMへデータを追加して書き込みし、LCDへの表示を実行します。
LRUN1,1111   EEPROMに保存されているデータを初期化します。