So ich hab es wieder hinbekommen - Grundlage für die Idee war eine Bemerkung, doch mittels 2.µC das Taktsignal zu generieren. Und so habe ich einen Mega 8 auf intern Oszillator 8MHz getaktet, und dann an Port C.0 eine LED mit Vorwiderstand zur Funktionskontrolle gesteckt und an Port C.1 das Taktsignal für den verstellten Mega16 abgegriffen.
Programm:
Code:
$regfile = "m8def.dat" 'Mega8
$crystal = 8000000
Ddrc.0 = 1
Ddrc.1 = 1
Config Timer0 = Timer , Prescale = 256
Dim 0ov1 As Byte
Enable Interrupts
Enable Timer0
Start Timer0
On Timer0 Tim0ov
0ov1 = 0
Do
If 0ov1 >= 10 Then
0ov1 = 0
Toggle Portc.0
End If
Toggle Portc.1
Loop
Tim0ov:
Incr 0ov1
Return
OK- das ergibt keine saubere Frequenz, da ab und zu auch die Befehle vom Blinken der LED abgearbeitet werden müssen, aber es funzt - ansonsten könnte das Prog auch so aussehen:
Code:
$regfile = "m8def.dat" 'Mega8
$crystal = 1000000
Ddrc.1 = 1
Do
Toggle Portc.1
Loop
Aber dann kann man nicht sehen, ob der "Taktgenerator" auch wirkich arbeitet.
Lesezeichen