'-------------------------------------------------------------------------------
'                         Nokia-3310 LCD Test
'                              BASCOM-AVR
'                             Mrshilov 2014
'===============================================================================
$regfile = "m128def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 16
$framesize = 24

'*******************************************************************************
$lib "glcd-Nokia3310_V2.lib"

Config Graphlcd = 128x64sed , Rst = Portd.0 , Cs1 = Portd.1 , A0 = Portd.2 , Si = Portd.3 , Sclk = Portd.4
' Rst & Cs1 is optional

Dim Contrast_lcd As Byte : Contrast_lcd = 60                'Contrast 0 to 127, if not defined - 72
'Const Negative_lcd = 1                                      'Inverting screen
'Const Rotate_lcd = 1                                        'Rotate screen to 180°


Dim I As Byte , N As Word
Dim Text As String * 8


Upkey Alias Pind.0
Downkey Alias Pind.1

Config Upkey = Input
Config Downkey = Input

'***************************** Program *****************************************
Initlcd
Cls

Setfont Font6x8
Lcdat 2 , 16 , "NOKIA-3310"
Lcdat 4 , 30 , "84x48"
Wait 2
Cls

Showpic 0 , 0 , Walker
Wait 2
Cls

Setfont Font6x8
Lcdat 3 , 1 , "--------------"
Lcdat 4 , 22 , "1 March"
Lcdat 5 , 1 , "   Saturday   " , 1
Lcdat 6 , 31 , "2014"

Setfont Font12x16dig
I = 20

Do


Initlcd

Incr I
If I > 59 Then I = 20
Text = Str(i)
Lcdat 1 , 1 , "23:" ; Text
Waitms 500
Lcdat 1 , 1 , "23 " ; Text
If I.0 = 1 Then Showpic 66 , 1 , Ring Else Lcdat 1 , 66 , "  "
Waitms 500

'----------------------------------------------- Contrast regulation
If Upkey = 0 Or Upkey = 0 Then
   If Upkey = 0 Then Incr Contrast_lcd
   If Downkey = 0 Then Decr Contrast_lcd
   Lcdcontrast Contrast_lcd
End If
'-----------------------------------------------


Loop
End

'===============================================================================
Ring:
$bgf "Ring.bgf"
Walker:
$bgf "Walker.bgf"
$include "font6x8.font"
$include "font12x16dig.font"

$regfile = "m2560def.dat"
$crystal = 16000000
$hwstack = 128
$swstack = 128
$framesize = 128

$lib "glcd-Nokia3310_V2.lib"

Config Graphlcd = 128x64sed , Rst = Portl.0 , A0 = Portl.1 , Si = Portb.2 , Sclk = Portb.1
Const Negative_lcd = 0                                      'Inverting screen
Const Rotate_lcd = 0                                        'Rotate screen to 180°
Initlcd
Waitms 100
Cls

Setfont Font6x8
Lcdat 2 , 1 , "Nokia"
Lcdat 4 , 1 , "84x48"
End

$include "Font6x8.font"