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


   '
   '  *****************************************************
   '  *  日本語フォントROM [GT20L16J1Y] テストプログラム  *
   '  *                    (demo版)                       *
   '  *                                                   *
   '  *      AVR is using ATmega328P                      *
   '  *      Basic Compiler is BASCOM-AVR                 *
   '  *            Copyright By O-Family   2015.12.22     *
   '  *****************************************************
   '

$regfile = "m328pdef.dat"                                   '使用するAVRを設定。
$crystal = 1000000                                          'AVRクロックを設定。

$hwstack = 64                                               'ハードウェア・スタックの容量を設定。
$swstack = 10                                               'ソフトウェア・スタックの容量を設定。
$framesize = 24                                             'フレーム領域の容量を設定。




'-------------------------------------------------------------------------------------------------------
      '1 日本語フォントROM[GT20L16J1Y]の[/CS]ピンを設定。
   Jprom_cs Alias Portd.5                                   '日本語フォントROMの[/CS]ピンを割り当てる。
   Jprom_csp Alias Portd : Jprom_csb Alias 5                'ポートとビット。

      '2-1 ソフトウェアSPIの設定。
   Config Spi = Soft , Clock = Portd.2 , Dout = Portd.3 , Din = Pind.4 , Ss = None , Mode = 3
      '2-2 ハードウェアSPIの設定。
'   Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 4 , Noss = 1
'
      '3 グラフィックLCDの設定。
   Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portc , _
          Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
'
'=============== これ以下は変更しないで下さい ===============
   Dim Jprom_adr As Dword , Jprom_temp1 As Byte , Jprom_mode As Byte : Jprom_temp1 = 0 : Jprom_mode = 0
   Config Jprom_cs = Output : Set Jprom_cs : Spiinit        'SPIポートを初期化する。
   $lib "GlcdKS108_JPROM_demo.lbx"                          'KS0108チップ用のライブラリを組み込む。
   Goto Jprom_jump
Jprom_adrcal:
   Jprom_adr = Jprom_adr * 6016 : Return
Jprom_spiout:
   Spiout Jprom_temp1 , 1 : Return
Jprom_spiin:
   Spiin Jprom_temp1 , 1 : Return
Jprom_jump:
'-------------------------------------------------------------------------------------------------------


   Setfont Font8x8                                          '8x8ドット文字も使用する場合は、フォント・データを定義する。
   Cls                                                      '全画面を消去する。

   '
   ' *テスト表示 *
   '
   Lcdat 1 , 1 , "日本語フォント"
   Lcdat 3 , 1 , "ROM [GT20L16J1Y]"
   Lcdat 5 , 1 , "漢字を簡単に表示"
   Lcdat 7 , 1 , "★ライブラリです"


   End


   '
   '  *******************
   '  * フォント データ *
   '  *******************
   '
$include "font8x8.font"                                     '8x8ドット文字も使用する場合は、フォント・データを組み込む。