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.                 ld      c,e
  182.                 ld      b,d
  183.                 ld      e,(hl)
  184.                 inc     hl
  185.                 ld      d,(hl)
  186.                 inc     hl
  187.                 ld      a,(de)
  188.                 ld      (bc),a
  189.  
  190.                 ld      c,e
  191.                 ld      b,d
  192.                 ld      e,(hl)
  193.                 inc     hl
  194.                 ld      d,(hl)
  195.                 inc     hl
  196.                 ld      a,(de)
  197.                 ld      (bc),a
  198.  
  199.                 ld      c,e
  200.                 ld      b,d
  201.                 ld      e,(hl)
  202.                 inc     hl
  203.                 ld      d,(hl)
  204.                 inc     hl
  205.                 ld      a,(de)
  206.                 ld      (bc),a
  207.  
  208.                 ld      c,e
  209.                 ld      b,d
  210.                 ld      e,(hl)
  211.                 inc     hl
  212.                 ld      d,(hl)
  213.                 inc     hl
  214.                 ld      a,(de)
  215.                 ld      (bc),a
  216.  
  217.                 ld      c,e
  218.                 ld      b,d
  219.                 ld      e,(hl)
  220.                 inc     hl
  221.                 ld      d,(hl)
  222.                 inc     hl
  223.                 ld      a,(de)
  224.                 ld      (bc),a
  225.  
  226.                 ld      c,e
  227.                 ld      b,d
  228.                 ld      e,(hl)
  229.                 inc     hl
  230.                 ld      d,(hl)
  231.                 inc     hl
  232.                 ld      a,(de)
  233.                 ld      (bc),a
  234.  
  235.                 ld      c,e
  236.                 ld      b,d
  237.                 pop     de
  238.                 ld      a,(de)
  239.                 inc     de
  240.                 ld      (bc),a
  241.  
  242.                 pop     bc
  243.                 dec     b
  244.                 jp      nz,Str_draw_line
  245.                 ld      a,(Str_count_bit)
  246.                 dec     a
  247.                 ld      (Str_count_bit),a
  248.                 ret    
  249.  
  250. Str_table_line:
  251.                 dw      4B66h
  252.                 dw      4B87h
  253.                 dw      4BA8h
  254.                 dw      4BC9h
  255.                 dw      48EAh
  256.                 dw      4AEBh
  257.                 dw      4CECh
  258.                 dw      4EEDh
  259.                 dw      4CEEh
  260.                 dw      4AEFh
  261.                 dw      4AF0h
  262.                 dw      4CF1h
  263.                 dw      4EF2h
  264.                 dw      4CF3h
  265.                 dw      4AF4h
  266.                 dw      48F5h
  267.                 dw      4BD6h
  268.                 dw      4BB7h
  269.                 dw      4B98h
  270.                 dw      4B79h
  271.  
  272.                 dw      4C66h
  273.                 dw      4C87h
  274.                 dw      4CA8h
  275.                 dw      4CC9h
  276.                 dw      49EAh
  277.                 dw      4BEBh
  278.                 dw      4DECh
  279.                 dw      4FEDh
  280.                 dw      4DEEh
  281.                 dw      4BEFh
  282.                 dw      4BF0h
  283.                 dw      4DF1h
  284.                 dw      4FF2h
  285.                 dw      4DF3h
  286.                 dw      4BF4h
  287.                 dw      49F5h
  288.                 dw      4CD6h
  289.                 dw      4CB7h
  290.                 dw      4C98h
  291.                 dw      4C79h
  292.  
  293.                 dw      4D66h
  294.                 dw      4D87h
  295.                 dw      4DA8h
  296.                 dw      4DC9h
  297.                 dw      4AEAh
  298.                 dw      4CEBh
  299.                 dw      4EECh
  300.                 dw      500Dh
  301.                 dw      4EEEh
  302.                 dw      4CEFh
  303.                 dw      4CF0h
  304.                 dw      4EF1h
  305.                 dw      5012h
  306.                 dw      4EF3h
  307.                 dw      4CF4h
  308.                 dw      4AF5h
  309.                 dw      4DD6h
  310.                 dw      4DB7h
  311.                 dw      4D98h
  312.                 dw      4D79h
  313.  
  314.                 dw      4E66h
  315.                 dw      4E87h
  316.                 dw      4EA8h
  317.                 dw      4EC9h
  318.                 dw      4BEAh
  319.                 dw      4DEBh
  320.                 dw      4FECh
  321.                 dw      510Dh
  322.                 dw      4FEEh
  323.                 dw      4DEFh
  324.                 dw      4DF0h
  325.                 dw      4FF1h
  326.                 dw      5112h
  327.                 dw      4FF3h
  328.                 dw      4DF4h
  329.                 dw      4BF5h
  330.                 dw      4ED6h
  331.                 dw      4EB7h
  332.                 dw      4E98h
  333.                 dw      4E79h
  334.  
  335.                 dw      4F66h
  336.                 dw      4F87h
  337.                 dw      4FA8h
  338.                 dw      4FC9h
  339.                 dw      4CEAh
  340.                 dw      4EEBh
  341.                 dw      500Ch
  342.                 dw      520Dh
  343.                 dw      500Eh
  344.                 dw      4EEFh
  345.                 dw      4EF0h
  346.                 dw      5011h
  347.                 dw      5212h
  348.                 dw      5013h
  349.                 dw      4EF4h
  350.                 dw      4CF5h
  351.                 dw      4FD6h
  352.                 dw      4FB7h
  353.                 dw      4F98h
  354.                 dw      4F79h
  355.  
  356.                 dw      4886h
  357.                 dw      48A7h
  358.                 dw      48C8h
  359.                 dw      48E9h
  360.                 dw      4DEAh
  361.                 dw      4FEBh
  362.                 dw      510Ch
  363.                 dw      530Dh
  364.                 dw      510Eh
  365.                 dw      4FEFh
  366.                 dw      4FF0h
  367.                 dw      5111h
  368.                 dw      5312h
  369.                 dw      5113h
  370.                 dw      4FF4h
  371.                 dw      4DF5h
  372.                 dw      48F6h
  373.                 dw      48D7h
  374.                 dw      48B8h
  375.                 dw      4899h
  376.  
  377.                 dw      4986h
  378.                 dw      49A7h
  379.                 dw      49C8h
  380.                 dw      49E9h
  381.                 dw      4EEAh
  382.                 dw      500Bh
  383.                 dw      520Ch
  384.                 dw      540Dh
  385.                 dw      520Eh
  386.                 dw      500Fh
  387.                 dw      5010h
  388.                 dw      5211h
  389.                 dw      5412h
  390.                 dw      5213h
  391.                 dw      5014h
  392.                 dw      4EF5h
  393.                 dw      49F6h
  394.                 dw      49D7h
  395.                 dw      49B8h
  396.                 dw      4999h
  397.  
  398.                 dw      4A86h
  399.                 dw      4AA7h
  400.                 dw      4AC8h
  401.                 dw      4AE9h
  402.                 dw      4FEAh
  403.                 dw      510Bh
  404.                 dw      530Ch
  405.                 dw      550Dh
  406.                 dw      530Eh
  407.                 dw      510Fh
  408.                 dw      5110h
  409.                 dw      5311h
  410.                 dw      5512h
  411.                 dw      5313h
  412.                 dw      5114h
  413.                 dw      4FF5h
  414.                 dw      4AF6h
  415.                 dw      4AD7h
  416.                 dw      4AB8h
  417.                 dw      4A99h
  418.  
  419. Str_count_step:
  420.                 db      0
  421.  
  422. Str_flg_end:
  423.                 db      0
  424.  
  425. Str_count_bit:
  426.                 db      0
  427. Str_addr_work:
  428.                 dw      0
  429. Str_addr_sp:
  430.                 dw      0
  431.  
  432. Str_addr_load:
  433.                 db      'LOADING      ',0
  434. Str_addr_text:
  435.                 db      '                     ПРИВЕТ! MICK СНОВА НА СВЯЗИ!!!!       '
  436.                 db      'ВОТ И ОЧЕРЕДНОЙ ВЫПУСК УВИДЕЛ СВЕТ. ОН ПРАВДА  КОРОТЕНЬКИЙ, ВСЕГО 20 МЕЛОДИЙ.'
  437.                 db      ' МЕЛОДИИ СКАЖЕМ НЕ ХИТОВЫЕ, НО ТАК СКАЗАТЬ ШЛИ В ТАКОМ ПОРЯДКЕ ПО СПИСКУ.'
  438.                 db      ' НЕДОСТАТОК ХИТОВ КОМПЕНСИРУЕМ ГРАФИЧЕСКОЙ ТЕМОЙ ВЫПУСКА.'
  439.                 db      ' ВОТ ДУМАЮ КАКУЮ ТЕМУ ЗАТРОНУТЬ, НО ЧИСЛО 13 ВРОДЕ ПОДСКАЗАЛО САМО -'
  440.                 db      ' ПУСТЬ БУДЕТ ТЕМА  ПРО ПРИВИДЕНИЯ. ПОРЫВШИСЬ В ВСЕМИРНОЙ СВАЛКЕ(ИНТЕРНЕТ),'
  441.                 db      ' НАШЕЛ КАРТИНКИ ИЗ МУЛЬТИКА ПРО ПРИВЕДЕНИЕ CASPER, А ТАКЖЕ КАРТИНКУ ИЗ'
  442.                 db      ' ФИЛЬМА ПРО ОХОТНИКОВ ЗА ПРИВИДЕНИЯМИ. В КАЧЕСТВЕ АНАЛИЗАТОРОВ ЗАДУМЫВАЛОСЬ'
  443.                 db      ' ОТОБРАЗИТЬ ТАК НАЗЫВАЕМЫЙ PKE-METER. ЭТО С ЧЕМ ОХОТНИКИ ЗА ПРИВИДЕНИЯМИ'
  444.                 db      ' ИСКАЛИ АНОМАЛИИ ЭКТОПЛАЗМЫ. ПРАВДА АНАЛИЗАТОРЫ МОЖНО АССОЦИИРОВАТЬ И С ЛЕТАЮЩИМИ'
  445.                 db      ' МОБИЛЬНЫМИ ТЕЛЕФОНАМИ. ПО КРАЙНЕЙ МЕРЕ ПОЛУЧИЛОСЬ ЗАБАВНО. :) :)'
  446.                 db      ' СОБСТВЕННО НЕ ОБОШЕЛСЯ И ЭТОТ ВЫПУСК БЕЗ АНИМАЦИИ.'
  447.                 db      ' ПРАВДА ДЛЯ ПРОСМОТРА АНИМАЦИИ НЕОБХОДИМ КОМП С ПАМЯТЬЮ, БОЛЬШЕ 128КБ.'
  448.                 db      ' ИТАК, ЭТО УЖЕ ТРИНАДЦАТЫЙ ВЫПУСК ДЕМО-ПРОГРАММЫ "E-TUNES".'
  449.                 db      ' ЭТОТ ВЫПУСК ВКЛЮЧАЕТ В СЕБЯ 20 МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ РАЗНОЙ ПРОДОЛЖИТЕЛЬНОСТИ.'
  450.                 db      ' НАПОМНЮ ЧТО ДАННЫЕ МУЗЫКАЛЬНЫЕ КОМПОЗИЦИИ СОЗДАНЫ В РЕДАКТОРЕ'
  451.                 db      ' "E-TRACKER" И ПОЗАИМСТВОВАНЫ С КОМПЬЮТЕРА "SAM COUPE".'
  452.                 db      ' ИТОГО УЖЕ НА СПЕККИ 380 КОМПОЗИЦИЙ ДОСТУПНЫХ ДЛЯ ПРОСЛУШИВАНИЯ.'
  453.                 db      ' ОСТАЛОСЬ МУЗЫКИ ЕЩЕ НА ТРОЙКУ ВЫПУСКОВ. '
  454.                 db      ' ПРОСЛУШАТЬ МУЗЫКУ МОЖНО  ЧЕРЕЗ ЗВУКОВУЮ КАРТУ "ZXM-SOUNDCARD" ИЛИ В ЭМУЛЯТОРЕ "UNREAL SPECCY",'
  455.                 db      ' ПРОПАТЧЕННЫЙ МОЛОДЦОВЫМ АЛЕКСАНДРОМ.'
  456.                 db      ' НЕМНОГО ОБ УПРАВЛЕНИИ. ПЕРЕХОД К СЛЕДУЮЩЕМУ ПРОИЗВЕДЕНИЮ ОСУЩЕСТВЛЯЕТСЯ ПРИ ПОМОЩИ КЛАВИШИ'
  457.                 db      ' "SPACE", ВЫХОД В TR-DOS ПРИ ПОМОЩИ КЛАВИШИ "BREAK"'
  458.                 db      ' О ПРОГРАММЕ: АНИМАЦИЯ СОЗДАНА В ПРОГРАММЕ "BLUFFTITLER" И СКОНВЕРЧЕНА  В ФОРМАТ ДАННЫХ ДЛЯ АССЕМБЛЕРА'
  459.                 db      ' ПРИ ПОМОЩИ МАЛЕНЬКИХ ПРОГРАММ-ПОМОШНИКОВ, НЕКОТОРЫЕ ИЗ НИХ НАПИСАЛ НА VISUAL C ОТ МЕЛКОМЯГКИХ(КУДА ЖЕ'
  460.                 db      ' БЕЗ НИХ).  ОСТАЛЬНОЕ ВЗЯТО ИЗ ПРЕДЫДУЩИХ ВЫПУСКОВ "E-TUNES" ИЛИ ПРИДУМАНО.'
  461.                 db      ' ВСЕ ЭТО СОБИРАЛОСЬ НА РС ПРИ ПОМОЩИ АССЕМБЛЕРА  SJASMPLUS.'
  462.                 db      '             ПРИВЕТЫ И СПАСИБЫ!     '
  463.                 db      ' ААА, КАК ВСЕГДА И ВЕЗДЕ ГРОМАДНЫЙ ПРИВЕТИЩЕ. ОПЯТЬ Я ПРИСТАЮ С НОВЫМ ВЫПУСКОМ :)'
  464.                 db      ' ПРИВЕТ ВСЕЙ ГРУППЕ AAA BAND - ЖДЕМ НОВОГОДНИЙ ВЫПУСК "E-TUNES THE BEST" СО'
  465.                 db      ' СНЕГУРКОЙ И ЕЛКОЙ. ОБЕЩАЛИ!!!!'
  466.                 db      ' БОЛЬШУЩИЙ РЕСПЕКТ MOLODCOV_ALEX (МОЛОДЦОВ АЛЕКСАНДР) ЗА ЭМУЛЯТОР.'
  467.                 db      ' RINDEX ПРИВЕТ И СПАСИБО ЗА КРИТИКУ И СОВЕТЫ.'
  468.                 db      ' EWGENY7 ПРИВЕТ И СПАСИБО ЗА БЕТАТЕСТИНГ ЗВУКОВОЙ КАРТЫ И КОРРЕКЦИЮ ПРОШИВКИ "PENTEVO".'
  469.                 db      ' ОТДЕЛЬНОЕ СПАСИБО PIROXILIN ЗА ОПЫТЫ НАД СВОЕЙ "PENTEVO" ЧТОБЫ РАСКРЫТЬ ЕЕ СУЩНОСТЬ И ПРИЧИНУ'
  470.                 db      ' НЕРАБОТОСПОСОБНОСТИ ЗВУКОВУХИ НА ЭВЕ.'
  471.                 db      ' ПРИВЕТ ВЛАДЕЛЬЦАМ КАРТЫ "ZXM-SOUNDCARD". НАЗОВЕМ ИХ ПОИМЕННО: AAA, PIROXILIN, КИРЛИАН, LUZANOV'
  472.                 db      ' И НОВОМУ ПОЛЬЗОВАТЕЛЮ ДМИТРИЮ.'
  473.                 db      ' ВСЕМ ФЕНИКСОИДАМ ОТДЕЛЬНЫЙ ПРИВЕТ :).'
  474.                 db      ' ПРИВЕТ ТАКЖЕ ВСЕМ СПЕКТРУМИСТАМ, БЫВШИМ, НАСТОЯЩИМ И ВОЗМОЖНО БУДУЩИМ.'
  475.                 db      '       НУ ВОТ ПОСЛЕДНИЙ АБЗАЦ ИЛИ ВРОДЕ ТОГО :) :)'
  476.                 db      ' НЕ ЗАБЫВАЕМ ПОСЕЩАТЬ САЙТ WWW.MICKLAB.NAROD.RU ТАМ МОЖНО НАЙТИ ПОСЛЕДНЮЮ ИНФОРМАЦИЮ'
  477.                 db      ' ПО МОИМ ПРОЕКТАМ. СВЯЗАТСЯ СО МНОЙ МОЖНО ЧЕРЕЗ САЙТ WWW.ZX.PK.RU - НИКНЕЙМ MICK ИЛИ ЧЕРЕЗ МЫЛО'
  478.                 db      ' MICKLAB@MAIL.RU    '
  479.                 db      ' ПОРА ПРОЩАТЬСЯ. ДО НОВЫХ ТЮНЕСОВ. ПОКА, ПОКА.......  14 ТЮНЕС УЖЕ СКОРО.   '
  480.                 db      '            NOVEMBER *2010*    GRAPHICS AND CODE BY MICK         '
  481.                 db      '                                             ',0                      
  482. Str_addr_font:
  483.                 incbin "font.fnt"
  484. Str_end_font:
  485.  
  486. ;               .end
  487.