Subversion Repositories tsfmpro

Rev

Rev 546 | 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.                 ld      a,(hl)
  17.                 ret
  18.  
  19. Str_init_load:
  20.                 ld      hl,Str_addr_load
  21.                 ld      (Str_addr_work),hl
  22.                 ld      a,1
  23.                 ld      (Str_flg_end),a
  24.                 ld      a,(hl)
  25.                 ret    
  26. Str_play:
  27.                 ld      a,(Str_count_bit)
  28.                 or      a
  29.                 ret     nz
  30. Str_next_symbol:
  31.                 ld      hl,(Str_addr_work)
  32.                 ld      a,(hl)
  33.                 and     a
  34.                 call    z,Str_reload
  35.                 ret     c
  36.                 inc     hl
  37.                 ld      (Str_addr_work),hl
  38.                 sub     20h
  39.                 ld      l, a
  40.                 ld      h, 0
  41.                 ld      de,Str_addr_font
  42.                 add     hl,hl
  43.                 add     hl,hl
  44.                 add     hl,hl
  45.                 add     hl,de
  46.                 ld      de,Str_symbol_buf
  47.                 ldi    
  48.                 ldi    
  49.                 ldi    
  50.                 ldi    
  51.                 ldi    
  52.                 ldi    
  53.                 ldi    
  54.                 ldi    
  55.                 ld      a,8
  56.                 ld      (Str_count_bit),a
  57.                 ret    
  58.  
  59. Str_update_symbol:
  60.                 ld      hl, Str_symbol_buf
  61.                 ld      de, 5656h
  62.  
  63.                 ld      a,(Str_count_bit)
  64.                 ld      c,a
  65.                 ld      a,8
  66.                 sub     c
  67.                 ld      c,a
  68.                 ld      b,0
  69.                 add     hl,bc
  70.  
  71.                 ld      a,(hl)
  72.                 ld      (de),a
  73.  
  74.                 ld      a,(Str_count_bit)
  75.                 dec     a
  76.                 ld      (Str_count_bit),a
  77.                 ret
  78.  
  79. Str_draw_symbol:
  80.                 ld      de,4056h
  81.                 ld      hl,Str_table_line
  82.                 ld      b,68
  83.  
  84. Str_draw_line:
  85.                 push    hl
  86.                 ld      a,(hl)
  87.                 inc     hl
  88.                 ld      h,(hl)
  89.                 ld      l,a
  90.                 ld      a,(hl)
  91.                 ld      (de),a
  92.                 ex      de,hl
  93.                 pop     hl
  94.                 inc     hl
  95.                 inc     hl
  96.                 djnz    Str_draw_line
  97.                 ret    
  98.  
  99. Str_table_line:
  100.                 dw      4056h
  101.                 dw      4256h
  102.                 dw      4456h
  103.                 dw      4656h
  104.                 dw      4076h
  105.                 dw      4276h
  106.                 dw      4476h
  107.                 dw      4676h
  108.                 dw      4096h
  109.                 dw      4296h
  110.                 dw      4496h
  111.                 dw      4696h
  112.                 dw      40B6h
  113.                 dw      42B6h
  114.                 dw      44B6h
  115.                 dw      46B6h
  116.                 dw      40D6h
  117.                 dw      42D6h
  118.                 dw      44D6h
  119.                 dw      46D6h
  120.                 dw      40F6h
  121.                 dw      42F6h
  122.                 dw      44F6h
  123.                 dw      46F6h
  124.                 dw      4816h
  125.                 dw      4A16h
  126.                 dw      4C16h
  127.                 dw      4E16h
  128.                 dw      4836h
  129.                 dw      4A36h
  130.                 dw      4C36h
  131.                 dw      4E36h
  132.                 dw      4856h
  133.                 dw      4A56h
  134.                 dw      4C56h
  135.                 dw      4E56h
  136.                 dw      4876h
  137.                 dw      4A76h
  138.                 dw      4C76h
  139.                 dw      4E76h
  140.                 dw      4896h
  141.                 dw      4A96h
  142.                 dw      4C96h
  143.                 dw      4E96h
  144.                 dw      48B6h
  145.                 dw      4AB6h
  146.                 dw      4CB6h
  147.                 dw      4EB6h
  148.                 dw      48D6h
  149.                 dw      4AD6h
  150.                 dw      4CD6h
  151.                 dw      4ED6h
  152.                 dw      48F6h
  153.                 dw      4AF6h
  154.                 dw      4CF6h
  155.                 dw      4EF6h
  156.                 dw      5016h
  157.                 dw      5216h
  158.                 dw      5416h
  159.                 dw      5616h
  160.                 dw      5036h
  161.                 dw      5236h
  162.                 dw      5436h
  163.                 dw      5636h
  164.                 dw      5056h
  165.                 dw      5256h
  166.                 dw      5456h
  167.                 dw      5656h
  168.                
  169.  
  170. Str_symbol_buf:
  171.                 db      0,0,0,0,0,0,0,0
  172.  
  173. Str_flg_end:
  174.                 db      0
  175.  
  176. Str_count_bit:
  177.                 db      0
  178. Str_addr_work:
  179.                 dw      0
  180.  
  181. Str_addr_load:
  182.                 db      'LOADING ',0
  183. Str_addr_text:
  184.                 db      '                     ПРИВЕТ!  С ВАМИ ПО ПРЕЖНЕМУ MICK!!!!       '
  185.                 db      'ПОДОСПЕЛ ОЧЕРЕДНОЙ ВЫПУСК ТЮНЕСА. В ЭТОМ ВЫПУСКЕ ПРОДОЛЖИЛ РАЗВИВАТЬ ТЕМУ АНИМАЦИИ.'
  186.                 db      ' АНИМИРОВАНА НАДПИСЬ, НО ДОСТУПНА ОНА ТОЛЬКО ДЛЯ МАШИН С ПАМЯТЬЮ БОЛЬШЕ 128КБ.'
  187.                 db      ' ДЛЯ МАШИН С 128КБ ПАМЯТЬЮ ИЛИ НЕ ПОДДЕРЖИВАЮЩИЕ МАППЕР КОМПЬЮТЕРА "ZXM-PHOENIX"'
  188.                 db      ' АНИМАЦИЯ БУДЕТ НЕДОСТУПНА. ТАКЖЕ ПРОДОЛЖЕНА ТЕМА КРУГЛЫХ АНАЛИЗАТОРОВ.'
  189.                 db      ' ФИШКА АНАЛИЗАТОРА - СТРЕЛОЧНЫЙ ТИП. Я ЕЩЕ ТАКИЕ НЕ ПРОБОВАЛ ДЕЛАТЬ. ПОЛУЧИЛОСЬ ЗАБАВНО.'
  190.                 db      ' СИЛЬНО НЕ ПИНАЙТЕ НОГАМИ ЗА МОИ ХУДОЖЕСТВА, КАК УМЕЮ, ТАК И ДЕЛАЮ :). ТУТ NEWART ОБОЗВАЛ'
  191.                 db      ' МУЗОНЫ ШЛАКОМ 90 ПРОЦЕНТНЫМ. НУ ЧТО ЖЕ ОН ГУРУ, ЕМУ ВИДНЕЕ. КОМУ НЕ НРАВИТСЯ, ЖМЕМ КНОПКУ'
  192.                 db      ' СБРОС НА КОМПЬЮТЕРЕ И НЕ ТРАТИМ СВОЕ ДРАГОЦЕННОЕ ВРЕМЯ :) :). ДЛЯ ТЕХ, КТО ОСТАЛСЯ ПРОДОЛЖИМ.'
  193.                 db      ' ИДЕЯ СТРЕЛОЧНЫХ АНАЛИЗАТОРОВ МЕНЯ ДАВНО ПОСЕЩАЛА. НО КАК ТО НИКАК НЕ МОГ К НИМ ПОДСТУПИТСЯ.'
  194.                 db      ' ВОТ ТВЕРДО И РЕШИЛ, ДЕСЯТЫЙ ВЫПУСК БУДЕТ С СТРЕЛОЧКАМИ. :) ОСНОВНАЯ ЧАСТЬ БЫЛА НАПИСАНА ДОСТАТОЧНО БЫСТРО, А'
  195.                 db      ' МЫСЛИ НА СЧЕТ АНАЛИЗАТОРОВ НИКАК НЕ ПОСЕЩАЛИ. НО КАК ГОВОРИТСЯ, МУЗА ВСЕ ЖЕ СЖАЛИЛАСЬ И Я ИХ УВИДЕЛ.'
  196.                 db      ' ДАЛЬШЕ УЖЕ ДЕЛО ТЕХНИКИ - ТАБЛИЦЫ РУЛЯТ, БЛАГО ПАМЯТИ МНОГО :) ВОТ ТЕПЕРЬ, ПОСЛЕ СБОРКИ  ДАННОГО ВЫПУСКА, СО СПОКОЙНОЙ'
  197.                 db      ' СОВЕСТЬЮ ПЕРЕД AAA И RINDEX МОЖНО И ПОИГРАТЬ МАЛОСТЬ В HALO REACH. А ОНИ ПУСТЬ РЕЦЕНЗИИ ПИШУТ - ЖДЕМ'
  198.                 db      ' ОЦЕНОК. :)  НУ ВОТ ВРОДЕ ОПИСАЛ СВОИ МЫСЛИ О ЖИЗНИ. ТЕПЕРЬ О ГЛАВНОМ!'
  199.                 db      ' ИТАК, ЭТО УЖЕ ДЕСЯТЫЙ ВЫПУСК ДЕМО-ПРОГРАММЫ "E-TUNES".'
  200.                 db      ' ЭТОТ ВЫПУСК ВКЛЮЧАЕТ В СЕБЯ 30 МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ РАЗНОЙ ПРОДОЛЖИТЕЛЬНОСТИ.'
  201.                 db      ' НАПОМНЮ ЧТО ДАННЫЕ МУЗЫКАЛЬНЫЕ КОМПОЗИЦИИ СОЗДАНЫ В РЕДАКТОРЕ'
  202.                 db      ' "E-TRACKER" И ПОЗАИМСТВОВАНЫ С КОМПЬЮТЕРА "SAM COUPE".'
  203.                 db      ' ИТОГО УЖЕ НА СПЕККИ 300 КОМПОЗИЦИЙ ДОСТУПНЫХ ДЛЯ ПРОСЛУШИВАНИЯ.'
  204.                 db      ' ОСТАЛОСЬ ГДЕ-ТО 160 ТРЕКОВ, НА ПЯТОК ТЮНЕСОВ ДУМАЮ ХВАТИТ :)'
  205.                 db      ' ПРОСЛУШАТЬ МУЗЫКУ МОЖНО  ЧЕРЕЗ ЗВУКОВУЮ КАРТУ "ZXM-SOUNDCARD" ИЛИ В ЭМУЛЯТОРЕ "UNREAL SPECCY",'
  206.                 db      ' ПРОПАТЧЕННЫЙ МОЛОДЦОВЫМ АЛЕКСАНДРОМ.'
  207.                 db      ' НЕМНОГО ОБ УПРАВЛЕНИИ. ПЕРЕХОД К СЛЕДУЮЩЕМУ ПРОИЗВЕДЕНИЮ ОСУЩЕСТВЛЯЕТСЯ ПРИ ПОМОЩИ КЛАВИШИ'
  208.                 db      ' "SPACE", ВЫХОД В TR-DOS ПРИ ПОМОЩИ КЛАВИШИ "BREAK"'
  209.                 db      ' О ПРОГРАММЕ: АНИМАЦИЯ СОЗДАНА В ПРОГРАММЕ "BLUFFTITLER" И СКОНВЕРЧЕНА  В ФОРМАТ ДАННЫХ ДЛЯ АССЕМБЛЕРА'
  210.                 db      ' ПРИ ПОМОЩИ МАЛЕНЬКИХ ПРОГРАММ-ПОМОШНИКОВ, НЕКОТОРЫЕ ИЗ НИХ НАПИСАЛ НА VISUAL C ОТ МЕЛКОМЯГКИХ(КУДА ЖЕ'
  211.                 db      ' БЕЗ НИХ).  ОСТАЛЬНОЕ ВЗЯТО ИЗ ПРЕДЫДУЩИХ ВЫПУСКОВ "E-TUNES" ИЛИ ПРИДУМАНО.'
  212.                 db      ' ВСЕ ЭТО СОБИРАЛОСЬ НА РС ПРИ ПОМОЩИ АССЕМБЛЕРА  SJASMPLUS.'
  213.                 db      '            ЧАСТЬ  ПРИВЕТОВ И СПАСИБОК!     '
  214.                 db      ' ААА, КАК ВСЕГДА И ВЕЗДЕ ГРОМАДНЫЙ ПРИВЕТИЩЕ. РАСЧЕХЛЯЙ СВОЙ PARASOUND :)'
  215.                 db      ' БОЛЬШУЩИЙ РЕСПЕКТ MOLODCOV_ALEX (МОЛОДЦОВ АЛЕКСАНДР) ЗА ЭМУЛЯТОР.'
  216.                 db      ' RINDEX ПРИВЕТ И СПАСИБО ЗА КРИТИКУ И РЕДАКТОР "BLUFFTITLER".'
  217.                 db      ' ПРИВЕТ ВЛАДЕЛЬЦАМ КАРТЫ "ZXM-SOUNDCARD". НАЗОВЕМ ИХ ПОИМЕННО: AAA, PIROXILIN, КИРЛИАН И LUZANOV.'
  218.                 db      ' ВСЕМ ФЕНИКСОИДАМ ОТДЕЛЬНЫЙ ПРИВЕТ :).'
  219.                 db      ' ПРИВЕТ ТАКЖЕ ВСЕМ СПЕКТРУМИСТАМ, БЫВШИМ, НАСТОЯЩИМ И ВОЗМОЖНО БУДУЩИМ.'
  220.                 db      '        ЧАСТЬ РЕКЛАМЫ И АНОНСОВ.      '
  221.                 db      ' ВЕДЕТСЯ ОТЛАДКА КОМПЬЮТЕРА "ZXM-PHOENIX 4096 TURBO". ВСЕ НИКАК НЕ ДОЙДУТ РУКИ ДО НЕГО :('
  222.                 db      ' ОТДАНА В ПРОИЗВОДСТВО ТЕСТОВЫЙ ВАРИАНТ ВТОРОЙ РЕДАКЦИИ ЗВУКОВОЙ КАРТЫ "ZXM-SOUNDCARD" И ВИДЕОКАРТА'
  223.                 db      ' "ZXM-VIDEOCARD". НАДЕЮСЬ К КОНЦУ ОКТЯБРЯ Я ИХ ЗАРЕЛИЖУ.'
  224.                 db      ' НЕ ЗАБЫВАЕМ ПОСЕЩАТЬ САЙТ WWW.MICKLAB.NAROD.RU ТАМ МОЖНО НАЙТИ ПОСЛЕДНЮЮ ИНФОРМАЦИЮ'
  225.                 db      ' ПО МОИМ ПРОЕКТАМ. СВЯЗАТСЯ СО МНОЙ МОЖНО ЧЕРЕЗ САЙТ WWW.ZX.PK.RU - НИКНЕЙМ MICK ИЛИ ЧЕРЕЗ МЫЛО'
  226.                 db      ' MICKLAB@MAIL.RU    '
  227.                 db      ' ПОРА ПРОЩАТЬСЯ. ДО НОВЫХ ТЮНЕСОВ. ПОКА, ПОКА.......  ПОШЕЛ ГАМАТЬ В HALO REACH               '
  228.                 db      '            SEPTEMBER *2010*    GRAPHICS AND CODE BY MICK         '
  229.                 db      '                                             ',0                      
  230. Str_addr_font:
  231.                 incbin "font.fnt"
  232. Str_end_font:
  233.  
  234. ;               .end
  235.