in VAR BIT
InTrs VAR PORTB.1 'On Out of U2270b

Read:
PauseUS 130 'for Osc 8
in=Intrs
If in=1 Then
....
if in=0 Then
....
etc..

Regards