externer Interrupt mit Pascal

Gast #1879216
Lesenswert?

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

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren