Subversion Repositories tsfmpro

Rev

Rev 547 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1. ;--------------------------------------------------------------------
  2. ; Описание: Модуль отображения анализатора
  3. ; Автор порта: Тарасов М.Н.(Mick),2010
  4. ;--------------------------------------------------------------------
  5.  
  6. ;-------------------------------------------------------------------
  7. ; описание: Обновление параметров анализатора
  8. ; параметры: нет
  9. ; возвращаемое  значение: нет
  10. ;---------------------------------------------------------------------
  11. Analyzer_update:
  12.                 ld      hl,EAmplitude_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. Analyzer_view:
  115.                 ld      a,(Analyzer_ch0_vol)
  116.                 ld      de,5022h
  117.                 call    Analyzer_draw
  118.  
  119.                 ld      a,(Analyzer_ch1_vol)
  120.                 ld      de,5022h + 5
  121.                 call    Analyzer_draw
  122.  
  123.                 ld      a,(Analyzer_ch2_vol)
  124.                 ld      de,5022h + 10
  125.                 call    Analyzer_draw
  126.  
  127.                 ld      a,(Analyzer_ch3_vol)
  128.                 ld      de,5022h + 15
  129.                 call    Analyzer_draw
  130.  
  131.                 ld      a,(Analyzer_ch4_vol)
  132.                 ld      de,5022h + 20
  133.                 call    Analyzer_draw
  134.  
  135.                 ld      a,(Analyzer_ch5_vol)
  136.                 ld      de,5022h + 25
  137. ;-------------------------------------------------------------------
  138. ; описание: Отрисовка левого канала анализатора
  139. ; параметры: HL - адрес экрана
  140. ;            C - позиция в индикаторе
  141. ; возвращаемое  значение: нет
  142. ;---------------------------------------------------------------------
  143. Analyzer_draw:
  144.  
  145.                 ld      l,a
  146.                 ld      h,0
  147.                 add     hl,hl
  148.                 ld      bc,Analyzer_table_phase
  149.                 add     hl,bc
  150.                 ld      a,(hl)
  151.                 inc     hl
  152.                 ld      h,(hl)
  153.                 ld      l,a
  154.                 ex      de,hl
  155.  
  156.                 ld      b,16                            ;размерность по Y
  157. Analyzer_loop_Y:
  158.                 ld      c,10
  159.                 push    hl
  160.                 ex      hl,de
  161.                 ldi
  162.                 ldi
  163.                 ldi
  164.                 ex      hl,de
  165.                 pop     hl
  166.                 inc     h
  167.                 ld      a,h
  168.                 and     7
  169.                 jr      nz,Analyzer_next_line
  170.                 ld      a,l
  171.                 add     20h
  172.                 ld      l,a
  173.                 jr      c,Analyzer_next_line
  174.                 ld      a,h
  175.                 sub     8
  176.                 ld      h,a
  177. Analyzer_next_line:
  178.                 djnz    Analyzer_loop_Y
  179.                 ret        
  180. ;-------------------------------------------------------------------
  181. ; описание: Отрисовка левого канала анализатора
  182. ; параметры: HL - адрес экрана
  183. ;            C - позиция в индикаторе
  184. ; возвращаемое  значение: нет
  185. ;---------------------------------------------------------------------
  186. Analyzer_draw_flash:
  187.                 ld      a,(Analyzer_ch0_vol)
  188.                 ld      e,a
  189.                 ld      a,(Analyzer_ch3_vol)
  190.                 add     e
  191.                 and     0Fh
  192.                 ld      hl,Analyzer_table
  193.                 ld      e,a
  194.                 ld      d,0
  195.                 add     hl,de
  196.                 ld      a,(hl)
  197.                 ld      hl,5987h
  198.                 ld      (hl),a
  199.                 inc     l
  200.                 ld      (hl),a
  201.  
  202.                 ld      a,(Analyzer_ch1_vol)
  203.                 ld      e,a
  204.                 ld      a,(Analyzer_ch4_vol)
  205.                 add     e
  206.                 and     0Fh
  207.                 ld      hl,Analyzer_table
  208.                 ld      e,a
  209.                 ld      d,0
  210.                 add     hl,de
  211.                 ld      a,(hl)
  212.                 ld      hl,599Bh
  213.                 ld      (hl),a
  214.                 inc     l
  215.                 inc     l
  216.                 ld      (hl),a
  217.                 inc     l
  218.                 ld      (hl),a
  219.  
  220.                 ld      a,(Analyzer_ch2_vol)
  221.                 ld      e,a
  222.                 ld      a,(Analyzer_ch5_vol)
  223.                 add     e
  224.                 and     0Fh
  225.                 ld      hl,Analyzer_table
  226.                 ld      e,a
  227.                 ld      d,0
  228.                 add     hl,de
  229.                 ld      a,(hl)
  230.                 ld      hl,5ACAh
  231.                 ld      (hl),a
  232.                 inc     l
  233.                 ld      (hl),a
  234.                 inc     l
  235.                 ld      (hl),a
  236.                 inc     l
  237.                 ld      (hl),a
  238.                 inc     l
  239.                 ld      (hl),a
  240.                 inc     l
  241.                 ld      (hl),a
  242.                 inc     l
  243.                 ld      (hl),a
  244.                 inc     l
  245.                 ld      (hl),a
  246.                 inc     l
  247.                 ld      (hl),a
  248.                 inc     l
  249.                 ld      (hl),a
  250.                 inc     l
  251.                 ld      (hl),a
  252.                 inc     l
  253.                 ld      (hl),a
  254.                 ld      l,0EAh
  255.                 ld      (hl),a
  256.                 inc     l
  257.                 ld      (hl),a
  258.                 inc     l
  259.                 ld      (hl),a
  260.                 inc     l
  261.                 ld      (hl),a
  262.                 inc     l
  263.                 ld      (hl),a
  264.                 inc     l
  265.                 ld      (hl),a
  266.                 inc     l
  267.                 ld      (hl),a
  268.                 inc     l
  269.                 ld      (hl),a
  270.                 inc     l
  271.                 ld      (hl),a
  272.                 inc     l
  273.                 ld      (hl),a
  274.                 inc     l
  275.                 ld      (hl),a
  276.                 inc     l
  277.                 ld      (hl),a
  278.  
  279.                 ret
  280.  
  281. ;-------------------------------------------------------------------
  282. ; описание: Скроллинг экранов самописца
  283. ; параметры: нет
  284. ; возвращаемое  значение: нет
  285. ;---------------------------------------------------------------------
  286. Analyzer_scrolling:
  287.                 ld      de,4AC2h
  288.                 ld      hl,4BC2h
  289.                 ld      b,21
  290.  
  291. Analyzer_scroll_loop:
  292.                 push    bc
  293.                 push    hl
  294.                 ldi
  295.                 ldi
  296.                 ld      a,(hl)
  297.                 and     0FEh
  298.                 ld      c,a
  299.                 ld      a,(de)
  300.                 and     1
  301.                 or      c
  302.                 ld      (de),a
  303.                 inc     hl
  304.                 inc     hl
  305.                 inc     hl
  306.                 inc     de
  307.                 inc     de
  308.                 inc     de
  309.                 ldi
  310.                 ldi
  311.                 ld      a,(hl)
  312.                 and     0FEh
  313.                 ld      c,a
  314.                 ld      a,(de)
  315.                 and     1
  316.                 or      c
  317.                 ld      (de),a
  318.                 inc     hl
  319.                 inc     hl
  320.                 inc     hl
  321.                 inc     de
  322.                 inc     de
  323.                 inc     de
  324.                 ldi
  325.                 ldi
  326.                 ld      a,(hl)
  327.                 and     0FEh
  328.                 ld      c,a
  329.                 ld      a,(de)
  330.                 and     1
  331.                 or      c
  332.                 ld      (de),a
  333.                 inc     hl
  334.                 inc     hl
  335.                 inc     hl
  336.                 inc     de
  337.                 inc     de
  338.                 inc     de
  339.                 ldi
  340.                 ldi
  341.                 ld      a,(hl)
  342.                 and     0FEh
  343.                 ld      c,a
  344.                 ld      a,(de)
  345.                 and     1
  346.                 or      c
  347.                 ld      (de),a
  348.                 inc     hl
  349.                 inc     hl
  350.                 inc     hl
  351.                 inc     de
  352.                 inc     de
  353.                 inc     de
  354.                 ldi
  355.                 ldi
  356.                 ld      a,(hl)
  357.                 and     0FEh
  358.                 ld      c,a
  359.                 ld      a,(de)
  360.                 and     1
  361.                 or      c
  362.                 ld      (de),a
  363.                 inc     hl
  364.                 inc     hl
  365.                 inc     hl
  366.                 inc     de
  367.                 inc     de
  368.                 inc     de
  369.                 ldi
  370.                 ldi
  371.                 ld      a,(hl)
  372.                 and     0FEh
  373.                 ld      c,a
  374.                 ld      a,(de)
  375.                 and     1
  376.                 or      c
  377.                 ld      (de),a
  378.                 pop     hl
  379.                 ld      e,l
  380.                 ld      d,h
  381.                 inc     h
  382.                 ld      a,h
  383.                 and     7
  384.                 jr      nz,Analyzer_scroll_line
  385.                 ld      a,l
  386.                 add     20h
  387.                 ld      l,a
  388.                 jr      c,Analyzer_scroll_line
  389.                 ld      a,h
  390.                 sub     8
  391.                 ld      h,a
  392.  
  393. Analyzer_scroll_line:
  394.                 pop     bc
  395.                 dec     b
  396.                 jp      nz,Analyzer_scroll_loop
  397.                 ret                            
  398. ;-------------------------------------------------------------------
  399. ; описание: Скроллинг экранов самописца
  400. ; параметры: нет
  401. ; возвращаемое  значение: нет
  402. ;---------------------------------------------------------------------
  403. Analyzer_scroll_update:
  404.                 ld      de,5702h
  405.                 push    de
  406.                 ld      a,(Analyzer_ch0_vol)
  407.                 ld      l,a
  408.                 ld      h,0
  409.                 add     hl,hl
  410.                 ld      de,Analyzer_table_scroll
  411.                 add     hl,de
  412.                 ld      c,(hl)
  413.                 inc     hl
  414.                 ld      b,(hl)
  415.                 ld      d,a
  416.                 ld      a,(Analyzer_ch0_oldvol)
  417.                 ld      e,a
  418.                 ld      a,d
  419.                 ld      (Analyzer_ch0_oldvol),a
  420.                 ld      l,e
  421.                 ld      h,0
  422.                 ld      d,h
  423.                 add     hl,hl
  424.                 add     hl,de
  425.                 add     hl,bc
  426.                 pop     de             
  427.                 ldi
  428.                 ldi
  429.                 ld      a,(hl)
  430.                 or      1
  431.                 ld      (de),a
  432.                 inc     de
  433.                 inc     de     
  434.                 inc     de
  435.                
  436.                 push    de
  437.                 ld      a,(Analyzer_ch1_vol)
  438.                 ld      l,a
  439.                 ld      h,0
  440.                 add     hl,hl
  441.                 ld      de,Analyzer_table_scroll
  442.                 add     hl,de
  443.                 ld      c,(hl)
  444.                 inc     hl
  445.                 ld      b,(hl)
  446.                 ld      d,a
  447.                 ld      a,(Analyzer_ch1_oldvol)
  448.                 ld      e,a
  449.                 ld      a,d
  450.                 ld      (Analyzer_ch1_oldvol),a
  451.                 ld      l,e
  452.                 ld      h,0
  453.                 ld      d,h
  454.                 add     hl,hl
  455.                 add     hl,de
  456.                 add     hl,bc
  457.                 pop     de             
  458.                 ldi
  459.                 ldi
  460.                 ld      a,(hl)
  461.                 or      1
  462.                 ld      (de),a
  463.                 inc     de
  464.                 inc     de     
  465.                 inc     de
  466.  
  467.                 push    de
  468.                 ld      a,(Analyzer_ch2_vol)
  469.                 ld      l,a
  470.                 ld      h,0
  471.                 add     hl,hl
  472.                 ld      de,Analyzer_table_scroll
  473.                 add     hl,de
  474.                 ld      c,(hl)
  475.                 inc     hl
  476.                 ld      b,(hl)
  477.                 ld      d,a
  478.                 ld      a,(Analyzer_ch2_oldvol)
  479.                 ld      e,a
  480.                 ld      a,d
  481.                 ld      (Analyzer_ch2_oldvol),a
  482.                 ld      l,e
  483.                 ld      h,0
  484.                 ld      d,h
  485.                 add     hl,hl
  486.                 add     hl,de
  487.                 add     hl,bc
  488.                 pop     de             
  489.                 ldi
  490.                 ldi
  491.                 ld      a,(hl)
  492.                 or      1
  493.                 ld      (de),a
  494.                 inc     de
  495.                 inc     de     
  496.                 inc     de
  497.  
  498.                 push    de
  499.                 ld      a,(Analyzer_ch3_vol)
  500.                 ld      l,a
  501.                 ld      h,0
  502.                 add     hl,hl
  503.                 ld      de,Analyzer_table_scroll
  504.                 add     hl,de
  505.                 ld      c,(hl)
  506.                 inc     hl
  507.                 ld      b,(hl)
  508.                 ld      d,a
  509.                 ld      a,(Analyzer_ch3_oldvol)
  510.                 ld      e,a
  511.                 ld      a,d
  512.                 ld      (Analyzer_ch3_oldvol),a
  513.                 ld      l,e
  514.                 ld      h,0
  515.                 ld      d,h
  516.                 add     hl,hl
  517.                 add     hl,de
  518.                 add     hl,bc
  519.                 pop     de             
  520.                 ldi
  521.                 ldi
  522.                 ld      a,(hl)
  523.                 or      1
  524.                 ld      (de),a
  525.                 inc     de
  526.                 inc     de     
  527.                 inc     de
  528.  
  529.                 push    de
  530.                 ld      a,(Analyzer_ch4_vol)
  531.                 ld      l,a
  532.                 ld      h,0
  533.                 add     hl,hl
  534.                 ld      de,Analyzer_table_scroll
  535.                 add     hl,de
  536.                 ld      c,(hl)
  537.                 inc     hl
  538.                 ld      b,(hl)
  539.                 ld      d,a
  540.                 ld      a,(Analyzer_ch4_oldvol)
  541.                 ld      e,a
  542.                 ld      a,d
  543.                 ld      (Analyzer_ch4_oldvol),a
  544.                 ld      l,e
  545.                 ld      h,0
  546.                 ld      d,h
  547.                 add     hl,hl
  548.                 add     hl,de
  549.                 add     hl,bc
  550.                 pop     de             
  551.                 ldi
  552.                 ldi
  553.                 ld      a,(hl)
  554.                 or      1
  555.                 ld      (de),a
  556.                 inc     de
  557.                 inc     de     
  558.                 inc     de
  559.  
  560.                 push    de
  561.                 ld      a,(Analyzer_ch5_vol)
  562.                 ld      l,a
  563.                 ld      h,0
  564.                 add     hl,hl
  565.                 ld      de,Analyzer_table_scroll
  566.                 add     hl,de
  567.                 ld      c,(hl)
  568.                 inc     hl
  569.                 ld      b,(hl)
  570.                 ld      d,a
  571.                 ld      a,(Analyzer_ch5_oldvol)
  572.                 ld      e,a
  573.                 ld      a,d
  574.                 ld      (Analyzer_ch5_oldvol),a
  575.                 ld      l,e
  576.                 ld      h,0
  577.                 ld      d,h
  578.                 add     hl,hl
  579.                 add     hl,de
  580.                 add     hl,bc
  581.                 pop     de             
  582.                 ldi
  583.                 ldi
  584.                 ld      a,(hl)
  585.                 or      1
  586.                 ld      (de),a
  587.                 ret
  588. ;-------------------------------------------------------------------
  589. ; описание: Обновление параметров анализатора
  590. ; параметры: нет
  591. ; возвращаемое  значение: нет
  592. ;---------------------------------------------------------------------
  593. Analyzer_init:
  594.                 ld      b, 12
  595.                 ld      hl,Analyzer_ch0_vol
  596.  
  597. Analyzer_init_loop:
  598.                 ld      (hl),0
  599.                 inc     hl
  600.                 djnz    Analyzer_init_loop
  601.                 ret
  602. ;-------------------------------------------------------------------
  603. ; описание:  Переменные правого и левого каналов анализатора
  604. ;---------------------------------------------------------------------
  605. Analyzer_table:
  606.                 db      47h,47h,47h,47h,46h,46h,45h,45h,44h,44h,43h,43h,42h,42h,41h,41h
  607. ;-------------------------------------------------------------------
  608. ; описание: Таблица адресов на фазы анализатора
  609. ;---------------------------------------------------------------------
  610. Analyzer_table_phase:
  611.                 dw      Analyzer_phase_00               ;0
  612.                 dw      Analyzer_phase_01               ;1
  613.                 dw      Analyzer_phase_02               ;2
  614.                 dw      Analyzer_phase_03               ;3
  615.                 dw      Analyzer_phase_04               ;4
  616.                 dw      Analyzer_phase_05               ;5
  617.                 dw      Analyzer_phase_06               ;6
  618.                 dw      Analyzer_phase_07               ;7
  619.                 dw      Analyzer_phase_00               ;8
  620.                 dw      Analyzer_phase_09               ;9
  621.                 dw      Analyzer_phase_10               ;10
  622.                 dw      Analyzer_phase_11               ;11
  623.                 dw      Analyzer_phase_12               ;12
  624.                 dw      Analyzer_phase_13               ;13
  625.                 dw      Analyzer_phase_14               ;14
  626.                 dw      Analyzer_phase_15               ;15
  627.  
  628. Analyzer_phase_00:
  629.                 db      00h,00h,00h
  630.                 db      55h,55h,55h
  631.                 db      10h,10h,11h
  632.                 db      00h,10h,01h
  633.                 db      00h,10h,01h
  634.                 db      00h,10h,01h
  635.                 db      00h,10h,01h
  636.                 db      00h,10h,01h
  637.                 db      00h,10h,01h
  638.                 db      00h,10h,01h
  639.                 db      00h,10h,01h
  640.                 db      00h,10h,01h
  641.                 db      00h,10h,01h
  642.                 db      00h,10h,01h
  643.                 db      00h,10h,01h
  644.                 db      00h,10h,01h
  645. Analyzer_phase_01:
  646.                 db      00h,00h,00h
  647.                 db      55h,49h,55h
  648.                 db      10h,08h,11h
  649.                 db      00h,08h,01h
  650.                 db      00h,08h,01h
  651.                 db      00h,08h,01h
  652.                 db      00h,08h,01h
  653.                 db      00h,08h,01h
  654.                 db      00h,10h,01h
  655.                 db      00h,10h,01h
  656.                 db      00h,10h,01h
  657.                 db      00h,10h,01h
  658.                 db      00h,10h,01h
  659.                 db      00h,10h,01h
  660.                 db      00h,10h,01h
  661.                 db      00h,10h,01h
  662. Analyzer_phase_02:
  663.                 db      00h,00h,00h
  664.                 db      55h,55h,55h
  665.                 db      10h,14h,11h
  666.                 db      00h,14h,01h
  667.                 db      00h,04h,01h
  668.                 db      00h,08h,01h
  669.                 db      00h,08h,01h
  670.                 db      00h,08h,01h
  671.                 db      00h,08h,01h
  672.                 db      00h,08h,01h
  673.                 db      00h,08h,01h
  674.                 db      00h,08h,01h
  675.                 db      00h,10h,01h
  676.                 db      00h,10h,01h
  677.                 db      00h,10h,01h
  678.                 db      00h,10h,01h
  679. Analyzer_phase_03:
  680.                 db      00h,00h,00h
  681.                 db      55h,55h,55h
  682.                 db      10h,11h,11h
  683.                 db      00h,12h,01h
  684.                 db      00h,02h,01h
  685.                 db      00h,02h,01h
  686.                 db      00h,02h,01h
  687.                 db      00h,04h,01h
  688.                 db      00h,04h,01h
  689.                 db      00h,04h,01h
  690.                 db      00h,08h,01h
  691.                 db      00h,08h,01h
  692.                 db      00h,08h,01h
  693.                 db      00h,08h,01h
  694.                 db      00h,10h,01h
  695.                 db      00h,10h,01h
  696. Analyzer_phase_04:
  697.                 db      00h,00h,00h
  698.                 db      55h,55h,55h
  699.                 db      10h,10h,51h
  700.                 db      00h,10h,81h
  701.                 db      00h,00h,81h
  702.                 db      00h,00h,81h
  703.                 db      00h,01h,01h
  704.                 db      00h,01h,01h
  705.                 db      00h,01h,01h
  706.                 db      00h,02h,01h
  707.                 db      00h,02h,01h
  708.                 db      00h,02h,01h
  709.                 db      00h,04h,01h
  710.                 db      00h,04h,01h
  711.                 db      00h,04h,01h
  712.                 db      00h,08h,01h
  713. Analyzer_phase_05:
  714.                 db      00h,00h,00h
  715.                 db      55h,55h,55h
  716.                 db      10h,10h,11h
  717.                 db      00h,10h,21h
  718.                 db      00h,00h,21h
  719.                 db      00h,00h,41h
  720.                 db      00h,00h,41h
  721.                 db      00h,00h,81h
  722.                 db      00h,00h,81h
  723.                 db      00h,01h,01h
  724.                 db      00h,01h,01h
  725.                 db      00h,02h,01h
  726.                 db      00h,02h,01h
  727.                 db      00h,04h,01h
  728.                 db      00h,04h,01h
  729.                 db      00h,08h,01h
  730. Analyzer_phase_06:
  731.                 db      00h,00h,00h
  732.                 db      55h,55h,55h
  733.                 db      10h,10h,05h
  734.                 db      00h,10h,09h
  735.                 db      00h,00h,09h
  736.                 db      00h,00h,11h
  737.                 db      00h,00h,11h
  738.                 db      00h,00h,21h
  739.                 db      00h,00h,41h
  740.                 db      00h,00h,41h
  741.                 db      00h,00h,81h
  742.                 db      00h,01h,01h
  743.                 db      00h,01h,01h
  744.                 db      00h,02h,01h
  745.                 db      00h,02h,01h
  746.                 db      00h,04h,01h
  747. Analyzer_phase_07:
  748.                 db      00h,00h,00h
  749.                 db      55h,55h,53h
  750.                 db      10h,10h,13h
  751.                 db      00h,10h,05h
  752.                 db      00h,00h,05h
  753.                 db      00h,00h,09h
  754.                 db      00h,00h,11h
  755.                 db      00h,00h,11h
  756.                 db      00h,00h,21h
  757.                 db      00h,00h,21h
  758.                 db      00h,00h,41h
  759.                 db      00h,00h,81h
  760.                 db      00h,00h,81h
  761.                 db      00h,01h,01h
  762.                 db      00h,01h,01h
  763.                 db      00h,02h,01h
  764. Analyzer_phase_09:
  765.                 db      00h,00h,00h
  766.                 db      55h,25h,55h
  767.                 db      10h,20h,11h
  768.                 db      00h,20h,01h
  769.                 db      00h,20h,01h
  770.                 db      00h,20h,01h
  771.                 db      00h,20h,01h
  772.                 db      00h,20h,01h
  773.                 db      00h,10h,01h
  774.                 db      00h,10h,01h
  775.                 db      00h,10h,01h
  776.                 db      00h,10h,01h
  777.                 db      00h,10h,01h
  778.                 db      00h,10h,01h
  779.                 db      00h,10h,01h
  780.                 db      00h,10h,01h
  781. Analyzer_phase_10:
  782.                 db      00h,00h,00h
  783.                 db      55h,55h,55h
  784.                 db      10h,50h,11h
  785.                 db      00h,50h,01h
  786.                 db      00h,40h,01h
  787.                 db      00h,20h,01h
  788.                 db      00h,20h,01h
  789.                 db      00h,20h,01h
  790.                 db      00h,20h,01h
  791.                 db      00h,20h,01h
  792.                 db      00h,20h,01h
  793.                 db      00h,20h,01h
  794.                 db      00h,10h,01h
  795.                 db      00h,10h,01h
  796.                 db      00h,10h,01h
  797.                 db      00h,10h,01h
  798. Analyzer_phase_11:
  799.                 db      00h,00h,00h
  800.                 db      55h,55h,55h
  801.                 db      11h,10h,11h
  802.                 db      00h,90h,01h
  803.                 db      00h,80h,01h
  804.                 db      00h,80h,01h
  805.                 db      00h,80h,01h
  806.                 db      00h,40h,01h
  807.                 db      00h,40h,01h
  808.                 db      00h,40h,01h
  809.                 db      00h,20h,01h
  810.                 db      00h,20h,01h
  811.                 db      00h,20h,01h
  812.                 db      00h,20h,01h
  813.                 db      00h,10h,01h
  814.                 db      00h,10h,01h
  815. Analyzer_phase_12:
  816.                 db      00h,00h,00h
  817.                 db      55h,55h,55h
  818.                 db      14h,10h,11h
  819.                 db      02h,10h,01h
  820.                 db      02h,00h,01h
  821.                 db      02h,00h,01h
  822.                 db      01h,00h,01h
  823.                 db      01h,00h,01h
  824.                 db      01h,00h,01h
  825.                 db      00h,80h,01h
  826.                 db      00h,80h,01h
  827.                 db      00h,80h,01h
  828.                 db      00h,40h,01h
  829.                 db      00h,40h,01h
  830.                 db      00h,40h,01h
  831.                 db      00h,20h,01h
  832. Analyzer_phase_13:
  833.                 db      00h,00h,00h
  834.                 db      55h,55h,55h
  835.                 db      10h,10h,11h
  836.                 db      08h,10h,01h
  837.                 db      08h,00h,01h
  838.                 db      04h,00h,01h
  839.                 db      04h,00h,01h
  840.                 db      02h,00h,01h
  841.                 db      02h,00h,01h
  842.                 db      01h,00h,01h
  843.                 db      01h,00h,01h
  844.                 db      00h,80h,01h
  845.                 db      00h,80h,01h
  846.                 db      00h,40h,01h
  847.                 db      00h,40h,01h
  848.                 db      00h,20h,01h
  849. Analyzer_phase_14:
  850.                 db      00h,00h,00h
  851.                 db      55h,55h,55h
  852.                 db      40h,10h,11h
  853.                 db      20h,10h,01h
  854.                 db      20h,00h,01h
  855.                 db      10h,00h,01h
  856.                 db      08h,00h,01h
  857.                 db      08h,00h,01h
  858.                 db      04h,00h,01h
  859.                 db      04h,00h,01h
  860.                 db      02h,00h,01h
  861.                 db      01h,00h,01h
  862.                 db      01h,00h,01h
  863.                 db      00h,80h,01h
  864.                 db      00h,80h,01h
  865.                 db      00h,40h,01h
  866. Analyzer_phase_15:
  867.                 db      00h,00h,00h
  868.                 db      95h,55h,55h
  869.                 db      90h,10h,11h
  870.                 db      40h,10h,01h
  871.                 db      40h,00h,01h
  872.                 db      20h,00h,01h
  873.                 db      10h,00h,01h
  874.                 db      10h,00h,01h
  875.                 db      08h,00h,01h
  876.                 db      08h,00h,01h
  877.                 db      04h,00h,01h
  878.                 db      02h,00h,01h
  879.                 db      02h,00h,01h
  880.                 db      01h,00h,01h
  881.                 db      01h,00h,01h
  882.                 db      00h,80h,01h
  883. ;-------------------------------------------------------------------
  884. ; описание: Таблица адресов на фазы самописца
  885. ;---------------------------------------------------------------------
  886. Analyzer_table_scroll:
  887.                 dw      Analyzer_scroll_00              ;0
  888.                 dw      Analyzer_scroll_01               ;1
  889.                 dw      Analyzer_scroll_02               ;2
  890.                 dw      Analyzer_scroll_03               ;3
  891.                 dw      Analyzer_scroll_04               ;4
  892.                 dw      Analyzer_scroll_05               ;5
  893.                 dw      Analyzer_scroll_06               ;6
  894.                 dw      Analyzer_scroll_07               ;7
  895.                 dw      Analyzer_scroll_00               ;8
  896.                 dw      Analyzer_scroll_09               ;9
  897.                 dw      Analyzer_scroll_10               ;10
  898.                 dw      Analyzer_scroll_11               ;11
  899.                 dw      Analyzer_scroll_12               ;12
  900.                 dw      Analyzer_scroll_13               ;13
  901.                 dw      Analyzer_scroll_14               ;14
  902.                 dw      Analyzer_scroll_15               ;15
  903.  
  904. Analyzer_scroll_00:
  905.                 db      00h,10h,00h
  906.                 db      00h,08h,00h
  907.                 db      00h,0Ch,00h
  908.                 db      00h,0Fh,00h
  909.                 db      00h,0Fh,0C0h
  910.                 db      00h,0Fh,0F0h
  911.                 db      00h,0Fh,0FCh
  912.                 db      00h,0Fh,0FEh
  913.                 db      00h,10h,00h
  914.                 db      00h,20h,00h
  915.                 db      00h,60h,00h
  916.                 db      01h,0E0h,00h
  917.                 db      07h,0E0h,00h
  918.                 db      1Fh,0E0h,00h
  919.                 db      7Fh,0E0h,00h
  920.                 db      0FFh,0E0h,00h
  921. Analyzer_scroll_01:
  922.                 db      00h,10h,00h
  923.                 db      00h,08h,00h
  924.                 db      00h,04h,00h
  925.                 db      00h,07h,00h
  926.                 db      00h,07h,0C0h
  927.                 db      00h,07h,0F0h
  928.                 db      00h,07h,0FCh
  929.                 db      00h,07h,0FEh
  930.                 db      00h,10h,00h
  931.                 db      00h,30h,00h
  932.                 db      00h,70h,00h
  933.                 db      01h,0F0h,00h
  934.                 db      07h,0F0h,00h
  935.                 db      1Fh,0F0h,00h
  936.                 db      7Fh,0F0h,00h
  937.                 db      0FFh,0F0h,00h
  938. Analyzer_scroll_02:
  939.                 db      00h,18h,00h
  940.                 db      00h,08h,00h
  941.                 db      00h,04h,00h
  942.                 db      00h,03h,00h
  943.                 db      00h,03h,0C0h
  944.                 db      00h,03h,0F0h
  945.                 db      00h,03h,0FCh
  946.                 db      00h,03h,0FEh
  947.                 db      00h,18h,00h
  948.                 db      00h,38h,00h
  949.                 db      00h,78h,00h
  950.                 db      01h,0F8h,00h
  951.                 db      07h,0F8h,00h
  952.                 db      1Fh,0F8h,00h
  953.                 db      7Fh,0F8h,00h
  954.                 db      0FFh,0F8h,00h
  955. Analyzer_scroll_03:
  956.                 db      00h,1Eh,00h
  957.                 db      00h,0Eh,00h
  958.                 db      00h,06h,00h
  959.                 db      00h,01h,00h
  960.                 db      00h,00h,0C0h
  961.                 db      00h,00h,0F0h
  962.                 db      00h,00h,0FCh
  963.                 db      00h,00h,0FEh
  964.                 db      00h,1Eh,00h
  965.                 db      00h,3Eh,00h
  966.                 db      00h,7Eh,00h
  967.                 db      01h,0FEh,00h
  968.                 db      07h,0FEh,00h
  969.                 db      1Fh,0FEh,00h
  970.                 db      7Fh,0FEh,00h
  971.                 db      0FFh,0FEh,00h
  972. Analyzer_scroll_04:
  973.                 db      00h,1Fh,80h
  974.                 db      00h,0Fh,80h
  975.                 db      00h,07h,80h
  976.                 db      00h,01h,80h
  977.                 db      00h,00h,40h
  978.                 db      00h,00h,30h
  979.                 db      00h,00h,3Ch
  980.                 db      00h,00h,3Eh
  981.                 db      00h,1Fh,80h
  982.                 db      00h,3Fh,80h
  983.                 db      00h,7Fh,80h
  984.                 db      01h,0FFh,80h
  985.                 db      07h,0FFh,80h
  986.                 db      1Fh,0FFh,80h
  987.                 db      7Fh,0FFh,80h
  988.                 db      0FFh,0FFh,80h
  989. Analyzer_scroll_05:
  990.                 db      00h,1Fh,0E0h
  991.                 db      00h,0Fh,0E0h
  992.                 db      00h,07h,0E0h
  993.                 db      00h,01h,0E0h
  994.                 db      00h,00h,60h
  995.                 db      00h,00h,10h
  996.                 db      00h,00h,0Ch
  997.                 db      00h,00h,0Eh
  998.                 db      00h,1Fh,0E0h
  999.                 db      00h,3Fh,0E0h
  1000.                 db      00h,7Fh,0E0h
  1001.                 db      01h,0FFh,0E0h
  1002.                 db      07h,0FFh,0E0h
  1003.                 db      1Fh,0FFh,0E0h
  1004.                 db      7Fh,0FFh,0E0h
  1005.                 db      0FFh,0FFh,0E0h
  1006. Analyzer_scroll_06:
  1007.                 db      00h,1Fh,0F8h
  1008.                 db      00h,0Fh,0F8h
  1009.                 db      00h,07h,0F8h
  1010.                 db      00h,01h,0F8h
  1011.                 db      00h,00h,78h
  1012.                 db      00h,00h,18h
  1013.                 db      00h,00h,04h
  1014.                 db      00h,00h,02h
  1015.                 db      00h,1Fh,0F8h
  1016.                 db      00h,3Fh,0F8h
  1017.                 db      00h,7Fh,0F8h
  1018.                 db      01h,0FFh,0F8h
  1019.                 db      07h,0FFh,0F8h
  1020.                 db      1Fh,0FFh,0F8h
  1021.                 db      7Fh,0FFh,0F8h
  1022.                 db      0FFh,0FFh,0F8h
  1023. Analyzer_scroll_07:
  1024.                 db      00h,1Fh,0FCh
  1025.                 db      00h,0Fh,0FCh
  1026.                 db      00h,07h,0FCh
  1027.                 db      00h,01h,0FCh
  1028.                 db      00h,00h,7Ch
  1029.                 db      00h,00h,1Ch
  1030.                 db      00h,00h,04h
  1031.                 db      00h,00h,02h
  1032.                 db      00h,1Fh,0FCh
  1033.                 db      00h,3Fh,0FCh
  1034.                 db      00h,7Fh,0FCh
  1035.                 db      01h,0FFh,0FCh
  1036.                 db      07h,0FFh,0FCh
  1037.                 db      1Fh,0FFh,0FCh
  1038.                 db      7Fh,0FFh,0FCh
  1039.                 db      0FFh,0FFh,0FCh
  1040. Analyzer_scroll_09:
  1041.                 db      00h,10h,00h
  1042.                 db      00h,18h,00h
  1043.                 db      00h,1Ch,00h
  1044.                 db      00h,1Fh,00h
  1045.                 db      00h,1Fh,0C0h
  1046.                 db      00h,1Fh,0F0h
  1047.                 db      00h,1Fh,0FCh
  1048.                 db      00h,1Fh,0FEh
  1049.                 db      00h,10h,00h
  1050.                 db      00h,20h,00h
  1051.                 db      00h,40h,00h
  1052.                 db      01h,0C0h,00h
  1053.                 db      07h,0C0h,00h
  1054.                 db      1Fh,0C0h,00h
  1055.                 db      7Fh,0C0h,00h
  1056.                 db      0FFh,0C0h,00h
  1057. Analyzer_scroll_10:
  1058.                 db      00h,30h,00h
  1059.                 db      00h,38h,00h
  1060.                 db      00h,3Ch,00h
  1061.                 db      00h,3Fh,00h
  1062.                 db      00h,3Fh,0C0h
  1063.                 db      00h,3Fh,0F0h
  1064.                 db      00h,3Fh,0FCh
  1065.                 db      00h,3Fh,0FEh
  1066.                 db      00h,30h,00h
  1067.                 db      00h,20h,00h
  1068.                 db      00h,40h,00h
  1069.                 db      01h,80h,00h
  1070.                 db      07h,80h,00h
  1071.                 db      1Fh,80h,00h
  1072.                 db      7Fh,80h,00h
  1073.                 db      0FFh,80h,00h
  1074. Analyzer_scroll_11:
  1075.                 db      00h,0F0h,00h
  1076.                 db      00h,0F8h,00h
  1077.                 db      00h,0FCh,00h
  1078.                 db      00h,0FFh,00h
  1079.                 db      00h,0FFh,0C0h
  1080.                 db      00h,0FFh,0F0h
  1081.                 db      00h,0FFh,0FCh
  1082.                 db      00h,0FFh,0FEh
  1083.                 db      00h,0F0h,00h
  1084.                 db      00h,0E0h,00h
  1085.                 db      00h,0C0h,00h
  1086.                 db      01h,00h,00h
  1087.                 db      06h,00h,00h
  1088.                 db      1Eh,00h,00h
  1089.                 db      7Eh,00h,00h
  1090.                 db      0FEh,00h,00h
  1091. Analyzer_scroll_12:
  1092.                 db      03h,0F0h,00h
  1093.                 db      03h,0F8h,00h
  1094.                 db      03h,0FCh,00h
  1095.                 db      03h,0FFh,00h
  1096.                 db      03h,0FFh,0C0h
  1097.                 db      03h,0FFh,0F0h
  1098.                 db      03h,0FFh,0FCh
  1099.                 db      03h,0FFh,0FEh
  1100.                 db      03h,0F0h,00h
  1101.                 db      03h,0E0h,00h
  1102.                 db      03h,0C0h,00h
  1103.                 db      03h,00h,00h
  1104.                 db      04h,00h,00h
  1105.                 db      18h,00h,00h
  1106.                 db      78h,00h,00h
  1107.                 db      0F8h,00h,00h
  1108. Analyzer_scroll_13:
  1109.                 db      0Fh,0F0h,00h
  1110.                 db      0Fh,0F8h,00h
  1111.                 db      0Fh,0FCh,00h
  1112.                 db      0Fh,0FFh,00h
  1113.                 db      0Fh,0FFh,0C0h
  1114.                 db      0Fh,0FFh,0F0h
  1115.                 db      0Fh,0FFh,0FCh
  1116.                 db      0Fh,0FFh,0FEh
  1117.                 db      0Fh,0F0h,00h
  1118.                 db      0Fh,0E0h,00h
  1119.                 db      0Fh,0C0h,00h
  1120.                 db      0Fh,00h,00h
  1121.                 db      0Ch,00h,00h
  1122.                 db      10h,00h,00h
  1123.                 db      60h,00h,00h
  1124.                 db      0E0h,00h,00h
  1125. Analyzer_scroll_14:
  1126.                 db      3Fh,0F0h,00h
  1127.                 db      3Fh,0F8h,00h
  1128.                 db      3Fh,0FCh,00h
  1129.                 db      3Fh,0FFh,00h
  1130.                 db      3Fh,0FFh,0C0h
  1131.                 db      3Fh,0FFh,0F0h
  1132.                 db      3Fh,0FFh,0FCh
  1133.                 db      3Fh,0FFh,0FEh
  1134.                 db      3Fh,0F0h,00h
  1135.                 db      3Fh,0E0h,00h
  1136.                 db      3Fh,0C0h,00h
  1137.                 db      3Fh,00h,00h
  1138.                 db      3Ch,00h,00h
  1139.                 db      30h,00h,00h
  1140.                 db      40h,00h,00h
  1141.                 db      80h,00h,00h
  1142. Analyzer_scroll_15:
  1143.                 db      7Fh,0F0h,00h
  1144.                 db      7Fh,0F8h,00h
  1145.                 db      7Fh,0FCh,00h
  1146.                 db      7Fh,0FFh,00h
  1147.                 db      7Fh,0FFh,0C0h
  1148.                 db      7Fh,0FFh,0F0h
  1149.                 db      7Fh,0FFh,0FCh
  1150.                 db      7Fh,0FFh,0FEh
  1151.                 db      7Fh,0F0h,00h
  1152.                 db      7Fh,0E0h,00h
  1153.                 db      7Fh,0C0h,00h
  1154.                 db      7Fh,00h,00h
  1155.                 db      7Ch,00h,00h
  1156.                 db      70h,00h,00h
  1157.                 db      40h,00h,00h
  1158.                 db      80h,00h,00h
  1159. ;-------------------------------------------------------------------
  1160. ; описание:  Переменные правого и левого каналов анализатора
  1161. ;---------------------------------------------------------------------
  1162. Analyzer_ch0_vol:
  1163.                 db      0
  1164. Analyzer_ch1_vol:
  1165.                 db      0
  1166. Analyzer_ch2_vol:
  1167.                 db      0
  1168. Analyzer_ch3_vol:
  1169.                 db      0
  1170. Analyzer_ch4_vol:
  1171.                 db      0
  1172. Analyzer_ch5_vol:
  1173.                 db      0
  1174. Analyzer_ch0_oldvol:
  1175.                 db      0
  1176. Analyzer_ch1_oldvol:
  1177.                 db      0
  1178. Analyzer_ch2_oldvol:
  1179.                 db      0
  1180. Analyzer_ch3_oldvol:
  1181.                 db      0
  1182. Analyzer_ch4_oldvol:
  1183.                 db      0
  1184. Analyzer_ch5_oldvol:
  1185.                 db      0
  1186.