Subversion Repositories tsfmpro

Rev

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

  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.                 xor     a
  17.                 ld      (Str_count_bit),a
  18.                 ret
  19.  
  20. Str_init_load:
  21.                 ld      hl,Str_addr_load
  22.                 ld      (Str_addr_work),hl
  23.                 ld      a,1
  24.                 ld      (Str_flg_end),a
  25.                 ld      a,(hl)
  26.                 ret    
  27.  
  28. Str_play:
  29.                 ld      a,(Str_count_bit)
  30.                 or      a
  31.                 call    z,Str_next_symol
  32.                 ret
  33.  
  34. Str_next_symol:
  35.                 ld      hl,(Str_addr_work)
  36.                 ld      a,(hl)
  37.                 and     a
  38.                 jr      z,Str_reload
  39.                 ret     c
  40.                 inc     hl
  41.                 ld      (Str_addr_work),hl
  42.                 sub     20h
  43.                 ld      l, a
  44.                 ld      h, 0
  45.                 ld      de,Str_addr_font
  46.                 add     hl,hl
  47.                 add     hl,hl
  48.                 add     hl,hl
  49.                 add     hl,de
  50.                 ld      de,Str_symbol_buf
  51.                 ldi    
  52.                 ldi    
  53.                 ldi    
  54.                 ldi    
  55.                 ldi    
  56.                 ldi    
  57.                 ldi    
  58.                 ldi    
  59.                 ld      a,8
  60.                 ld      (Str_count_bit),a
  61.                 ret    
  62.  
  63. Str_update_symbol:
  64.                 ld      de,Str_symbol_buf
  65.                 ld      hl,5577h
  66.                 ld      c, 7
  67.                 ld      b, 8
  68. Str_updating:
  69.                 ld      a, (de)
  70.                 rlca
  71.                 ld      (de), a
  72.                 inc     de
  73.                 push    hl
  74.                 push    af
  75.                 rl      (hl)
  76.                 call    Str_line_down
  77.                 pop     af
  78.                 rl      (hl)
  79.                 dec     l
  80.                 push    af
  81.                 rl      (hl)
  82.                 call    Str_line_down
  83.                 pop     af
  84.                 rl      (hl)
  85.                 dec     l
  86.                 push    af
  87.                 rl      (hl)
  88.                 call    Str_line_down
  89.                 pop     af
  90.                 rl      (hl)
  91.                 dec     l
  92.                 push    af
  93.                 rl      (hl)
  94.                 call    Str_line_down
  95.                 pop     af
  96.                 rl      (hl)
  97.                 dec     l
  98.                 push    af
  99.                 rl      (hl)
  100.                 call    Str_line_down
  101.                 pop     af
  102.                 rl      (hl)
  103.                 dec     l
  104.                 push    af
  105.                 rl      (hl)
  106.                 call    Str_line_down
  107.                 pop     af
  108.                 rl      (hl)
  109.                 dec     l
  110.                 push    af
  111.                 rl      (hl)
  112.                 call    Str_line_down
  113.                 pop     af
  114.                 rl      (hl)
  115.                 dec     l
  116.                 push    af
  117.                 rl      (hl)
  118.                 call    Str_line_down
  119.                 pop     af
  120.                 rl      (hl)
  121.                 dec     l
  122.                 push    af
  123.                 rl      (hl)
  124.                 call    Str_line_down
  125.                 pop     af
  126.                 rl      (hl)
  127.                 dec     l
  128.                 push    af
  129.                 rl      (hl)
  130.                 call    Str_line_up
  131.                 pop     af
  132.                 rl      (hl)
  133.                 dec     l
  134.                 push    af
  135.                 rl      (hl)
  136.                 call    Str_line_up
  137.                 pop     af
  138.                 rl      (hl)
  139.                 dec     l
  140.                 push    af
  141.                 rl      (hl)
  142.                 call    Str_line_up
  143.                 pop     af
  144.                 rl      (hl)
  145.                 dec     l
  146.                 push    af
  147.                 rl      (hl)
  148.                 call    Str_line_up
  149.                 pop     af
  150.                 rl      (hl)
  151.                 dec     l
  152.                 push    af
  153.                 rl      (hl)
  154.                 call    Str_line_up
  155.                 pop     af
  156.                 rl      (hl)
  157.                 dec     l
  158.                 push    af
  159.                 rl      (hl)
  160.                 call    Str_line_up
  161.                 pop     af
  162.                 rl      (hl)
  163.                 dec     l
  164.                 push    af
  165.                 rl      (hl)
  166.                 call    Str_line_up
  167.                 pop     af
  168.                 rl      (hl)
  169.                 dec     l
  170.                 push    af
  171.                 rl      (hl)
  172.                 call    Str_line_up
  173.                 pop     af
  174.                 rl      (hl)
  175.                 dec     l
  176.                 push    af
  177.                 rl      (hl)
  178.                 call    Str_line_up
  179.                 pop     af
  180.                 rl      (hl)
  181.                 pop     hl
  182.                 call    Str_line_down
  183.                 call    Str_line_down
  184.                 dec     b
  185.                 jp      nz, Str_updating
  186.                 ld      a,(Str_count_bit)
  187.                 dec     a
  188.                 ld      (Str_count_bit),a
  189.                 ret    
  190. ;-------------------------------------------------------------------
  191. ; описание: Переход на одну строку вниз
  192. ; параметры: нет                    
  193. ; возвращаемое  значение: нет
  194. ;---------------------------------------------------------------------
  195. Str_line_down:
  196.                 inc     h
  197.                 ld      a, h
  198.                 and     7
  199.                 ret     nz
  200.                 ld      a, l
  201.                 sub     0E0h ; 'р'
  202.                 ld      l, a
  203.                 sbc     a, a
  204.                 and     0F8h ; '°'
  205.                 add     a, h
  206.                 ld      h, a
  207.                 ret    
  208. ;-------------------------------------------------------------------
  209. ; описание: Переход на одну строку вверх
  210. ; параметры: нет
  211. ; возвращаемое  значение: нет
  212. ;---------------------------------------------------------------------
  213. Str_line_up:
  214.                 ld      a, h
  215.                 dec     h
  216.                 and     7
  217.                 ret     nz
  218.                 ld      a, l
  219.                 add     a, 0E0h ; 'р'
  220.                 ld      l, a
  221.                 sbc     a, a
  222.                 and     8
  223.                 add     a, h
  224.                 ld      h, a
  225.                 ret    
  226.  
  227. Str_symbol_buf:
  228.                 db      0,0,0,0,0,0,0,0
  229.  
  230. Str_flg_end:
  231.                 db      0
  232. Str_count_bit:
  233.                 db      0
  234. Str_addr_work:
  235.                 dw      0
  236. Str_addr_load:
  237.                 db      '  LOADING     ',0
  238. Str_addr_text:
  239.                 db      '               ПРИВЕТ, ПРИВЕТ!!!       '
  240.                 db      ' НЕ УСПЕВ ОТОЙТИ ОТ ШЕСТОГО ВЫПУСКА  ДЕМО ПРОГРАММЫ "E-TUNES", КАК ААА'
  241.                 db      ' ПОСЕТИЛА ОЧЕРЕДНАЯ ГЕНИАЛЬНАЯ ИДЕЯ О НОВОМ ВЫПУСКЕ. НО ЧТОБЫ ДОБАВИТЬ'
  242.                 db      ' ВЕСОМОСТИ СВОИМ АРГУМЕНТАМ, ПРИВЛЕК ЕЩЕ И СВОЮ ГРУППИРОВКУ В ЛИЦЕ VNN И'
  243.                 db      ' TIBOH. И ЧТОБЫ Я НЕ УСПЕЛ ОПОМНИТСЯ, ААА НАКИДАЛ МАТЕРИАЛ НА МЫЛО. И НАПОМНИЛ,'
  244.                 db      ' ЧТО МУЗЫКА ДОЛЖНА БЫТЬ ОТ ГРУППЫ ESI. ТУТ СТАЛО ПОНЯТНО, ЧТО'
  245.                 db      ' СОПРОТИВЛЕНИЕ БЕСПОЛЕЗНО. СЕЛ ЗА КОМП И ДАВАЙ ВЫДИРАТЬ МУЗОН ИЗ ДЕМОК'
  246.                 db      ' И ИГРУШЕК С SAM COUPE. НЕМНОГО ПОКОДИЛ. И ВОТ РЕЗУЛЬТАТ - СЕДЬМОЙ ВЫПУСК'
  247.                 db      ' ДЕМО ПРОГРАММЫ "E-TUNES". ЗДЕСЬ СОБРАНО 26 МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ СОЗДАННЫХ'
  248.                 db      ' НЕ В РЕДАКТОРЕ E-TRACKER, А В РЕДАКТОРЕ, ИЗВЕСТНОМ ТОЛЬКО ГРУППЕ ESI.'
  249.                 db      ' ИТОГО 24 КОМПОЗИЦИЙ ОТ ГРУППЫ ESI И 2 КОМПОЗИЦИИ БОНУСОМ ПРИЦЕПИЛ.'
  250.                 db      ' ПРОСЛУШАТЬ МУЗЫКУ МОЖНО  ЧЕРЕЗ ЗВУКОВУЮ КАРТУ "ZXM-SOUNDCARD" ИЛИ В ЭМУЛЯТОРЕ "UNREAL SPECCY",'
  251.                 db      ' ПРОПАТЧЕННЫЙ МОЛОДЦОВЫМ АЛЕКСАНДРОМ.'
  252.                 db      ' НЕМНОГО ОБ УПРАВЛЕНИИ. ПЕРЕХОД К СЛЕДУЮЩЕМУ ПРОИЗВЕДЕНИЮ ОСУЩЕСТВЛЯЕТСЯ ПРИ ПОМОЩИ КЛАВИШИ'
  253.                 db      ' "SPACE", ВЫХОД В TR-DOS ПРИ ПОМОЩИ КЛАВИШИ "BREAK"'
  254.                 db      ' О ПРОГРАММЕ: В ОБЩЕМ, МАТЕРИАЛ  ПРЕДОСТАВИЛ ААА, Я ЕГО НЕМНОГО ПОДПРАВИЛ ДЛЯ'
  255.                 db      ' НУЖД ПРОИЗВОДСТВА И СОБРАЛ ВОЕДИНО. ВСЕ ЭТО СОБИРАЛОСЬ НА РС ПРИ ПОМОЩИ АССЕМБЛЕРА  SJASMPLUS.'
  256.                 db      ' КСТАТИ ДАННАЯ ПРОГРАММА ПРЕДНАЗНАЧЕНА ДЛЯ КОМПЬЮТЕРОВ С ПАМЯТЬЮ ОЗУ БОЛЬШЕ 128КБ,'
  257.                 db      ' НАПРИМЕР  "ZXM-PHOENIX 1024".'
  258.                 db      '             ТЕПЕРЬ САМАЯ ГЛАВНАЯ ЧАСТЬ СКРОЛЛА - СПАСИБЫ!       '
  259.                 db      ' TIBOH - СПАСИБО ЗА СКРОЛЛ, VNN - СПАСИБО ЗА ВЫНУТЫЙ ТОБОЙ АНАЛИЗАТОР ИЗ ПРОГРАММЫ  "GUM BOOTS", '
  260.                 db      ' СПАСИБО АВТОРУ ПРОГРАММЫ "GUM BOOTS" - MAXWELL/JURASSIC SOFTWARE, СПАСИБО АТЭК CREATIVE GROUP'
  261.                 db      ' ЗА КАРТИНКУ ТАК И НЕ ВЫШЕДШЕЙ ГАЗЕТЫ "ПИОНЕР 4". NEWART - СПАСИБО ЗА ПЕРЕДАННУЮ ААА НЕРЕЛИЖЕННУЮ'
  262.                 db      ' ГРАФИКУ, ААА - СПАСИБО ЗА ПОДГОТОВЛЕННУЮ КАРТИНКУ И ТЕКСТ СПАСИБОК ДЛЯ ЭТОГО СКРОЛЛА.'
  263.                 db      ' НАГРАДОЙ ЗА ВСЕ ВАШИ ТРУДЫ ПУСТЬ БУДЕТ ЭТОТ'
  264.                 db      ' ВЫПУСК "E-TUNES" С ПРЕКРАСНОЙ МУЗЫКОЙ ОТ ИЗВЕСТНОЙ ВСЕМ ПОЛЬСКОЙ ГРУППЫ - ESI.'    
  265.                 db      ' ОТДЕЛЬНАЯ ГРОМАДНАЯ БЛАГОДАРНОСТЬ ГРУППЕ ESI ИЗ ГОРОДА ТОРУНЬ(ПОЛЬША) И В ЧАСТНОСТИ МУЗЫКАНТУ ГРУППЫ -'
  266.                 db      ' ZIUTEK (ANDRZEJ SIUDA), МУЗЫКА КОТОРОГО ЗВУЧИТ В ЭТОМ ВЫПУСКЕ.             '
  267.                 db      ' НУ И МАЛОСТЬ ТРАДИЦИОННЫХ ПРИВЕТОВ!     ААА ГРОМАДНЫЙ ПРИВЕТИЩЕ, ОЧЕРЕДНОЙ РАЗ ТЫ ДЕЛАЕШЬ ЧУДО.'
  268.                 db      ' БОЛЬШУЩИЙ РЕСПЕКТ MOLODCOV_ALEX (МОЛОДЦОВ АЛЕКСАНДР) ЗА ЭМУЛЯТОР.'
  269.                 db      ' ПРИВЕТ ВЛАДЕЛЬЦАМ КАРТЫ "ZXM-SOUNDCARD". НАЗОВЕМ ИХ ПОИМЕННО: AAA, PIROXILIN, КИРЛИАН И LUZANOV.'
  270.                 db      ' ВСЕМ ФЕНИКСОВОДАМ ОТДЕЛЬНЫЙ ПРИВЕТИК.'
  271.                 db      ' ПРИВЕТ ТАКЖЕ ВСЕМ СПЕКТРУМИСТАМ, БЫВШИМ, НАСТОЯЩИМ И ВОЗМОЖНО БУДУЩИМ.'
  272.                 db      ' НУ ВСЕ, ПОРА ЗАВЕРШАТЬ. НАДО МАЛОСТЬ ПЕРЕДОХНУТЬ, А ТО ЗА МЕСЯЦ ЧЕТЫРЕ ТЮНЕСА, ПОРА И МЕРУ ЗНАТЬ :)'
  273.                 db      ' ТЕМ БОЛЕЕ НАДО ВЕРНУТЬСЯ К ЖЕЛЕЗНЫМ ПРОЕКТАМ, КОТОРЫЕ Я ЕЩЕ НЕ ЗАКОНЧИЛ.   '
  274.                 db      ' КАПЕЛЬКА РЕКЛАМЫ - ПОСЕЩАЕМ САЙТ WWW.MICKLAB.NAROD.RU ТАМ МОЖНО НАЙТИ ПОСЛЕДНЮЮ ИНФОРМАЦИЮ'
  275.                 db      ' ПО МОИМ ПРОЕКТАМ. СВЯЗАТСЯ СО МНОЙ МОЖНО ЧЕРЕЗ САЙТ WWW.ZX.PK.RU - НИКНЕЙМ MICK ИЛИ ЧЕРЕЗ МЫЛО'
  276.                 db      ' MICKLAB@MAIL.RU    '
  277.                 db      ' ПОРА ПРОЩАТЬСЯ. ДО НОВЫХ ТЮНЕСОВ. ПОКА, ПОКА.......                   '
  278.                 db      '            JUNE *2010*    GRAPHICS BY ААА,   CODE BY MICK         '
  279.                 db      '                                       ',0                    
  280. Str_addr_font:
  281.                 incbin "font.fnt"
  282.  
  283. ;               .end
  284.