Hallo

hier mal ein kleines Testprogram, die Interrupt routine hab ich 1:1 aus meinem Projekt kopiert
Das eigentliche wäre zu umfangreich (auch viele Import Einträge)

;---------------------------

interrupt timerInterrupt


define secondthreadtimer word[31]
define activesecondthread as bit[251]

'interrupt to timer
config2.Init
config2.put 00000001b
config2.off



#init
'hier steht das eigentliche Programm
'Der timer wird dazu benutzt um Display ausgaben zu erledigen (Uhr Zeit), Hintergrundbeleuchtungen zu schalten, und u.a. als Abschalt-timer
'die Variable "Activesecondthread" wird über if Blöcke abgefragt und dem entsprechend die oben gennanten Aufgaben ausgeführt
'Das hat mit dem alten compiler immer ganz gut geklappt
pause 1

goto init

'-------------------------------------interrupt-----------------------------
#timerInterrupt
Activesecondthread = off

if (secondthreadtimer + 50 <= timer) then
beep 20,1,0 'zum testen

Activesecondthread = on

secondthreadtimer = timer

end if

return interrupt


;-----------------------------------------

'nach etwa 1 Sekunde hört man keinen Ton mehr.
'im Normalfall ist der Beep-Befehl auch auskommentiert (funktionslos)



Jörn