Moderadores: 51, guest2003, Renie, gpenga
'BNU-12-03-2004
Dim TIMER1_counter as integer
Dim Stat_Init_Timer1 as boolean
sub main()
Stat_Init_Timer1 = init_TIMER1()
Do
loop while 1 = 1
end sub
function init_TIMER1() as boolean
TIMER1_counter = 0
T1MR0 = &H0001FFFF
T1MCR = 3
init_TIMER1 = __hbbr_install_irq(TIMER1_INT, AddressOf irq_TIMER1)
VICIntEnable = VICIntEnable Or &b00100000
Call __hbbr_enable_irq()
T1TCR = 1
End function
Irq irq_TIMER1()
Print #0,"Ocorreu interrupt"
T1IR = 1
TIMER1_counter = TIMER1_counter + 1
VICVectAddr = 0
End irq
Usuários navegando neste fórum: Google [Bot] e 1 visitante