Problem mit Timer

[Niclas (Gast)]

Hallo
ich habe ein Problem mit diesem Code in Bascom.

$regfile = "M8def.dat"
$crystal = 1000000
$hwstack = 100
$swstack = 100
$framesize = 100

Dim Ad As Word
Dim Ad_triac As Word

Config Portb.1 = Output
config Portb.2 = Output
Config Portb.3 = Output
Config Portb.4 = Output


Config Portb.1 = Output
Const Timer1_preload = 64559
Config Timer1 = Timer , Prescale = 1024
Enable Timer1
Stop Timer1
Timer1 = Timer1_preload
On Timer1 Isr_timer1
Enable Interrupts
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

On Int0 On_int0
Config Int0 = Falling
Enable Int0


Do
Portb.1 = 0
Portb.2 = 0





Loop

Isr_timer1:
Stop Timer1
Timer1 = Timer1_preload
PortB.1 = 1
Return

On_int0:

Start Timer1

Portb.2 = 1
Return

End                                                         'end program

Bei einem interrupt geht eine Led an, wie sie es soll. Gleichzeitig wird 
auch ein Timer gestartet, der wenn er überläuft eine zweite Led zum 
leuchten bringen soll. ich habe es so angedacht, dass diese nach 9ms 
angehen soll. allerdings tut sie es erst nach 1. Sekunde.
Was habe ich falsch gemacht??

Niclas

[lukas (Gast)]

Dein Timer1 läuft durch den Prescaler von 1024 mit einer Frequenz von 
ca. 977Hz. Periodendauer ca. 1ms.

Durch den Preload von 64559 braucht es 977 (65536 - 64559) Ticks bis der 
Timer überläuft. 1ms * 977 macht ca eine Sekunde. Deine Beobachtung 
stimmt mit deinem Programm überein.

[Niclas (Gast)]

Danke