;--------------------------------------------------------------------
; Описание: Бегущая строка
; Автор порта: Тарасов М.Н.(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,8
ld (Str_count_bit),a
ret
Str_update_string:
ld de,Str_symbol_buf
ld hl,48F4h
ld b,08h
Str_update_loop:
ld c,0
ld a,(de)
rlca
ld (de),a
jr nc,Str_update_pixel
ld c,1
Str_update_pixel:
ld a,(hl)
and 0FEh
or c
ld (hl),a
inc h
inc h
ld a,b
cp 5
jr nz,Str_next_line
ld hl,5014h
Str_next_line:
inc de
djnz Str_update_loop
ld a,(Str_count_bit)
dec a
ld (Str_count_bit),a
xor a
ret
Str_move_string:
ld de,48F4h
call Str_move_line ;5017h
inc d
inc d
call Str_move_line ;5217h
inc d
inc d
call Str_move_line ;5417h
inc d
inc d
call Str_move_line ;5617h
ld de,5014h
call Str_move_line ;5037h
inc d
inc d
call Str_move_line ;5237h
inc d
inc d
call Str_move_line ;5437h
inc d
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)
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 ' L O A D ',0
Str_addr_text:
db ' ПРИВЕТ! ЭТО ОПЯТЬ MICK ПРИВЕТСТВУЕТ ВАС!!! '
db ' ВОТ И ЕЩЕ ОДИН СБОРНИК МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ С КОМПЬЮТЕРА SAM COUPE УВИДЕЛ СВЕТ.'
db ' ХОТЕЛ ЕГО ВЫПУСТИТЬ НА ПРАЗДНИК 8 МАРТА, ЧТОБЫ ПОЗДРАВИТЬ ДЕВУШЕК С ФОРУМА ZX.PK.RU,'
db ' НО БАНАЛЬНО НЕ УСПЕЛ. НО ВСЕ ЖЕ ЭТО ВЫПУСК ВЫПУСТИЛ НА ДЕНЬ ПОЗЖЕ. И ХОТЬ С НЕКОТОРЫМ'
db ' ОПОЗДАНИЕМ, НО ВСЕ ЖЕ ПОЗДРАВЛЮ САМЫХ АКТИВНЫХ СПЕКТРУМИСТОК ФОРУМА С ВАШИМ ПРАЗДНИКОМ - 8 МАРТА'
db ' И ТАК СКАЗАТЬ УВЕКОВЕЧУ В ЭТОМ СКРОЛЛЕ. ИТАК ИХ НИКИ: MAT1SHA, DAISY, КИНО - ВСЕХ ВАМ БЛАГ. '
db ' ТЕПЕРЬ О САМОМ ВЫПУСКЕ. ТУТ НЕМНОГО ОСВОИЛ ИНСТРУМЕНТЫ В ГРАФИЧЕСКОМ РЕДАКТОРЕ - COPY AND PASTE :)'
db ' ОСНОВУ ТАК СКАЗАТЬ КАРТИНКИ ПОЗАИМСТВОВАЛ ИЗ ИНТЕРНЕТА, А ИМЕННО РАСКРАСКА ПЕРСОНАЖА ИЗ'
db ' МУЛЬТФИЛЬМА "WALLI" - РОБОТ ЕВА (ТОЖЕ ТИПА ДЕВУШКА, ТОЛЬКО НЕМНОГО ИСКУСТВЕННАЯ)'
db ' В КАЧЕСТВЕ АНАЛИЗАТОРОВ ЗАДУМАЛ ИСПОЛЬЗОВАТЬ ЕЕ ПОИСКОВЫЙ ЛУЧ, ПРАВДА ПОКА РЕАЛИЗОВАЛ ЕГО, УМУЧАЛСЯ.'
db ' ЧТОБЫ СИЛЬНО НЕ ЗАМОРАЧИВАТЬСЯ, СДЕЛАЛ ЕГО СПРАЙТАМИ. МОЖНО БЫЛО И МАСКОЙ, НО МОЩИ ТОЧНО НЕ ХВАТИЛО БЫ'
db ' В ПРЕРЫВАНИЕ ВПИСАТЬСЯ. В РЕЗУЛЬТАТЕ ФАЗЫ АНАЛИЗАТОРОВ ЗАНИМАЮТ 126 КБ, ПОЭТОМУ ЭТОТ ВЫПУСК РАСЧИТАН НА МАШИНУ'
db ' С ПАМЯТЬЮ БОЛЬШЕ 128 КБ, НО И НА 128 КБ МАШИНЕ БУДЕТ РАБОТАТЬ ПРАВДА ТОЛЬКО ОДНА МУЗЫКА. АНАЛИЗАТОРЫ'
db ' БУДУТ НЕДОСТУПНЫ. ПОТОМ НЕМНОГО ПОРИСОВАЛ, КОРОЧЕ ВЗЯЛ И ПОВЫДЕРГИВАЛ ИЗ DIZZY ТРАВКУ,'
db ' КУСТИКИ И МНОГО ЧЕГО ДРУГОГО. ДУМАЮ НЕ СИЛЬНО БУДЕТЕ РУГАТЬСЯ, Я ЖЕ НЕ ХУДОЖНИК. НУ ВРОДЕ И ВСЕ. '
db ' ИТАК, ЭТО УЖЕ СЕМНАДЦАТЫЙ ВЫПУСК ДЕМО-ПРОГРАММЫ "E-TUNES".'
db ' ЭТОТ ВЫПУСК ВКЛЮЧАЕТ В СЕБЯ 30 МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ РАЗНОЙ ПРОДОЛЖИТЕЛЬНОСТИ.'
db ' НАПОМНЮ ЧТО ДАННЫЕ МУЗЫКАЛЬНЫЕ КОМПОЗИЦИИ СОЗДАНЫ В РЕДАКТОРЕ'
db ' "E-TRACKER" И ПОЗАИМСТВОВАНЫ С КОМПЬЮТЕРА "SAM COUPE".'
db ' ИТОГО УЖЕ НА СПЕККИ 500 КОМПОЗИЦИЙ ДОСТУПНЫХ ДЛЯ ПРОСЛУШИВАНИЯ.'
db ' ЕЩЕ МУЗЫКА ЕСТЬ НА ПАРУ ВЫПУСКОВ.'
db ' ПРОСЛУШАТЬ МУЗЫКУ МОЖНО ЧЕРЕЗ ЗВУКОВУЮ КАРТУ "ZXM-SOUNDCARD" ИЛИ В ЭМУЛЯТОРЕ "UNREAL SPECCY",'
db ' ПРОПАТЧЕННЫЙ МОЛОДЦОВЫМ АЛЕКСАНДРОМ.'
db ' НЕМНОГО ОБ УПРАВЛЕНИИ. ПЕРЕХОД К СЛЕДУЮЩЕМУ ПРОИЗВЕДЕНИЮ ОСУЩЕСТВЛЯЕТСЯ ПРИ ПОМОЩИ КЛАВИШИ'
db ' "SPACE", ВЫХОД В TR-DOS ПРИ ПОМОЩИ КЛАВИШИ "BREAK"'
db ' О ПРОГРАММЕ: ОПЯТЬ ПОМОГ МНЕ СОФТ ОТ MICROSOFT - VISUAL CИ, С ПОМОЩЬЮ КОТОРОГО СВАРГАНИЛ ФАЗЫ АНАЛИЗАТОРОВ,'
db ' МАТЕРИАЛ ДЛЯ КАРТИНКИ ВЗЯЛ ИЗ ИНТЕРНЕТА И ИЗ ИГР СЕРИИ DIZZY, ОСТАЛЬНОЕ ВЗЯТО ИЗ ПРЕДЫДУЩИХ ВЫПУСКОВ'
db '"E-TUNES" ИЛИ ПРИДУМАНО. ВСЕ ЭТО СОБИРАЛОСЬ НА РС ПРИ ПОМОЩИ АССЕМБЛЕРА SJASMPLUS.'
db ' ТЕПЕРЬ ПРИВЕТЫ И СПАСИБЫ! '
db ' ААА, КАК ВСЕГДА И ВЕЗДЕ ГРОМАДНЫЙ ПРИВЕТИЩЕ. ААА МЫ УЖЕ ЗАЖДАЛИСЬ НОВЫХ ДЕМ ОТ ТЕБЯ, КОГДА БУДУТ????'
db ' БОЛЬШУЩИЙ РЕСПЕКТ MOLODCOV_ALEX (МОЛОДЦОВ АЛЕКСАНДР) ЗА ЭМУЛЯТОР.'
db ' RINDEX ПРИВЕТ И СПАСИБО ЗА КРИТИКУ И СОВЕТЫ.'
db ' ПРИВЕТ ВЛАДЕЛЬЦАМ КАРТЫ "ZXM-SOUNDCARD". НАЗОВЕМ ИХ ПОИМЕННО: AAA, PIROXILIN, КИРЛИАН, LUZANOV,'
db ' ДМИТРИЙ И EWGENY7 .'
db ' ЕЩЕ РАЗ С ПРАЗДНИКОМ ВЕСНЫ: MAT1SHA, DAISY, КИНО И ДРУГИЕ, КОГО EWGENY7 НЕУПОМНИЛ :))'
db ' ВСЕМ ФЕНИКСОИДАМ ОТДЕЛЬНЫЙ ПРИВЕТ :).'
db ' ПРИВЕТ ТАКЖЕ ВСЕМ СПЕКТРУМИСТАМ, БЫВШИМ, НАСТОЯЩИМ И ВОЗМОЖНО БУДУЩИМ.'
db ' И ПОСЛЕДНИЙ АБЗАЦ :) :)'
db ' НЕ ЗАБЫВАЕМ ПОСЕЩАТЬ САЙТ WWW.MICKLAB.NAROD.RU ТАМ МОЖНО НАЙТИ ПОСЛЕДНЮЮ ИНФОРМАЦИЮ'
db ' ПО МОИМ ПРОЕКТАМ. СВЯЗАТСЯ СО МНОЙ МОЖНО ЧЕРЕЗ САЙТ WWW.ZX.PK.RU - НИКНЕЙМ MICK ИЛИ ЧЕРЕЗ МЫЛО'
db ' MICKLAB@MAIL.RU '
db ' ПОРА ПРОЩАТЬСЯ. ДО НОВЫХ ТЮНЕСОВ. ПОКА, ПОКА....... ЕЩЕ БУДУТ ТЮНЕСЫ, НАВЕРНОЕ :) . '
db ' MARCH *2011* GRAPHICS AND CODE BY MICK '
db ' ',0
Str_addr_font:
incbin "font.fnt"
Str_end_font:
; .end