'  ******************************************
   '  *  AVR グラフィックLCD テストプログラム  *
   '  *  (LCD SG12232C , Controller S1D1520)   *
   '  *       O-Family   2019. 1.10            *
   '  ******************************************
   '
'$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-SG12232C.Lib"                               'SG12232C用のライブラリを組み込む。
   Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portd , Ce = 3 , Ce2 = 4 , Cd = 2 , Rd = 6 , Reset = 7 , Enable = 5       'LCDの接続ポートとピンを指定。
   Cls                                                      'グラフィックLCDの全画面を消去する。
   Setfont Font8x8                                          'フォントを設定する。
   '
   '  * 描画のテスト *
   '
   Lcdat 1 , 1 , "1234567890"                               '文字列を表示。
   Lcdat 2 , 32 , "ABCDEFG" , 1                             '文字列を反転表示。
   '
   Line(28 , 20) -(94 , 31) , 1                             '直線を描画。
   '
   Circle(12 , 20) , 9 , 1                                  '円を描画。
   '
   For Y = 1 To 12                                          '塗りつぶし円を描画。
      Circle(105 , 16) , Y , 1
   Next
   '
   Pset 105 , 16 , 1                                        '塗りつぶし円の中心に点を描画。
   '
   '
   End                                                      'プログラムの終了。
   '
   $include "font8x8.font"                                  'フォント・ファイルを組み込む。