hy hab das programm in den mega8 geladen
nur es funktioniert nicht?!

taster is ein kleiner taster
ausgang derzeit ne led an 200ohm gegen masse

interupt eingang noch nicht getestet.

so, jetzt zu den fehler.

hab alles mögliche probiert sogar ne zusätzliche abfgae eingebaut damit der taster echt nur bei gegen masse funktion hat
mit pullup widerstand gegen +5 am taster auch schon probiert
port & pin getestet, wobei ich noch immer nicht genau weiß was der unterschied is, funktioniert jedenfalls im simulator ohne probleme!!!

sogar ne debounce eingebaut, aber hat nie richtig im simulator funktioniert.

bitte hilfe, es kann ja nicht sein das programm im AVR richtig funkt & im mega 8 nicht.
led leuchtet nie!!!!!!!!!!!!!!!!!

mega 8 sollte funktioniern da schon ein testprogramm für display ansteuerung gefunkt hat



hier das aktuelle programm



Code:
$regfile = "m8def.dat"
$baud = 9600
$crystal = 8000000

Config Pinb.2 = Input
Config Pinb.1 = Output
Config Portb.2 = Input


Dim Irq0 As Word





'' Interrupt Int0 config
On Int0 Irq0

Config Int0 = Rising
Enable Int0
Enable Interrupts





Do



''abfrage ob taste gedrückt & Kontrolle ob irq0 noch nicht über 800
Abfrage:


If Pinb.2 = 0 Then
Waitms 250
End If

If Pinb.2 = 0 Then
Gosub Rauf
End If



Waitms 20






If Irq0 > 5 Then
Gosub Halt
Else



End If


Loop


'' bei Int0 wird irq0 um 1 erhöht
Irq0:
Incr Irq0
Return




'' wenn 800 impulse ereicht dann motor stopp
Halt:

Irq0 = 0
Reset Pinb.1
Waitms 100
Return

'' wenn 800 interruptimpulse noch nicht erreicht sind motor läuft weiter
Rauf:
Set Pinb.1
Waitms 100
Return
mfg
piri