Module Timer2
imports Isr ' interrupt macros and constants
'****************************************************************************
'* Name : OnTimer (Private) *
'* Purpose : Timer Event handler *
'****************************************************************************
private interrupt OnTimer(TIMER_2_VECTOR, ipl1Software)
'<<do intr processing>>
' clear intr flag
Isr.SetFlag(TIMER_2_VECTOR, 0)
End Interrupt
'****************************************************************************
'* Name : Start *
'* Purpose : Start interrupt handling *
'****************************************************************************
Public Sub Start()
Enable(OnTimer)
End Sub
'****************************************************************************
'* Name : Halt *
'* Purpose : Stop interrupt handling *
'****************************************************************************
Public Sub Halt()
Disable(OnTimer)
End Sub
'****************************************************************************
'* Name : Main *
'* Purpose : Initialise the module *
'****************************************************************************
private Inline Sub Main()
isr.SetPriority(TIMER_2_VECTOR, ipl1)
isr.SetSubPriority(TIMER_2_VECTOR,0)
'<<setup your hdw>>
' clear intr flag
Isr.SetFlag(TIMER_2_VECTOR, 0)
End Sub
End Module
private Inline Sub Main()
Count = 0
isr.SetPriority(TIMER_1_VECTOR, ipl1)
isr.SetSubPriority(TIMER_1_VECTOR,0)
T1CON = 0 ' clear Timer 1 - no presccale
PR1 = _reloadTimerValue ' set timer period
IFS0.3 = 0 ' clear timer interrupt flag
T1CON.15 = 1 ' switch timer on
End Sub
isr.SetPriority(TIMER_1_VECTOR, ipl1)
isr.SetSubPriority(TIMER_1_VECTOR,0)
private interrupt OnTimer(TIMER_1_VECTOR, ipl1Software)
Users browsing this forum: No registered users and 1 guest