Subversion Repositories tsfmpro

Rev

Rev 547 | 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.                 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_step)
  33.                 inc     a
  34.                 ld      (Str_count_step),a
  35.                 and     7
  36.                 ret     nz
  37.                 ld      hl,(Str_addr_work)
  38.                 ld      a,(hl)
  39.                 and     a
  40.                 call    z,Str_reload
  41.                 ret     c
  42.                 inc     hl
  43.                 ld      (Str_addr_work),hl
  44.                 sub     20h
  45.                 ld      l, a
  46.                 ld      h, 0
  47.                 ld      de,Str_addr_font
  48.                 add     hl,hl
  49.                 add     hl,hl
  50.                 add     hl,hl
  51.                 add     hl,de
  52.                 ex      hl,de
  53.                 ld      hl,Str_table_line
  54.  
  55.                 ld      b,8
  56. Str_draw_line:
  57.                 push    bc
  58.                 push    de
  59.                 ld      e,(hl)
  60.                 inc     hl
  61.                 ld      d,(hl)
  62.                 inc     hl
  63.  
  64.                 ld      c,e
  65.                 ld      b,d
  66.                 ld      e,(hl)
  67.                 inc     hl
  68.                 ld      d,(hl)
  69.                 inc     hl
  70.                 ld      a,(de)
  71.                 ld      (bc),a
  72.  
  73.                 ld      c,e
  74.                 ld      b,d
  75.                 ld      e,(hl)
  76.                 inc     hl
  77.                 ld      d,(hl)
  78.                 inc     hl
  79.                 ld      a,(de)
  80.                 ld      (bc),a
  81.  
  82.                 ld      c,e
  83.                 ld      b,d
  84.                 ld      e,(hl)
  85.                 inc     hl
  86.                 ld      d,(hl)
  87.                 inc     hl
  88.                 ld      a,(de)
  89.                 ld      (bc),a
  90.  
  91.                 ld      c,e
  92.                 ld      b,d
  93.                 ld      e,(hl)
  94.                 inc     hl
  95.                 ld      d,(hl)
  96.                 inc     hl
  97.                 ld      a,(de)
  98.                 ld      (bc),a
  99.  
  100.                 ld      c,e
  101.                 ld      b,d
  102.                 ld      e,(hl)
  103.                 inc     hl
  104.                 ld      d,(hl)
  105.                 inc     hl
  106.                 ld      a,(de)
  107.                 ld      (bc),a
  108.  
  109.                 ld      c,e
  110.                 ld      b,d
  111.                 ld      e,(hl)
  112.                 inc     hl
  113.                 ld      d,(hl)
  114.                 inc     hl
  115.                 ld      a,(de)
  116.                 ld      (bc),a
  117.  
  118.                 ld      c,e
  119.                 ld      b,d
  120.                 ld      e,(hl)
  121.                 inc     hl
  122.                 ld      d,(hl)
  123.                 inc     hl
  124.                 ld      a,(de)
  125.                 ld      (bc),a
  126.  
  127.                 ld      c,e
  128.                 ld      b,d
  129.                 ld      e,(hl)
  130.                 inc     hl
  131.                 ld      d,(hl)
  132.                 inc     hl
  133.                 ld      a,(de)
  134.                 ld      (bc),a
  135.  
  136.                 ld      c,e
  137.                 ld      b,d
  138.                 ld      e,(hl)
  139.                 inc     hl
  140.                 ld      d,(hl)
  141.                 inc     hl
  142.                 ld      a,(de)
  143.                 ld      (bc),a
  144.  
  145.                 ld      c,e
  146.                 ld      b,d
  147.                 ld      e,(hl)
  148.                 inc     hl
  149.                 ld      d,(hl)
  150.                 inc     hl
  151.                 ld      a,(de)
  152.                 ld      (bc),a
  153.  
  154.                 ld      c,e
  155.                 ld      b,d
  156.                 ld      e,(hl)
  157.                 inc     hl
  158.                 ld      d,(hl)
  159.                 inc     hl
  160.                 ld      a,(de)
  161.                 ld      (bc),a
  162.  
  163.                 ld      c,e
  164.                 ld      b,d
  165.                 ld      e,(hl)
  166.                 inc     hl
  167.                 ld      d,(hl)
  168.                 inc     hl
  169.                 ld      a,(de)
  170.                 ld      (bc),a
  171.  
  172.                 ld      c,e
  173.                 ld      b,d
  174.                 ld      e,(hl)
  175.                 inc     hl
  176.                 ld      d,(hl)
  177.                 inc     hl
  178.                 ld      a,(de)
  179.                 ld      (bc),a
  180.  
  181.  
  182.                 ld      c,e
  183.                 ld      b,d
  184.                 pop     de
  185.                 ld      a,(de)
  186.                 inc     de
  187.                 ld      (bc),a
  188.                 pop     bc
  189.                 dec     b
  190.                 jp      nz,Str_draw_line
  191.                 ld      a,(Str_count_bit)
  192.                 dec     a
  193.                 ld      (Str_count_bit),a
  194.                 ret    
  195.  
  196. ;-------------------------------------------------------------------
  197. ; описание: Очистка поля основной строки
  198. ; параметры: нет
  199. ; возвращаемое  значение: нет
  200. ;---------------------------------------------------------------------
  201. Str_clear_buff:
  202.                 ld      a,(Str_count_step)
  203.                 cp      8
  204.                 ret     nz
  205.                 ld      (Str_addr_sp),sp
  206.                 ld      b,24
  207.                 ld      hl,40F6h
  208. Str_clear_loop:
  209.                 ld      sp,hl
  210.                 ld      de,0
  211.                 push    de
  212.                 push    de
  213.                 push    de
  214.                 push    de
  215.                 push    de
  216.                 push    de
  217.                 push    de
  218.                 inc     h
  219.                 ld      a,h
  220.                 and     7
  221.                 jr      nz,Str_next_line3
  222.                 ld      a, l
  223.                 add     a,20h
  224.                 ld      l, a
  225.                 jr      c,Str_next_line3
  226.                 ld      a,h
  227.                 sub     8
  228.                 ld      h,a
  229. Str_next_line3:
  230.                 djnz    Str_clear_loop
  231.                 ld      sp,(Str_addr_sp)
  232.                 ret
  233.  
  234. Str_table_line:
  235.                 dw      40E8h
  236.                 dw      43E9h
  237.                 dw      46EAh
  238.                 dw      480Bh
  239.                 dw      46ECh
  240.                 dw      43EDh
  241.                 dw      40EEh
  242.                 dw      43EFh
  243.                 dw      46F0h
  244.                 dw      4811h
  245.                 dw      46F2h
  246.                 dw      43F3h
  247.                 dw      40F4h
  248.                 dw      43F5h
  249.  
  250.                 dw      41E8h
  251.                 dw      44E9h
  252.                 dw      47EAh
  253.                 dw      490Bh
  254.                 dw      47ECh
  255.                 dw      44EDh
  256.                 dw      41EEh
  257.                 dw      44EFh
  258.                 dw      47F0h
  259.                 dw      4911h
  260.                 dw      47F2h
  261.                 dw      44F3h
  262.                 dw      41F4h
  263.                 dw      44F5h
  264.  
  265.                 dw      42E8h
  266.                 dw      45E9h
  267.                 dw      480Ah
  268.                 dw      4A0Bh
  269.                 dw      480Ch
  270.                 dw      45EDh
  271.                 dw      42EEh
  272.                 dw      45EFh
  273.                 dw      4810h
  274.                 dw      4A11h
  275.                 dw      4812h
  276.                 dw      45F3h
  277.                 dw      42F4h
  278.                 dw      45F5h
  279.  
  280.                 dw      43E8h
  281.                 dw      46E9h
  282.                 dw      490Ah
  283.                 dw      4B0Bh
  284.                 dw      490Ch
  285.                 dw      46EDh
  286.                 dw      43EEh
  287.                 dw      46EFh
  288.                 dw      4910h
  289.                 dw      4B11h
  290.                 dw      4912h
  291.                 dw      46F3h
  292.                 dw      43F4h
  293.                 dw      46F5h
  294.  
  295.                 dw      44E8h
  296.                 dw      47E9h
  297.                 dw      4A0Ah
  298.                 dw      4C0Bh
  299.                 dw      4A0Ch
  300.                 dw      47EDh
  301.                 dw      44EEh
  302.                 dw      47EFh
  303.                 dw      4A10h
  304.                 dw      4C11h
  305.                 dw      4A12h
  306.                 dw      47F3h
  307.                 dw      44F4h
  308.                 dw      47F5h
  309.  
  310.                 dw      45E8h
  311.                 dw      4809h
  312.                 dw      4B0Ah
  313.                 dw      4D0Bh
  314.                 dw      4B0Ch
  315.                 dw      480Dh
  316.                 dw      45EEh
  317.                 dw      480Fh
  318.                 dw      4B10h
  319.                 dw      4D11h
  320.                 dw      4B12h
  321.                 dw      4813h
  322.                 dw      45F4h
  323.                 dw      4815h
  324.  
  325.                 dw      46E8h
  326.                 dw      4909h
  327.                 dw      4C0Ah
  328.                 dw      4E0Bh
  329.                 dw      4C0Ch
  330.                 dw      490Dh
  331.                 dw      46EEh
  332.                 dw      490Fh
  333.                 dw      4C10h
  334.                 dw      4E11h
  335.                 dw      4C12h
  336.                 dw      4913h
  337.                 dw      46F4h
  338.                 dw      4915h
  339.  
  340.                 dw      47E8h
  341.                 dw      4A09h
  342.                 dw      4D0Ah
  343.                 dw      4F0Bh
  344.                 dw      4D0Ch
  345.                 dw      4A0Dh
  346.                 dw      47EEh
  347.                 dw      4A0Fh
  348.                 dw      4D10h
  349.                 dw      4F11h
  350.                 dw      4D12h
  351.                 dw      4A13h
  352.                 dw      4714h
  353.                 dw      4A15h
  354.  
  355. Str_count_step:
  356.                 db      0
  357.  
  358. Str_flg_end:
  359.                 db      0
  360.  
  361. Str_count_bit:
  362.                 db      0
  363. Str_addr_work:
  364.                 dw      0
  365. Str_addr_sp:
  366.                 dw      0
  367.  
  368. Str_addr_load:
  369.                 db      'LOADING   ',0
  370. Str_addr_text:
  371.                 db      '                     ПРИВЕТ! И ЕЩЕ РАЗ ПРИВЕТ ОТ MICK!!!!       '
  372.                 db      'ПОСЛЕ ТОГО КАК БЫЛА ПРОЙДЕНА ИГРА HALO REACH, УБРАЛ В ШКАФ СВОЙ XBOX360.'
  373.                 db      ' НАЧАЛ ДУМАТЬ КАК ПРОДОЛЖИТЬ ТЕМУ СТРЕЛОЧНЫХ АНАЛИЗАТОРОВ. И СПУСТЯ НЕКОТОРОЕ'
  374.                 db      ' ВРЕМЯ, НАВЕОРНОЕ НАКАТИЛО ПОСЛЕ ПОКРАСКИ СТЕНЫ В ГАРАЖЕ, ПРИДУМАЛ.'
  375.                 db      ' И ОСТАНОВИЛСЯ НА ИДЕЕ САМОПИСЦЕВ. ТАКИХ Я ЕЩЕ НИ РАЗУ НЕ ДЕЛАЛ В ЖИЗНИ.'
  376.                 db      ' НАЧАЛ ИХ РЕАЛИЗОВЫВАТЬ - РЕЗУЛЬТАТ ВЫ МОЖЕТЕ УВИДЕТЬ НА ЭКРАНЕ.'
  377.                 db      ' ПО ПРАВДЕ СКАЗАТЬ, Я ОТ НИХ ТАЩУСЬ, ОНИ МЕНЯ САМОГО ВПЕЧАТЛИЛИ.'
  378.                 db      ' ТАК ЧТО В ЭТОМ ВЫПУСКЕ ГЛАВНАЯ ТЕМА, ЭТО АНАЛИЗАТОРЫ. ВПРОЧЕМ НАЧАЛЬНАЯ'
  379.                 db      ' МЕЛОДИЯ ОТ ESI КАК ВСЕГДА ЗВУЧИТ КРУТО :). ЭТОТ ВЫПУСК ТОЖЕ НЕ ОБОШЕЛСЯ БЕЗ'
  380.                 db      ' АНИМАЦИИ. НА ЭТОТ РАЗ РАСКРУТИЛ НОМЕР ВЫПУСКА АЖ В ДВУХ ВАРИАЦИЯХ.'
  381.                 db      ' ПОЭТОМУ ДЛЯ ПРОСМОТРА АНИМАЦИИ В ПОЛНОМ ОБЪЕМЕ ДОСТАТОЧНО КОМПА С 128КБ ПАМЯТИ.'
  382.                 db      ' ИТАК, ЭТО УЖЕ ОДИНАДЦАТЫЙ ВЫПУСК ДЕМО-ПРОГРАММЫ "E-TUNES".'
  383.                 db      ' ЭТОТ ВЫПУСК ВКЛЮЧАЕТ В СЕБЯ 30 МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ РАЗНОЙ ПРОДОЛЖИТЕЛЬНОСТИ.'
  384.                 db      ' НАПОМНЮ ЧТО ДАННЫЕ МУЗЫКАЛЬНЫЕ КОМПОЗИЦИИ СОЗДАНЫ В РЕДАКТОРЕ'
  385.                 db      ' "E-TRACKER" И ПОЗАИМСТВОВАНЫ С КОМПЬЮТЕРА "SAM COUPE".'
  386.                 db      ' ИТОГО УЖЕ НА СПЕККИ 330 КОМПОЗИЦИЙ ДОСТУПНЫХ ДЛЯ ПРОСЛУШИВАНИЯ.'
  387.                 db      ' ПРОСЛУШАТЬ МУЗЫКУ МОЖНО  ЧЕРЕЗ ЗВУКОВУЮ КАРТУ "ZXM-SOUNDCARD" ИЛИ В ЭМУЛЯТОРЕ "UNREAL SPECCY",'
  388.                 db      ' ПРОПАТЧЕННЫЙ МОЛОДЦОВЫМ АЛЕКСАНДРОМ.'
  389.                 db      ' НЕМНОГО ОБ УПРАВЛЕНИИ. ПЕРЕХОД К СЛЕДУЮЩЕМУ ПРОИЗВЕДЕНИЮ ОСУЩЕСТВЛЯЕТСЯ ПРИ ПОМОЩИ КЛАВИШИ'
  390.                 db      ' "SPACE", ВЫХОД В TR-DOS ПРИ ПОМОЩИ КЛАВИШИ "BREAK"'
  391.                 db      ' О ПРОГРАММЕ: АНИМАЦИЯ СОЗДАНА В ПРОГРАММЕ "BLUFFTITLER" И СКОНВЕРЧЕНА  В ФОРМАТ ДАННЫХ ДЛЯ АССЕМБЛЕРА'
  392.                 db      ' ПРИ ПОМОЩИ МАЛЕНЬКИХ ПРОГРАММ-ПОМОШНИКОВ, НЕКОТОРЫЕ ИЗ НИХ НАПИСАЛ НА VISUAL C ОТ МЕЛКОМЯГКИХ(КУДА ЖЕ'
  393.                 db      ' БЕЗ НИХ).  ОСТАЛЬНОЕ ВЗЯТО ИЗ ПРЕДЫДУЩИХ ВЫПУСКОВ "E-TUNES" ИЛИ ПРИДУМАНО.'
  394.                 db      ' ВСЕ ЭТО СОБИРАЛОСЬ НА РС ПРИ ПОМОЩИ АССЕМБЛЕРА  SJASMPLUS.'
  395.                 db      '             ПРИВЕТЫ И СПАСИБЫ!     '
  396.                 db      ' ААА, КАК ВСЕГДА И ВЕЗДЕ ГРОМАДНЫЙ ПРИВЕТИЩЕ. СНОВА ДЛЯ ТЕБЯ ЗВУЧИТ МУЗЫКА ESI :)'
  397.                 db      ' ПРИВЕТ ВСЕЙ ГРУППЕ AAA BAND, МОЛОДЦЫ ЧТО РАДУЕТЕ НАС СВОИМИ ДЕМКАМИ, ТАК ДЕРЖАТЬ.'
  398.                 db      ' БОЛЬШУЩИЙ РЕСПЕКТ MOLODCOV_ALEX (МОЛОДЦОВ АЛЕКСАНДР) ЗА ЭМУЛЯТОР.'
  399.                 db      ' RINDEX ПРИВЕТ И СПАСИБО ЗА КРИТИКУ И РЕДАКТОР "BLUFFTITLER".'
  400.                 db      ' ОТДЕЛЬНОЕ СПАСИБО PIROXILIN ЗА СВОЙ ТОП ЛИСТ МУЗЫКИ ИЗ ВЫПУСКОВ E-TUNES.'
  401.                 db      ' ПРИВЕТ ВЛАДЕЛЬЦАМ КАРТЫ "ZXM-SOUNDCARD". НАЗОВЕМ ИХ ПОИМЕННО: AAA, PIROXILIN, КИРЛИАН И LUZANOV.'
  402.                 db      ' ВСЕМ ФЕНИКСОИДАМ ОТДЕЛЬНЫЙ ПРИВЕТ :).'
  403.                 db      ' ПРИВЕТ ТАКЖЕ ВСЕМ СПЕКТРУМИСТАМ, БЫВШИМ, НАСТОЯЩИМ И ВОЗМОЖНО БУДУЩИМ.'
  404.                 db      '        ЧАСТЬ РЕКЛАМЫ И АНОНСОВ.      '
  405.                 db      ' ВЕДЕТСЯ ОТЛАДКА КОМПЬЮТЕРА "ZXM-PHOENIX 4096 TURBO".'
  406.                 db      ' ОТДАНЫ В ПРОИЗВОДСТВО ТЕСТОВЫЕ ВАРИАНТЫ ВТОРОЙ РЕДАКЦИИ ЗВУКОВОЙ КАРТЫ "ZXM-SOUNDCARD" И ВИДЕОКАРТЫ'
  407.                 db      ' "ZXM-VIDEOCARD". НАДЕЮСЬ К КОНЦУ ОКТЯБРЯ Я ИХ ЗАРЕЛИЖУ.'
  408.                 db      ' НЕ ЗАБЫВАЕМ ПОСЕЩАТЬ САЙТ WWW.MICKLAB.NAROD.RU ТАМ МОЖНО НАЙТИ ПОСЛЕДНЮЮ ИНФОРМАЦИЮ'
  409.                 db      ' ПО МОИМ ПРОЕКТАМ. СВЯЗАТСЯ СО МНОЙ МОЖНО ЧЕРЕЗ САЙТ WWW.ZX.PK.RU - НИКНЕЙМ MICK ИЛИ ЧЕРЕЗ МЫЛО'
  410.                 db      ' MICKLAB@MAIL.RU    '
  411.                 db      ' ПОРА ПРОЩАТЬСЯ. ДО НОВЫХ ТЮНЕСОВ. ПОКА, ПОКА.......            '
  412.                 db      '            OCTOBER *2010*    GRAPHICS AND CODE BY MICK         '
  413.                 db      '                                             ',0                      
  414. Str_addr_font:
  415.                 incbin "font.fnt"
  416. Str_end_font:
  417.  
  418. ;               .end
  419.