ARCP-590 Kenwood a ATMEGA

[SQ9GAC]

na szybko mam coś takiego

Kod:

$regfile = "m644pdef.dat"
$crystal = 16000000

$baud = 9600
Config Serialin = Buffered , Size = 32
Echo Off
Enable Interrupts
$hwstack = 64
$swstack = 10
$framesize = 40
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
Cls



Dim S As String * 16



  Echo Off


  Do


   Input S


   Cls :
   Locate 1 , 1 : Lcd S

  Loop

  End

i nie nawiązuje połączenia mam FT-817 Commander versja Beta 2.2 HB9DRV