dl1akp
14.09.2006, 14:06
Hallo Leute,
habe das erste mal einen M32 mir vorgenommen und scheitere schon an einfachem Problem.
Das folgende Programm zeigt keinerlei Funktion:
$regfile = "m32def.dat" ' Chip auswählen
$crystal = 8000000 ' Quarzfrequenz festlegen
Dim Temp_ziffer As Byte
Ddra = &B11111110
Ddrb = &B11111111 '0=Eingang 1=Ausgang
Ddrc = &B00011101
Ddrd = &B11111111 'portd als Ausgang
Config Timer0 = Timer , Prescale = 64
On Timer0 Timer0_isr 'Interrupt-Routine für Timer0-Overflow
Enable Timer0 'Timer0-Overflow-Interrupt einschalten
Enable Interrupts
Temp_ziffer = 0
'main
Do
Toggle Portc.3
Loop
'interuupt-isr
Timer0_isr:
Toggle Portc.4
Return
Ist ja eigentlich ganz simpel, aber weder die Interrupt-isr geht, noch der Rest des Prog. Den ext. Oszillator habe ich aktiviert, hoffentlich richtig??
Habe keine Ahnung warum es nicht geht!!
Bitte helft mir, ein kleinerer AVR geht nicht, weil ich die ganzen IO-Ports brauche.
Danke schon mal im Voraus.
Andreas
habe das erste mal einen M32 mir vorgenommen und scheitere schon an einfachem Problem.
Das folgende Programm zeigt keinerlei Funktion:
$regfile = "m32def.dat" ' Chip auswählen
$crystal = 8000000 ' Quarzfrequenz festlegen
Dim Temp_ziffer As Byte
Ddra = &B11111110
Ddrb = &B11111111 '0=Eingang 1=Ausgang
Ddrc = &B00011101
Ddrd = &B11111111 'portd als Ausgang
Config Timer0 = Timer , Prescale = 64
On Timer0 Timer0_isr 'Interrupt-Routine für Timer0-Overflow
Enable Timer0 'Timer0-Overflow-Interrupt einschalten
Enable Interrupts
Temp_ziffer = 0
'main
Do
Toggle Portc.3
Loop
'interuupt-isr
Timer0_isr:
Toggle Portc.4
Return
Ist ja eigentlich ganz simpel, aber weder die Interrupt-isr geht, noch der Rest des Prog. Den ext. Oszillator habe ich aktiviert, hoffentlich richtig??
Habe keine Ahnung warum es nicht geht!!
Bitte helft mir, ein kleinerer AVR geht nicht, weil ich die ganzen IO-Ports brauche.
Danke schon mal im Voraus.
Andreas