Code:
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
Config Portc = Output

Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
Config Lcd = 40 * 2

Dim Test As String * 10



Portc.0 = 0


Cls                                                         ' Clear the LCD display



Do

   Inputbin Test


   Locate 1 , 1
   Lcd Test



Loop
Code:
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600

'Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4
'Config Lcd = 40 * 2

Config Portc = Output

Portc.0 = 1                                                 ' RS485 Treiber auf senden

Do

   Print "AVR-Atmega" ;
   Wait 1


Loop
also oben erst senden, dann Empfang. zum Testen ob der Bus in Ordnung ist! Hab ich auch erst so probiert.Ist zwar nicht schön Programiert aber es muss so klappen.
Gruß raggy