$regfile = "m328pdef.dat"
  $crystal = 1000000
  $hwstack = 40
  $swstack = 16
  $framesize = 32

'Одиночные измерения с частотой АЦП = f_МК / Prescaler (8 МГц / 128 = 62 500)
  Config Adc = Single , Prescaler = 128 , Reference = Avcc

  Dim A As Word
  Dim B As Word : B = 500
  Dim Count_sumbol As Byte
  Dim Data_byte(10) As Byte
  Dim Data_str As String * 10 At Data_byte(1) Overlay

Do

    A = Getadc(0)

   'подпрограмма 259 тактов
    Gosub Format_string

    Locate 2 , 1
    Lcd Data_str

Loop
End

'===============================================================================
  Format_string:
'-------------------------------------------------------------------------------
  'Умножение переменных типа Word (0...65535)  33 такта
    !lds  R20 , {A}
    !lds  R21 , {A + 1}
    !lds  R22 , {B}
    !lds  R23 , {B + 1}

    !clr  R2
    !mul  R23 , R21
    !movw R18 , R0
    !mul  R22 , R20
    !movw R16 , R0
    !mul  R23 , R20
    !add  R17 , R0
    !adc  R18 , R1
    !adc  R19 , R2
    !mul  R21 , R22
    !add  R17 , R0
    !adc  R18 , R1
    !adc  R19 , R2

    !lsr R18
    !ror R17
    !lsr R18
    !ror R17

    !mov R16 , R17
    !mov R17 , R18

    !ldi  R19 , 3       ' Необходимое количество разрядов
    !sts {Count_sumbol} , R19

   Next_byte:
    !movw R4  , R16
    !lsr  R17
    !ror  R16
    !movw R0  , R16
    !lsr R1
    !ror  R0
    !add  R16 , R0
    !adc  R17 , R1
    !movw R0  , R16
    !lsr  R17
    !ror  R16
    !lsr  R17
    !ror  R16
    !lsr  R17
    !ror  R16
    !lsr  R17
    !ror  R16
    !add  R16 , R0
    !adc  R17 , R1
    !movw R0  , R16
    !clr  R0
    !add  R16 , R1
    !movw R0  , R16
    !clr  R0
    !movw R0  , R16
    !lsr  R1
    !ror  R0
    !lsr  R1
    !ror  R0
    !andi R16 , 248
    !add  R16 , R0
    !adc  R17 , R1
    !cbr  R16 , 1
    !Sub  R4  , R16
    !sbc  R5  , R17
    !lsr  R1
    !ror  R0
    !ldi  R16 , 9
    !cp   R16 , R4
    !brsh Exit_div
    !ldi  R16 , 10
    !sub  R4  , R16
    !ldi  R16 , 1
    !add  R0  , R16
    !ldi  R16 , 0
    !adc  R1  , R16
   Exit_div:
   'Можно забрать промежуточный результат делимого
    !mov  R16 , R0
    !mov  R17 , R1

'    Loadadr Переменная_byte(count_sumbol) , Z       ' Если надо, забираем текущий разряд
'    !st   Z   , R4       ' Если надо, забираем значение текущего разряда

' Если надо, забираем значение кода 7-SEG LED выводимой цифры, текущего разряда
    !ldi  R30 , low(Sumbol_ascii * 2)
    !ldi  R31 , high(Sumbol_ascii * 2)
    !add  R30 , R4
    !clr  R3
    !ADC  R31 , R3
    !lpm  R18 , Z
    Loadadr Data_byte(count_sumbol) , Z
    !st   Z   , R18

    !dec  R19
    !sts {Count_sumbol} , R19
    !BREQ ready_format_string
    !rjmp next_byte
   Ready_format_string:

    If Data_byte(1) = &H30 Then
        Data_byte(1) = &H20
    End If

    Data_byte(4) = Data_byte(3)
    Data_byte(3) = &H2E
'-------------------------------------------------------------------------------
  Return
'===============================================================================

'===============================================================================
  Sumbol_ascii:
'-------------------------------------------------------------------------------
    Data &H30       ' 0   "0"
    Data &H31       ' 1   "1"
    Data &H32       ' 2   "2"
    Data &H33       ' 3   "3"
    Data &H34       ' 4   "4"
    Data &H35       ' 5   "5"
    Data &H36       ' 6   "6"
    Data &H37       ' 7   "7"
    Data &H38       ' 8   "8"
    Data &H39       ' 9   "9"
    Data &H20       ' 10  "Пустое место"
'===============================================================================