Interrupt mit ATmega8

Hi,

ich hab schonmal was zu meinem Problem gepostet aber nicht wirklich hilfe bekommen also versuch ichs nochmal.
Also ich bin Anfänger und versuch grad ein kleines Programm mit ein Interrupt zuschreiben.Will aber weder aufm Simulator noch sonst wie funktionieren und hab schon alles mögliche ausprobiert und kann den Fehler einfach nicht finden.Das Programm soll bei einem Signal an PinD.2 ein Interrupt auslösen und in diesem soll eine LED eingeschaltet werden.

Code

program Interrupts;

{$NOSHADOW}
{ $WG} {global Warnings off}


Device = mega8, VCC=5;
{ $BOOTRST $00C00} {Reset Jump to $00C00}

Define_Fuses
Override_Fuses;
NoteBook = A;
COMport = USB;
LockBits0 = [];
FuseBits0 = [];
FuseBits1 = [];

Import SysTick ;
From System Import ;


Define
ProcClock = 8000000; {Hertz}
SysTick = 10; {msec}
StackSize = $0032, iData;
FrameSize = $0032, iData;

Implementation

{$IDATA}

{--------------------------------------------------------------}
{ Type Declarations }

type


{--------------------------------------------------------------}
{ Const Declarations }

{--------------------------------------------------------------}
{ Var Declarations }
{$IDATA}
var


{--------------------------------------------------------------}
{ functions }
procedure InitPorts;
begin
DDRD := %01100000; //set PinD.5/6 as output
GICR := GICR OR %11000000; //INT0/INT1 activation
MCUCR:= MCUCR or %00001111; //The rising edge of INT1/INT0 generates an interrupt request
GIMSK:= GIMSK or %11000000;
end InitPorts;

Interrupt INT0;
begin
Toggle(PortD.5);
end;
{--------------------------------------------------------------}
{ Main Program }
{$IDATA}

begin
InitPorts;
EnableInts;

loop
nop;
endloop;
end Interrupts. //Programm heißt Interrupts


tilo

Hallo tilo,

da geht garnichts:
PinD.5:=1;
1. ist PinX immer ein Input, also muss es heissen: PortD.5:= 1;
2. wäre es besser so:
Toggle(PortD.5);
Damit wird bei jedem Interrupt dieser Port Pin umgeschaltet.

Das Init des Interrupts habe ich nicht geprüft...

rolf