$regfile = "m8def.dat"                                      'определяем контроллер
$crystal = 8000000                                          ' Сообщаем компилятору тактовую частоту задабщего генератора микроконтроллера
$baud = 9600                                                ' use baud rate  тут несколько строк по настройке UART
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space

     Config Portb = Output , Portd = Output ,
     Config Timer0 = Timer , Prescale = 8
     On Timer0 Pulse                                        ' назначаем подпрограмму, которая будет запускатся по переполнению 1го таймера
     Enable Interrupts                                      'разрешаем прерывания
     Enable Timer0

Dim Dig1 As Byte , Dig2 As Byte , Dig3 As Byte , Y As Byte
Y = 5
Wait 1

     Enable Interrupts                                      'разрешаем прерывания
     Enable Timer0                                          ' начало основного цикла
Do
Input "dig1 " , Dig1                                        'Noecho                     ' Отправляем строку Enter you name и ждем ответа от ПК (ноу эхо без обратной отправки принятого значения в уарт)

Input "dig2 " , Dig2
Input "dig3 " , Dig3

Loop                                                        'конец основного цикла
End



 Pulse:
Portb = 0 ' тут прицеплен 7 сегментник
Set Portd.5 ' тут прицепленны общие выводы 
Set Portd.6
Set Portd.7

 Incr Y
 If Y = 4 Then Y = 1

 Select Case Y                                              ' динамическая индикация с выводом принятых значений
 Case 1 :
 Reset Portd.5
 Portb = Dig1
 Case 2 :
 Reset Portd.6
 Portb = Dig2
 Case 3 :
 Reset Portd.7
 Portb = Dig3
 End Select

 Return