;--------------------------------------------------------------------
; Описание: Бегущая строка
; Автор порта: Тарасов М.Н.(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:
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
ld a,1
ld (Str_flg_end),a
ld a,(hl)
ret
Str_play:
ld a,(Str_count_bit)
or a
ret nz
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,8
ld (Str_count_bit),a
ret
Str_update_symbol:
ld hl, Str_symbol_buf
ld de, 5656h
ld a,(Str_count_bit)
ld c,a
ld a,8
sub c
ld c,a
ld b,0
add hl,bc
ld a,(hl)
ld (de),a
ld a,(Str_count_bit)
dec a
ld (Str_count_bit),a
ret
Str_draw_symbol:
ld de,4056h
ld hl,Str_table_line
ld b,68
Str_draw_line:
push hl
ld a,(hl)
inc hl
ld h,(hl)
ld l,a
ld a,(hl)
ld (de),a
ex de,hl
pop hl
inc hl
inc hl
djnz Str_draw_line
ret
Str_table_line:
dw 4056h
dw 4256h
dw 4456h
dw 4656h
dw 4076h
dw 4276h
dw 4476h
dw 4676h
dw 4096h
dw 4296h
dw 4496h
dw 4696h
dw 40B6h
dw 42B6h
dw 44B6h
dw 46B6h
dw 40D6h
dw 42D6h
dw 44D6h
dw 46D6h
dw 40F6h
dw 42F6h
dw 44F6h
dw 46F6h
dw 4816h
dw 4A16h
dw 4C16h
dw 4E16h
dw 4836h
dw 4A36h
dw 4C36h
dw 4E36h
dw 4856h
dw 4A56h
dw 4C56h
dw 4E56h
dw 4876h
dw 4A76h
dw 4C76h
dw 4E76h
dw 4896h
dw 4A96h
dw 4C96h
dw 4E96h
dw 48B6h
dw 4AB6h
dw 4CB6h
dw 4EB6h
dw 48D6h
dw 4AD6h
dw 4CD6h
dw 4ED6h
dw 48F6h
dw 4AF6h
dw 4CF6h
dw 4EF6h
dw 5016h
dw 5216h
dw 5416h
dw 5616h
dw 5036h
dw 5236h
dw 5436h
dw 5636h
dw 5056h
dw 5256h
dw 5456h
dw 5656h
Str_symbol_buf:
db 0,0,0,0,0,0,0,0
Str_flg_end:
db 0
Str_count_bit:
db 0
Str_addr_work:
dw 0
Str_addr_load:
db 'LOADING ',0
Str_addr_text:
db ' ПРИВЕТ! С ВАМИ ПО ПРЕЖНЕМУ MICK!!!! '
db 'ПОДОСПЕЛ ОЧЕРЕДНОЙ ВЫПУСК ТЮНЕСА. В ЭТОМ ВЫПУСКЕ ПРОДОЛЖИЛ РАЗВИВАТЬ ТЕМУ АНИМАЦИИ.'
db ' АНИМИРОВАНА НАДПИСЬ, НО ДОСТУПНА ОНА ТОЛЬКО ДЛЯ МАШИН С ПАМЯТЬЮ БОЛЬШЕ 128КБ.'
db ' ДЛЯ МАШИН С 128КБ ПАМЯТЬЮ ИЛИ НЕ ПОДДЕРЖИВАЮЩИЕ МАППЕР КОМПЬЮТЕРА "ZXM-PHOENIX"'
db ' АНИМАЦИЯ БУДЕТ НЕДОСТУПНА. ТАКЖЕ ПРОДОЛЖЕНА ТЕМА КРУГЛЫХ АНАЛИЗАТОРОВ.'
db ' ФИШКА АНАЛИЗАТОРА - СТРЕЛОЧНЫЙ ТИП. Я ЕЩЕ ТАКИЕ НЕ ПРОБОВАЛ ДЕЛАТЬ. ПОЛУЧИЛОСЬ ЗАБАВНО.'
db ' СИЛЬНО НЕ ПИНАЙТЕ НОГАМИ ЗА МОИ ХУДОЖЕСТВА, КАК УМЕЮ, ТАК И ДЕЛАЮ :). ТУТ NEWART ОБОЗВАЛ'
db ' МУЗОНЫ ШЛАКОМ 90 ПРОЦЕНТНЫМ. НУ ЧТО ЖЕ ОН ГУРУ, ЕМУ ВИДНЕЕ. КОМУ НЕ НРАВИТСЯ, ЖМЕМ КНОПКУ'
db ' СБРОС НА КОМПЬЮТЕРЕ И НЕ ТРАТИМ СВОЕ ДРАГОЦЕННОЕ ВРЕМЯ :) :). ДЛЯ ТЕХ, КТО ОСТАЛСЯ ПРОДОЛЖИМ.'
db ' ИДЕЯ СТРЕЛОЧНЫХ АНАЛИЗАТОРОВ МЕНЯ ДАВНО ПОСЕЩАЛА. НО КАК ТО НИКАК НЕ МОГ К НИМ ПОДСТУПИТСЯ.'
db ' ВОТ ТВЕРДО И РЕШИЛ, ДЕСЯТЫЙ ВЫПУСК БУДЕТ С СТРЕЛОЧКАМИ. :) ОСНОВНАЯ ЧАСТЬ БЫЛА НАПИСАНА ДОСТАТОЧНО БЫСТРО, А'
db ' МЫСЛИ НА СЧЕТ АНАЛИЗАТОРОВ НИКАК НЕ ПОСЕЩАЛИ. НО КАК ГОВОРИТСЯ, МУЗА ВСЕ ЖЕ СЖАЛИЛАСЬ И Я ИХ УВИДЕЛ.'
db ' ДАЛЬШЕ УЖЕ ДЕЛО ТЕХНИКИ - ТАБЛИЦЫ РУЛЯТ, БЛАГО ПАМЯТИ МНОГО :) ВОТ ТЕПЕРЬ, ПОСЛЕ СБОРКИ ДАННОГО ВЫПУСКА, СО СПОКОЙНОЙ'
db ' СОВЕСТЬЮ ПЕРЕД AAA И RINDEX МОЖНО И ПОИГРАТЬ МАЛОСТЬ В HALO REACH. А ОНИ ПУСТЬ РЕЦЕНЗИИ ПИШУТ - ЖДЕМ'
db ' ОЦЕНОК. :) НУ ВОТ ВРОДЕ ОПИСАЛ СВОИ МЫСЛИ О ЖИЗНИ. ТЕПЕРЬ О ГЛАВНОМ!'
db ' ИТАК, ЭТО УЖЕ ДЕСЯТЫЙ ВЫПУСК ДЕМО-ПРОГРАММЫ "E-TUNES".'
db ' ЭТОТ ВЫПУСК ВКЛЮЧАЕТ В СЕБЯ 30 МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ РАЗНОЙ ПРОДОЛЖИТЕЛЬНОСТИ.'
db ' НАПОМНЮ ЧТО ДАННЫЕ МУЗЫКАЛЬНЫЕ КОМПОЗИЦИИ СОЗДАНЫ В РЕДАКТОРЕ'
db ' "E-TRACKER" И ПОЗАИМСТВОВАНЫ С КОМПЬЮТЕРА "SAM COUPE".'
db ' ИТОГО УЖЕ НА СПЕККИ 300 КОМПОЗИЦИЙ ДОСТУПНЫХ ДЛЯ ПРОСЛУШИВАНИЯ.'
db ' ОСТАЛОСЬ ГДЕ-ТО 160 ТРЕКОВ, НА ПЯТОК ТЮНЕСОВ ДУМАЮ ХВАТИТ :)'
db ' ПРОСЛУШАТЬ МУЗЫКУ МОЖНО ЧЕРЕЗ ЗВУКОВУЮ КАРТУ "ZXM-SOUNDCARD" ИЛИ В ЭМУЛЯТОРЕ "UNREAL SPECCY",'
db ' ПРОПАТЧЕННЫЙ МОЛОДЦОВЫМ АЛЕКСАНДРОМ.'
db ' НЕМНОГО ОБ УПРАВЛЕНИИ. ПЕРЕХОД К СЛЕДУЮЩЕМУ ПРОИЗВЕДЕНИЮ ОСУЩЕСТВЛЯЕТСЯ ПРИ ПОМОЩИ КЛАВИШИ'
db ' "SPACE", ВЫХОД В TR-DOS ПРИ ПОМОЩИ КЛАВИШИ "BREAK"'
db ' О ПРОГРАММЕ: АНИМАЦИЯ СОЗДАНА В ПРОГРАММЕ "BLUFFTITLER" И СКОНВЕРЧЕНА В ФОРМАТ ДАННЫХ ДЛЯ АССЕМБЛЕРА'
db ' ПРИ ПОМОЩИ МАЛЕНЬКИХ ПРОГРАММ-ПОМОШНИКОВ, НЕКОТОРЫЕ ИЗ НИХ НАПИСАЛ НА VISUAL C ОТ МЕЛКОМЯГКИХ(КУДА ЖЕ'
db ' БЕЗ НИХ). ОСТАЛЬНОЕ ВЗЯТО ИЗ ПРЕДЫДУЩИХ ВЫПУСКОВ "E-TUNES" ИЛИ ПРИДУМАНО.'
db ' ВСЕ ЭТО СОБИРАЛОСЬ НА РС ПРИ ПОМОЩИ АССЕМБЛЕРА SJASMPLUS.'
db ' ЧАСТЬ ПРИВЕТОВ И СПАСИБОК! '
db ' ААА, КАК ВСЕГДА И ВЕЗДЕ ГРОМАДНЫЙ ПРИВЕТИЩЕ. РАСЧЕХЛЯЙ СВОЙ PARASOUND :)'
db ' БОЛЬШУЩИЙ РЕСПЕКТ MOLODCOV_ALEX (МОЛОДЦОВ АЛЕКСАНДР) ЗА ЭМУЛЯТОР.'
db ' RINDEX ПРИВЕТ И СПАСИБО ЗА КРИТИКУ И РЕДАКТОР "BLUFFTITLER".'
db ' ПРИВЕТ ВЛАДЕЛЬЦАМ КАРТЫ "ZXM-SOUNDCARD". НАЗОВЕМ ИХ ПОИМЕННО: AAA, PIROXILIN, КИРЛИАН И LUZANOV.'
db ' ВСЕМ ФЕНИКСОИДАМ ОТДЕЛЬНЫЙ ПРИВЕТ :).'
db ' ПРИВЕТ ТАКЖЕ ВСЕМ СПЕКТРУМИСТАМ, БЫВШИМ, НАСТОЯЩИМ И ВОЗМОЖНО БУДУЩИМ.'
db ' ЧАСТЬ РЕКЛАМЫ И АНОНСОВ. '
db ' ВЕДЕТСЯ ОТЛАДКА КОМПЬЮТЕРА "ZXM-PHOENIX 4096 TURBO". ВСЕ НИКАК НЕ ДОЙДУТ РУКИ ДО НЕГО :('
db ' ОТДАНА В ПРОИЗВОДСТВО ТЕСТОВЫЙ ВАРИАНТ ВТОРОЙ РЕДАКЦИИ ЗВУКОВОЙ КАРТЫ "ZXM-SOUNDCARD" И ВИДЕОКАРТА'
db ' "ZXM-VIDEOCARD". НАДЕЮСЬ К КОНЦУ ОКТЯБРЯ Я ИХ ЗАРЕЛИЖУ.'
db ' НЕ ЗАБЫВАЕМ ПОСЕЩАТЬ САЙТ WWW.MICKLAB.NAROD.RU ТАМ МОЖНО НАЙТИ ПОСЛЕДНЮЮ ИНФОРМАЦИЮ'
db ' ПО МОИМ ПРОЕКТАМ. СВЯЗАТСЯ СО МНОЙ МОЖНО ЧЕРЕЗ САЙТ WWW.ZX.PK.RU - НИКНЕЙМ MICK ИЛИ ЧЕРЕЗ МЫЛО'
db ' MICKLAB@MAIL.RU '
db ' ПОРА ПРОЩАТЬСЯ. ДО НОВЫХ ТЮНЕСОВ. ПОКА, ПОКА....... ПОШЕЛ ГАМАТЬ В HALO REACH '
db ' SEPTEMBER *2010* GRAPHICS AND CODE BY MICK '
db ' ',0
Str_addr_font:
incbin "font.fnt"
Str_end_font:
; .end