Hi all,

es geht noch kürzer

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 

Portc.6 = A 
Portc.7 = A

loop 

End
Dann spart man sich den If-Then-Else Teil.

Gruß Klaus