Subversion Repositories tsfmpro

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

  1. ;--------------------------------------------------------------------
  2. ; Описание: Модуль отображения анализатора
  3. ; Автор порта: Тарасов М.Н.(Mick),2010
  4. ;--------------------------------------------------------------------
  5.                 org     0D000h
  6. ;-------------------------------------------------------------------
  7. ; описание: Обновление параметров анализатора
  8. ; параметры: нет
  9. ; возвращаемое  значение: нет
  10. ;---------------------------------------------------------------------
  11. Analyzer_update:
  12.                 ld      hl,ESIAmplitude_ch0
  13.  
  14.                 ld      a,(hl)                          ;+00h - Amplitude 0 right/left
  15.                 and     0Fh
  16.                 ld      c,a
  17.                 ld      a,(hl)                          ;+00h - Amplitude 0 right/left                         
  18.                 and     0F0h
  19.                 rrca   
  20.                 rrca   
  21.                 rrca
  22.                 rrca   
  23.                 cp      c
  24.                 jr      nc,Analyzer_up_ch0
  25.                 ld      a,c    
  26. Analyzer_up_ch0:
  27.                 ld      (Analyzer_ch0_vol),a            ;Amplitude 0
  28.  
  29.                 inc     hl
  30.                 ld      a,(hl)                          ;+01h - Amplitude 1 right/left
  31.                 and     0Fh
  32.                 ld      c,a
  33.                 ld      a, (hl)                         ;+01h - Amplitude 1 right/left
  34.                 and     0F0h
  35.                 rrca   
  36.                 rrca   
  37.                 rrca   
  38.                 rrca   
  39.                 cp      c
  40.                 jr      nc,Analyzer_up_ch1
  41.                 ld      a,c    
  42. Analyzer_up_ch1:
  43.                 ld      (Analyzer_ch1_vol),a            ;Amplitude 1
  44.  
  45.                 inc     hl
  46.                 ld      a,(hl)                          ;+02h - Amplitude 2 right/left
  47.                 and     0Fh
  48.                 ld      c,a
  49.                 ld      a,(hl)                          ;+02h - Amplitude 2 right/left
  50.                 and     0F0h
  51.                 rrca   
  52.                 rrca   
  53.                 rrca   
  54.                 rrca   
  55.                 cp      c
  56.                 jr      nc,Analyzer_up_ch2
  57.                 ld      a,c    
  58. Analyzer_up_ch2:
  59.                 ld      (Analyzer_ch2_vol),a            ;Amplitude 2  
  60.  
  61.                 inc     hl
  62.                 ld      a, (hl)                         ;+03h - Amplitude 3 right/left
  63.                 and     0Fh
  64.                 ld      c,a
  65.                 ld      a, (hl)                         ;+03h - Amplitude 3 right/left
  66.                 and     0F0h
  67.                 rrca   
  68.                 rrca   
  69.                 rrca   
  70.                 rrca   
  71.                 cp      c
  72.                 jr      nc,Analyzer_up_ch3
  73.                 ld      a,c    
  74. Analyzer_up_ch3:
  75.                 ld      (Analyzer_ch3_vol),a            ;Amplitude 3  
  76.  
  77.                 inc     hl
  78.                 ld      a, (hl)                         ;+04h - Amplitude 4 right/left
  79.                 and     0Fh
  80.                 ld      c,a
  81.                 ld      a, (hl)
  82.                 and     0F0h
  83.                 rrca   
  84.                 rrca   
  85.                 rrca   
  86.                 rrca   
  87.                 cp      c
  88.                 jr      nc,Analyzer_up_ch4
  89.                 ld      a,c    
  90. Analyzer_up_ch4:
  91.                 ld      (Analyzer_ch4_vol),a          ;Amplitude 4  
  92.  
  93.                 inc     hl
  94.                 ld      a, (hl)                         ;+05h - Amplitude 5 right/left
  95.                 and     0Fh
  96.                 ld      c,a
  97.                 ld      a, (hl)
  98.                 and     0F0h
  99.                 rrca   
  100.                 rrca   
  101.                 rrca   
  102.                 rrca   
  103.                 cp      c
  104.                 jr      nc,Analyzer_up_ch5
  105.                 ld      a,c    
  106. Analyzer_up_ch5:
  107.                 ld      (Analyzer_ch5_vol),a            ;Amplitude 5  
  108.                 ret
  109.  
  110. ;-------------------------------------------------------------------
  111. ; описание: Отображение анализатора
  112. ; параметры: нет
  113. ; возвращаемое  значение: нет
  114. ;---------------------------------------------------------------------
  115. Analyzer_view_0:
  116.                 call    Analyzer_view_ch0
  117.                 call    Analyzer_view_ch1
  118.                 call    Analyzer_view_ch3
  119.                 call    Analyzer_view_ch4
  120.                 ret
  121. ;-------------------------------------------------------------------
  122. ; описание: Отображение анализатора
  123. ; параметры: нет
  124. ; возвращаемое  значение: нет
  125. ;---------------------------------------------------------------------
  126. Analyzer_view_1:
  127.                 call    Analyzer_view_ch0
  128.                 call    Analyzer_view_ch1
  129.                 call    Analyzer_view_ch3
  130.                 jp      Analyzer_view_ch5
  131. ;-------------------------------------------------------------------
  132. ; описание: Отображение анализатора
  133. ; параметры: нет
  134. ; возвращаемое  значение: нет
  135. ;---------------------------------------------------------------------
  136. Analyzer_view_2:
  137.                 call    Analyzer_view_ch6
  138.                 call    Analyzer_view_ch2
  139.                 call    Analyzer_view_ch3
  140.                 jp      Analyzer_view_ch4
  141. ;-------------------------------------------------------------------
  142. ; описание: Отображение линии
  143. ; параметры: нет
  144. ; возвращаемое  значение: нет
  145. ;---------------------------------------------------------------------
  146. Analyzer_no_volume:
  147.                 ld      a,0FFh                          ;нет уровня,рисует прямую линию
  148.                 ld      (hl),a
  149.                 inc     l
  150.                 ld      (hl),a
  151.                 inc     l
  152.                 ld      (hl),a
  153.                 inc     l
  154.                 ld      (hl),a
  155.                 inc     l
  156.                 ld      (hl),a
  157.                 inc     l
  158.                 ld      (hl),a
  159.                 ret
  160. ;-------------------------------------------------------------------
  161. ; описание: Отрисовка левого канала анализатора
  162. ; параметры: HL - адрес экрана
  163. ;            C - позиция в индикаторе
  164. ; возвращаемое  значение: нет
  165. ;---------------------------------------------------------------------
  166. Analyzer_draw_flash:
  167.                 ld      hl,(Analyzer_ch3_vol)           ;Analyzer_ch3_vol
  168.                 ld      a,(hl)
  169.                 inc     hl
  170.                 add     (hl)
  171.                 inc     hl
  172.                 add     (hl)
  173.                 and     0Fh
  174.                 ld      hl,Analyzer_table
  175.                 ld      e,a
  176.                 ld      d,0
  177.                 add     hl,de
  178.                 ld      a,(hl)
  179.                 ld      hl,5ADDh
  180.                 ld      (hl),a
  181.                 inc     l
  182.                 ld      (hl),a
  183.                 ld      l,0FDh
  184.                 ld      (hl),a
  185.                 inc     l
  186.                 ld      (hl),a
  187.                 ret
  188.  
  189. ;-------------------------------------------------------------------
  190. ; описание: Обновление параметров анализатора
  191. ; параметры: нет
  192. ; возвращаемое  значение: нет
  193. ;---------------------------------------------------------------------
  194. Analyzer_init:
  195.                 ld      b, 6
  196.                 ld      hl,Analyzer_ch0_vol
  197.  
  198. Analyzer_init_loop:
  199.                 ld      (hl),0
  200.                 inc     hl
  201.                 djnz    Analyzer_init_loop
  202.                 ret
  203. ;-------------------------------------------------------------------
  204. ; описание: Обновление параметров анализатора
  205. ; параметры: нет
  206. ; возвращаемое  значение: нет
  207. ;---------------------------------------------------------------------
  208. Analyzer_clear:
  209.                 ld      (Analyzer_adr_sp),sp
  210.                 ld      de,0
  211.                 ld      sp,40DFh
  212.                 push    de                              ;5 канал
  213.                 push    de
  214.                 push    de
  215.  
  216.                 dec     sp
  217.                 dec     sp
  218.  
  219.                 push    de                              ;3 канал
  220.                 push    de
  221.                 push    de
  222.  
  223.                 dec     sp
  224.                 dec     sp
  225.  
  226.                 push    de                              ;2 канал
  227.                 push    de
  228.                 push    de
  229.  
  230.                 dec     sp
  231.                 dec     sp
  232.  
  233.                 push    de                              ;1 канал
  234.                 push    de
  235.                 push    de
  236.  
  237.                 ld      sp,41DFh
  238.                 push    de                              ;5 канал
  239.                 push    de
  240.                 push    de
  241.  
  242.                 dec     sp
  243.                 dec     sp
  244.  
  245.                 push    de                              ;3 канал
  246.                 push    de
  247.                 push    de
  248.  
  249.                 dec     sp
  250.                 dec     sp
  251.  
  252.                 push    de                              ;2 канал
  253.                 push    de
  254.                 push    de
  255.  
  256.                 dec     sp
  257.                 dec     sp
  258.  
  259.                 push    de                              ;1 канал
  260.                 push    de
  261.                 push    de
  262.  
  263.                 ld      sp,42DFh
  264.                 push    de                              ;5 канал
  265.                 push    de
  266.                 push    de
  267.  
  268.                 dec     sp
  269.                 dec     sp
  270.  
  271.                 push    de                              ;3 канал
  272.                 push    de
  273.                 push    de
  274.  
  275.                 dec     sp
  276.                 dec     sp
  277.  
  278.                 push    de                              ;2 канал
  279.                 push    de
  280.                 push    de
  281.  
  282.                 dec     sp
  283.                 dec     sp
  284.  
  285.                 push    de                              ;1 канал
  286.                 push    de
  287.                 push    de
  288.  
  289.                 ld      sp,43DFh
  290.                 push    de                              ;5 канал
  291.                 push    de
  292.                 push    de
  293.  
  294.                 dec     sp
  295.                 dec     sp
  296.  
  297.                 push    de                              ;3 канал
  298.                 push    de
  299.                 push    de
  300.  
  301.                 dec     sp
  302.                 dec     sp
  303.  
  304.                 push    de                              ;2 канал
  305.                 push    de
  306.                 push    de
  307.  
  308.                 dec     sp
  309.                 dec     sp
  310.  
  311.                 push    de                              ;1 канал
  312.                 push    de
  313.                 push    de
  314.  
  315.                 ld      sp,44DFh
  316.                 push    de                              ;5 канал
  317.                 push    de
  318.                 push    de
  319.  
  320.                 dec     sp
  321.                 dec     sp
  322.  
  323.                 push    de                              ;3 канал
  324.                 push    de
  325.                 push    de
  326.  
  327.                 dec     sp
  328.                 dec     sp
  329.  
  330.                 push    de                              ;2 канал
  331.                 push    de
  332.                 push    de
  333.  
  334.                 dec     sp
  335.                 dec     sp
  336.  
  337.                 push    de                              ;1 канал
  338.                 push    de
  339.                 push    de
  340.  
  341.                 ld      sp,45DFh
  342.                 push    de                              ;5 канал
  343.                 push    de
  344.                 push    de
  345.  
  346.                 dec     sp
  347.                 dec     sp
  348.  
  349.                 push    de                              ;3 канал
  350.                 push    de
  351.                 push    de
  352.  
  353.                 dec     sp
  354.                 dec     sp
  355.  
  356.                 push    de                              ;2 канал
  357.                 push    de
  358.                 push    de
  359.  
  360.                 dec     sp
  361.                 dec     sp
  362.  
  363.                 push    de                              ;1 канал
  364.                 push    de
  365.                 push    de
  366.  
  367.                 ld      sp,46DFh
  368.                 push    de                              ;5 канал
  369.                 push    de
  370.                 push    de
  371.  
  372.                 dec     sp
  373.                 dec     sp
  374.  
  375.                 push    de                              ;3 канал
  376.                 push    de
  377.                 push    de
  378.  
  379.                 dec     sp
  380.                 dec     sp
  381.  
  382.                 push    de                              ;2 канал
  383.                 push    de
  384.                 push    de
  385.  
  386.                 dec     sp
  387.                 dec     sp
  388.  
  389.                 push    de                              ;1 канал
  390.                 push    de
  391.                 push    de
  392.  
  393.                 ld      sp,47DFh
  394.                 push    de                              ;5 канал
  395.                 push    de
  396.                 push    de
  397.  
  398.                 dec     sp
  399.                 dec     sp
  400.  
  401.                 push    de                              ;3 канал
  402.                 push    de
  403.                 push    de
  404.  
  405.                 dec     sp
  406.                 dec     sp
  407.  
  408.                 push    de                              ;2 канал
  409.                 push    de
  410.                 push    de
  411.  
  412.                 dec     sp
  413.                 dec     sp
  414.  
  415.                 push    de                              ;1 канал
  416.                 push    de
  417.                 push    de
  418.  
  419.                 ld      sp,40FFh
  420.                 push    de                              ;5 канал
  421.                 push    de
  422.                 push    de
  423.  
  424.                 dec     sp
  425.                 dec     sp
  426.  
  427.                 push    de                              ;3 канал
  428.                 push    de
  429.                 push    de
  430.  
  431.                 dec     sp
  432.                 dec     sp
  433.  
  434.                 push    de                              ;2 канал
  435.                 push    de
  436.                 push    de
  437.  
  438.                 dec     sp
  439.                 dec     sp
  440.  
  441.                 push    de                              ;1 канал
  442.                 push    de
  443.                 push    de
  444.  
  445.                 ld      sp,41FFh
  446.                 push    de                              ;5 канал
  447.                 push    de
  448.                 push    de
  449.  
  450.                 dec     sp
  451.                 dec     sp
  452.  
  453.                 push    de                              ;3 канал
  454.                 push    de
  455.                 push    de
  456.  
  457.                 dec     sp
  458.                 dec     sp
  459.  
  460.                 push    de                              ;2 канал
  461.                 push    de
  462.                 push    de
  463.  
  464.                 dec     sp
  465.                 dec     sp
  466.  
  467.                 push    de                              ;1 канал
  468.                 push    de
  469.                 push    de
  470.  
  471.                 ld      sp,42FFh
  472.                 push    de                              ;5 канал
  473.                 push    de
  474.                 push    de
  475.  
  476.                 dec     sp
  477.                 dec     sp
  478.  
  479.                 push    de                              ;3 канал
  480.                 push    de
  481.                 push    de
  482.  
  483.                 dec     sp
  484.                 dec     sp
  485.  
  486.                 push    de                              ;2 канал
  487.                 push    de
  488.                 push    de
  489.  
  490.                 dec     sp
  491.                 dec     sp
  492.  
  493.                 push    de                              ;1 канал
  494.                 push    de
  495.                 push    de
  496.  
  497.                 ld      sp,43FFh
  498.                 push    de                              ;5 канал
  499.                 push    de
  500.                 push    de
  501.  
  502.                 dec     sp
  503.                 dec     sp
  504.  
  505.                 push    de                              ;3 канал
  506.                 push    de
  507.                 push    de
  508.  
  509.                 dec     sp
  510.                 dec     sp
  511.  
  512.                 push    de                              ;2 канал
  513.                 push    de
  514.                 push    de
  515.  
  516.                 dec     sp
  517.                 dec     sp
  518.  
  519.                 push    de                              ;1 канал
  520.                 push    de
  521.                 push    de
  522.  
  523.                 ld      sp,44FFh
  524.                 push    de                              ;5 канал
  525.                 push    de
  526.                 push    de
  527.  
  528.                 dec     sp
  529.                 dec     sp
  530.  
  531.                 push    de                              ;3 канал
  532.                 push    de
  533.                 push    de
  534.  
  535.                 dec     sp
  536.                 dec     sp
  537.  
  538.                 push    de                              ;2 канал
  539.                 push    de
  540.                 push    de
  541.  
  542.                 dec     sp
  543.                 dec     sp
  544.  
  545.                 push    de                              ;1 канал
  546.                 push    de
  547.                 push    de
  548.  
  549.                 ld      sp,45FFh
  550.                 push    de                              ;5 канал
  551.                 push    de
  552.                 push    de
  553.  
  554.                 dec     sp
  555.                 dec     sp
  556.  
  557.                 push    de                              ;3 канал
  558.                 push    de
  559.                 push    de
  560.  
  561.                 dec     sp
  562.                 dec     sp
  563.  
  564.                 push    de                              ;2 канал
  565.                 push    de
  566.                 push    de
  567.  
  568.                 dec     sp
  569.                 dec     sp
  570.  
  571.                 push    de                              ;1 канал
  572.                 push    de
  573.                 push    de
  574.  
  575.                 ld      sp,46FFh
  576.                 push    de                              ;5 канал
  577.                 push    de
  578.                 push    de
  579.  
  580.                 dec     sp
  581.                 dec     sp
  582.  
  583.                 push    de                              ;3 канал
  584.                 push    de
  585.                 push    de
  586.  
  587.                 dec     sp
  588.                 dec     sp
  589.  
  590.                 push    de                              ;2 канал
  591.                 push    de
  592.                 push    de
  593.  
  594.                 dec     sp
  595.                 dec     sp
  596.  
  597.                 push    de                              ;1 канал
  598.                 push    de
  599.                 push    de
  600.  
  601.                 ld      sp,47FFh
  602.                 push    de                              ;5 канал
  603.                 push    de
  604.                 push    de
  605.  
  606.                 dec     sp
  607.                 dec     sp
  608.  
  609.                 push    de                              ;3 канал
  610.                 push    de
  611.                 push    de
  612.  
  613.                 dec     sp
  614.                 dec     sp
  615.  
  616.                 push    de                              ;2 канал
  617.                 push    de
  618.                 push    de
  619.  
  620.                 dec     sp
  621.                 dec     sp
  622.  
  623.                 push    de                              ;1 канал
  624.                 push    de
  625.                 push    de
  626.  
  627.                 ld      sp,481Fh
  628.                 push    de                              ;5 канал
  629.                 push    de
  630.                 push    de
  631.  
  632.                 dec     sp
  633.                 dec     sp
  634.  
  635.                 push    de                              ;3 канал
  636.                 push    de
  637.                 push    de
  638.  
  639.                 dec     sp
  640.                 dec     sp
  641.  
  642.                 push    de                              ;2 канал
  643.                 push    de
  644.                 push    de
  645.  
  646.                 dec     sp
  647.                 dec     sp
  648.  
  649.                 push    de                              ;1 канал
  650.                 push    de
  651.                 push    de
  652.  
  653.                 ld      sp,491Fh
  654.                 push    de                              ;5 канал
  655.                 push    de
  656.                 push    de
  657.  
  658.                 dec     sp
  659.                 dec     sp
  660.  
  661.                 push    de                              ;3 канал
  662.                 push    de
  663.                 push    de
  664.  
  665.                 dec     sp
  666.                 dec     sp
  667.  
  668.                 push    de                              ;2 канал
  669.                 push    de
  670.                 push    de
  671.  
  672.                 dec     sp
  673.                 dec     sp
  674.  
  675.                 push    de                              ;1 канал
  676.                 push    de
  677.                 push    de
  678.  
  679.                 ld      sp,4A1Fh
  680.                 push    de                              ;5 канал
  681.                 push    de
  682.                 push    de
  683.  
  684.                 dec     sp
  685.                 dec     sp
  686.  
  687.                 push    de                              ;3 канал
  688.                 push    de
  689.                 push    de
  690.  
  691.                 dec     sp
  692.                 dec     sp
  693.  
  694.                 push    de                              ;2 канал
  695.                 push    de
  696.                 push    de
  697.  
  698.                 dec     sp
  699.                 dec     sp
  700.  
  701.                 push    de                              ;1 канал
  702.                 push    de
  703.                 push    de
  704.  
  705.                 ld      sp,4B1Fh
  706.                 push    de                              ;5 канал
  707.                 push    de
  708.                 push    de
  709.  
  710.                 dec     sp
  711.                 dec     sp
  712.  
  713.                 push    de                              ;3 канал
  714.                 push    de
  715.                 push    de
  716.  
  717.                 dec     sp
  718.                 dec     sp
  719.  
  720.                 push    de                              ;2 канал
  721.                 push    de
  722.                 push    de
  723.  
  724.                 dec     sp
  725.                 dec     sp
  726.  
  727.                 push    de                              ;1 канал
  728.                 push    de
  729.                 push    de
  730.  
  731.                 ld      sp,4C1Fh
  732.                 push    de                              ;5 канал
  733.                 push    de
  734.                 push    de
  735.  
  736.                 dec     sp
  737.                 dec     sp
  738.  
  739.                 push    de                              ;3 канал
  740.                 push    de
  741.                 push    de
  742.  
  743.                 dec     sp
  744.                 dec     sp
  745.  
  746.                 push    de                              ;2 канал
  747.                 push    de
  748.                 push    de
  749.  
  750.                 dec     sp
  751.                 dec     sp
  752.  
  753.                 push    de                              ;1 канал
  754.                 push    de
  755.                 push    de
  756.  
  757.                 ld      sp,4D1Fh
  758.                 push    de                              ;5 канал
  759.                 push    de
  760.                 push    de
  761.  
  762.                 dec     sp
  763.                 dec     sp
  764.  
  765.                 push    de                              ;3 канал
  766.                 push    de
  767.                 push    de
  768.  
  769.                 dec     sp
  770.                 dec     sp
  771.  
  772.                 push    de                              ;2 канал
  773.                 push    de
  774.                 push    de
  775.  
  776.                 dec     sp
  777.                 dec     sp
  778.  
  779.                 push    de                              ;1 канал
  780.                 push    de
  781.                 push    de
  782.  
  783.                 ld      sp,4E1Fh
  784.                 push    de                              ;5 канал
  785.                 push    de
  786.                 push    de
  787.  
  788.                 dec     sp
  789.                 dec     sp
  790.  
  791.                 push    de                              ;3 канал
  792.                 push    de
  793.                 push    de
  794.  
  795.                 dec     sp
  796.                 dec     sp
  797.  
  798.                 push    de                              ;2 канал
  799.                 push    de
  800.                 push    de
  801.  
  802.                 dec     sp
  803.                 dec     sp
  804.  
  805.                 push    de                              ;1 канал
  806.                 push    de
  807.                 push    de
  808.  
  809.                 ld      sp,4F1Fh
  810.                 push    de                              ;5 канал
  811.                 push    de
  812.                 push    de
  813.  
  814.                 dec     sp
  815.                 dec     sp
  816.  
  817.                 push    de                              ;3 канал
  818.                 push    de
  819.                 push    de
  820.  
  821.                 dec     sp
  822.                 dec     sp
  823.  
  824.                 push    de                              ;2 канал
  825.                 push    de
  826.                 push    de
  827.  
  828.                 dec     sp
  829.                 dec     sp
  830.  
  831.                 push    de                              ;1 канал
  832.                 push    de
  833.                 push    de
  834.  
  835.                 ld      sp,483Fh
  836.                 push    de                              ;5 канал
  837.                 push    de
  838.                 push    de
  839.  
  840.                 dec     sp
  841.                 dec     sp
  842.  
  843.                 push    de                              ;3 канал
  844.                 push    de
  845.                 push    de
  846.  
  847.                 dec     sp
  848.                 dec     sp
  849.  
  850.                 push    de                              ;2 канал
  851.                 push    de
  852.                 push    de
  853.  
  854.                 dec     sp
  855.                 dec     sp
  856.  
  857.                 push    de                              ;1 канал
  858.                 push    de
  859.                 push    de
  860.  
  861.                 ld      sp,493Fh
  862.                 push    de                              ;5 канал
  863.                 push    de
  864.                 push    de
  865.  
  866.                 dec     sp
  867.                 dec     sp
  868.  
  869.                 push    de                              ;3 канал
  870.                 push    de
  871.                 push    de
  872.  
  873.                 dec     sp
  874.                 dec     sp
  875.  
  876.                 push    de                              ;2 канал
  877.                 push    de
  878.                 push    de
  879.  
  880.                 dec     sp
  881.                 dec     sp
  882.  
  883.                 push    de                              ;1 канал
  884.                 push    de
  885.                 push    de
  886.  
  887.                 ld      sp,4A3Fh
  888.                 push    de                              ;5 канал
  889.                 push    de
  890.                 push    de
  891.  
  892.                 dec     sp
  893.                 dec     sp
  894.  
  895.                 push    de                              ;3 канал
  896.                 push    de
  897.                 push    de
  898.  
  899.                 dec     sp
  900.                 dec     sp
  901.  
  902.                 push    de                              ;2 канал
  903.                 push    de
  904.                 push    de
  905.  
  906.                 dec     sp
  907.                 dec     sp
  908.  
  909.                 push    de                              ;1 канал
  910.                 push    de
  911.                 push    de
  912.  
  913.                 ld      sp,4B3Fh
  914.                 push    de                              ;5 канал
  915.                 push    de
  916.                 push    de
  917.  
  918.                 dec     sp
  919.                 dec     sp
  920.  
  921.                 push    de                              ;3 канал
  922.                 push    de
  923.                 push    de
  924.  
  925.                 dec     sp
  926.                 dec     sp
  927.  
  928.                 push    de                              ;2 канал
  929.                 push    de
  930.                 push    de
  931.  
  932.                 dec     sp
  933.                 dec     sp
  934.  
  935.                 push    de                              ;1 канал
  936.                 push    de
  937.                 push    de
  938.  
  939.                 ld      sp,4C3Fh
  940.                 push    de                              ;5 канал
  941.                 push    de
  942.                 push    de
  943.  
  944.                 dec     sp
  945.                 dec     sp
  946.  
  947.                 push    de                              ;3 канал
  948.                 push    de
  949.                 push    de
  950.  
  951.                 dec     sp
  952.                 dec     sp
  953.  
  954.                 push    de                              ;2 канал
  955.                 push    de
  956.                 push    de
  957.  
  958.                 dec     sp
  959.                 dec     sp
  960.  
  961.                 push    de                              ;1 канал
  962.                 push    de
  963.                 push    de
  964.  
  965.                 ld      sp,4D3Fh
  966.                 push    de                              ;5 канал
  967.                 push    de
  968.                 push    de
  969.  
  970.                 dec     sp
  971.                 dec     sp
  972.  
  973.                 push    de                              ;3 канал
  974.                 push    de
  975.                 push    de
  976.  
  977.                 dec     sp
  978.                 dec     sp
  979.  
  980.                 push    de                              ;2 канал
  981.                 push    de
  982.                 push    de
  983.  
  984.                 dec     sp
  985.                 dec     sp
  986.  
  987.                 push    de                              ;1 канал
  988.                 push    de
  989.                 push    de
  990.  
  991.                 ld      sp,4E3Fh
  992.                 push    de                              ;5 канал
  993.                 push    de
  994.                 push    de
  995.  
  996.                 dec     sp
  997.                 dec     sp
  998.  
  999.                 push    de                              ;3 канал
  1000.                 push    de
  1001.                 push    de
  1002.  
  1003.                 dec     sp
  1004.                 dec     sp
  1005.  
  1006.                 push    de                              ;2 канал
  1007.                 push    de
  1008.                 push    de
  1009.  
  1010.                 dec     sp
  1011.                 dec     sp
  1012.  
  1013.                 push    de                              ;1 канал
  1014.                 push    de
  1015.                 push    de
  1016.  
  1017.                 ld      sp,4F3Fh
  1018.                 push    de                              ;5 канал
  1019.                 push    de
  1020.                 push    de
  1021.  
  1022.                 dec     sp
  1023.                 dec     sp
  1024.  
  1025.                 push    de                              ;3 канал
  1026.                 push    de
  1027.                 push    de
  1028.  
  1029.                 dec     sp
  1030.                 dec     sp
  1031.  
  1032.                 push    de                              ;2 канал
  1033.                 push    de
  1034.                 push    de
  1035.  
  1036.                 dec     sp
  1037.                 dec     sp
  1038.  
  1039.                 push    de                              ;1 канал
  1040.                 push    de
  1041.                 push    de
  1042.  
  1043.                 ld      sp,(Analyzer_adr_sp)
  1044.                 ret
  1045. ;-------------------------------------------------------------------
  1046. ; описание: Отображение анализатора
  1047. ; параметры: нет
  1048. ; возвращаемое  значение: нет
  1049. ;---------------------------------------------------------------------
  1050. Analyzer_view_ch0:
  1051.                 ld      a,(Analyzer_ch0_vol)
  1052.                 and     a
  1053.                 ld      hl,4801h
  1054.                 jp      z,Analyzer_no_volume
  1055.                 add     a,0DFh
  1056.                 ld      h,a
  1057.                 ld      l,0
  1058.                 ld      (Analyzer_draw_0 +1),hl
  1059.                 ld      a,(ESINoise_enable)
  1060.                 and     1                               ;Noise enable 0 ch
  1061.                 jr      z,Analyzer_tune_0
  1062.  
  1063.                 ld      e,0F8h
  1064.                 ld      d,0
  1065.                 jr      Analyzer_data_0
  1066.  
  1067. Analyzer_tune_0:
  1068.                 ld      a,(ESIOctave_ch0)
  1069.                 and     0Fh
  1070.                 ld      d,a
  1071.                 ld      a,(ESIFrequency_ch0)
  1072.                 ld      e,a
  1073. Analyzer_data_0:
  1074.                 call    Analyzer_unpack_data
  1075.                 ld      (Analyzer_draw_2 +1),a
  1076.                 ld      hl,Analyzer_data_ch0
  1077.                 ld      (Analyzer_draw_wave +1),hl
  1078.                 ld      a,0EFh
  1079.                 ld      (Analyzer_draw_3 +1),a
  1080.                 jp      Analyzer_draw_wave
  1081.  
  1082. ;-------------------------------------------------------------------
  1083. ; описание: Отображение анализатора
  1084. ; параметры: нет
  1085. ; возвращаемое  значение: нет
  1086. ;---------------------------------------------------------------------
  1087. Analyzer_view_ch1:
  1088.                 ld      a,(Analyzer_ch1_vol)
  1089.                 and     a
  1090.                 ld      hl,4809h
  1091.                 jp      z,Analyzer_no_volume
  1092.                 add     a,0DFh
  1093.                 ld      h,a
  1094.                 ld      l,0
  1095.                 ld      (Analyzer_draw_0 +1),hl
  1096.                 ld      a,(ESINoise_enable)
  1097.                 and     2                               ;Noise enable 1 ch
  1098.                 jr      z,Analyzer_tune_1
  1099.  
  1100.                 ld      e,0F8h
  1101.                 ld      d,0
  1102.                 jr      Analyzer_data_1
  1103.  
  1104. Analyzer_tune_1:
  1105.                 ld      a,(ESIOctave_ch0)
  1106.                 and     0F0h
  1107.                 rrca
  1108.                 rrca
  1109.                 rrca   
  1110.                 rrca
  1111.                 ld      d,a
  1112.                 ld      a,(ESIFrequency_ch1)
  1113.                 ld      e,a
  1114. Analyzer_data_1:
  1115.                 call    Analyzer_unpack_data
  1116.                 ld      (Analyzer_draw_2 +1),a
  1117.                 ld      hl,Analyzer_data_ch1
  1118.                 ld      (Analyzer_draw_wave +1),hl
  1119.                 ld      a,0F0h
  1120.                 ld      (Analyzer_draw_3 +1),a
  1121.                 jp      Analyzer_draw_wave
  1122. ;-------------------------------------------------------------------
  1123. ; описание: Отображение анализатора
  1124. ; параметры: нет
  1125. ; возвращаемое  значение: нет
  1126. ;---------------------------------------------------------------------
  1127. Analyzer_view_ch3:
  1128.                 ld      a,(Analyzer_ch3_vol)
  1129.                 and     a
  1130.                 ld      hl,4811h
  1131.                 jp      z,Analyzer_no_volume
  1132.                 add     a,0DFh
  1133.                 ld      h,a
  1134.                 ld      l,0
  1135.                 ld      (Analyzer_draw_0 +1),hl
  1136.                 ld      a,(ESINoise_enable)
  1137.                 and     8                               ;Noise enable 3 ch
  1138.                 jr      z,Analyzer_tune_3
  1139.  
  1140.                 ld      e,0F8h
  1141.                 ld      d,0
  1142.                 jr      Analyzer_data_3
  1143.  
  1144. Analyzer_tune_3:
  1145.                 ld      a,(ESIOctave_ch2)
  1146.                 and     0F0h
  1147.                 rrca
  1148.                 rrca
  1149.                 rrca   
  1150.                 rrca
  1151.                 ld      d,a
  1152.                 ld      a,(ESIFrequency_ch3)
  1153.                 ld      e,a
  1154. Analyzer_data_3:
  1155.                 call    Analyzer_unpack_data
  1156.                 ld      (Analyzer_draw_2 +1),a
  1157.                 ld      hl,Analyzer_data_ch3
  1158.                 ld      (Analyzer_draw_wave +1),hl
  1159.                 ld      a,0F1h
  1160.                 ld      (Analyzer_draw_3 +1),a
  1161.                 jp      Analyzer_draw_wave
  1162. ;-------------------------------------------------------------------
  1163. ; описание: Отображение анализатора
  1164. ; параметры: нет
  1165. ; возвращаемое  значение: нет
  1166. ;---------------------------------------------------------------------
  1167. Analyzer_view_ch4:
  1168.                 ld      a,(Analyzer_ch4_vol)
  1169.                 and     a
  1170.                 ld      hl,4819h
  1171.                 jp      z,Analyzer_no_volume
  1172.                 add     a,0DFh
  1173.                 ld      h,a
  1174.                 ld      l,0
  1175.                 ld      (Analyzer_draw_0 +1),hl
  1176.                 ld      a,(ESINoise_enable)
  1177.                 and     10h                             ;Noise enable 4 ch
  1178.                 jr      z,Analyzer_tune_4
  1179.  
  1180.                 ld      e,0F8h
  1181.                 ld      d,0
  1182.                 jr      Analyzer_data_4
  1183.  
  1184. Analyzer_tune_4:
  1185.                 ld      a,(ESIOctave_ch4)
  1186.                 and     0Fh
  1187.                 ld      d,a
  1188.                 ld      a,(ESIFrequency_ch4)
  1189.                 ld      e,a
  1190. Analyzer_data_4:
  1191.                 call    Analyzer_unpack_data
  1192.                 ld      (Analyzer_draw_2 +1),a
  1193.                 ld      hl,Analyzer_data_ch4
  1194.                 ld      (Analyzer_draw_wave +1),hl
  1195.                 ld      a,0F2h
  1196.                 ld      (Analyzer_draw_3 +1),a
  1197.                 jp      Analyzer_draw_wave
  1198. ;-------------------------------------------------------------------
  1199. ; описание: Отображение анализатора
  1200. ; параметры: нет
  1201. ; возвращаемое  значение: нет
  1202. ;---------------------------------------------------------------------
  1203. Analyzer_view_ch5:
  1204.                 ld      a,(Analyzer_ch5_vol)
  1205.                 and     a
  1206.                 ld      hl,4819h
  1207.                 jp      z,Analyzer_no_volume
  1208.                 add     a,0DFh
  1209.                 ld      h,a
  1210.                 ld      l,0
  1211.                 ld      (Analyzer_draw_0 +1),hl
  1212.                 ld      a,(ESINoise_enable)
  1213.                 and     20h                             ;Noise enable 4 ch
  1214.                 jr      z,Analyzer_tune_5
  1215.  
  1216.                 ld      e,0F8h
  1217.                 ld      d,0
  1218.                 jr      Analyzer_data_5
  1219.  
  1220. Analyzer_tune_5:
  1221.                 ld      a,(ESIOctave_ch4)
  1222.                 and     0F0h
  1223.                 rrca
  1224.                 rrca   
  1225.                 rrca
  1226.                 rrca
  1227.                 ld      d,a
  1228.                 ld      a,(ESIFrequency_ch5)
  1229.                 ld      e,a
  1230. Analyzer_data_5:
  1231.                 call    Analyzer_unpack_data
  1232.                 ld      (Analyzer_draw_2 +1),a
  1233.                 ld      hl,Analyzer_data_ch5
  1234.                 ld      (Analyzer_draw_wave +1),hl
  1235.                 ld      a,0F2h
  1236.                 ld      (Analyzer_draw_3 +1),a
  1237.                 jp      Analyzer_draw_wave
  1238. ;-------------------------------------------------------------------
  1239. ; описание: Отображение анализатора
  1240. ; параметры: нет
  1241. ; возвращаемое  значение: нет
  1242. ;---------------------------------------------------------------------
  1243. Analyzer_view_ch6:
  1244.                 ld      a,(Analyzer_ch5_vol)
  1245.                 and     a
  1246.                 ld      hl,4801h
  1247.                 jp      z,Analyzer_no_volume
  1248.                 add     a,0DFh
  1249.                 ld      h,a
  1250.                 ld      l,0
  1251.                 ld      (Analyzer_draw_0 +1),hl
  1252.                 ld      a,(ESINoise_enable)
  1253.                 and     20h                             ;Noise enable 4 ch
  1254.                 jr      z,Analyzer_tune_6
  1255.  
  1256.                 ld      e,0F8h
  1257.                 ld      d,0
  1258.                 jr      Analyzer_data_6
  1259.  
  1260. Analyzer_tune_6:
  1261.                 ld      a,(ESIOctave_ch4)
  1262.                 and     0F0h
  1263.                 rrca
  1264.                 rrca   
  1265.                 rrca
  1266.                 rrca
  1267.                 ld      d,a
  1268.                 ld      a,(ESIFrequency_ch5)
  1269.                 ld      e,a
  1270. Analyzer_data_6:
  1271.                 call    Analyzer_unpack_data
  1272.                 ld      (Analyzer_draw_2 +1),a
  1273.                 ld      hl,Analyzer_data_ch5
  1274.                 ld      (Analyzer_draw_wave +1),hl
  1275.                 ld      a,0EFh
  1276.                 ld      (Analyzer_draw_3 +1),a
  1277.                 jp      Analyzer_draw_wave
  1278. ;-------------------------------------------------------------------
  1279. ; описание: Отображение анализатора
  1280. ; параметры: нет
  1281. ; возвращаемое  значение: нет
  1282. ;---------------------------------------------------------------------
  1283. Analyzer_view_ch2:
  1284.                 ld      a,(Analyzer_ch2_vol)
  1285.                 and     a
  1286.                 ld      hl,4809h
  1287.                 jp      z,Analyzer_no_volume
  1288.                 add     a,0DFh
  1289.                 ld      h,a
  1290.                 ld      l,0
  1291.                 ld      (Analyzer_draw_0 +1),hl
  1292.                 ld      a,(ESINoise_enable)
  1293.                 and     4                               ;Noise enable 1 ch
  1294.                 jr      z,Analyzer_tune_2
  1295.  
  1296.                 ld      e,0F8h
  1297.                 ld      d,0
  1298.                 jr      Analyzer_data_2
  1299.  
  1300. Analyzer_tune_2:
  1301.                 ld      a,(ESIOctave_ch2)
  1302.                 and     0Fh
  1303.                 ld      d,a
  1304.                 ld      a,(ESIFrequency_ch2)
  1305.                 ld      e,a
  1306. Analyzer_data_2:
  1307.                 call    Analyzer_unpack_data
  1308.                 ld      (Analyzer_draw_2 +1),a
  1309.                 ld      hl,Analyzer_data_ch2
  1310.                 ld      (Analyzer_draw_wave +1),hl
  1311.                 ld      a,0F0h
  1312.                 ld      (Analyzer_draw_3 +1),a
  1313.                 jp      Analyzer_draw_wave
  1314. ;-------------------------------------------------------------------
  1315. ; описание: Преобразование параметров
  1316. ; параметры: нет
  1317. ; возвращаемое  значение: нет
  1318. ;---------------------------------------------------------------------
  1319. Analyzer_unpack_data:
  1320.                 bit     3,d
  1321.                 jr      z,Analyzer_unpack_0
  1322.                 srl     d
  1323.                 ld      a,8
  1324.                 sub     d
  1325.                 ret
  1326.  
  1327. Analyzer_unpack_0:
  1328.                 bit     2,d
  1329.                 jr      z,Analyzer_unpack_1
  1330.                 ld      a,0Ch
  1331.                 sub     d
  1332.                 ret
  1333.  
  1334. Analyzer_unpack_1:
  1335.                 bit     1,d
  1336.                 jr      z,Analyzer_unpack_2
  1337.                 sla     e
  1338.                 rl      d
  1339.                 ld      a,10h
  1340.                 sub     d
  1341.                 ret
  1342.  
  1343. Analyzer_unpack_2:
  1344.                 bit     0,d
  1345.                 jr      z,Analyzer_unpack_3
  1346.                 sla     e
  1347.                 rl      d
  1348.                 sla     e
  1349.                 rl      d
  1350.                 ld      a,14h
  1351.                 sub     d
  1352.                 ret
  1353.  
  1354. Analyzer_unpack_3:
  1355.                 bit     7,e
  1356.                 jr      z,Analyzer_unpack_4
  1357.                 ld      a,e
  1358.                 rra
  1359.                 rra
  1360.                 rra
  1361.                 rra
  1362.                 rra
  1363.                 and     7
  1364.                 ld      e,a
  1365.                 ld      a,18h
  1366.                 sub     e
  1367.                 ret
  1368.  
  1369. Analyzer_unpack_4:
  1370.                 bit     6,e
  1371.                 jr      z,Analyzer_unpack_5
  1372.                 ld      a,e
  1373.                 rra
  1374.                 rra
  1375.                 rra
  1376.                 rra
  1377.                 and     7
  1378.                 ld      e,a
  1379.                 ld      a,1Ch
  1380.                 sub     e
  1381.                 ret
  1382.  
  1383. Analyzer_unpack_5:
  1384.                 bit     5,e
  1385.                 jr      z,Analyzer_unpack_6
  1386.                 ld      a,e
  1387.                 rra
  1388.                 rra
  1389.                 rra
  1390.                 and     7
  1391.                 ld      e,a
  1392.                 ld      a,20h
  1393.                 sub     e
  1394.                 ret
  1395.  
  1396. Analyzer_unpack_6:
  1397.                 bit     4,e
  1398.                 jr      z,Analyzer_unpack_7
  1399.                 srl     e
  1400.                 srl     e
  1401.                 ld      a,24h
  1402.                 sub     e
  1403.                 ret
  1404.  
  1405. Analyzer_unpack_7:
  1406.                 bit     3,e
  1407.                 jr      z,Analyzer_unpack_8
  1408.                 srl     e
  1409.                 ld      a,28h
  1410.                 sub     e
  1411.                 ret
  1412.  
  1413. Analyzer_unpack_8:
  1414.                 ld      a,30h
  1415.                 sub     e
  1416.                 ret
  1417. ;-------------------------------------------------------------------
  1418. ; описание: Отображение анализатора
  1419. ; параметры: нет
  1420. ; возвращаемое  значение: нет
  1421. ;---------------------------------------------------------------------
  1422. Analyzer_draw_wave:
  1423.                 ld      de,0
  1424. Analyzer_draw_0:
  1425.                 ld      bc,0                            ;Tune Volume
  1426.                 ld      a,(de)
  1427.                 ld      c,a
  1428.                 add     a,10h
  1429.                 ld      (de),a
  1430. Analyzer_draw_2:
  1431.                 ld      d,0
  1432. Analyzer_draw_3:
  1433.                 ld      e,0
  1434.                 ld      a,(bc)
  1435.                 ld      l,a
  1436.                 ld      h,e
  1437.                 ld      a,(hl)
  1438.                 inc     l
  1439.                 ld      h,(hl)
  1440.                 add     a,5
  1441.                 ld      l,a
  1442.                 ld      a,1
  1443.                 or      (hl)
  1444.                 ld      (hl),a
  1445.                 ld      a,d
  1446.                 add     a,c
  1447.                 ld      c,a
  1448.                 ld      a,(bc)
  1449.                 ld      l,a
  1450.                 ld      h,e
  1451.                 ld      a,(hl)
  1452.                 inc     l
  1453.                 ld      h,(hl)
  1454.                 add     a,5
  1455.                 ld      l,a
  1456.                 ld      a,2
  1457.                 or      (hl)
  1458.                 ld      (hl),a
  1459.                 ld      a,d
  1460.                 add     a,c
  1461.                 ld      c,a
  1462.                 ld      a,(bc)
  1463.                 ld      l,a
  1464.                 ld      h,e
  1465.                 ld      a,(hl)
  1466.                 inc     l
  1467.                 ld      h,(hl)
  1468.                 add     a,5
  1469.                 ld      l,a
  1470.                 ld      a,4
  1471.                 or      (hl)
  1472.                 ld      (hl),a
  1473.                 ld      a,d
  1474.                 add     a,c
  1475.                 ld      c,a
  1476.                 ld      a,(bc)
  1477.                 ld      l,a
  1478.                 ld      h,e
  1479.                 ld      a,(hl)
  1480.                 inc     l
  1481.                 ld      h,(hl)
  1482.                 add     a,5
  1483.                 ld      l,a
  1484.                 ld      a,8
  1485.                 or      (hl)
  1486.                 ld      (hl),a
  1487.                 ld      a,d
  1488.                 add     a,c
  1489.                 ld      c,a
  1490.                 ld      a,(bc)
  1491.                 ld      l,a
  1492.                 ld      h,e
  1493.                 ld      a,(hl)
  1494.                 inc     l
  1495.                 ld      h,(hl)
  1496.                 add     a,5
  1497.                 ld      l,a
  1498.                 ld      a,10h
  1499.                 or      (hl)
  1500.                 ld      (hl),a
  1501.                 ld      a,d
  1502.                 add     a,c
  1503.                 ld      c,a
  1504.                 ld      a,(bc)
  1505.                 ld      l,a
  1506.                 ld      h,e
  1507.                 ld      a,(hl)
  1508.                 inc     l
  1509.                 ld      h,(hl)
  1510.                 add     a,5
  1511.                 ld      l,a
  1512.                 ld      a,20h
  1513.                 or      (hl)
  1514.                 ld      (hl),a
  1515.                 ld      a,d
  1516.                 add     a,c
  1517.                 ld      c,a
  1518.                 ld      a,(bc)
  1519.                 ld      l,a
  1520.                 ld      h,e
  1521.                 ld      a,(hl)
  1522.                 inc     l
  1523.                 ld      h,(hl)
  1524.                 add     a,5
  1525.                 ld      l,a
  1526.                 ld      a,40h
  1527.                 or      (hl)
  1528.                 ld      (hl),a
  1529.                 ld      a,d
  1530.                 add     a,c
  1531.                 ld      c,a
  1532.                 ld      a,(bc)
  1533.                 ld      l,a
  1534.                 ld      h,e
  1535.                 ld      a,(hl)
  1536.                 inc     l
  1537.                 ld      h,(hl)
  1538.                 add     a,5
  1539.                 ld      l,a
  1540.                 ld      a,80h
  1541.                 or      (hl)
  1542.                 ld      (hl),a
  1543.                 ld      a,d
  1544.                 add     a,c
  1545.                 ld      c,a
  1546.                 ld      a,(bc)
  1547.                 ld      l,a
  1548.                 ld      h,e
  1549.                 ld      a,(hl)
  1550.                 inc     l
  1551.                 ld      h,(hl)
  1552.                 add     a,4
  1553.                 ld      l,a
  1554.                 ld      a,1
  1555.                 or      (hl)
  1556.                 ld      (hl),a
  1557.                 ld      a,d
  1558.                 add     a,c
  1559.                 ld      c,a
  1560.                 ld      a,(bc)
  1561.                 ld      l,a
  1562.                 ld      h,e
  1563.                 ld      a,(hl)
  1564.                 inc     l
  1565.                 ld      h,(hl)
  1566.                 add     a,4
  1567.                 ld      l,a
  1568.                 ld      a,2
  1569.                 or      (hl)
  1570.                 ld      (hl),a
  1571.                 ld      a,d
  1572.                 add     a,c
  1573.                 ld      c,a
  1574.                 ld      a,(bc)
  1575.                 ld      l,a
  1576.                 ld      h,e
  1577.                 ld      a,(hl)
  1578.                 inc     l
  1579.                 ld      h,(hl)
  1580.                 add     a,4
  1581.                 ld      l,a
  1582.                 ld      a,4
  1583.                 or      (hl)
  1584.                 ld      (hl),a
  1585.                 ld      a,d
  1586.                 add     a,c
  1587.                 ld      c,a
  1588.                 ld      a,(bc)
  1589.                 ld      l,a
  1590.                 ld      h,e
  1591.                 ld      a,(hl)
  1592.                 inc     l
  1593.                 ld      h,(hl)
  1594.                 add     a,4
  1595.                 ld      l,a
  1596.                 ld      a,8
  1597.                 or      (hl)
  1598.                 ld      (hl),a
  1599.                 ld      a,d
  1600.                 add     a,c
  1601.                 ld      c,a
  1602.                 ld      a,(bc)
  1603.                 ld      l,a
  1604.                 ld      h,e
  1605.                 ld      a,(hl)
  1606.                 inc     l
  1607.                 ld      h,(hl)
  1608.                 add     a,4
  1609.                 ld      l,a
  1610.                 ld      a,10h
  1611.                 or      (hl)
  1612.                 ld      (hl),a
  1613.                 ld      a,d
  1614.                 add     a,c
  1615.                 ld      c,a
  1616.                 ld      a,(bc)
  1617.                 ld      l,a
  1618.                 ld      h,e
  1619.                 ld      a,(hl)
  1620.                 inc     l
  1621.                 ld      h,(hl)
  1622.                 add     a,4
  1623.                 ld      l,a
  1624.                 ld      a,20h
  1625.                 or      (hl)
  1626.                 ld      (hl),a
  1627.                 ld      a,d
  1628.                 add     a,c
  1629.                 ld      c,a
  1630.                 ld      a,(bc)
  1631.                 ld      l,a
  1632.                 ld      h,e
  1633.                 ld      a,(hl)
  1634.                 inc     l
  1635.                 ld      h,(hl)
  1636.                 add     a,4
  1637.                 ld      l,a
  1638.                 ld      a,40h
  1639.                 or      (hl)
  1640.                 ld      (hl),a
  1641.                 ld      a,d
  1642.                 add     a,c
  1643.                 ld      c,a
  1644.                 ld      a,(bc)
  1645.                 ld      l,a
  1646.                 ld      h,e
  1647.                 ld      a,(hl)
  1648.                 inc     l
  1649.                 ld      h,(hl)
  1650.                 add     a,4
  1651.                 ld      l,a
  1652.                 ld      a,80h
  1653.                 or      (hl)
  1654.                 ld      (hl),a
  1655.                 ld      a,d
  1656.                 add     a,c
  1657.                 ld      c,a
  1658.                 ld      a,(bc)
  1659.                 ld      l,a
  1660.                 ld      h,e
  1661.                 ld      a,(hl)
  1662.                 inc     l
  1663.                 ld      h,(hl)
  1664.                 add     a,3
  1665.                 ld      l,a
  1666.                 ld      a,1
  1667.                 or      (hl)
  1668.                 ld      (hl),a
  1669.                 ld      a,d
  1670.                 add     a,c
  1671.                 ld      c,a
  1672.                 ld      a,(bc)
  1673.                 ld      l,a
  1674.                 ld      h,e
  1675.                 ld      a,(hl)
  1676.                 inc     l
  1677.                 ld      h,(hl)
  1678.                 add     a,3
  1679.                 ld      l,a
  1680.                 ld      a,2
  1681.                 or      (hl)
  1682.                 ld      (hl),a
  1683.                 ld      a,d
  1684.                 add     a,c
  1685.                 ld      c,a
  1686.                 ld      a,(bc)
  1687.                 ld      l,a
  1688.                 ld      h,e
  1689.                 ld      a,(hl)
  1690.                 inc     l
  1691.                 ld      h,(hl)
  1692.                 add     a,3
  1693.                 ld      l,a
  1694.                 ld      a,4
  1695.                 or      (hl)
  1696.                 ld      (hl),a
  1697.                 ld      a,d
  1698.                 add     a,c
  1699.                 ld      c,a
  1700.                 ld      a,(bc)
  1701.                 ld      l,a
  1702.                 ld      h,e
  1703.                 ld      a,(hl)
  1704.                 inc     l
  1705.                 ld      h,(hl)
  1706.                 add     a,3
  1707.                 ld      l,a
  1708.                 ld      a,8
  1709.                 or      (hl)
  1710.                 ld      (hl),a
  1711.                 ld      a,d
  1712.                 add     a,c
  1713.                 ld      c,a
  1714.                 ld      a,(bc)
  1715.                 ld      l,a
  1716.                 ld      h,e
  1717.                 ld      a,(hl)
  1718.                 inc     l
  1719.                 ld      h,(hl)
  1720.                 add     a,3
  1721.                 ld      l,a
  1722.                 ld      a,10h
  1723.                 or      (hl)
  1724.                 ld      (hl),a
  1725.                 ld      a,d
  1726.                 add     a,c
  1727.                 ld      c,a
  1728.                 ld      a,(bc)
  1729.                 ld      l,a
  1730.                 ld      h,e
  1731.                 ld      a,(hl)
  1732.                 inc     l
  1733.                 ld      h,(hl)
  1734.                 add     a,3
  1735.                 ld      l,a
  1736.                 ld      a,20h
  1737.                 or      (hl)
  1738.                 ld      (hl),a
  1739.                 ld      a,d
  1740.                 add     a,c
  1741.                 ld      c,a
  1742.                 ld      a,(bc)
  1743.                 ld      l,a
  1744.                 ld      h,e
  1745.                 ld      a,(hl)
  1746.                 inc     L
  1747.                 ld      h,(hl)
  1748.                 add     a,3
  1749.                 ld      l,a
  1750.                 ld      a,40h
  1751.                 or      (hl)
  1752.                 ld      (hl),a
  1753.                 ld      a,d
  1754.                 add     a,c
  1755.                 ld      c,a
  1756.                 ld      a,(bc)
  1757.                 ld      l,a
  1758.                 ld      h,e
  1759.                 ld      a,(hl)
  1760.                 inc     l
  1761.                 ld      h,(hl)
  1762.                 add     a,3
  1763.                 ld      l,a
  1764.                 ld      a,80h
  1765.                 or      (hl)
  1766.                 ld      (hl),a
  1767.                 ld      a,d
  1768.                 add     a,c
  1769.                 ld      c,a
  1770.                 ld      a,(bc)
  1771.                 ld      l,a
  1772.                 ld      h,e
  1773.                 ld      a,(hl)
  1774.                 inc     l
  1775.                 ld      h,(hl)
  1776.                 add     a,2
  1777.                 ld      l,a
  1778.                 ld      a,1
  1779.                 or      (hl)
  1780.                 ld      (hl),a
  1781.                 ld      a,d
  1782.                 add     a,c
  1783.                 ld      c,a
  1784.                 ld      a,(bc)
  1785.                 ld      l,a
  1786.                 ld      h,e
  1787.                 ld      a,(hl)
  1788.                 inc     l
  1789.                 ld      h,(hl)
  1790.                 add     a,2
  1791.                 ld      l,a
  1792.                 ld      a,2
  1793.                 or      (hl)
  1794.                 ld      (hl),a
  1795.                 ld      a,d
  1796.                 add     a,c
  1797.                 ld      c,a
  1798.                 ld      a,(bc)
  1799.                 ld      l,a
  1800.                 ld      h,e
  1801.                 ld      a,(hl)
  1802.                 inc     l
  1803.                 ld      h,(hl)
  1804.                 add     a,2
  1805.                 ld      l,a
  1806.                 ld      a,4
  1807.                 or      (hl)
  1808.                 ld      (hl),a
  1809.                 ld      a,d
  1810.                 add     a,c
  1811.                 ld      c,a
  1812.                 ld      a,(bc)
  1813.                 ld      l,a
  1814.                 ld      h,e
  1815.                 ld      a,(hl)
  1816.                 inc     l
  1817.                 ld      h,(hl)
  1818.                 add     a,2
  1819.                 ld      l,a
  1820.                 ld      a,8
  1821.                 or      (hl)
  1822.                 ld      (hl),a
  1823.                 ld      a,d
  1824.                 add     a,c
  1825.                 ld      c,a
  1826.                 ld      a,(bc)
  1827.                 ld      l,a
  1828.                 ld      h,e
  1829.                 ld      a,(hl)
  1830.                 inc     l
  1831.                 ld      h,(hl)
  1832.                 add     a,2
  1833.                 ld      l,a
  1834.                 ld      a,10h
  1835.                 or      (hl)
  1836.                 ld      (hl),a
  1837.                 ld      a,d
  1838.                 add     a,c
  1839.                 ld      c,a
  1840.                 ld      a,(bc)
  1841.                 ld      l,a
  1842.                 ld      h,e
  1843.                 ld      a,(hl)
  1844.                 inc     l
  1845.                 ld      h,(hl)
  1846.                 add     a,2
  1847.                 ld      l,a
  1848.                 ld      a,20h
  1849.                 or      (hl)
  1850.                 ld      (hl),a
  1851.                 ld      a,d
  1852.                 add     a,c
  1853.                 ld      c,a
  1854.                 ld      a,(bc)
  1855.                 ld      l,a
  1856.                 ld      h,e
  1857.                 ld      a,(hl)
  1858.                 inc     l
  1859.                 ld      h,(hl)
  1860.                 add     a,2
  1861.                 ld      l,a
  1862.                 ld      a,40h
  1863.                 or      (hl)
  1864.                 ld      (hl),a
  1865.                 ld      a,d
  1866.                 add     a,c
  1867.                 ld      c,a
  1868.                 ld      a,(bc)
  1869.                 ld      l,a
  1870.                 ld      h,e
  1871.                 ld      a,(hl)
  1872.                 inc     l
  1873.                 ld      h,(hl)
  1874.                 add     a,2
  1875.                 ld      l,a
  1876.                 ld      a,80h
  1877.                 or      (hl)
  1878.                 ld      (hl),a
  1879.                 ld      a,d
  1880.                 add     a,c
  1881.                 ld      c,a
  1882.                 ld      a,(bc)
  1883.                 ld      l,a
  1884.                 ld      h,e
  1885.                 ld      a,(hl)
  1886.                 inc     l
  1887.                 ld      h,(hl)
  1888.                 inc     a
  1889.                 ld      l,a
  1890.                 ld      a,1
  1891.                 or      (hl)
  1892.                 ld      (hl),a
  1893.                 ld      a,d
  1894.                 add     a,c
  1895.                 ld      c,a
  1896.                 ld      a,(bc)
  1897.                 ld      l,a
  1898.                 ld      h,e
  1899.                 ld      a,(hl)
  1900.                 inc     l
  1901.                 ld      h,(hl)
  1902.                 inc     a
  1903.                 ld      l,a
  1904.                 ld      a,2
  1905.                 or      (hl)
  1906.                 ld      (hl),a
  1907.                 ld      a,d
  1908.                 add     a,c
  1909.                 ld      c,a
  1910.                 ld      a,(bc)
  1911.                 ld      l,a
  1912.                 ld      h,e
  1913.                 ld      a,(hl)
  1914.                 inc     l
  1915.                 ld      h,(hl)
  1916.                 inc     a
  1917.                 ld      l,a
  1918.                 ld      a,4
  1919.                 or      (hl)
  1920.                 ld      (hl),a
  1921.                 ld      a,d
  1922.                 add     a,c
  1923.                 ld      c,a
  1924.                 ld      a,(bc)
  1925.                 ld      l,a
  1926.                 ld      h,e
  1927.                 ld      a,(hl)
  1928.                 inc     l
  1929.                 ld      h,(hl)
  1930.                 inc     a
  1931.                 ld      l,a
  1932.                 ld      a,8
  1933.                 or      (hl)
  1934.                 ld      (hl),a
  1935.                 ld      a,d
  1936.                 add     a,c
  1937.                 ld      c,a
  1938.                 ld      a,(bc)
  1939.                 ld      l,a
  1940.                 ld      h,e
  1941.                 ld      a,(hl)
  1942.                 inc     l
  1943.                 ld      h,(hl)
  1944.                 inc     a
  1945.                 ld      l,a
  1946.                 ld      a,10h
  1947.                 or      (hl)
  1948.                 ld      (hl),a
  1949.                 ld      a,d
  1950.                 add     a,c
  1951.                 ld      c,a
  1952.                 ld      a,(bc)
  1953.                 ld      l,a
  1954.                 ld      h,e
  1955.                 ld      a,(hl)
  1956.                 inc     l
  1957.                 ld      h,(hl)
  1958.                 inc     a
  1959.                 ld      l,a
  1960.                 ld      a,20h
  1961.                 or      (hl)
  1962.                 ld      (hl),a
  1963.                 ld      a,d
  1964.                 add     a,c
  1965.                 ld      c,a
  1966.                 ld      a,(bc)
  1967.                 ld      l,a
  1968.                 ld      h,e
  1969.                 ld      a,(hl)
  1970.                 inc     l
  1971.                 ld      h,(hl)
  1972.                 inc     a
  1973.                 ld      l,a
  1974.                 ld      a,40h
  1975.                 or      (hl)
  1976.                 ld      (hl),a
  1977.                 ld      a,d
  1978.                 add     a,c
  1979.                 ld      c,a
  1980.                 ld      a,(bc)
  1981.                 ld      l,a
  1982.                 ld      h,e
  1983.                 ld      a,(hl)
  1984.                 inc     l
  1985.                 ld      h,(hl)
  1986.                 inc     a
  1987.                 ld      l,a
  1988.                 ld      a,80h
  1989.                 or      (hl)
  1990.                 ld      (hl),a
  1991.                 ld      a,d
  1992.                 add     a,c
  1993.                 ld      c,a
  1994.                 ld      a,(bc)
  1995.                 ld      l,a
  1996.                 ld      h,e
  1997.                 ld      a,(hl)
  1998.                 inc     l
  1999.                 ld      h,(hl)
  2000.                 ld      l,a
  2001.                 ld      a,1
  2002.                 or      (hl)
  2003.                 ld      (hl),a
  2004.                 ld      a,d
  2005.                 add     a,c
  2006.                 ld      c,a
  2007.                 ld      a,(bc)
  2008.                 ld      l,a
  2009.                 ld      h,e
  2010.                 ld      a,(hl)
  2011.                 inc     l
  2012.                 ld      h,(hl)
  2013.                 ld      l,a
  2014.                 ld      a,2
  2015.                 or      (hl)
  2016.                 ld      (hl),a
  2017.                 ld      a,d
  2018.                 add     a,c
  2019.                 ld      c,a
  2020.                 ld      a,(bc)
  2021.                 ld      l,a
  2022.                 ld      h,e
  2023.                 ld      a,(hl)
  2024.                 inc     l
  2025.                 ld      h,(hl)
  2026.                 ld      l,a
  2027.                 ld      a,4
  2028.                 or      (hl)
  2029.                 ld      (hl),a
  2030.                 ld      a,d
  2031.                 add     a,c
  2032.                 ld      c,a
  2033.                 ld      a,(bc)
  2034.                 ld      l,a
  2035.                 ld      h,e
  2036.                 ld      a,(hl)
  2037.                 inc     l
  2038.                 ld      h,(hl)
  2039.                 ld      l,a
  2040.                 ld      a,8
  2041.                 or      (hl)
  2042.                 ld      (hl),a
  2043.                 ld      a,d
  2044.                 add     a,c
  2045.                 ld      c,a
  2046.                 ld      a,(bc)
  2047.                 ld      l,a
  2048.                 ld      h,e
  2049.                 ld      a,(hl)
  2050.                 inc     l
  2051.                 ld      h,(hl)
  2052.                 ld      l,a
  2053.                 ld      a,10h
  2054.                 or      (hl)
  2055.                 ld      (hl),a
  2056.                 ld      a,d
  2057.                 add     a,c
  2058.                 ld      c,a
  2059.                 ld      a,(bc)
  2060.                 ld      l,a
  2061.                 ld      h,e
  2062.                 ld      a,(hl)
  2063.                 inc     l
  2064.                 ld      h,(hl)
  2065.                 ld      l,a
  2066.                 ld      a,20h
  2067.                 or      (hl)
  2068.                 ld      (hl),a
  2069.                 ld      a,d
  2070.                 add     a,c
  2071.                 ld      c,a
  2072.                 ld      a,(bc)
  2073.                 ld      l,a
  2074.                 ld      h,e
  2075.                 ld      a,(hl)
  2076.                 inc     l
  2077.                 ld      h,(hl)
  2078.                 ld      l,a
  2079.                 ld      a,40h
  2080.                 or      (hl)
  2081.                 ld      (hl),a
  2082.                 ld      a,d
  2083.                 add     a,c
  2084.                 ld      c,a
  2085.                 ld      a,(bc)
  2086.                 ld      l,a
  2087.                 ld      h,e
  2088.                 ld      a,(hl)
  2089.                 inc     l
  2090.                 ld      h,(hl)
  2091.                 ld      l,a
  2092.                 ld      a,80h
  2093.                 or      (hl)
  2094.                 ld      (hl),a
  2095.                 ret
  2096. ;-------------------------------------------------------------------
  2097. ; описание:  Переменные правого и левого каналов анализатора
  2098. ;---------------------------------------------------------------------
  2099. Analyzer_table:
  2100.                 db      47h,47h,47h,47h,46h,46h,45h,45h,44h,44h,43h,43h,42h,42h,41h,41h
  2101. ;-------------------------------------------------------------------
  2102. ; описание:  Переменные правого и левого каналов анализатора
  2103. ;---------------------------------------------------------------------
  2104. Analyzer_data_ch0:
  2105.                 db      0
  2106. Analyzer_data_ch1:
  2107.                 db      0
  2108. Analyzer_data_ch2:
  2109.                 db      0
  2110. Analyzer_data_ch3:
  2111.                 db      0
  2112. Analyzer_data_ch4:
  2113.                 db      0
  2114. Analyzer_data_ch5:
  2115.                 db      0
  2116. Analyzer_adr_sp:
  2117.                 dw      0
  2118. Analyzer_ch0_vol:
  2119.                 db      0
  2120. Analyzer_ch1_vol:
  2121.                 db      0
  2122. Analyzer_ch2_vol:
  2123.                 db      0
  2124. Analyzer_ch3_vol:
  2125.                 db      0
  2126. Analyzer_ch4_vol:
  2127.                 db      0
  2128. Analyzer_ch5_vol:
  2129.                 db      0
  2130. Analyzer_end:
  2131.