externer Interrupt mit Pascal

[Thomas (Gast)]

Hi,

Ich versuch grad nen Interrupt mit nem Schalter zu realisieren und nutz 
dazu den ATmega8 und das Funk-AVR-Evaluations-Board 1.2.Ich hab jetzt 
das Problem das er nicht in die ISR geht.Hab schon alles mögliche 
ausprobiert und überall nachgekugt aber find meinen Fehler nicht.Hoffe 
jemand kann mir helfen.

Das ist hier mein Programm dafür

procedure InitPorts;
begin
  PORTD:= %00001000;
  DDRD := %01100000;
  GICR := %10000000; //INT1 activation
  MCUCR:= %00001100; //The rising edge of INT1 generates an interrupt 
request
end InitPorts;

Interrupt Int1;
begin

PortD.5:=1;

end;



{--------------------------------------------------------------}
{ Main Program }
{$IDATA}

begin

  InitPorts;
  EnableInts;


  loop

  endloop;
end Interrupts.


MFG Thomas

[spess53 (Gast)]

Hi

Ich sehe keine globale Interruptfreigabe.

MfG Spess

[spess53 (Gast)]

Hi

Wenn das der E-Lab-Compiler ist:

  EnableInts;

MfG Spess

[Thomas (Gast)]

Jup ist der E-Lab Compiler.

MFG Thomas