Du Schaltest ja auch nichts aus Bild  

Probiers mal so:
Code:
$regfile = "m32def.dat" 
$crystal = 8000000 
$baud = 9600 

Config Portc = Output 
Config Portd = Input 
Dim A As Bit 


Do 

If Pind.3 = 0 Then Set A 
If Pind.4 = 0 Then Reset A 

If A = 1 Then 
   Portc.6 = 1 
   Portc.7 = 1 
else
   Portc.6 = 0 
   Portc.7 = 0  
end if

loop 


End