@Hübi:
Fast, die Abfrage nach den 1700 noch in das Else der 1800, denn sonst geht es nie aus:
Code:
  If A > 1800 Then
               Portb = &B00000000
           else
             If A > 1770 Then
               Portb = &B11000000
               Else
               Portb = &B10000000
             End If
         End If
Also wenn der Wert über 1800 kommt ist alles aus,
ist er unter 1800 aber über 1770 geht der Alarm mit an,
ist der unter 1770 ist nur der Ausgang eingeschaltet.

Ob in der ISR auf 0 oder 1 gesetzt wird ist eigentlich egal,
bei 0 läuft die Schleife eine Sekunde länger.