' ---------------RN-Mega128Funk übliche ------------------
$regfile = "m128def.dat" ' Bei Mega 128 "
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000                                         'Quarzfrequenz
$baud = 19200                                               'Baudrate für Funkmodul
$baud1 = 9600                                               'Baudrate für MAX
Config Ping.0 = Output                                      'Spannung an LCD aktivieren
Lcdpower Alias Portg.0
Config Pine.2 = Output
Rdy_hostempfangsbereit Alias Porte.2                        'Auf Low setzen wenn Empfangsbereitfür Daten vom Funkmodul
Config Pine.5 = Input
Bsy_funkmodulsendebereit Alias Porte.5                      'Ist Low wenn Funkmodul frei zumsenden
Open "com2:" For Binary As #2

Sound Portg.2 , 400 , 450                                   'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 250                                   'BEEP bei RN-Mega128Funk
Sound Portg.2 , 400 , 450                                   'BEEP bei RN-Mega128Funk
' ---------------------------------------------------
On Urxc1 Send
Enable Urxc1
Enable Interrupts

Config Pinf.6 = Output
Lcd_rw Alias Portf.6
Lcd_rw = 0
Lcdpower = 1
Wait 1
Config Lcd = 20 * 2
Config Lcdpin = Pin , Db4 = Portf.3 , Db5 = Portf.2 , Db6 = Portf.1 , Db7 = Portf.0 , E = Portf.5 , Rs = Portf.7
Config Lcdbus = 4
Initlcd
Cls

Do

Loop

Send:
Lcd Chr(udr1)
Return
End