'  *******************************************
   '  *  AVR グラフィックLCD SHOWPICE命令テスト *
   '  *  (LCD SG12864A , Controller KS0108)     *
   '  *       O-Family   2019. 1.12             *
   '  *******************************************
   '
'$regfile = "m164Pdef.dat"                                   '使用するAVRをATmega164Pに設定。
$regfile = "m1284Pdef.dat"                                  '使用するAVRをATmega1284Pに設定。
$crystal = 1000000                                          'AVRクロックを設定。
   '
$hwstack = 64                                               'ハードウェア・スタックの容量を設定。
$swstack = 32                                               'ソフトウェア・スタックの容量を設定。
$framesize = 24                                             'フレーム領域の容量を設定。

   '
   '  * 変数の宣言 *
   '
   Dim Y As Byte

   '
   '  * ポートの初期設定 *
   '
   Porta = &B1111_1111                                      '未使用ポートをプルアップする。
   Portc = &B1111_1111                                      '未使用ポートをプルアップする。
   Set Portd.0                                              '未使用ポートをプルアップする。
   Set Portd.1                                              '未使用ポートをプルアップする。
   '
   '  * グラフィックLCDの設定 *
   '
$lib "GlcdKS108.lbx"                                        'KS0108チップ用のライブラリを組み込む。
   Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portd , Ce = 4 , Ce2 = 5 , Cd = 3 , Rd = 6 , Reset = 2 , Enable = 7       'LCDの接続ポートとピンを指定。
   Cls                                                      'グラフィックLCDの全画面を消去する。
   '
   '  * SHOWPICE命令のテスト *
   '
$eeprom                                                     'データをEEPROMに設定する。
Testpic:                                                    'BGFファイルのラベル名。
$bgf "tp.bgf"                                               'BGFファイルを指定する。
$data                                                       'データ行の扱いを通常に戻す。
   '
   Showpice 0 , 0 , Testpic                                 'BGFファイルを描画する。
   End