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_bit)
  33.                 or      a
  34.                 call    z,Str_next_symbol
  35.                 ret     c
  36.                 call    Str_update_string
  37.                 jp      Str_view_string
  38.  
  39. Str_next_symbol:
  40.                 ld      hl,(Str_addr_work)
  41.                 ld      a,(hl)
  42.                 and     a
  43.                 call    z,Str_reload
  44.                 ret     c
  45.                 inc     hl
  46.                 ld      (Str_addr_work),hl
  47.                 sub     20h
  48.                 ld      l, a
  49.                 ld      h, 0
  50.                 ld      de,Str_addr_font
  51.                 add     hl,hl
  52.                 add     hl,hl
  53.                 add     hl,hl
  54.                 add     hl,de
  55.                 ld      de,Str_symbol_buf
  56.                 ldi
  57.                 ldi
  58.                 ldi
  59.                 ldi
  60.                 ldi
  61.                 ldi
  62.                 ldi
  63.                 ldi
  64.                 ld      a,8
  65.                 ld      (Str_count_bit),a
  66.                 ret
  67.  
  68. Str_update_string:
  69.                 ld      de,Str_symbol_buf
  70.                 ld      hl,Str_string_buf + 14
  71.                 ld      b,08h
  72. Str_update_loop:
  73.                 ld      c,0
  74.                 ld      a,(de)
  75.                 rlca
  76.                 ld      (de),a
  77.                 jr      nc,Str_update_pixel
  78.                 ld      c,1
  79. Str_update_pixel:
  80.                 ld      a,(hl)
  81.                 and     0FEh
  82.                 or      c
  83.                 ld      (hl),a
  84.                 push    de
  85.                 ld      de,15
  86.                 add     hl,de
  87.                 pop     de
  88.                 inc     de
  89.                 djnz    Str_update_loop
  90.                 ret            
  91.  
  92. Str_view_string:
  93.                 ld      de,5689h
  94.                 ld      hl,Str_string_buf
  95.                 ld      b,8
  96. Str_draw_line:
  97.                 push    de
  98.                 push    hl
  99.                 ldi
  100.                 inc     de
  101.                 inc     hl
  102.                 ldi
  103.                 inc     de
  104.                 inc     hl
  105.                 ldi
  106.                 inc     de
  107.                 inc     hl
  108.                 ldi
  109.                 inc     de
  110.                 inc     hl
  111.                 ldi
  112.                 inc     de
  113.                 inc     hl
  114.                 ldi
  115.                 inc     de
  116.                 inc     hl
  117.                 ldi
  118.                 inc     de
  119.                 inc     hl
  120.                 ldi
  121.                 pop     hl
  122.                 pop     de
  123.                 inc     d
  124.                 ld      a,d
  125.                 and     7
  126.                 jr      nz,Str_next_line02
  127.                 ld      a,e
  128.                 add     20h
  129.                 ld      e,a
  130.                 jr      c,Str_next_line02
  131.                 ld      a,d
  132.                 sub     8
  133.                 ld      d,a
  134. Str_next_line02:
  135.                 push    de
  136.                 ldi
  137.                 inc     de
  138.                 inc     hl
  139.                 ldi
  140.                 inc     de
  141.                 inc     hl
  142.                 ldi
  143.                 inc     de
  144.                 inc     hl
  145.                 ldi
  146.                 inc     de
  147.                 inc     hl
  148.                 ldi
  149.                 inc     de
  150.                 inc     hl
  151.                 ldi
  152.                 inc     de
  153.                 inc     hl
  154.                 ldi
  155.                 inc     de
  156.                 inc     hl
  157.                 ldi
  158.                 pop     de
  159.                 inc     d
  160.                 ld      a,d
  161.                 and     7
  162.                 jr      nz,Str_next_line03
  163.                 ld      a,e
  164.                 add     20h
  165.                 ld      e,a
  166.                 jr      c,Str_next_line03
  167.                 ld      a,d
  168.                 sub     8
  169.                 ld      d,a
  170. Str_next_line03:
  171.                 djnz    Str_draw_line
  172.                 ld      a,(Str_count_bit)
  173.                 dec     a
  174.                 ld      (Str_count_bit),a
  175.                 ret    
  176.  
  177. Str_move_string:
  178.                 ld      hl,Str_flg_end - 1
  179.                 and     a
  180.                 rl      (hl)
  181.                 dec     hl
  182.                 rl      (hl)
  183.                 dec     hl
  184.                 rl      (hl)
  185.                 dec     hl
  186.                 rl      (hl)
  187.                 dec     hl
  188.                 rl      (hl)
  189.                 dec     hl
  190.                 rl      (hl)
  191.                 dec     hl
  192.                 rl      (hl)
  193.                 dec     hl
  194.                 rl      (hl)
  195.                 dec     hl
  196.                 rl      (hl)
  197.                 dec     hl
  198.                 rl      (hl)
  199.                 dec     hl
  200.                 rl      (hl)
  201.                 dec     hl
  202.                 rl      (hl)
  203.                 dec     hl
  204.                 rl      (hl)
  205.                 dec     hl
  206.                 rl      (hl)
  207.                 dec     hl
  208.                 rl      (hl)
  209.                 dec     hl
  210.                 rl      (hl)
  211.                 dec     hl
  212.                 rl      (hl)
  213.                 dec     hl
  214.                 rl      (hl)
  215.                 dec     hl
  216.                 rl      (hl)
  217.                 dec     hl
  218.                 rl      (hl)
  219.                 dec     hl
  220.                 rl      (hl)
  221.                 dec     hl
  222.                 rl      (hl)
  223.                 dec     hl
  224.                 rl      (hl)
  225.                 dec     hl
  226.                 rl      (hl)
  227.                 dec     hl
  228.                 rl      (hl)
  229.                 dec     hl
  230.                 rl      (hl)
  231.                 dec     hl
  232.                 rl      (hl)
  233.                 dec     hl
  234.                 rl      (hl)
  235.                 dec     hl
  236.                 rl      (hl)
  237.                 dec     hl
  238.                 rl      (hl)
  239.                 dec     hl
  240.                 rl      (hl)
  241.                 dec     hl
  242.                 rl      (hl)
  243.                 dec     hl
  244.                 rl      (hl)
  245.                 dec     hl
  246.                 rl      (hl)
  247.                 dec     hl
  248.                 rl      (hl)
  249.                 dec     hl
  250.                 rl      (hl)
  251.                 dec     hl
  252.                 rl      (hl)
  253.                 dec     hl
  254.                 rl      (hl)
  255.                 dec     hl
  256.                 rl      (hl)
  257.                 dec     hl
  258.                 rl      (hl)
  259.                 dec     hl
  260.                 rl      (hl)
  261.                 dec     hl
  262.                 rl      (hl)
  263.                 dec     hl
  264.                 rl      (hl)
  265.                 dec     hl
  266.                 rl      (hl)
  267.                 dec     hl
  268.                 rl      (hl)
  269.                 dec     hl
  270.                 rl      (hl)
  271.                 dec     hl
  272.                 rl      (hl)
  273.                 dec     hl
  274.                 rl      (hl)
  275.                 dec     hl
  276.                 rl      (hl)
  277.                 dec     hl
  278.                 rl      (hl)
  279.                 dec     hl
  280.                 rl      (hl)
  281.                 dec     hl
  282.                 rl      (hl)
  283.                 dec     hl
  284.                 rl      (hl)
  285.                 dec     hl
  286.                 rl      (hl)
  287.                 dec     hl
  288.                 rl      (hl)
  289.                 dec     hl
  290.                 rl      (hl)
  291.                 dec     hl
  292.                 rl      (hl)
  293.                 dec     hl
  294.                 rl      (hl)
  295.                 dec     hl
  296.                 rl      (hl)
  297.                 dec     hl
  298.                 rl      (hl)
  299.                 dec     hl
  300.                 rl      (hl)
  301.                 dec     hl
  302.                 rl      (hl)
  303.                 dec     hl
  304.                 rl      (hl)
  305.                 dec     hl
  306.                 rl      (hl)
  307.                 dec     hl
  308.  
  309.                 rl      (hl)
  310.                 dec     hl
  311.                 rl      (hl)
  312.                 dec     hl
  313.                 rl      (hl)
  314.                 dec     hl
  315.                 rl      (hl)
  316.                 dec     hl
  317.                 rl      (hl)
  318.                 dec     hl
  319.                 rl      (hl)
  320.                 dec     hl
  321.                 rl      (hl)
  322.                 dec     hl
  323.                 rl      (hl)
  324.                 dec     hl
  325.                 rl      (hl)
  326.                 dec     hl
  327.                 rl      (hl)
  328.                 dec     hl
  329.                 rl      (hl)
  330.                 dec     hl
  331.                 rl      (hl)
  332.                 dec     hl
  333.                 rl      (hl)
  334.                 dec     hl
  335.                 rl      (hl)
  336.                 dec     hl
  337.                 rl      (hl)
  338.                 dec     hl
  339.                 rl      (hl)
  340.                 dec     hl
  341.                 rl      (hl)
  342.                 dec     hl
  343.                 rl      (hl)
  344.                 dec     hl
  345.                 rl      (hl)
  346.                 dec     hl
  347.                 rl      (hl)
  348.                 dec     hl
  349.                 rl      (hl)
  350.                 dec     hl
  351.                 rl      (hl)
  352.                 dec     hl
  353.                 rl      (hl)
  354.                 dec     hl
  355.                 rl      (hl)
  356.                 dec     hl
  357.                 rl      (hl)
  358.                 dec     hl
  359.                 rl      (hl)
  360.                 dec     hl
  361.                 rl      (hl)
  362.                 dec     hl
  363.                 rl      (hl)
  364.                 dec     hl
  365.                 rl      (hl)
  366.                 dec     hl
  367.                 rl      (hl)
  368.                 dec     hl
  369.                 rl      (hl)
  370.                 dec     hl
  371.                 rl      (hl)
  372.                 dec     hl
  373.                 rl      (hl)
  374.                 dec     hl
  375.                 rl      (hl)
  376.                 dec     hl
  377.                 rl      (hl)
  378.                 dec     hl
  379.                 rl      (hl)
  380.                 dec     hl
  381.                 rl      (hl)
  382.                 dec     hl
  383.                 rl      (hl)
  384.                 dec     hl
  385.                 rl      (hl)
  386.                 dec     hl
  387.                 rl      (hl)
  388.                 dec     hl
  389.                 rl      (hl)
  390.                 dec     hl
  391.                 rl      (hl)
  392.                 dec     hl
  393.                 rl      (hl)
  394.                 dec     hl
  395.                 rl      (hl)
  396.                 dec     hl
  397.                 rl      (hl)
  398.                 dec     hl
  399.                 rl      (hl)
  400.                 dec     hl
  401.                 rl      (hl)
  402.                 dec     hl
  403.                 rl      (hl)
  404.                 dec     hl
  405.                 rl      (hl)
  406.                 dec     hl
  407.                 rl      (hl)
  408.                 dec     hl
  409.                 rl      (hl)
  410.                 dec     hl
  411.                 rl      (hl)
  412.                 dec     hl
  413.                 rl      (hl)
  414.                 dec     hl
  415.                 rl      (hl)
  416.                 dec     hl
  417.                 rl      (hl)
  418.                 dec     hl
  419.                 rl      (hl)
  420.                 ret
  421.  
  422.  
  423. Str_count_step:
  424.                 db      0
  425. Str_symbol_buf:
  426.                 ds      8
  427. Str_string_buf:
  428.                 ds      120
  429. Str_flg_end:
  430.                 db      0
  431.  
  432. Str_count_bit:
  433.                 db      0
  434. Str_addr_work:
  435.                 dw      0
  436. Str_addr_sp:
  437.                 dw      0
  438.  
  439. Str_addr_load:
  440.                 db      '* L O A D *  ',0
  441. Str_addr_text:
  442.                 db      '                     ПРИВЕТ, ПРИВЕТ! MICK ОПЯТЬ БУДЕТ ПРИСТАВАТЬ С НОВЫМ  ВЫПУСКОМ!!!!       '
  443.                 db      ' ТАК И НЕ ДОЖДАВШИСЬ НОВОГОДНЕГО ВЫПУСКА "E-TUNES" ОТ ГРУППЫ AAA BAND С ЕЛКОЙ И СНЕГУРКОЙ,'
  444.                 db      ' РЕШИЛ ВСЕ ЖЕ ИЗОБРАЗИТЬ ВЫПУСК С НОВОГОДНЕЙ ТЕМАТИКОЙ. ХУДОЖЕСТВЕННОЙ ШКОЛЫ НЕ ЗАКАНЧИВАЛ,'
  445.                 db      ' ПОЭТОМУ СИЛЬНО НЕ БИТЬ. ТАК КАК МУЗЫКА УЖЕ ЗАКАНЧИВАЕТСЯ, ТО В ЭТОМ ВЫПУСКЕ МУЗЫКА ХИТАМИ'
  446.                 db      ' НЕ ОСОБО БОГАТА. ПАРУ ТРЕКОВ ВЫ УЖЕ МОГЛИ СЛЫШАТЬ В ДЕМО ПРОГРАММЕ "E-DEMO". КСТАТИ УЧАСТВУЯ'
  447.                 db      ' В ПЕРВОМ СВОЕМ ДЕМОПАТИ AAA DEMO COMPETITION 2010, УМУДРИЛСЯ ЗАНЯТЬ 8 МЕСТО - МЕНЯ ЭТО'
  448.                 db      ' ПОРАДОВАЛО. ВСЕ ЖЕ КАК НИКАК, А В ПЕРВОЙ ДЕСЯТКЕ.  '
  449.                 db      ' НУ ДА ЛАДНО, ЭТОТ ВЫПУСК ПРЕДПОСЛЕДНИЙ. МОЖЕТ ПОТОМ И ВЫПУЩУ СБОРНИК "THE BEST". ПОСМОТРЮ, КАК '
  450.                 db      ' УДАСТЬСЯ ДОГОВОРИТСЯ С ЛЕНЬЮ :) :) ИЛИ МОЖЕТ AAA BAND ЕГО ВСЕ ЖЕ ВЫПУСТИТ.'
  451.                 db      ' ПОТОМ ПО ЛОГИКЕ НАДО БЫ ВЫПУСТИТЬ ПЛЕЕР ОТДЕЛЬНО, ЧТОБЫ МОЖНО СЛУШАТЬ ТРЕКИ ПООТДЕЛЬНОСТИ.'
  452.                 db      ' ОПЯТЬ ЖЕ КАК С ДОГОВОРЮСЬ С ЛЕНЬЮ, ДА И ЖЕЛЕЗКИ  БЫ ДОДЕЛАТЬ, КАКИЕ НАЧАЛ. ВООБЩЕМ СИЛЬНО'
  453.                 db      ' НЕ ПИНАЕМ ЗА ВЫПУСК, ИДЕЙ НЕТ, А САЙТ ОБНОВЛЯТЬ НАДО. :) :)      '
  454.                 db      ' ИТАК, ЭТО УЖЕ ПЯТНАДЦАТЫЙ ВЫПУСК ДЕМО-ПРОГРАММЫ "E-TUNES".'
  455.                 db      ' ЭТОТ ВЫПУСК ВКЛЮЧАЕТ В СЕБЯ 30 МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ РАЗНОЙ ПРОДОЛЖИТЕЛЬНОСТИ.'
  456.                 db      ' НАПОМНЮ ЧТО ДАННЫЕ МУЗЫКАЛЬНЫЕ КОМПОЗИЦИИ СОЗДАНЫ В РЕДАКТОРЕ'
  457.                 db      ' "E-TRACKER" И ПОЗАИМСТВОВАНЫ С КОМПЬЮТЕРА "SAM COUPE".'
  458.                 db      ' ИТОГО УЖЕ НА СПЕККИ 440 КОМПОЗИЦИЙ ДОСТУПНЫХ ДЛЯ ПРОСЛУШИВАНИЯ.'
  459.                 db      ' ОСТАЛОСЬ МУЗЫКИ ЕЩЕ НА ОДИН ВЫПУСК. '
  460.                 db      ' ПРОСЛУШАТЬ МУЗЫКУ МОЖНО  ЧЕРЕЗ ЗВУКОВУЮ КАРТУ "ZXM-SOUNDCARD" ИЛИ В ЭМУЛЯТОРЕ "UNREAL SPECCY",'
  461.                 db      ' ПРОПАТЧЕННЫЙ МОЛОДЦОВЫМ АЛЕКСАНДРОМ.'
  462.                 db      ' НЕМНОГО ОБ УПРАВЛЕНИИ. ПЕРЕХОД К СЛЕДУЮЩЕМУ ПРОИЗВЕДЕНИЮ ОСУЩЕСТВЛЯЕТСЯ ПРИ ПОМОЩИ КЛАВИШИ'
  463.                 db      ' "SPACE", ВЫХОД В TR-DOS ПРИ ПОМОЩИ КЛАВИШИ "BREAK"'
  464.                 db      ' О ПРОГРАММЕ: КАРТИНКУ СТЯНУЛ ИЗ ИНЕТА. ПРАВДА НА ТОЙ КАРТИНКЕ БЫЛ ТОЛЬКО ОДИН СНЕГОВИК'
  465.                 db      ' (КОТОРЫЙ В ЦИЛИНДРЕ), А С ШАПОЧКОЙ САМ ПОДРИСОВАЛ. ОСТАЛЬНОЕ ВЗЯТО ИЗ ПРЕДЫДУЩИХ ВЫПУСКОВ'
  466.                 db      '"E-TUNES" ИЛИ ПРИДУМАНО. ВСЕ ЭТО СОБИРАЛОСЬ НА РС ПРИ ПОМОЩИ АССЕМБЛЕРА  SJASMPLUS.'
  467.                 db      '             ПРИВЕТЫ И СПАСИБЫ!     '
  468.                 db      ' ААА, КАК ВСЕГДА И ВЕЗДЕ ГРОМАДНЫЙ ПРИВЕТИЩЕ. ХВАТИТ БЕЗДЕЛЬНИЧАТЬ. ЕСЛИ ТЫ НА ФОРУМЕ ПОКАЗАЛ'
  469.                 db      ' НА АВАТАРКЕ СВОЕ ИСТЕННОЕ ИНОПЛАНЕТНОЕ ЛИЦО, ЭТО НЕ ДАЕТ ТЕБЕ ПРАВО ЗАБРАСЫВАТЬ ДЕМОМЕЙКИНГ :)'
  470.                 db      ' ПРИВЕТ ВСЕЙ ГРУППЕ AAA BAND -  ВСЕ ЖЕ ХОЧЕТСЯ НЕМНОГО "E-TUNES THE BEST" КАК ОБЕЩАЛИ!!!!'
  471.                 db      ' БОЛЬШУЩИЙ РЕСПЕКТ MOLODCOV_ALEX (МОЛОДЦОВ АЛЕКСАНДР) ЗА ЭМУЛЯТОР.'
  472.                 db      ' RINDEX ПРИВЕТ И СПАСИБО ЗА КРИТИКУ И СОВЕТЫ.'
  473.                 db      ' ПРИВЕТ ВЛАДЕЛЬЦАМ КАРТЫ "ZXM-SOUNDCARD". НАЗОВЕМ ИХ ПОИМЕННО: AAA, PIROXILIN, КИРЛИАН, LUZANOV,'
  474.                 db      ' ДМИТРИЙ И EWGENY7 .'
  475.                 db      ' ВСЕМ ФЕНИКСОИДАМ ОТДЕЛЬНЫЙ ПРИВЕТ :).'
  476.                 db      ' ПРИВЕТ ТАКЖЕ ВСЕМ СПЕКТРУМИСТАМ, БЫВШИМ, НАСТОЯЩИМ И ВОЗМОЖНО БУДУЩИМ.'
  477.                 db      '       НУ ВОТ ПОСЛЕДНИЙ АБЗАЦ ИЛИ ВРОДЕ ТОГО :) :)'
  478.                 db      ' НЕ ЗАБЫВАЕМ ПОСЕЩАТЬ САЙТ WWW.MICKLAB.NAROD.RU ТАМ МОЖНО НАЙТИ ПОСЛЕДНЮЮ ИНФОРМАЦИЮ'
  479.                 db      ' ПО МОИМ ПРОЕКТАМ. СВЯЗАТСЯ СО МНОЙ МОЖНО ЧЕРЕЗ САЙТ WWW.ZX.PK.RU - НИКНЕЙМ MICK ИЛИ ЧЕРЕЗ МЫЛО'
  480.                 db      ' MICKLAB@MAIL.RU    '
  481.                 db      ' ПОРА ПРОЩАТЬСЯ. ДО НОВЫХ ТЮНЕСОВ. ПОКА, ПОКА.......  16 ТЮНЕС БУДЕТ ПОСЛЕДНИМ.   '
  482.                 db      '            FEBRUARY *2011*    GRAPHICS AND CODE BY MICK         '
  483.                 db      '                                             ',0                      
  484. Str_addr_font:
  485.                 incbin "font.fnt"
  486. Str_end_font:
  487.  
  488. ;               .end
  489.