$regfile = "attiny13.dat"                                   'МК Attiny13
$crystal = 9600000                                          'Рабочая частота МК 9.6МГц
$hwstack = 16
$swstack = 16
$framesize = 16

Config Int0 = Falling          'Прерывание по спаду на 0-м входе (с модема)

Open "comb.1:9600,8,n,1" For Output As #1                   'Вывод на модем
Open "comb.3:9600,8,n,1" For Output As #3                   'Вывод на виртуальный терминал
Open "comb.4:9600,8,n,1" For Input As #4                    'Прием с виртуального терминала

Dim Cmd As String * 8

On Int0 Int0input 

Enable Interrupts
Enable Int0

Do

Print #3 , "Command:"
Input #4 , Cmd
Print #1 , Cmd

Loop

Int0input:
Print #3 , "interupt"     'При возникновении ответа вывожу на терминал
Return

End

Int0input:
Disable Int0
R = Ischarwaiting()
 If R = 1 Then
  F1 = Inkey(#0)
  Print #3 , F1
 End If
Enable Int0
Return

$regfile = "attiny13.dat"                                   'МК Attiny13
$crystal = 9600000                                          'Рабочая частота МК 9.6МГц
$hwstack = 16
$swstack = 16
$framesize = 16
$timeout = 10000
Config Int0 = Falling

Open "comb.1:9600,8,n,1" For Output As #2                   'Программный UART 1 на PB.3 TXD
Open "comb.3:9600,8,n,1" For Output As #3                   'Программный UART 3 на PB.3 TXD
Open "comb.4:9600,8,n,1" For Input As #4                    'Программный UART 4 на PB.4 RXD
Open "comb.0:9600,8,n,1" For Input As #1

Dim C As String * 8

Enable Interrupts
Enable Int0

On Int0 Int0_sw_rx

Do
Print #3 , ">"
Input #4 , C
Print #2 , C
Loop

Int0_sw_rx:
   Disable Int0
   Input #1 , C Noecho
   Print #3 , C
   Gifr.intf0 = 1
   Gifr = 64
   Enable Int0
Return

End

$regfile = "attiny2313.dat"
$crystal = 9600000
$hwstack=40
$swstack=16
$framesize=32

Config Int0 = Falling
Config Timer0 = Timer , Prescale = 1                        'конфигурируем таймер 0

Open "comb.1:9600,8,n,1" For Output As #1                   'Программный UART 1 на PB.3 TXD
Open "comb.2:9600,8,n,1" For Input As #2                    'Программный UART 3 на PB.3 TXD
Open "comb.3:9600,8,n,1" For Output As #3                   'Программный UART 4 на PB.4 RXD


Dim C As String * 8 , I As Integer , L As Byte , S As Byte

Enable Interrupts
Enable Int0

On Int0 Int0_sw_rx
On Timer0 Pulse

Do
L = 1
Print #3 , ">"
Input #2 , C Noecho
Print #1 , C

Loop


Int0_sw_rx:
   Enable Timer0
   If L = 1 Then
      Config Int0 = Rising
      L = 0
   Else
      Config Int0 = Falling
      L = 1
   End If

   While I > 25
     Print #3 , L ;
     I = I - 9
   Wend

   I = 0
   If L = 1 Then
      Print #3 , 0 ;
   Else
      Print #3 , 1 ;
   End If
Return

Pulse:
  If I = 80 Then
   Print #3 , ""
   Disable Timer0
   I = 0
  End If
  I = I + 1
Return


End

$regfile = "attiny13.dat"                                   'МК Attiny13
$crystal = 9600000
$hwstack = 16
$swstack = 16
$framesize = 16
Config Pinb.0 = Input
Config Int0 = Falling
Open "comb.3:9600,8,n,1" For Output As #3
Enable Interrupts
Enable Int0
On Int0 Int0_sw_rx

Do
Loop

Int0_sw_rx:
     Print #3 , "OK"
Return

End