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. Str_reload:
  6.                 ld      a,(Str_flg_end)
  7.                 and     a
  8.                 jr      z,Str_init
  9.                 xor     a
  10.                 ld      (Str_flg_end),a
  11.                 scf
  12.                 ret
  13. Str_init:
  14.                 ld      hl,Str_addr_text
  15.                 ld      (Str_addr_work),hl
  16.                 ret
  17.  
  18. Str_init_load:
  19.                 ld      hl,Str_addr_load
  20.                 ld      (Str_addr_work),hl
  21.                 ld      a,1
  22.                 ld      (Str_flg_end),a
  23.                 ld      a,(hl)
  24.                 ret    
  25. Str_play:
  26.                 ld      a,(Str_count_bit)
  27.                 or      a
  28.                 call    z,Str_next_symol
  29.                 ret     c
  30.                 jp      Str_update_symbol
  31.  
  32. Str_next_symol:
  33.                 ld      hl,(Str_addr_work)
  34.                 ld      a,(hl)
  35.                 and     a
  36.                 jr      z,Str_reload
  37.                 ret     c
  38.                 inc     hl
  39.                 ld      (Str_addr_work),hl
  40.                 sub     20h
  41.                 ld      l, a
  42.                 ld      h, 0
  43.                 ld      de,Str_addr_font
  44.                 add     hl,hl
  45.                 add     hl,hl
  46.                 add     hl,hl
  47.                 add     hl,de
  48.                 ld      de,Str_symbol_buf
  49.                 ldi    
  50.                 ldi    
  51.                 ldi    
  52.                 ldi    
  53.                 ldi    
  54.                 ldi    
  55.                 ldi    
  56.                 ldi    
  57.                 ld      a,8
  58.                 ld      (Str_count_bit),a
  59.                 ret    
  60.  
  61. Str_update_symbol:
  62.                 ld      de,Str_symbol_buf
  63.                 ld      hl,53CFh
  64.                 ld      b,8
  65.  
  66. Str_update_line:
  67.                 ld      a,(de)
  68.                 sla     a
  69.                 ld      (de),a
  70.                 push    hl
  71.                 rl      (hl)
  72.                 ex      af, af'
  73.                 sla     (hl)
  74.                 ex      af, af'
  75.                 dec     l
  76.                 rl      (hl)
  77.                 ex      af, af'
  78.                 sla     (hl)
  79.                 ex      af, af'
  80.                 dec     l
  81.                 rl      (hl)
  82.                 ex      af, af'
  83.                 sla     (hl)
  84.                 ex      af, af'
  85.                 dec     l
  86.                 rl      (hl)
  87.                 ex      af, af'
  88.                 sla     (hl)
  89.                 ex      af, af'
  90.                 dec     l
  91.                 rl      (hl)
  92.                 ex      af, af'
  93.                 sla     (hl)
  94.                 ex      af, af'
  95.                 dec     l
  96.                 rl      (hl)
  97.                 ex      af, af'
  98.                 sla     (hl)
  99.                 ex      af, af'
  100.                 dec     l
  101.                 rl      (hl)
  102.                 ex      af, af'
  103.                 sla     (hl)
  104.                 ex      af, af'
  105.                 dec     l
  106.                 rl      (hl)
  107.                 ex      af, af'
  108.                 sla     (hl)
  109.                 ex      af, af'
  110.                 dec     l
  111.                 rl      (hl)
  112.                 ex      af, af'
  113.                 sla     (hl)
  114.                 ex      af, af'
  115.                 dec     l
  116.                 rl      (hl)
  117.                 ex      af, af'
  118.                 sla     (hl)
  119.                 ex      af, af'
  120.                 dec     l
  121.                 rl      (hl)
  122.                 ex      af, af'
  123.                 sla     (hl)
  124.                 ex      af, af'
  125.                 dec     l
  126.                 rl      (hl)
  127.                 ex      af, af'
  128.                 sla     (hl)
  129.                 ex      af, af'
  130.                 dec     l
  131.                 rl      (hl)
  132.                 ex      af, af'
  133.                 sla     (hl)
  134.                 ex      af, af'
  135.                 dec     l
  136.                 rl      (hl)
  137.                 ex      af, af'
  138.                 sla     (hl)
  139.                 ex      af, af'
  140.                 dec     l
  141.                 rl      (hl)
  142.                 ex      af, af'
  143.                 sla     (hl)
  144.                 ex      af, af'
  145.                 pop     hl
  146.                 inc     h
  147.                 ld      a,h
  148.                 and     7
  149.                 jr      nz,Str_next_line
  150.                 ld      a,l
  151.                 add     a,20h
  152.                 ld      l,a
  153.                 ld      c,a
  154.                 jr      c,Str_next_line
  155.                 ld      a,h
  156.                 sub     8
  157.                 ld      h,a
  158. Str_next_line:
  159.                 inc     de
  160.                 dec     b
  161.                 jp      nz,Str_update_line
  162.                 ld      a,(Str_count_bit)
  163.                 dec     a
  164.                 ld      (Str_count_bit),a
  165.                 ret    
  166.  
  167. Str_symbol_buf:
  168.                 db      0,0,0,0,0,0,0,0
  169.  
  170.  
  171. Str_flg_end:
  172.                 db      0
  173.  
  174. Str_count_bit:
  175.                 db      0
  176. Str_addr_work:
  177.                 dw      0
  178.  
  179. Str_addr_load:
  180.                 db      '  LOADING',0
  181. Str_addr_text:
  182.                 db      '           ПРИВЕТ, ПРИВЕТ!!!       '
  183.                 db      'НЕ ПРОШЛО И ГОДА КАК ИСПЕКСЯ ЧЕТВЕРТЫЙ ВЫПУСК ДЕМО ПРОГРАММЫ "E-TUNES".'
  184.                 db      ' НЕ УСПЕЛ ВЫЙТИ ТРЕТИЙ, А УЖЕ ПОДОСПЕЛ ЧЕТВЕРТЫЙ, ЭТО ВСЕ ЗЛОБНЫЙ AAA, С ЕГО'
  185.                 db      ' НЕУЁМНОЙ ЖАЖДОЙ ДЕМ. ВОБЩЕМ С УТРА ОН ПРИСЛАЛ КАРТИНКУ С ЭТОЙ СЕКСАПИЛЬНОЙ ЧИКСОЙ'
  186.                 db      ' И ИНТСРУКЦИЕЙ КАК НАДО ВСЕ ОБУСТРОИТЬ ЧТОБЫ БЫЛО КРАСИВО.'
  187.                 db      ' ТУТ СРАЗУ, КАК В ОДНОЙ ПЕСНЕ - СТАЛО СРАЗУ КАК ТО НЕ ДО СНА. ВОТ И РЕЗУЛЬТАТ.'
  188.                 db      ' ЭТОТ ВЫПУСК, КАК И ПРЕДЫДУЩИЙ ВКЛЮЧАЕТ В СЕБЯ 40 МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ РАЗНОЙ ПРОДОЛЖИТЕЛЬНОСТИ.'
  189.                 db      ' НАПОМНЮ ЧТО ДАННЫЕ МУЗЫКАЛЬНЫЕ КОМПОЗИЦИИ СОЗДАНЫ В РЕДАКТОРЕ'
  190.                 db      ' "E-TRACKER" И ПОЗАИМСТВОВАНЫ С КОМПЬЮТЕРА "SAM COUPE".'
  191.                 db      ' ИТОГО УЖЕ С УЧЕТОМ ПЕРВЫХ ТРЕХ ВЫПУСКОВ НА СПЕККИ 140 КОМПОЗИЦИЙ ДОСТУПНЫХ ДЛЯ ПРОСЛУШИВАНИЯ.'
  192.                 db      ' ПРОСЛУШАТЬ МУЗЫКУ МОЖНО  ЧЕРЕЗ ЗВУКОВУЮ КАРТУ "ZXM-SOUNDCARD" ИЛИ В ЭМУЛЯТОРЕ "UNREAL SPECCY",'
  193.                 db      ' ПРОПАТЧЕННЫЙ МОЛОДЦОВЫМ АЛЕКСАНДРОМ.    '
  194.                 db      ' НЕМНОГО ОБ УПРАВЛЕНИИ. ПЕРЕХОД К СЛЕДУЮЩЕМУ ПРОИЗВЕДЕНИЮ ОСУЩЕСТВЛЯЕТСЯ ПРИ ПОМОЩИ КЛАВИШИ'
  195.                 db      ' "SPACE", ВЫХОД В TR-DOS ПРИ ПОМОЩИ КЛАВИШИ "BREAK"'
  196.                 db      ' О ПРОГРАММЕ: ГРАФИКА НАРИСОВАНА ПО МОТИВАМ ПРОГРАММЫ "MOD PLAYER" ОТ ГРУППЫ ENTROPY С КОМПЬЮТЕРА'
  197.                 db      ' "SAM COUPE", АВТОР КАРТИНЫ ДЛЯ СПЕККИ И ИДЕОЛОГ ЭТОГО ВЫПУСКА НАШ НЕЗНАЮЩИЙ УСТАЛИ AAA.'
  198.                 db      ' АЛГОРИТМ БЕГУЩЕЙ СТРОКИ ПОЗАИМСТВОВАН ИЗ ДИЗЗИ 6 ИНТРО (АНДРЕЙ ИСАЕВ) И НЕМНОГО ПОДПРАВЛЕН ДЛЯ'
  199.                 db      ' НУЖД ПРОИЗВОДСТВА, ОСТАЛЬНОЕ ВЗЯТО ИЗ ПРЕДЫДУЩИХ ВЫПУСКОВ "E-TUNES" ИЛИ ПРИДУМАНО.'
  200.                 db      ' ВСЕ ЭТО СОБИРАЛОСЬ НА РС ПРИ ПОМОЩИ АССЕМБЛЕРА  SJASMPLUS.'
  201.                 db      '           ОХ УЖ ЭТА ТРАДИЦИЯ ПЕРЕДАВАТЬ ПРИВЕТЫ. НО БЕЗ НЕЕ НИКУДА!     '
  202.                 db      ' ААА ГРОМАДНЫЙ ПРИВЕТИЩЕ, ОПЯТЬ ТЫ СТАЛ ДВИГАТЕЛЕМ ПРОГРЕССА. ЗА ГРАФИКУ СПАСИБО'
  203.                 db      ' БОЛЬШУЩИЙ РЕСПЕКТ MOLODCOV_ALEX (МОЛОДЦОВ АЛЕКСАНДР) ЗА ЭМУЛЯТОР.'
  204.                 db      ' ПРИВЕТ ВЛАДЕЛЬЦАМ КАРТЫ "ZXM-SOUNDCARD". НАЗОВЕМ ИХ ПОИМЕННО: AAA, PIROXILIN, КИРЛИАН'
  205.                 db      ' И В СКОРОМ ВРЕМЕНЕМ LUZANOV.'
  206.                 db      ' ВСЕМ ФЕНИКСОИДАМ ОТДЕЛЬНЫЙ ПРИВЕТИК :)'
  207.                 db      ' ПРИВЕТ ТАКЖЕ ВСЕМ СПЕКТРУМИСТАМ, БЫВШИМ, НАСТОЯЩИМ И ВОЗМОЖНО БУДУЩИМ.'
  208.                 db      ' ВСЕ, МЕНЯ НА ДОЛГО НЕ ХВАТИЛО СКАЗКИ РАСКАЗЫВАТЬ - КАК ВСЕГДА, ПОРА ЗАВЕРШАТЬ :).'
  209.                 db      ' ЧУТОК РЕКЛАМЫ - ОТКРЫЛСЯ САЙТ WWW.MICKLAB.NAROD.RU ТАМ МОЖНО НАЙТИ ПОСЛЕДНЮЮ ИНФОРМАЦИЮ'
  210.                 db      ' ПО МОИМ ПРОЕКТАМ. СВЯЗАТСЯ СО МНОЙ  И ААА МОЖНО ЧЕРЕЗ САЙТ WWW.ZX.PK.RU - НИКНЕЙМЫ MICK И AAA.'
  211.                 db      ' ПОРА ПРОЩАТЬСЯ. ПОКА, ПОКА.......                   '
  212.                 db      '            JUNE *2010*    GRAPHICS BY AAA AND CODE BY MICK         '
  213.                 db      '                                             ',0                      
  214. Str_addr_font:
  215.                 incbin "font.fnt"
  216.  
  217. ;               .end
  218.