'The ATmega32 is used.
$regfile = "m32def.dat"
$crystal = 4000000

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

Config Portd.2 = Input
Config Portd.6 = Output
Config Portd.5 = Input
Config Portd.7 = Output
Config Portc = Output

Rxf Alias Pind.2
Rd Alias Portd.6
Txe Alias Pind.5
Wr Alias Portd.7
Led Alias Portb.6

Dim Usbin As Byte

Set Rd

Cls
Lcd "sending..."
Lowerline
Set Led
Waitms 500
Reset Led
Waitms 500

Do
  If Txe = 0 Then
    Reset Wr
    Portc = Asc( "a")
    Set Wr
  End If
Loop

End