$programmer = 26                                            'MCS UPDI programmer

   '
   '  ***************************************
   '  *  PCF8574 I2C LCD アダプターのテスト *
   '  *      (XTINY用)       2022. 7.12     *
   '  ***************************************
   '

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

   Config Sysclock = 20mhz , Prescale = 1                   'システムクロックの設定。

   '
   '  * PCF8574 I2C LCD アダプターの設定 (XTINY用) *
   '
   Const I2c_select = 1                                     '0:ソフトウェアI2C , 1:TWI
   '
#if I2c_select = 0                                          'ソフトウェアI2Cの場合。
   Const Twi_adr = Twi0_ctrla : Const Twi_ch = 1            '[ライブラリ内のダミー]
   $forcesofti2c                                            'ソフトウェアI2C/TWIライブラリを強制的に使用する。
   $lib "i2c.lbx"                                           'ソフトウェアI2C用のライブラリを上書きする。
   Config I2cdelay = 5                                      'SCLのクロック周波数 = 約90KHz。(AVRクロック20MHz時) (*最大100KHz)
   Config Scl = Porta.7                                     'I2CバスのSCLラインを接続するポートピンを設定。
   Config Sda = Porta.6                                     'I2CバスのSDAラインを接続するポートピンを設定。
   I2cinit                                                  'I2CバスのSCL,SDAラインを初期化する。
#else                                                       'ハードウェアTWIの場合。
   Dim Twi_start As Byte                                    'TWIライブラリで使用する変数。
   Const Twi_adr = Twi0_ctrla                               'TWIのポート。TWI_ADR = TWI0_CTRLA:(TWI0)
   Const Twi_ch = 1                                         'TWIのチャンネル。TWI_CH = 1:(TWI0), 2:(TWI1)
   Config Twi0 = 100000                                     'TWIバスのクロック = 100KHz (*最大100KHz)
   I2cinit                                                  'TWIバスの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を初期化する。


   '
   '  **************
   '  * 表示テスト *
   '  **************
   '
   Do
      Cls                                                   '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
      Wait 3
      '
      Locate 2 , 1
      Lcd " < For XTiny >  "
      Wait 3
   Loop

   End