$programmer = 16                                            'USBprog Programmer/ AVR ISP mkII (Atmel)

$prog &HFF , &H62 , &HDF , &HFF                             'ヒューズ設定。（ATtiny85工場出荷状態）

   '
   '  ***************************************
   '  *  PCF8574 I2C LCD アダプターのテスト *
   '  *     (USI用)      2021. 5. 3         *
   '  ***************************************
   '

$regfile = "ATtiny85.DAT"                                   '使用するAVRを設定。
$crystal = 1000000                                          'AVRクロックを設定。
   '
$hwstack = 40                                               'ハードウェア・スタックの容量を設定。
$swstack = 10                                               'ソフトウェア・スタックの容量を設定。
$framesize = 24                                             'フレーム領域の容量を設定。

   '
   '  * PCF8574 I2C LCD アダプターの設定 *
   '
   Const I2c_select = 1                                     '0:ソフトウェアI2C , 1:USI
#if I2c_select = 0
   '------[ソフトウェアI2C用]------
'   $lib "i2cV2.LBX"                                         '修正版のI2Cライブラリを組み込む。
   Config I2cdelay = 10                                     'SCLのクロック周波数。(*最大100KHz)
   Config Scl = Portb.2                                     'I2CバスのSCLラインを接続するポートピンを設定。
   Config Sda = Portb.0                                     'I2CバスのSDAラインを接続するポートピンを設定。
   I2cinit                                                  'I2CバスのSCL,SDAラインを初期化する。
   '-------------------------------
#else
   '------[USI用]------------------
   Config Usi = Twimaster , Mode = Normal                   'USIマスターの設定。I2Cバスのクロック = 100KHz
   I2cinit                                                  'I2CバスのSCL,SDAラインを初期化する。
   '-------------------------------
#endif

   Dim Pcf8574_lcd As Byte : Pcf8574_lcd = &H4E             'PCF8574のスレーブ・アドレス。(&H40,&H42,&H44,&H46,&H48,&H4A,&H4C,&H4E)
   Dim Backlight As Byte : Backlight = 1                    'LCDのバックライト制御。(0:消灯, 1:点灯)
   $lib "lcd_i2c_PCF8574.LIB"                               'I2C LCD PCF8574 Adapterのライブラリを組み込む。
   Config Lcd = 20x4                                        'LCDを20文字4行に設定する。
   Initlcd                                                  'LCDを初期化する。


   '
   '  **************
   '  * 表示テスト *
   '  **************
   '
   Locate 1 , 1                                             'タイトルの表示。
   Lcd "PCF8574"
   '
   Locate 2 , 2
   Lcd "I2C LCD Adapter"
   '
   Deflcdchar 2 , &H02 , &H04 , &H0C , &H1E , &H0F , &H06 , &H04 , &H08       'カスタム文字[雷]をLCDへ書き込む。
   Locate 1 , 15                                            'カスタム文字の表示。
   Lcd Chr(2) ; "1"
   '
   Locate 1 , 9                                             'PCF8574のスレーブ・アドレスを表示。
   Lcd "[" ; Hex(pcf8574_lcd) ; "]"
   Wait 3
   '
   Backlight = 0                                            'LCDのバックライトを[消灯]する。
   Locate 1 , 1                                             'バックライトを制御するためにダミーのコマンドを送る。
   Wait 2
   Backlight = 1                                            'LCDのバックライトを[点灯]する。
   Locate 1 , 1                                             'バックライトを制御するためにダミーのコマンドを送る。
   '
   Locate 2 , 16                                            'カーソルを表示する。
   Cursor On , Blink

   End