$regfile = "m328pdef.dat"
$crystal = 16000000
$baud = 19200
$hwstack = 64
$swstack = 64
$framesize = 64

Enable Interrupts

Config Date = Mdy , Separator = /                                               ' ANSI-Format

Config Clock = Soft                                                             'this is how simple it is
Date$ = "11/11/05"
Time$ = "23:59:50"
Do
    Waitms 500
    Print Date$ ; Spc(3) ; Time$
Loop
 

$regfile = "m328pdef.dat"
$crystal = 8000000
'$baud = 19200
$hwstack = 64
$swstack = 64
$framesize = 64

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.1 , Rs = Portd.0 , Wr = Portc.3

Config Lcd = 20x4                                           'nowy sposob zapisu
'Initlcd
Cursor Off
Cls

Config Date = Mdy , Separator = /                           ' ANSI-Format

Config Clock = Soft                                         'this is how simple it is
Date$ = "11/11/05"
Time$ = "23:59:50"

Enable Interrupts

Do
    Waitms 500
    Locate 2 , 2
    Lcd Date$ ; Spc(2) ; Time$
Loop
End

$regfile = "m8535.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 32
$framesize = 32
$baud = 57600

'============================================
'Config SOFT/User Clock
'============================================
Config Clock = User
Config Date = Mdy , Separator = /

Dim Reload As Word , Cur_time As Long
Reload = 30005

Config Timer1 = Timer , Prescale = 256
   Ocr1ah = High(reload)
   Ocr1al = Low(reload)
   Tccr1a = 0
   Set Tccr1b.3
On Compare1a Isr_clock_tick

Enable Compare1a
Enable Interrupts


_sec = 50
_min = 4
_hour = 12
_day = 12
_month = 11
_year = 14

Cur_time = Syssec()

Do
     Wait 1
     Time$ = Time(cur_time) : Date$ = Date(cur_time)
     Print Date$ ; " " ; Time$
Loop

End


Isr_clock_tick:
   Incr Cur_time
Return

Setdate:
Return
Settime:
Return
Getdatetime:
Return