Interrupt Frage

{ Const Declarations }
const
  PIN1_bm: byte = 2;
  PIN2_bm: byte = 4;
  PIN3_bm: byte = 6;

Var
    IntLastState: byte;

procedure PortInt1Init;
const
  PinMask: byte = (PIN1_bm or PIN2_bm or PIN3_bm);
begin
  PORTC.DIRCLR:= PinMask;   // Input
  PIN1CTRLC:= $18;               // PullUp, bothedges
  PIN2CTRLC:= $18;
  PIN3CTRLC:= $18;
  INT1MASKC:= PinMask;      // Bitmask Pin 1,2,3
  INTCTRLC:= 1;
  INTFLAGSC:= 2;
  PMICCTRL:= 1;             //  Low Level Interrupt Executing bit mask.
  IntLastState:= PinC;
end;


procedure PORTC_INT1;             // Interrupt CallBack
var
  currState, XorState : byte;
begin
  currState:= PinC;
  XorState:= currState xor IntLastState;

  // PinC.1
  if (XorState and PIN1_bm) > 0 then
    if (currState and PIN1_bm) > 0 then  // wenn State benötigt wird 
       // steigende Flanke

    else
      // fallende Flanke
    endif;
  endif;

  // PinC.2
  if (XorState and PIN2_bm) > 0 then
    // if (currState and PIN2_bm) > 0 then
  endif;

  // PinC.3
  if (XorState and PIN3_bm) > 0 then

  endif;
  IntLastState:= currState;
end;



///  ---- main 
  EnableInts($87);
  BeepOut(2000, 5);
  PortInt1Init();
....

procedure PortInt1Init;
const
  PinMask: byte = (ENDX_bm or ENDY_bm or ENDZ_bm);
begin
  PORTF.DIRCLR:= PinMask;   // Input
  PIN5CTRLF:= $18;          // PullUp, bothedges
  PIN6CTRLF:= $18;
  PIN7CTRLF:= $18;
  INT1MASKF:= PinMask;      // Bitmask Pin 5,6,7
  INTCTRLF:= 1;
  INTFLAGSF:= 2;
  PMICCTRL:= 1;             //  Low Level Interrupt Executing bit mask.
  IntLastState:= PinF;
end;


Procedure PORTF_INT1; // Interrupt CallBack
var
  currState, XorState : byte;
begin
  currState := PinF and (ENDX_bm or ENDY_bm or ENDZ_bm);
  XorState := currState xor IntLastState;
  // PinF.7
  if (XorState and ENDZ_bm) > 0 then
    if (currState and ENDZ_bm) > 0 then  // wenn State benötigt wird
       // steigende Flanke
       inccounter:= inccounter +1;
    else
      // fallende Flanke
       inccounter:= inccounter +1;
    endif;
  endif;
  IntLastState:= currState;
end;

{$IDATA}
begin
  InitPorts;
  pwm:= 200;
  mDelay(10);
  InitAll;

  mDelay(200);
  PortInt1Init();   //<================
  EnableInts($87);