ATmega8535 - przetwornik 8bitowy AC i wysylanie do ATmega128

$regfile = "m8535.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40

Dim W As Word

Config Watchdog = 2048
Start Watchdog
Reset Watchdog
Config Adc = Single , Prescaler = Auto , Reference = Internal
Start Adc
Do
   W = Getadc(0)
   Print W
   Reset Watchdog
Loop
End

$regfile = "m128def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 32
$swstack = 32
$framesize = 32

Dim A As Byte
Dim Message As String * 16

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2       'konfiguracja linii mikrokontrolera‚ do których dołączono wyświetlacz LCD

Initlcd
Cls
Cursor Off
Lcd "d test"
Lowerline
Lcd " www.com"

Print "*************************"
Print "**   mc **"
Print "**    wdd   **"
Print "*************************"

Do
  Input "->" , Message                                      'send prompt to terminal
  Cls
  Lcd "Rx:"
  Lowerline
  Lcd Message                                               'write received message on LCD
  Print "<-" ; Message
Loop

End

Config Serialin = Buffered , Size = 8

$regfile = "m128def.dat" 
$crystal = 16000000 
$baud = 9600 
$hwstack = 32 
$swstack = 32 
$framesize = 32 

Dim A As Byte 
Dim Message As String * 16 

Config Lcd = 16 * 2 
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2       'konfiguracja linii mikrokontrolera‚ do których dołączono wyświetlacz LCD 

Initlcd 
Cls 
Cursor Off 
Lcd "d test" 
Lowerline 
Lcd " www.com" 

Print "*************************" 
Print "**   mc **" 
Print "**    wdd   **" 
Print "*************************" 

Do 
  Input "->" , Message                                      'send prompt to terminal 
  Cls 
  Lcd "Rx:" 
  Lowerline 
  Lcd Message                                               'write received message on LCD 
  Print "<-" ; Message 
Loop 

End