Вот написал демо-программу маяка. Посмотрите, может можно как-то оптимизировать код? Слишком много переходов на подпрограммы получается.
$sim
$regfile = "attiny2313.dat"
$crystal = 8000000
$baud = 9600

'----------
Config Lcd = 16 * 1                                       
Config Lcdpin = Pin , Rs = Portb.7 , E = Portb.6 , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , Db7 = Portb.2
Config Portb.0 = Output
Cursor Off
Manipul Alias Portb.0
Const Dot = 150
Const Dash = 450
Const _space = 150
Dim Number_word As Integer , Morseword As String * 1 , Morseletters As Byte
'----------------------------
Cls
Do
  '-----
  For Number_word = 0 To 2                                   'здесь указываем сколько у нас букв в сообщении
  Morseword = Lookupstr(number_word , Words)                'берем буквы из массива
   If Morseword = "A" Then Gosub A                         'переходим на соотв-е подпрограммы,
   If Morseword = "B" Then Gosub B                          'чтобы выдавать на PORTB.0 (Manipul)
   If Morseword = "C" Then Gosub C                          'нужные комбинации точек и тире
   'и так далее до буквы Z, цифр 0-9 и знаков / - = .,
  Next Number_word
  '-----

Loop
End                                                         'end program

'------------Формирование точки и тире------------
Tochka:
Set Manipul                                                 'установить лог. 1 на PORTB.0
Waitms Dot                                                  'передать точку
Reset Manipul                                               'установить лог.0
Waitms _space                                               'передать пробел
Lcd "*"
Return

Tire:
Set Manipul                                               
Waitms Dash
Reset Manipul
Waitms _space
Lcd "-"
Return

'--------------Формирование букв-----------------
'--a
A:
Gosub Tochka
Gosub Tire
Cls
Return

'--b

B:
Gosub Tire
Gosub Tochka
Gosub Tochka
Gosub Tochka
Cls
Return

'--c
C:
Gosub Tire
Gosub Tochka
Gosub Tire
Gosub Tochka
Cls
Return

Words:
Data "A" , "B" , "C"                                        'Сообщение "ABC", которое требуется передать

Александр, еще раз спасибо Вам, разобрался с Вашей программой. Мне еще работать и работать над собой Единственное что я хотел еще добавить - дать возможность пользователю по RS232 самому записывать в память МК сообщения.

Вот немного модифицированная программа маяка Александра Д. Изменены: время задержки для точек/тире/пауз, добавлена пауза между словами в предложении, равная 7 точкам, итп по мелочам.  Вопрос по коду в цикле DO-LOOP. По нажатию кнопки на выводе 2 порта D, начинает выполняться подпрограмма STPRG. А как вернуться из нее обратно в цикл DO-lOOP? Пробовал по прерыванию INT0 - ничего хорошего не вышло, не работает (пример брал из pdf-ки по Bascom). Есть какие-нибудь варианты?

$crystal = 8000000
$hwstack = 8
$swstack = 8
$framesize = 16

Lamp Alias Portb.0                                          'индикатор передачи
Cw_out Alias Portb.1                                        'выход "манипуляция" - к ГВЧ
Tx_out Alias Portb.2                                        'выход на PTT передатчика

Const T = 150                                               ' Точка = 0
Const M = 450                                               ' Тире (Минус) =1
Const P = 450                                               ' Пауза между буквами
Const D = 150                                               ' Пауза между точками\тире
Const Pw = 1050                                             ' пауза между словами

Dim N As Byte
'Enable Interrupts
'Enable Int0

Config Portb.0 = Output                                     ' Output
Config Portb.1 = Output
Config Portb.2 = Output
Config Portd.2 = Input
Set Portd.2

Wait 1

Main:
Do
  Debounce Pind.2 , 0 , Stprg , Sub                         'переход в режим автомат. мультиплексирования по нажатию
Loop
End

Stprg:
Portb = 0

Restore Data1

Nachalo:
   Tx_out = 1

Read N
   If N = 0 Then                                            ' Точка
    Lamp = 1
    Cw_out = 1
    Waitms T
     Lamp = 0
     Cw_out = 0                                             ' Выкл лампу
    Waitms D                                                ' Пауза между точками\тире
   End If

   If N = 1 Then                                            ' Тире (Минус)
    Lamp = 1
    Cw_out = 1
    Waitms M
     Lamp = 0                                               ' Выкл лампу
     Cw_out = 0
    Waitms D                                                ' Пауза между точками\тире
   End If

   If N = 9 Then Waitms P                                   ' пауза между буквами\символами
   If N = 8 Then Waitms Pw                                  ' пауза между словами

   If N = 111 Then
    Lamp = 0
    Cw_out = 0
    Tx_out = 0
    Wait 3                                                  ' Конец предложения
    Restore Data2
   End If

   If N = 222 Then
    Lamp = 0
    Cw_out = 0
    Tx_out = 0
    Wait 3                                                  ' Конец предложения
    Restore Data3
   End If

   If N = 255 Then
    Lamp = 0                                                ' Конец
    Cw_out = 0
    Tx_out = 0
    Wait 3
    Goto Stprg
   End If

Goto Nachalo
Return

' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Data1:
Data 1 , 0 , 1 , 0 , 9 , 1 , 1 , 0 , 1 , 8 , 1 , 0 , 1 , 0 , 9 , 1 , 1 , 0 , 1 , _
111

Data2:
Data 0 , 0 , 0 , 0 , 0 , 8 , 0 , 0 , 0 , 0 , 0 , 8 , 0 , 0 , 0 , 0 , 0 , _
222

Data3:
Data 1 , 1 , 1 , 1 , 1 , 8 , 1 , 1 , 1 , 1 , 1 , 8 , 1 , 1 , 1 , 1 , 1 , _
255