$regfile = "m8515.dat"
'$regfile = "m8def.dat"


Config Lcd = 16 * 2
Config Lcdbus = 4                                           'porabili 4 pine mk za krmiljenje LCD

Config Portd = Output
Portd = 255
'Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portd.5 , E = Portb.1 , Rs = Portb.0
'Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portd.7 , E = Portb.2 , Rs = Portb.1
'Config Lcdpin = Pin , Db7 = Porta.7 , Db6 = Porta.6 , Db5 = Porta.5 , Db4 = Porta.4 , E = Porta.2 , Rs = Porta.1
Config Lcdpin = Pin , Db7 = Portd.7 , Db6 = Portd.6 , Db5 = Portd.5 , Db4 = Portd.4 , E = Portd.2 , Rs = Portd.1

Cls                                                         'pobrisemo zaslon



On Ovf0 Tim0_isr
Config Timer0 = Timer , Prescale = 1
Enable Timer0                                               'omogoči timer
Enable Interrupts                                           'Omogoči prekinitve

Dim Clock12 As Word , P16 As Bit , A12 As Byte

'Config Portb = Output             'dva nacina konfiguriranja
'Config Portb.3 = Output


Do
Portd.3 = P16

Upperline                                                   'lahko uporabimo tudi ukaz LOCATE   glej LCD help
Lcd "LCD demo"
Lowerline
Lcd "AX elektronika d.o.o.          10 mest"



'For A12 = 1 To 10
'If P16 = 0 Then
'P16 = 1
  'Shiftlcd Left                                             'premik v levo
'  Wait 1                                                   'pocakaj
'End If
'Next

Cls
Lcd Chr(1)
Wait 1

'Deflcdchar 1 , 16 , 8 , 4 , 2 , 1 , 1 , 1 , 1               ' replace ? with number (0-7)
Deflcdchar 1 , 32 , 16 , 24 , 28 , 30 , 27 , 27 , 31        ' replace ? with number (0-7)

Cursor Off
Loop





Tim0_isr:
Incr Clock12
If Clock12 > 31249 Then                                     'za 12 MHz= 46874, za 8 MHz = 31249
   Clock12 = 0
   P16 = Not P16                                            'sekundni impulz
End If

Return