'  ******************************************
   '  *  AVR グラフィックLCD SHOWPIC命令テスト *
   '  *  (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の全画面を消去する。
   '
   '  * SHOWPIC命令のテスト *
   '
   Showpic 0 , 0 , Plaatje                                  'BGFファイルを描画する。
   End
   '
   '
Plaatje:                                                    'BGFファイルのラベル名。
$bgf "KS108.bgf"                                            'BGFファイルを組み込む。