Hardwareinterrupt

Die Interrupteingäne sind:

(INT0) PD2
(INT1) PD3

mach doch erst mal die Routinen einfach:

Interrupt Int0;
begin
PortD.5:=1;
PortD.6:=0;
end;

Interrupt Int1;
begin
PortD.5:=0;
PortD.6:=1;
end;

Hi mein lauffähiger Code(schnipsel) sieht so aus: (mikroPascal/ATmega32)
Procedure Int0_ISR(); org IVT_ADDR_INT0;
begin
  // ...
end;
//-------------------------------------------------
Procedure Int1_ISR(); org IVT_ADDR_INT1;
begin
  // ...
end;
//-------------------------------------------------
// MAIN
 // ISC01=1, ISC00=0: The falling edge of INT0 generates an interrupt 
request.
  MCUCR.ISC00 := 0;   //  \ call ISR on
  MCUCR.ISC01 := 1;   //  / falling edge
  GICR.INT0   := 1;   // global interrupt control register

  // ISC11=1, ISC10=0: The falling edge of INT1 generates an interrupt 
request.
  MCUCR.ISC10 := 0;   //  \ call ISR on
  MCUCR.ISC11 := 1;   //  / falling edge
  GICR.INT1   := 1;   // global interrupt control register

  // setup timer1, enable interrupts
  TOIE1_bit  := 1;    // Timer1 overflow interrupt enable
  TCCR1B := %010;     // Start timer with 8 prescaler
  SREG_I_bit := 1;    // global Interrupt enable

// while ...

end.

Hier ist nochmal mein Prog jetzt n bischen ordentlicher.
Und das mit PortD soll so sein ich will erstmal nur sehen ob der 
Interrupt funktioniert.


procedure InitPorts;
begin
  DDRD := %01100000;
  GICR := %01000000; //INT0 activation
  MCUCR:= %00001100; //The rising edge of INT1 generates interrupt 
request
  sreg := %10000000; //global Interrupt enable
end InitPorts;

Interrupt Int0;
begin
PortD.5:=1;

end;

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

begin
  InitPorts;
  EnableInts;

  loop

  endloop;