$regfile = "m16adef.dat"

$crystal = 8000000
$baud = 19200
$hwstack = 40
$swstack = 40
$framesize = 40


Enable Interrupts

'[now init the clock]
Config Date = Mdy , Separator = /                          ' ANSI-Format

Config Clock = Soft                                         'this is how simple it is
'The above statement will bind in an ISR so you can not use the TIMER anymore!

'assign the date to the reserved date$
'The format is MM/DD/YY
Date$ = "11/11/05"

'assign the time, format in hh:mm:ss military format(24 hours)
'You may not use 1:2:3 !! adding support for this would mean overhead
'But of course you can alter the library routines used

Time$ = "23:59:50"
Do
    Waitms 500
    Print Date$ ; Spc(3) ; Time$
Loop
end
 

$regfile = "m16adef.dat"

$crystal = 8000000
$baud = 19200
$hwstack = 40
$swstack = 40
$framesize = 40




Config Clock = Soft
'this create Int for Timer2 and hidden variables
'variables _sec, _min, _hour

' *** You can access them directly so where is the problem? ***

Dim Old_sec As Byte
Dim Old_min As Byte

 Enable Interrupts


Do

  'if mark for running time is needed

  If Old_sec <> _sec Then
      Old_sec = _sec

     'this code is fired every second (if needed)

  End If

  If Old_min <> _min Then
      Old_min = _min

     'this code is fired every minute (if needed)

  End If



 ' *** AT ANY MOMENT YOU CAN SET VARIABLES TO ZERO ***

 ' _sec = 0
 ' _min = 0
 ' _hour = 0


Loop
End