Subversion Repositories tsfmpro

Rev

Rev 544 | 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. Attribute_update:
  12.                 ld      a,(Attribute_phase)
  13.                 and     a
  14.                 jr      nz,Attribute_next
  15.  
  16.                 ld      a,(Attribute_count)
  17.                 inc     a
  18.                 ld      (Attribute_count),a
  19.                 ret     nz
  20.  
  21. Attribute_next:
  22.                 ld      a,(Attribute_pause)
  23.                 and     a
  24.                 jr      z,Attribute_line_1
  25.                 inc     a
  26.                 ld      (Attribute_pause),a
  27.                 and     3
  28.                 ret     nz
  29.                 xor     a
  30.                 ld      (Attribute_pause),a
  31.                 ret
  32.  
  33. Attribute_line_1:
  34.                 inc     a
  35.                 ld      (Attribute_pause),a
  36.                 ld      a,(Attribute_phase)
  37.                 ld      hl,58B2h
  38.                 ld      de,58B3h
  39.                 ldd
  40.                 ldd
  41.                 ldd
  42.                 ldd
  43.                 ldd
  44.                 ldd
  45.                 ldd
  46.                 ldd
  47.                 ldd
  48.                 ldd
  49.                 ldd
  50.                 ldd
  51.                 ldd
  52.                 ldd
  53.                 ldd
  54.                 ldd
  55.                 ldd
  56.                 inc     hl
  57.                 ld      (hl),71h
  58.                 and     a
  59.                 jr      nz,Attribute_line_2
  60.                 ld      (hl),79h
  61.  
  62. Attribute_line_2:
  63.                 ld      hl,58D2h
  64.                 ld      de,58D3h
  65.                 ldd
  66.                 ldd
  67.                 ldd
  68.                 ldd
  69.                 ldd
  70.                 ldd
  71.                 ldd
  72.                 ldd
  73.                 ldd
  74.                 ldd
  75.                 ldd
  76.                 ldd
  77.                 ldd
  78.                 ldd
  79.                 ldd
  80.                 ldd
  81.                 ldd
  82.                 inc     hl
  83.                 ld      (hl),71h
  84.                 dec     a
  85.                 jr      nz,Attribute_line_3
  86.                 ld      (hl),79h
  87.  
  88. Attribute_line_3:
  89.                 ld      hl,58F2h
  90.                 ld      de,58F3h
  91.                 ldd
  92.                 ldd
  93.                 ldd
  94.                 ldd
  95.                 ldd
  96.                 ldd
  97.                 ldd
  98.                 ldd
  99.                 ldd
  100.                 ldd
  101.                 ldd
  102.                 ldd
  103.                 ldd
  104.                 ldd
  105.                 ldd
  106.                 ldd
  107.                 ldd
  108.                 inc     hl
  109.                 ld      (hl),71h
  110.                 dec     a
  111.                 jr      nz,Attribute_line_4
  112.                 ld      (hl),79h
  113.  
  114. Attribute_line_4:
  115.                 ld      hl,5912h
  116.                 ld      de,5913h
  117.                 ldd
  118.                 ldd
  119.                 ldd
  120.                 ldd
  121.                 ldd
  122.                 ldd
  123.                 ldd
  124.                 ldd
  125.                 ldd
  126.                 ldd
  127.                 ldd
  128.                 ldd
  129.                 ldd
  130.                 ldd
  131.                 ldd
  132.                 ldd
  133.                 ldd
  134.                 inc     hl
  135.                 ld      (hl),71h
  136.                 dec     a
  137.                 jr      nz,Attribute_line_5
  138.                 ld      (hl),79h
  139.  
  140. Attribute_line_5:
  141.                 ld      a,(Attribute_phase)
  142.                 inc     a
  143.                 ld      (Attribute_phase),a
  144.                 cp      22
  145.                 ret     c
  146.                 xor     a
  147.                 ld      (Attribute_phase),a
  148.                 ld      (Attribute_pause),a
  149.                 ret
  150. ;-------------------------------------------------------------------
  151. ; описание: Обновление параметров анализатора
  152. ; параметры: нет
  153. ; возвращаемое  значение: нет
  154. ;---------------------------------------------------------------------
  155. Attribute_init:
  156.                 xor     a
  157.                 ld      (Attribute_count),a
  158.                 ld      (Attribute_phase),a
  159.                 ld      (Attribute_pause),a
  160.                 ret
  161.  
  162. ;-------------------------------------------------------------------
  163. ; описание:  Переменные правого и левого каналов анализатора
  164. ;---------------------------------------------------------------------
  165. Attribute_count:
  166.                 db      0      
  167. Attribute_phase:
  168.                 db      0      
  169. Attribute_pause:
  170.                 db      0      
  171. ;               .end