Moin Derivat,

versuchs mal so:
Code:
*********************************
* Impulslängenmessung an PINB.0 *
* PORTB.1 zeigt < 1,5ms an      *
* I/O beliebig anpassbar        *
*********************************

 DDRB  = &B11111110

 Dim messen as Byte

 Do

  Pulsein messen, PINB, 0, 1

  if messen < 150 then
   PORTB.1 = 1
    ELSE
   PORTB.1 = 0
  End if  

 Loop

 End
LG,
Bruno