Subversion Repositories tsfmpro

Rev

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

  1. ;--------------------------------------------------------------------
  2. ; Описание: Модуль отображения анализатора
  3. ; Автор порта: Тарасов М.Н.(Mick),2010
  4. ;--------------------------------------------------------------------
  5.  
  6. ;-------------------------------------------------------------------
  7. ; описание: Бегущие атрибуты
  8. ; параметры: нет
  9. ; возвращаемое  значение: нет
  10. ;---------------------------------------------------------------------
  11. Attribute_update:
  12.                 ld      a,(Attribute_pause)
  13.                 and     a
  14.                 jr      z,Attribute_line_1
  15.                 inc     a
  16.                 ld      (Attribute_pause),a
  17.                 and     07h
  18.                 ret     nz
  19.                 xor     a
  20.                 ld      (Attribute_pause),a
  21.                 ret
  22.  
  23. Attribute_line_1:
  24.                 inc     a
  25.                 ld      (Attribute_pause),a
  26.                 ld      hl,5A32h
  27.                 ld      de,5A33h
  28.                 ldd
  29.                 ldd
  30.                 ldd
  31.                 ldd
  32.                 ldd
  33.                 ldd
  34.                 ldd
  35.                 ldd
  36.                 inc     hl
  37.                 ex      hl,de
  38.                 ld      hl,(Attribute_work)
  39.                 ld      a,(hl)
  40.                 and     a
  41.                 jr      nz,Attribute_line_2
  42.                 ld      hl,Attribute_table
  43.                 ld      a,(hl)
  44. Attribute_line_2:
  45.                 inc     hl
  46.                 ld      (Attribute_work),hl
  47.                 ex      hl,de
  48.                 ld      (hl),a
  49.                 ld      a,(Attribute_phase)
  50.                 inc     a
  51.                 ld      (Attribute_phase),a
  52.                 cp      20
  53.                 ret     c
  54.                 xor     a
  55.                 ld      (Attribute_phase),a
  56.                 ld      (Attribute_pause),a
  57.                 ret
  58. ;-------------------------------------------------------------------
  59. ; описание: Обновление параметров анализатора
  60. ; параметры: нет
  61. ; возвращаемое  значение: нет
  62. ;---------------------------------------------------------------------
  63. Attribute_init:
  64.                 xor     a
  65.                 ld      (Attribute_phase),a
  66.                 ld      (Attribute_pause),a
  67.                 ld      hl,Attribute_table
  68.                 ld      (Attribute_work),hl
  69.                 ret
  70. ;-------------------------------------------------------------------
  71. ; описание:  Переменные правого и левого каналов анализатора
  72. ;---------------------------------------------------------------------
  73. Attribute_table:
  74.                 db      42h,46h,44h,45h,41h,43h,0
  75. ;-------------------------------------------------------------------
  76. ; описание:  Переменные правого и левого каналов анализатора
  77. ;---------------------------------------------------------------------
  78. Attribute_phase:
  79.                 db      0      
  80. Attribute_pause:
  81.                 db      0      
  82. Attribute_work:
  83.                 dw      0      
  84. ;               .end