Subversion Repositories tsfmpro

Rev

Blame | 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.                 xor     a
  15.                 ld      (Str_count_step),a
  16.                 ld      hl,Str_addr_text
  17.                 ld      (Str_addr_work),hl
  18.                 ld      a,(hl)
  19.                 ret
  20.  
  21. Str_init_load:
  22.                 ld      hl,Str_addr_load
  23.                 ld      (Str_addr_work),hl
  24.                 xor     a
  25.                 ld      (Str_count_step),a
  26.                 ld      a,1
  27.                 ld      (Str_flg_end),a
  28.                 ld      a,(hl)
  29.                 ret    
  30.  
  31. Str_play:
  32.                 ld      a,(Str_count_bit)
  33.                 or      a
  34.                 call    z,Str_next_symbol
  35.                 ret     c
  36.                 jp      Str_update_string
  37.  
  38. Str_next_symbol:
  39.                 ld      hl,(Str_addr_work)
  40.                 ld      a,(hl)
  41.                 and     a
  42.                 call    z,Str_reload
  43.                 ret     c
  44.                 inc     hl
  45.                 ld      (Str_addr_work),hl
  46.                 sub     20h
  47.                 ld      l, a
  48.                 ld      h, 0
  49.                 ld      de,Str_addr_font
  50.                 add     hl,hl
  51.                 add     hl,hl
  52.                 add     hl,hl
  53.                 add     hl,de
  54.                 ld      de,Str_symbol_buf
  55.                 ldi
  56.                 ldi
  57.                 ldi
  58.                 ldi
  59.                 ldi
  60.                 ldi
  61.                 ldi
  62.                 ldi
  63.                 ld      a,8
  64.                 ld      (Str_count_bit),a
  65.                 ret
  66.  
  67. Str_update_string:
  68.                 ld      de,Str_symbol_buf
  69.                 ld      hl,48F4h
  70.                 ld      b,08h
  71. Str_update_loop:
  72.                 ld      c,0
  73.                 ld      a,(de)
  74.                 rlca
  75.                 ld      (de),a
  76.                 jr      nc,Str_update_pixel
  77.                 ld      c,1
  78. Str_update_pixel:
  79.                 ld      a,(hl)
  80.                 and     0FEh
  81.                 or      c
  82.                 ld      (hl),a
  83.  
  84.                 inc     h
  85.                 inc     h
  86.                 ld      a,b
  87.                 cp      5
  88.                 jr      nz,Str_next_line
  89.                 ld      hl,5014h
  90. Str_next_line:
  91.                 inc     de
  92.                 djnz    Str_update_loop
  93.                 ld      a,(Str_count_bit)
  94.                 dec     a
  95.                 ld      (Str_count_bit),a
  96.                 xor     a
  97.                 ret            
  98.  
  99. Str_move_string:
  100.                 ld      de,48F4h
  101.                 call    Str_move_line                   ;5017h
  102.                 inc     d
  103.                 inc     d
  104.                 call    Str_move_line                   ;5217h
  105.                 inc     d
  106.                 inc     d
  107.                 call    Str_move_line                   ;5417h
  108.                 inc     d
  109.                 inc     d
  110.                 call    Str_move_line                   ;5617h
  111.                 ld      de,5014h
  112.                 call    Str_move_line                   ;5037h
  113.                 inc     d
  114.                 inc     d
  115.                 call    Str_move_line                   ;5237h
  116.                 inc     d
  117.                 inc     d
  118.                 call    Str_move_line                   ;5437h
  119.                 inc     d
  120.                 inc     d
  121. Str_move_line:
  122.                 ld      h,d
  123.                 ld      l,e
  124.                 and     a
  125.                 rl      (hl)
  126.                 dec     l
  127.                 rl      (hl)
  128.                 dec     l
  129.                 rl      (hl)
  130.                 dec     l
  131.                 rl      (hl)
  132.                 dec     l
  133.                 rl      (hl)
  134.                 dec     l
  135.                 rl      (hl)
  136.                 dec     l
  137.                 rl      (hl)
  138.                 dec     l
  139.                 rl      (hl)
  140.                 dec     l
  141.                 rl      (hl)
  142.                 dec     l
  143.                 rl      (hl)
  144.                 ret    
  145.  
  146. Str_count_step:
  147.                 db      0
  148. Str_symbol_buf:
  149.                 ds      8
  150. Str_flg_end:
  151.                 db      0
  152.  
  153. Str_count_bit:
  154.                 db      0
  155. Str_addr_work:
  156.                 dw      0
  157. Str_addr_sp:
  158.                 dw      0
  159.  
  160. Str_addr_load:
  161.                 db      ' L O A D ',0
  162. Str_addr_text:
  163.                 db      '                     ПРИВЕТ! ЭТО ОПЯТЬ MICK ПРИВЕТСТВУЕТ ВАС!!!       '
  164.                 db      ' ВОТ И ЕЩЕ ОДИН СБОРНИК МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ С КОМПЬЮТЕРА SAM COUPE УВИДЕЛ СВЕТ.'
  165.                 db      ' ХОТЕЛ ЕГО ВЫПУСТИТЬ НА ПРАЗДНИК 8 МАРТА, ЧТОБЫ ПОЗДРАВИТЬ ДЕВУШЕК С ФОРУМА ZX.PK.RU,'
  166.                 db      ' НО БАНАЛЬНО НЕ УСПЕЛ. НО ВСЕ ЖЕ ЭТО ВЫПУСК ВЫПУСТИЛ НА ДЕНЬ ПОЗЖЕ. И ХОТЬ С НЕКОТОРЫМ'
  167.                 db      ' ОПОЗДАНИЕМ, НО ВСЕ ЖЕ ПОЗДРАВЛЮ САМЫХ АКТИВНЫХ СПЕКТРУМИСТОК ФОРУМА С ВАШИМ ПРАЗДНИКОМ - 8 МАРТА'
  168.                 db      ' И ТАК СКАЗАТЬ УВЕКОВЕЧУ В ЭТОМ СКРОЛЛЕ. ИТАК ИХ НИКИ: MAT1SHA, DAISY, КИНО - ВСЕХ ВАМ БЛАГ.      '  
  169.                 db      ' ТЕПЕРЬ О САМОМ ВЫПУСКЕ. ТУТ НЕМНОГО ОСВОИЛ ИНСТРУМЕНТЫ В ГРАФИЧЕСКОМ РЕДАКТОРЕ - COPY AND PASTE :)'
  170.                 db      ' ОСНОВУ ТАК СКАЗАТЬ КАРТИНКИ ПОЗАИМСТВОВАЛ ИЗ ИНТЕРНЕТА, А ИМЕННО РАСКРАСКА ПЕРСОНАЖА ИЗ'
  171.                 db      ' МУЛЬТФИЛЬМА "WALLI" - РОБОТ ЕВА (ТОЖЕ ТИПА ДЕВУШКА, ТОЛЬКО НЕМНОГО ИСКУСТВЕННАЯ)'
  172.                 db      ' В КАЧЕСТВЕ АНАЛИЗАТОРОВ ЗАДУМАЛ ИСПОЛЬЗОВАТЬ ЕЕ ПОИСКОВЫЙ ЛУЧ, ПРАВДА ПОКА РЕАЛИЗОВАЛ ЕГО, УМУЧАЛСЯ.'
  173.                 db      ' ЧТОБЫ СИЛЬНО НЕ ЗАМОРАЧИВАТЬСЯ, СДЕЛАЛ ЕГО СПРАЙТАМИ. МОЖНО БЫЛО И МАСКОЙ, НО МОЩИ  ТОЧНО НЕ ХВАТИЛО БЫ'
  174.                 db      ' В ПРЕРЫВАНИЕ ВПИСАТЬСЯ.  В РЕЗУЛЬТАТЕ ФАЗЫ АНАЛИЗАТОРОВ ЗАНИМАЮТ 126 КБ, ПОЭТОМУ ЭТОТ ВЫПУСК РАСЧИТАН НА МАШИНУ'
  175.                 db      ' С ПАМЯТЬЮ БОЛЬШЕ 128 КБ, НО И НА 128 КБ МАШИНЕ БУДЕТ РАБОТАТЬ ПРАВДА ТОЛЬКО ОДНА МУЗЫКА. АНАЛИЗАТОРЫ'
  176.                 db      ' БУДУТ НЕДОСТУПНЫ. ПОТОМ НЕМНОГО ПОРИСОВАЛ, КОРОЧЕ ВЗЯЛ И ПОВЫДЕРГИВАЛ ИЗ DIZZY ТРАВКУ,'
  177.                 db      ' КУСТИКИ И МНОГО ЧЕГО ДРУГОГО. ДУМАЮ НЕ СИЛЬНО БУДЕТЕ РУГАТЬСЯ, Я ЖЕ НЕ ХУДОЖНИК. НУ ВРОДЕ И ВСЕ.     '
  178.                 db      ' ИТАК, ЭТО УЖЕ СЕМНАДЦАТЫЙ ВЫПУСК ДЕМО-ПРОГРАММЫ "E-TUNES".'
  179.                 db      ' ЭТОТ ВЫПУСК ВКЛЮЧАЕТ В СЕБЯ 30 МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ РАЗНОЙ ПРОДОЛЖИТЕЛЬНОСТИ.'
  180.                 db      ' НАПОМНЮ ЧТО ДАННЫЕ МУЗЫКАЛЬНЫЕ КОМПОЗИЦИИ СОЗДАНЫ В РЕДАКТОРЕ'
  181.                 db      ' "E-TRACKER" И ПОЗАИМСТВОВАНЫ С КОМПЬЮТЕРА "SAM COUPE".'
  182.                 db      ' ИТОГО УЖЕ НА СПЕККИ 500 КОМПОЗИЦИЙ ДОСТУПНЫХ ДЛЯ ПРОСЛУШИВАНИЯ.'
  183.                 db      ' ЕЩЕ МУЗЫКА ЕСТЬ НА ПАРУ ВЫПУСКОВ.'
  184.                 db      ' ПРОСЛУШАТЬ МУЗЫКУ МОЖНО  ЧЕРЕЗ ЗВУКОВУЮ КАРТУ "ZXM-SOUNDCARD" ИЛИ В ЭМУЛЯТОРЕ "UNREAL SPECCY",'
  185.                 db      ' ПРОПАТЧЕННЫЙ МОЛОДЦОВЫМ АЛЕКСАНДРОМ.'
  186.                 db      ' НЕМНОГО ОБ УПРАВЛЕНИИ. ПЕРЕХОД К СЛЕДУЮЩЕМУ ПРОИЗВЕДЕНИЮ ОСУЩЕСТВЛЯЕТСЯ ПРИ ПОМОЩИ КЛАВИШИ'
  187.                 db      ' "SPACE", ВЫХОД В TR-DOS ПРИ ПОМОЩИ КЛАВИШИ "BREAK"'
  188.                 db      ' О ПРОГРАММЕ: ОПЯТЬ ПОМОГ МНЕ СОФТ ОТ MICROSOFT - VISUAL CИ, С ПОМОЩЬЮ КОТОРОГО СВАРГАНИЛ ФАЗЫ АНАЛИЗАТОРОВ,'
  189.                 db      ' МАТЕРИАЛ ДЛЯ КАРТИНКИ ВЗЯЛ ИЗ ИНТЕРНЕТА И ИЗ ИГР СЕРИИ DIZZY, ОСТАЛЬНОЕ ВЗЯТО ИЗ ПРЕДЫДУЩИХ ВЫПУСКОВ'
  190.                 db      '"E-TUNES" ИЛИ ПРИДУМАНО. ВСЕ ЭТО СОБИРАЛОСЬ НА РС ПРИ ПОМОЩИ АССЕМБЛЕРА  SJASMPLUS.'
  191.                 db      '             ТЕПЕРЬ ПРИВЕТЫ И СПАСИБЫ!     '
  192.                 db      ' ААА, КАК ВСЕГДА И ВЕЗДЕ ГРОМАДНЫЙ ПРИВЕТИЩЕ. ААА МЫ УЖЕ ЗАЖДАЛИСЬ НОВЫХ ДЕМ ОТ ТЕБЯ, КОГДА БУДУТ????'
  193.                 db      ' БОЛЬШУЩИЙ РЕСПЕКТ MOLODCOV_ALEX (МОЛОДЦОВ АЛЕКСАНДР) ЗА ЭМУЛЯТОР.'
  194.                 db      ' RINDEX ПРИВЕТ И СПАСИБО ЗА КРИТИКУ И СОВЕТЫ.'
  195.                 db      ' ПРИВЕТ ВЛАДЕЛЬЦАМ КАРТЫ "ZXM-SOUNDCARD". НАЗОВЕМ ИХ ПОИМЕННО: AAA, PIROXILIN, КИРЛИАН, LUZANOV,'
  196.                 db      ' ДМИТРИЙ И EWGENY7 .'
  197.                 db      ' ЕЩЕ РАЗ С ПРАЗДНИКОМ ВЕСНЫ: MAT1SHA, DAISY, КИНО И ДРУГИЕ, КОГО EWGENY7 НЕУПОМНИЛ :))'
  198.                 db      ' ВСЕМ ФЕНИКСОИДАМ ОТДЕЛЬНЫЙ ПРИВЕТ :).'
  199.                 db      ' ПРИВЕТ ТАКЖЕ ВСЕМ СПЕКТРУМИСТАМ, БЫВШИМ, НАСТОЯЩИМ И ВОЗМОЖНО БУДУЩИМ.'
  200.                 db      '       И ПОСЛЕДНИЙ АБЗАЦ :) :)'
  201.                 db      ' НЕ ЗАБЫВАЕМ ПОСЕЩАТЬ САЙТ WWW.MICKLAB.NAROD.RU ТАМ МОЖНО НАЙТИ ПОСЛЕДНЮЮ ИНФОРМАЦИЮ'
  202.                 db      ' ПО МОИМ ПРОЕКТАМ. СВЯЗАТСЯ СО МНОЙ МОЖНО ЧЕРЕЗ САЙТ WWW.ZX.PK.RU - НИКНЕЙМ MICK ИЛИ ЧЕРЕЗ МЫЛО'
  203.                 db      ' MICKLAB@MAIL.RU    '
  204.                 db      ' ПОРА ПРОЩАТЬСЯ. ДО НОВЫХ ТЮНЕСОВ. ПОКА, ПОКА.......  ЕЩЕ БУДУТ ТЮНЕСЫ, НАВЕРНОЕ :) .   '
  205.                 db      '            MARCH *2011*    GRAPHICS AND CODE BY MICK         '
  206.                 db      '                                             ',0                      
  207. Str_addr_font:
  208.                 incbin "font.fnt"
  209. Str_end_font:
  210.  
  211. ;               .end
  212.