'***********************1Hz mit Timer 0 by Paul Baumann $regfile = "2313def.dat" 'AT90S2313-Deklarationen $crystal = 4000000 'Quarz: 4 MHz Dim Umlauf As Byte On Timer0 Ontimer0 Config Timer0 = Timer , Prescale = 64 '4Mhz/64 = 62500 Hz 'Timer auf 6 heißt 250 Schritte 'bis Überlauf Enable Timer0 'Timer erzeugt 250 Hz Enable Interrupts 'Interrupts global zulassen Timer0 = 6 Umlauf = 25 'Umlauf zählt die Interrupts Config Portb.0 = Output Config Portb.1 = Output 'LED an Port D6 Portb.0 = 0 Portb.1 = 0 Do 'Wenn 250 Interrups herum sind If Umlauf = 0 Then 'Umlauf wieder neu auf 250 setzen Umlauf = 25 Portb.0 = 1 'LED ausschalten End If If Umlauf = 0 Then 'Wenn wieder 250 Interrupts waren Umlauf = 25 Portb.0 = 0 'LED einschalten End If If Umlauf = 0 Then 'Umlauf wieder neu auf 250 setzen Umlauf = 2 Portb.1 = 1 'LED ausschalten End If If Umlauf = 0 Then 'Wenn wieder 250 Interrupts waren Umlauf = 2 Portb.1 = 0 'LED einschalten End If Loop 'Interrupt-Routine Ontimer0: Timer0 = 6 'Timer sofort neu laden Decr Umlauf Return ' **** END OF PROGRAM