;--------------------------------------------------------------------
; Описание: Бегущая строка
; Автор порта: Тарасов М.Н.(Mick),2010
;--------------------------------------------------------------------
Str_reload:
ld a,(Str_flg_end)
and a
jr z,Str_init
xor a
ld (Str_flg_end),a
scf
ret
Str_init:
xor a
ld (Str_count_step),a
ld hl,Str_addr_text
ld (Str_addr_work),hl
ld a,(hl)
ret
Str_init_load:
ld hl,Str_addr_load
ld (Str_addr_work),hl
xor a
ld (Str_count_step),a
ld a,1
ld (Str_flg_end),a
ld a,(hl)
ret
Str_play:
ld a,(Str_count_bit)
or a
call z,Str_next_symbol
ret c
jp Str_update_string
Str_next_symbol:
ld hl,(Str_addr_work)
ld a,(hl)
and a
call z,Str_reload
ret c
inc hl
ld (Str_addr_work),hl
sub 20h
ld l, a
ld h, 0
ld de,Str_addr_font
add hl,hl
add hl,hl
add hl,hl
add hl,de
ld de,Str_symbol_buf
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ldi
ld a,16
ld (Str_count_bit),a
ret
Str_update_string:
ld a,(Str_count_bit)
dec a
ld (Str_count_bit),a
and 1
ret nz
ld de,Str_symbol_buf
ld bc,0
ld a,(de)
rlca
ld (de),a
rl c
ld hl,4CB3h
ld a,(hl)
and 0FEh
or c
ld (hl),a
ld c,b
inc de
ld a,(de)
rlca
ld (de),a
rl c
inc h
ld a,(hl) ;4AD3h
and 0FEh
or c
ld (hl),a
ld c,b
inc de
ld a,(de)
rlca
ld (de),a
rl c
inc h
ld a,(hl) ;54B3h
and 0FEh
or c
ld (hl),a
ld c,b
inc de
ld a,(de)
rlca
ld (de),a
rl c
inc h
ld a,(hl) ;56B3h
and 0FEh
or c
ld (hl),a
ld c,b
inc de
ld a,(de)
rlca
ld (de),a
rl c
ld hl,48D3h
ld a,(hl)
and 0FEh
or c
ld (hl),a
ld c,b
inc de
ld a,(de)
rlca
ld (de),a
rl c
inc h
ld a,(hl) ;4AD3h
and 0FEh
or c
ld (hl),a
ld c,b
inc de
ld a,(de)
rlca
ld (de),a
rl c
inc h
ld a,(hl) ;54B3h
and 0FEh
or c
ld (hl),a
ld c,b
inc de
ld a,(de)
rlca
ld (de),a
rl c
inc h
ld a,(hl) ;56B3h
and 0FEh
or c
ld (hl),a
ret
Str_move_string:
ld de,4CB3h
call Str_move_line
inc d
call Str_move_line ;52B3h
inc d
call Str_move_line ;54B3h
inc d
call Str_move_line ;56B3h
ld de,48D3h
call Str_move_line
inc d
call Str_move_line ;52B3h
inc d
call Str_move_line ;54B3h
inc d
Str_move_line:
ld h,d
ld l,e
and a
rl (hl)
dec l
rl (hl)
dec l
rl (hl)
dec l
rl (hl)
dec l
rl (hl)
dec l
rl (hl)
dec l
rl (hl)
dec l
rl (hl)
dec l
rl (hl)
dec l
rl (hl)
dec l
rl (hl)
dec l
rl (hl)
dec l
rl (hl)
dec l
rl (hl)
ret
Str_count_step:
db 0
Str_symbol_buf:
ds 8
Str_flg_end:
db 0
Str_count_bit:
db 0
Str_addr_work:
dw 0
Str_addr_sp:
dw 0
Str_addr_load:
db ' *LOAD*',0
Str_addr_text:
db ' ПРИВЕТ! ПРИВЕТ! В ОЧЕРЕДНОЙ РАЗ MICK БУДЕТ НЕМНОГО ВАМ НАДОЕДАТЬ!!!'
db ' ВОТ, СПУСТЯ МЕСЯЦ БЕЗДЕЛЬЯ, ГОНЯЛ ЛЕНИВЦЕВ ТАК СКАЗАТЬ - РЕШИЛ ВСЕ ЖЕ ВЫПУСТИТЬ ОЧЕРЕДНОЙ ТЮНЕС.'
db ' А ТО ТАК ВООБЩЕ ВСЕ МОЗГИ ЖИРОМ ЗАПЛЫВУТ. :) ВОБЩЕМ ИДЕЙ НИКАКИХ, ПОЭТОМУ ВЗЯЛ В ИНЕТЕ '
db ' КАРТИНКУ СЛАДКОЙ ПАРОЧКИ M&M И РАЗЪЕДЕНИЛ ИХ. ОСТАВИЛ ОДНОГО КРАСНОГО. ЗАМЕНИЛ ЕМУ БУКВУ M'
db ' НА НОМЕР 19. ПУСТЬ ТИПА ОН БУДЕТ ГЛАВНЫМ ПЕРСОНАЖЕМ ВЫПУСКА. ТАКЖЕ РЕШИЛ НЕМНОГО ИЗВРАТИТЬСЯ'
db ' НАД АНАЛИЗАТОРАМИ ИЗ ДЕСЯТОГО ВЫПУСКА. В ИТОГЕ, НЕМНОГО ВСЕ ПЕРЕМЕШАВ И ВЗБОЛТАВ ПОЛУЧИЛ В РЕЗУЛЬТАТЕ'
db ' ЭТОТ ВЫПУСК. МУЗЫКА ТУТ КАК ОБЫЧНО РАЗНАЯ. НЕСКОЛЬКО МЕЛОДИЙ ЕСТЬ ОТ ESI, ИХ ЛЕГКО БУДЕТ УЗНАТЬ. :)'
db ' МУЗЫКА УЖЕ ЗАКАНЧИВАЕТСЯ, ЕЩЕ НА ОДИН ВЫПУСК НАСКРЕБУ. НУ И ДУМАЮ ЭТУ ТЕМУ МОЖНО ЗАВЕРШИТЬ. ПО ИДЕЕ НАДО БЫ ВСЕ ЖЕ'
db ' ПЛЕЙЕР НАКАТАТЬ. ПОСЕМУ СКОРЕЕ ВСЕГО ПОСЛЕ ПОСЛЕДНЕГО 20-ГО ВЫПУСКА БУДУ БРАТЬСЯ ЗА ПЛЕЙЕР.'
db ' ОЙ ТУТ ЗАБЫЛ, СКОРО ВЫЙДЕТ DUKE NUKEM FOREVER, ОПЯТЬ ЛЕНИВЦЫ ОДОЛЕЮТ. :) :) '
db ' ИТАК, ЭТО УЖЕ ДЕВЯТНАДЦАТЫЙ ВЫПУСК ДЕМО-ПРОГРАММЫ "E-TUNES".'
db ' ЭТОТ ВЫПУСК ВКЛЮЧАЕТ В СЕБЯ 30 МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ РАЗНОЙ ПРОДОЛЖИТЕЛЬНОСТИ.'
db ' НАПОМНЮ ЧТО ДАННЫЕ МУЗЫКАЛЬНЫЕ КОМПОЗИЦИИ СОЗДАНЫ В РЕДАКТОРЕ'
db ' "E-TRACKER" И ПОЗАИМСТВОВАНЫ С КОМПЬЮТЕРА "SAM COUPE".'
db ' ИТОГО УЖЕ НА СПЕККИ 560 КОМПОЗИЦИЙ ДОСТУПНЫХ ДЛЯ ПРОСЛУШИВАНИЯ.'
db ' ПРОСЛУШАТЬ МУЗЫКУ МОЖНО ЧЕРЕЗ ЗВУКОВУЮ КАРТУ "ZXM-SOUNDCARD" ИЛИ В ЭМУЛЯТОРЕ "UNREAL SPECCY",'
db ' ПРОПАТЧЕННЫЙ МОЛОДЦОВЫМ АЛЕКСАНДРОМ.'
db ' НЕМНОГО ОБ УПРАВЛЕНИИ. ПЕРЕХОД К СЛЕДУЮЩЕМУ ПРОИЗВЕДЕНИЮ ОСУЩЕСТВЛЯЕТСЯ ПРИ ПОМОЩИ КЛАВИШИ'
db ' "SPACE", ВЫХОД В TR-DOS ПРИ ПОМОЩИ КЛАВИШИ "BREAK"'
db ' О ПРОГРАММЕ: МАТЕРИАЛ ДЛЯ КАРТИНКИ ВЗЯЛ ИЗ ИНТЕРНЕТА. ОСТАЛЬНОЕ ВЗЯТО ИЗ ПРЕДЫДУЩИХ ВЫПУСКОВ'
db ' "E-TUNES" ИЛИ ПРИДУМАНО. ВСЕ ЭТО СОБИРАЛОСЬ НА РС ПРИ ПОМОЩИ АССЕМБЛЕРА SJASMPLUS.'
db ' ПОСТОЯННАЯ РУБРИКА - ПРИВЕТЫ И СПАСИБЫ! '
db ' ААА, КАК ВСЕГДА И ВЕЗДЕ ГРОМАДНЫЙ ПРИВЕТИЩЕ. ТВОЙ ПРИМЕР ЗАРАЗИТЕЛЕН. Я ТОЖЕ НАЧАЛ БЕЗДЕЛЬНИЧАТЬ'
db ' БОЛЬШУЩИЙ РЕСПЕКТ MOLODCOV_ALEX (МОЛОДЦОВ АЛЕКСАНДР) ЗА ЭМУЛЯТОР.'
db ' RINDEX ПРИВЕТ И СПАСИБО ЗА КРИТИКУ И СОВЕТЫ.'
db ' ПРИВЕТ ВЛАДЕЛЬЦАМ КАРТЫ "ZXM-SOUNDCARD". НАЗОВЕМ ИХ ПОИМЕННО: AAA, PIROXILIN, КИРЛИАН, LUZANOV,'
db ' ДМИТРИЙ И EWGENY7 .'
db ' ВСЕМ ФЕНИКСОИДАМ ОТДЕЛЬНЫЙ ПРИВЕТ :).'
db ' ПРИВЕТ ZEK И ZOREL ЗА ВЫПУСК ТРЕТЬЕЙ РЕВИЗИИ ПЕРВОГО ФЕНИКСА. БЫЛ ФЕНИКС ЗЕЛЕНЫМ, ПОТОМ СИНИМ,'
db ' А ТЕПЕРЬ КРАСНЫМ - РУЛЕЗ!'
db ' ПРИВЕТ ТАКЖЕ ВСЕМ СПЕКТРУМИСТАМ, БЫВШИМ, НАСТОЯЩИМ И ВОЗМОЖНО БУДУЩИМ.'
db ' И ПОСЛЕДНИЙ АБЗАЦ :) :)'
db ' НЕ ЗАБЫВАЕМ ПОСЕЩАТЬ САЙТ WWW.MICKLAB.NAROD.RU ТАМ МОЖНО НАЙТИ ПОСЛЕДНЮЮ ИНФОРМАЦИЮ'
db ' ПО МОИМ ПРОЕКТАМ. СВЯЗАТСЯ СО МНОЙ МОЖНО ЧЕРЕЗ САЙТ WWW.ZX.PK.RU - НИКНЕЙМ MICK ИЛИ ЧЕРЕЗ МЫЛО'
db ' MICKLAB@MAIL.RU '
db ' ПОРА ПРОЩАТЬСЯ. ДО НОВЫХ ТЮНЕСОВ. ПОКА, ПОКА....... ЕЩЕ БУДЕТ ПОСЛЕДНИЙ ТЮНЕС :) . '
db ' MAY *2011* GRAPHICS AND CODE BY MICK '
db ' ',0
Str_addr_font:
incbin "font.fnt"
Str_end_font:
; .end