Subversion Repositories tsfmpro

Rev

Blame | 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.                 jp      Str_update_string
  37.  
  38. Str_next_symbol:
  39.                 ld      hl,(Str_addr_work)
  40.                 ld      a,(hl)
  41.                 and     a
  42.                 call    z,Str_reload
  43.                 ret     c
  44.                 inc     hl
  45.                 ld      (Str_addr_work),hl
  46.                 sub     20h
  47.                 ld      l, a
  48.                 ld      h, 0
  49.                 ld      de,Str_addr_font
  50.                 add     hl,hl
  51.                 add     hl,hl
  52.                 add     hl,hl
  53.                 add     hl,de
  54.                 ld      de,Str_symbol_buf
  55.                 ldi
  56.                 ldi
  57.                 ldi
  58.                 ldi
  59.                 ldi
  60.                 ldi
  61.                 ldi
  62.                 ldi
  63.                 ld      a,16
  64.                 ld      (Str_count_bit),a
  65.                 ret
  66.  
  67. Str_update_string:
  68.                 ld      a,(Str_count_bit)
  69.                 dec     a
  70.                 ld      (Str_count_bit),a
  71.                 and     1
  72.                 ret     nz
  73.  
  74.                 ld      de,Str_symbol_buf
  75.                 ld      bc,0
  76.  
  77.                 ld      a,(de)
  78.                 rlca
  79.                 ld      (de),a
  80.                 rl      c
  81.                 ld      hl,4CB3h
  82.                 ld      a,(hl)
  83.                 and     0FEh
  84.                 or      c
  85.                 ld      (hl),a
  86.  
  87.                 ld      c,b
  88.                 inc     de
  89.                 ld      a,(de)
  90.                 rlca
  91.                 ld      (de),a
  92.                 rl      c
  93.                 inc     h
  94.                 ld      a,(hl)                  ;4AD3h
  95.                 and     0FEh
  96.                 or      c
  97.                 ld      (hl),a
  98.  
  99.                 ld      c,b
  100.                 inc     de
  101.                 ld      a,(de)
  102.                 rlca
  103.                 ld      (de),a
  104.                 rl      c
  105.                 inc     h
  106.                 ld      a,(hl)                  ;54B3h
  107.                 and     0FEh
  108.                 or      c
  109.                 ld      (hl),a
  110.  
  111.                 ld      c,b
  112.                 inc     de
  113.                 ld      a,(de)
  114.                 rlca
  115.                 ld      (de),a
  116.                 rl      c
  117.                 inc     h
  118.                 ld      a,(hl)                  ;56B3h
  119.                 and     0FEh
  120.                 or      c
  121.                 ld      (hl),a
  122.  
  123.                 ld      c,b
  124.                 inc     de
  125.                 ld      a,(de)
  126.                 rlca
  127.                 ld      (de),a
  128.                 rl      c
  129.                 ld      hl,48D3h
  130.                 ld      a,(hl)
  131.                 and     0FEh
  132.                 or      c
  133.                 ld      (hl),a
  134.  
  135.                 ld      c,b
  136.                 inc     de
  137.                 ld      a,(de)
  138.                 rlca
  139.                 ld      (de),a
  140.                 rl      c
  141.                 inc     h
  142.                 ld      a,(hl)                  ;4AD3h
  143.                 and     0FEh
  144.                 or      c
  145.                 ld      (hl),a
  146.  
  147.                 ld      c,b
  148.                 inc     de
  149.                 ld      a,(de)
  150.                 rlca
  151.                 ld      (de),a
  152.                 rl      c
  153.                 inc     h
  154.                 ld      a,(hl)                  ;54B3h
  155.                 and     0FEh
  156.                 or      c
  157.                 ld      (hl),a
  158.  
  159.                 ld      c,b
  160.                 inc     de
  161.                 ld      a,(de)
  162.                 rlca
  163.                 ld      (de),a
  164.                 rl      c
  165.                 inc     h
  166.                 ld      a,(hl)                  ;56B3h
  167.                 and     0FEh
  168.                 or      c
  169.                 ld      (hl),a
  170.  
  171.                 ret            
  172.  
  173. Str_move_string:
  174.                 ld      de,4CB3h
  175.                 call    Str_move_line                  
  176.                 inc     d
  177.                 call    Str_move_line                   ;52B3h
  178.                 inc     d
  179.                 call    Str_move_line                   ;54B3h
  180.                 inc     d
  181.                 call    Str_move_line                   ;56B3h
  182.  
  183.                 ld      de,48D3h
  184.                 call    Str_move_line                  
  185.                 inc     d
  186.                 call    Str_move_line                   ;52B3h
  187.                 inc     d
  188.                 call    Str_move_line                   ;54B3h
  189.                 inc     d
  190.  
  191. Str_move_line:
  192.                 ld      h,d
  193.                 ld      l,e
  194.                 and     a
  195.                 rl      (hl)
  196.                 dec     l
  197.                 rl      (hl)
  198.                 dec     l
  199.                 rl      (hl)
  200.                 dec     l
  201.                 rl      (hl)
  202.                 dec     l
  203.                 rl      (hl)
  204.                 dec     l
  205.                 rl      (hl)
  206.                 dec     l
  207.                 rl      (hl)
  208.                 dec     l
  209.                 rl      (hl)
  210.                 dec     l
  211.                 rl      (hl)
  212.                 dec     l
  213.                 rl      (hl)
  214.                 dec     l
  215.                 rl      (hl)
  216.                 dec     l
  217.                 rl      (hl)
  218.                 dec     l
  219.                 rl      (hl)
  220.                 dec     l
  221.                 rl      (hl)
  222.                 ret    
  223.  
  224. Str_count_step:
  225.                 db      0
  226. Str_symbol_buf:
  227.                 ds      8
  228. Str_flg_end:
  229.                 db      0
  230.  
  231. Str_count_bit:
  232.                 db      0
  233. Str_addr_work:
  234.                 dw      0
  235. Str_addr_sp:
  236.                 dw      0
  237.  
  238. Str_addr_load:
  239.                 db      '  *LOAD*',0
  240. Str_addr_text:
  241.                 db      '                     ПРИВЕТ! ПРИВЕТ! В ОЧЕРЕДНОЙ РАЗ MICK БУДЕТ НЕМНОГО ВАМ НАДОЕДАТЬ!!!'
  242.                 db      ' ВОТ, СПУСТЯ МЕСЯЦ БЕЗДЕЛЬЯ, ГОНЯЛ ЛЕНИВЦЕВ ТАК СКАЗАТЬ - РЕШИЛ ВСЕ ЖЕ ВЫПУСТИТЬ ОЧЕРЕДНОЙ ТЮНЕС.'
  243.                 db      ' А ТО ТАК ВООБЩЕ ВСЕ МОЗГИ ЖИРОМ ЗАПЛЫВУТ. :) ВОБЩЕМ ИДЕЙ НИКАКИХ, ПОЭТОМУ ВЗЯЛ В ИНЕТЕ '
  244.                 db      ' КАРТИНКУ СЛАДКОЙ ПАРОЧКИ M&M И РАЗЪЕДЕНИЛ ИХ. ОСТАВИЛ ОДНОГО КРАСНОГО. ЗАМЕНИЛ ЕМУ БУКВУ M'
  245.                 db      ' НА НОМЕР 19. ПУСТЬ ТИПА ОН БУДЕТ ГЛАВНЫМ ПЕРСОНАЖЕМ ВЫПУСКА. ТАКЖЕ РЕШИЛ НЕМНОГО ИЗВРАТИТЬСЯ'
  246.                 db      ' НАД АНАЛИЗАТОРАМИ ИЗ ДЕСЯТОГО ВЫПУСКА. В ИТОГЕ, НЕМНОГО ВСЕ ПЕРЕМЕШАВ И ВЗБОЛТАВ ПОЛУЧИЛ В РЕЗУЛЬТАТЕ'
  247.                 db      ' ЭТОТ ВЫПУСК. МУЗЫКА ТУТ КАК ОБЫЧНО РАЗНАЯ. НЕСКОЛЬКО МЕЛОДИЙ ЕСТЬ ОТ ESI, ИХ ЛЕГКО БУДЕТ УЗНАТЬ. :)'
  248.                 db      ' МУЗЫКА УЖЕ ЗАКАНЧИВАЕТСЯ, ЕЩЕ НА ОДИН ВЫПУСК НАСКРЕБУ. НУ И ДУМАЮ ЭТУ ТЕМУ МОЖНО ЗАВЕРШИТЬ. ПО ИДЕЕ НАДО БЫ ВСЕ ЖЕ'
  249.                 db      ' ПЛЕЙЕР НАКАТАТЬ. ПОСЕМУ СКОРЕЕ ВСЕГО ПОСЛЕ ПОСЛЕДНЕГО 20-ГО ВЫПУСКА БУДУ БРАТЬСЯ ЗА ПЛЕЙЕР.'
  250.                 db      ' ОЙ ТУТ ЗАБЫЛ, СКОРО ВЫЙДЕТ DUKE NUKEM FOREVER, ОПЯТЬ ЛЕНИВЦЫ ОДОЛЕЮТ. :) :)   '
  251.                 db      ' ИТАК, ЭТО УЖЕ ДЕВЯТНАДЦАТЫЙ ВЫПУСК ДЕМО-ПРОГРАММЫ "E-TUNES".'
  252.                 db      ' ЭТОТ ВЫПУСК ВКЛЮЧАЕТ В СЕБЯ 30 МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ РАЗНОЙ ПРОДОЛЖИТЕЛЬНОСТИ.'
  253.                 db      ' НАПОМНЮ ЧТО ДАННЫЕ МУЗЫКАЛЬНЫЕ КОМПОЗИЦИИ СОЗДАНЫ В РЕДАКТОРЕ'
  254.                 db      ' "E-TRACKER" И ПОЗАИМСТВОВАНЫ С КОМПЬЮТЕРА "SAM COUPE".'
  255.                 db      ' ИТОГО УЖЕ НА СПЕККИ 560 КОМПОЗИЦИЙ ДОСТУПНЫХ ДЛЯ ПРОСЛУШИВАНИЯ.'
  256.                 db      ' ПРОСЛУШАТЬ МУЗЫКУ МОЖНО  ЧЕРЕЗ ЗВУКОВУЮ КАРТУ "ZXM-SOUNDCARD" ИЛИ В ЭМУЛЯТОРЕ "UNREAL SPECCY",'
  257.                 db      ' ПРОПАТЧЕННЫЙ МОЛОДЦОВЫМ АЛЕКСАНДРОМ.'
  258.                 db      ' НЕМНОГО ОБ УПРАВЛЕНИИ. ПЕРЕХОД К СЛЕДУЮЩЕМУ ПРОИЗВЕДЕНИЮ ОСУЩЕСТВЛЯЕТСЯ ПРИ ПОМОЩИ КЛАВИШИ'
  259.                 db      ' "SPACE", ВЫХОД В TR-DOS ПРИ ПОМОЩИ КЛАВИШИ "BREAK"'
  260.                 db      ' О ПРОГРАММЕ: МАТЕРИАЛ ДЛЯ КАРТИНКИ ВЗЯЛ ИЗ ИНТЕРНЕТА. ОСТАЛЬНОЕ ВЗЯТО ИЗ ПРЕДЫДУЩИХ ВЫПУСКОВ'
  261.                 db      ' "E-TUNES" ИЛИ ПРИДУМАНО. ВСЕ ЭТО СОБИРАЛОСЬ НА РС ПРИ ПОМОЩИ АССЕМБЛЕРА  SJASMPLUS.'
  262.                 db      '             ПОСТОЯННАЯ РУБРИКА - ПРИВЕТЫ И СПАСИБЫ!     '
  263.                 db      ' ААА, КАК ВСЕГДА И ВЕЗДЕ ГРОМАДНЫЙ ПРИВЕТИЩЕ. ТВОЙ ПРИМЕР ЗАРАЗИТЕЛЕН. Я ТОЖЕ НАЧАЛ БЕЗДЕЛЬНИЧАТЬ'
  264.                 db      ' БОЛЬШУЩИЙ РЕСПЕКТ MOLODCOV_ALEX (МОЛОДЦОВ АЛЕКСАНДР) ЗА ЭМУЛЯТОР.'
  265.                 db      ' RINDEX ПРИВЕТ И СПАСИБО ЗА КРИТИКУ И СОВЕТЫ.'
  266.                 db      ' ПРИВЕТ ВЛАДЕЛЬЦАМ КАРТЫ "ZXM-SOUNDCARD". НАЗОВЕМ ИХ ПОИМЕННО: AAA, PIROXILIN, КИРЛИАН, LUZANOV,'
  267.                 db      ' ДМИТРИЙ И EWGENY7 .'
  268.                 db      ' ВСЕМ ФЕНИКСОИДАМ ОТДЕЛЬНЫЙ ПРИВЕТ :).'
  269.                 db      ' ПРИВЕТ ZEK И ZOREL ЗА ВЫПУСК ТРЕТЬЕЙ РЕВИЗИИ ПЕРВОГО ФЕНИКСА. БЫЛ ФЕНИКС ЗЕЛЕНЫМ, ПОТОМ СИНИМ,'
  270.                 db      ' А ТЕПЕРЬ КРАСНЫМ - РУЛЕЗ!'
  271.                 db      ' ПРИВЕТ ТАКЖЕ ВСЕМ СПЕКТРУМИСТАМ, БЫВШИМ, НАСТОЯЩИМ И ВОЗМОЖНО БУДУЩИМ.'
  272.                 db      '       И ПОСЛЕДНИЙ АБЗАЦ :) :)'
  273.                 db      ' НЕ ЗАБЫВАЕМ ПОСЕЩАТЬ САЙТ WWW.MICKLAB.NAROD.RU ТАМ МОЖНО НАЙТИ ПОСЛЕДНЮЮ ИНФОРМАЦИЮ'
  274.                 db      ' ПО МОИМ ПРОЕКТАМ. СВЯЗАТСЯ СО МНОЙ МОЖНО ЧЕРЕЗ САЙТ WWW.ZX.PK.RU - НИКНЕЙМ MICK ИЛИ ЧЕРЕЗ МЫЛО'
  275.                 db      ' MICKLAB@MAIL.RU    '
  276.                 db      ' ПОРА ПРОЩАТЬСЯ. ДО НОВЫХ ТЮНЕСОВ. ПОКА, ПОКА.......  ЕЩЕ БУДЕТ ПОСЛЕДНИЙ ТЮНЕС :) .   '
  277.                 db      '            MAY *2011*    GRAPHICS AND CODE BY MICK         '
  278.                 db      '                                             ',0                      
  279. Str_addr_font:
  280.                 incbin "font.fnt"
  281. Str_end_font:
  282.  
  283. ;               .end
  284.