$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600

$hwstack = 32
$swstack = 16
$framesize = 40

Config Clock = Soft
Config Date = Dmy , Separator = .
Date$ = "28.03.08"
Time$ = "23:59:45"

' ======================================================
'  Timer1 initialization
'
'  Mode: Clear Timer1 on Compare Match (CTC mode TOP = OCR1A)
'  System clock: 8 MHz
'  Clock source: I/O Clock / 256

TCCR1A = &H00 'See datasheet for details
TCCR1B = &H0C 'See datasheet for details

' In CTC mode the counter is cleared to zero when
' the counter value (TCNT1) matches OCR1A.
' We will load the value 0x7A12 (31250) in OCR1A so that
' we will have an interrupt every second.

OCR1AH = &H7A 'Set OCR1A.
OCR1AL = &H12 'Set OCR1A.

On Oc1a Oc1a_isr Nosave
Enable Compare1a

' Reset the Timer1 count
TCNT1H = &H00      'Set Timer1 count to 0
TCNT1L = &H00      'Set Timer1 count to 0

' ======================================================

' ======================================================
' This code will free the resources used by the Bascom soft clock
ASSR= &H00    
TCCR2= &H00
TIMSK.TOIE2 = 0 'Timer2 Overflow Interrupt disabled
' ======================================================

Enable Interrupts

Print "Hello!"

Do

   Print Date$ ; "  " ; Time$
   Waitms 250

Loop

End

' ======================================================
' Timer1 Compare Match Interrupt service routine
Oc1a_isr:

!call _Soft_clock

Return
' ======================================================