;--------------------------------------------------------------------
; Описание: Бегущая строка
; Автор порта: Тарасов М.Н.(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_step)
inc a
ld (Str_count_step),a
and 7
ret nz
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
ex hl,de
ld hl,Str_table_line
ld b,8
Str_draw_line:
push bc
push de
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
ld e,(hl)
inc hl
ld d,(hl)
inc hl
ld a,(de)
ld (bc),a
ld c,e
ld b,d
pop de
ld a,(de)
inc de
ld (bc),a
pop bc
dec b
jp nz,Str_draw_line
ld a,(Str_count_bit)
dec a
ld (Str_count_bit),a
ret
Str_table_line:
dw 4B66h
dw 4B87h
dw 4BA8h
dw 4BC9h
dw 48EAh
dw 4AEBh
dw 4CECh
dw 4EEDh
dw 4CEEh
dw 4AEFh
dw 4AF0h
dw 4CF1h
dw 4EF2h
dw 4CF3h
dw 4AF4h
dw 48F5h
dw 4BD6h
dw 4BB7h
dw 4B98h
dw 4B79h
dw 4C66h
dw 4C87h
dw 4CA8h
dw 4CC9h
dw 49EAh
dw 4BEBh
dw 4DECh
dw 4FEDh
dw 4DEEh
dw 4BEFh
dw 4BF0h
dw 4DF1h
dw 4FF2h
dw 4DF3h
dw 4BF4h
dw 49F5h
dw 4CD6h
dw 4CB7h
dw 4C98h
dw 4C79h
dw 4D66h
dw 4D87h
dw 4DA8h
dw 4DC9h
dw 4AEAh
dw 4CEBh
dw 4EECh
dw 500Dh
dw 4EEEh
dw 4CEFh
dw 4CF0h
dw 4EF1h
dw 5012h
dw 4EF3h
dw 4CF4h
dw 4AF5h
dw 4DD6h
dw 4DB7h
dw 4D98h
dw 4D79h
dw 4E66h
dw 4E87h
dw 4EA8h
dw 4EC9h
dw 4BEAh
dw 4DEBh
dw 4FECh
dw 510Dh
dw 4FEEh
dw 4DEFh
dw 4DF0h
dw 4FF1h
dw 5112h
dw 4FF3h
dw 4DF4h
dw 4BF5h
dw 4ED6h
dw 4EB7h
dw 4E98h
dw 4E79h
dw 4F66h
dw 4F87h
dw 4FA8h
dw 4FC9h
dw 4CEAh
dw 4EEBh
dw 500Ch
dw 520Dh
dw 500Eh
dw 4EEFh
dw 4EF0h
dw 5011h
dw 5212h
dw 5013h
dw 4EF4h
dw 4CF5h
dw 4FD6h
dw 4FB7h
dw 4F98h
dw 4F79h
dw 4886h
dw 48A7h
dw 48C8h
dw 48E9h
dw 4DEAh
dw 4FEBh
dw 510Ch
dw 530Dh
dw 510Eh
dw 4FEFh
dw 4FF0h
dw 5111h
dw 5312h
dw 5113h
dw 4FF4h
dw 4DF5h
dw 48F6h
dw 48D7h
dw 48B8h
dw 4899h
dw 4986h
dw 49A7h
dw 49C8h
dw 49E9h
dw 4EEAh
dw 500Bh
dw 520Ch
dw 540Dh
dw 520Eh
dw 500Fh
dw 5010h
dw 5211h
dw 5412h
dw 5213h
dw 5014h
dw 4EF5h
dw 49F6h
dw 49D7h
dw 49B8h
dw 4999h
dw 4A86h
dw 4AA7h
dw 4AC8h
dw 4AE9h
dw 4FEAh
dw 510Bh
dw 530Ch
dw 550Dh
dw 530Eh
dw 510Fh
dw 5110h
dw 5311h
dw 5512h
dw 5313h
dw 5114h
dw 4FF5h
dw 4AF6h
dw 4AD7h
dw 4AB8h
dw 4A99h
Str_count_step:
db 0
Str_flg_end:
db 0
Str_count_bit:
db 0
Str_addr_work:
dw 0
Str_addr_sp:
dw 0
Str_addr_load:
db 'LOADING ',0
Str_addr_text:
db ' ПРИВЕТ! MICK СНОВА НА СВЯЗИ!!!! '
db 'ВОТ И ОЧЕРЕДНОЙ ВЫПУСК УВИДЕЛ СВЕТ. ОН ПРАВДА КОРОТЕНЬКИЙ, ВСЕГО 20 МЕЛОДИЙ.'
db ' МЕЛОДИИ СКАЖЕМ НЕ ХИТОВЫЕ, НО ТАК СКАЗАТЬ ШЛИ В ТАКОМ ПОРЯДКЕ ПО СПИСКУ.'
db ' НЕДОСТАТОК ХИТОВ КОМПЕНСИРУЕМ ГРАФИЧЕСКОЙ ТЕМОЙ ВЫПУСКА.'
db ' ВОТ ДУМАЮ КАКУЮ ТЕМУ ЗАТРОНУТЬ, НО ЧИСЛО 13 ВРОДЕ ПОДСКАЗАЛО САМО -'
db ' ПУСТЬ БУДЕТ ТЕМА ПРО ПРИВИДЕНИЯ. ПОРЫВШИСЬ В ВСЕМИРНОЙ СВАЛКЕ(ИНТЕРНЕТ),'
db ' НАШЕЛ КАРТИНКИ ИЗ МУЛЬТИКА ПРО ПРИВЕДЕНИЕ CASPER, А ТАКЖЕ КАРТИНКУ ИЗ'
db ' ФИЛЬМА ПРО ОХОТНИКОВ ЗА ПРИВИДЕНИЯМИ. В КАЧЕСТВЕ АНАЛИЗАТОРОВ ЗАДУМЫВАЛОСЬ'
db ' ОТОБРАЗИТЬ ТАК НАЗЫВАЕМЫЙ PKE-METER. ЭТО С ЧЕМ ОХОТНИКИ ЗА ПРИВИДЕНИЯМИ'
db ' ИСКАЛИ АНОМАЛИИ ЭКТОПЛАЗМЫ. ПРАВДА АНАЛИЗАТОРЫ МОЖНО АССОЦИИРОВАТЬ И С ЛЕТАЮЩИМИ'
db ' МОБИЛЬНЫМИ ТЕЛЕФОНАМИ. ПО КРАЙНЕЙ МЕРЕ ПОЛУЧИЛОСЬ ЗАБАВНО. :) :)'
db ' СОБСТВЕННО НЕ ОБОШЕЛСЯ И ЭТОТ ВЫПУСК БЕЗ АНИМАЦИИ.'
db ' ПРАВДА ДЛЯ ПРОСМОТРА АНИМАЦИИ НЕОБХОДИМ КОМП С ПАМЯТЬЮ, БОЛЬШЕ 128КБ.'
db ' ИТАК, ЭТО УЖЕ ТРИНАДЦАТЫЙ ВЫПУСК ДЕМО-ПРОГРАММЫ "E-TUNES".'
db ' ЭТОТ ВЫПУСК ВКЛЮЧАЕТ В СЕБЯ 20 МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ РАЗНОЙ ПРОДОЛЖИТЕЛЬНОСТИ.'
db ' НАПОМНЮ ЧТО ДАННЫЕ МУЗЫКАЛЬНЫЕ КОМПОЗИЦИИ СОЗДАНЫ В РЕДАКТОРЕ'
db ' "E-TRACKER" И ПОЗАИМСТВОВАНЫ С КОМПЬЮТЕРА "SAM COUPE".'
db ' ИТОГО УЖЕ НА СПЕККИ 380 КОМПОЗИЦИЙ ДОСТУПНЫХ ДЛЯ ПРОСЛУШИВАНИЯ.'
db ' ОСТАЛОСЬ МУЗЫКИ ЕЩЕ НА ТРОЙКУ ВЫПУСКОВ. '
db ' ПРОСЛУШАТЬ МУЗЫКУ МОЖНО ЧЕРЕЗ ЗВУКОВУЮ КАРТУ "ZXM-SOUNDCARD" ИЛИ В ЭМУЛЯТОРЕ "UNREAL SPECCY",'
db ' ПРОПАТЧЕННЫЙ МОЛОДЦОВЫМ АЛЕКСАНДРОМ.'
db ' НЕМНОГО ОБ УПРАВЛЕНИИ. ПЕРЕХОД К СЛЕДУЮЩЕМУ ПРОИЗВЕДЕНИЮ ОСУЩЕСТВЛЯЕТСЯ ПРИ ПОМОЩИ КЛАВИШИ'
db ' "SPACE", ВЫХОД В TR-DOS ПРИ ПОМОЩИ КЛАВИШИ "BREAK"'
db ' О ПРОГРАММЕ: АНИМАЦИЯ СОЗДАНА В ПРОГРАММЕ "BLUFFTITLER" И СКОНВЕРЧЕНА В ФОРМАТ ДАННЫХ ДЛЯ АССЕМБЛЕРА'
db ' ПРИ ПОМОЩИ МАЛЕНЬКИХ ПРОГРАММ-ПОМОШНИКОВ, НЕКОТОРЫЕ ИЗ НИХ НАПИСАЛ НА VISUAL C ОТ МЕЛКОМЯГКИХ(КУДА ЖЕ'
db ' БЕЗ НИХ). ОСТАЛЬНОЕ ВЗЯТО ИЗ ПРЕДЫДУЩИХ ВЫПУСКОВ "E-TUNES" ИЛИ ПРИДУМАНО.'
db ' ВСЕ ЭТО СОБИРАЛОСЬ НА РС ПРИ ПОМОЩИ АССЕМБЛЕРА SJASMPLUS.'
db ' ПРИВЕТЫ И СПАСИБЫ! '
db ' ААА, КАК ВСЕГДА И ВЕЗДЕ ГРОМАДНЫЙ ПРИВЕТИЩЕ. ОПЯТЬ Я ПРИСТАЮ С НОВЫМ ВЫПУСКОМ :)'
db ' ПРИВЕТ ВСЕЙ ГРУППЕ AAA BAND - ЖДЕМ НОВОГОДНИЙ ВЫПУСК "E-TUNES THE BEST" СО'
db ' СНЕГУРКОЙ И ЕЛКОЙ. ОБЕЩАЛИ!!!!'
db ' БОЛЬШУЩИЙ РЕСПЕКТ MOLODCOV_ALEX (МОЛОДЦОВ АЛЕКСАНДР) ЗА ЭМУЛЯТОР.'
db ' RINDEX ПРИВЕТ И СПАСИБО ЗА КРИТИКУ И СОВЕТЫ.'
db ' EWGENY7 ПРИВЕТ И СПАСИБО ЗА БЕТАТЕСТИНГ ЗВУКОВОЙ КАРТЫ И КОРРЕКЦИЮ ПРОШИВКИ "PENTEVO".'
db ' ОТДЕЛЬНОЕ СПАСИБО PIROXILIN ЗА ОПЫТЫ НАД СВОЕЙ "PENTEVO" ЧТОБЫ РАСКРЫТЬ ЕЕ СУЩНОСТЬ И ПРИЧИНУ'
db ' НЕРАБОТОСПОСОБНОСТИ ЗВУКОВУХИ НА ЭВЕ.'
db ' ПРИВЕТ ВЛАДЕЛЬЦАМ КАРТЫ "ZXM-SOUNDCARD". НАЗОВЕМ ИХ ПОИМЕННО: AAA, PIROXILIN, КИРЛИАН, LUZANOV'
db ' И НОВОМУ ПОЛЬЗОВАТЕЛЮ ДМИТРИЮ.'
db ' ВСЕМ ФЕНИКСОИДАМ ОТДЕЛЬНЫЙ ПРИВЕТ :).'
db ' ПРИВЕТ ТАКЖЕ ВСЕМ СПЕКТРУМИСТАМ, БЫВШИМ, НАСТОЯЩИМ И ВОЗМОЖНО БУДУЩИМ.'
db ' НУ ВОТ ПОСЛЕДНИЙ АБЗАЦ ИЛИ ВРОДЕ ТОГО :) :)'
db ' НЕ ЗАБЫВАЕМ ПОСЕЩАТЬ САЙТ WWW.MICKLAB.NAROD.RU ТАМ МОЖНО НАЙТИ ПОСЛЕДНЮЮ ИНФОРМАЦИЮ'
db ' ПО МОИМ ПРОЕКТАМ. СВЯЗАТСЯ СО МНОЙ МОЖНО ЧЕРЕЗ САЙТ WWW.ZX.PK.RU - НИКНЕЙМ MICK ИЛИ ЧЕРЕЗ МЫЛО'
db ' MICKLAB@MAIL.RU '
db ' ПОРА ПРОЩАТЬСЯ. ДО НОВЫХ ТЮНЕСОВ. ПОКА, ПОКА....... 14 ТЮНЕС УЖЕ СКОРО. '
db ' NOVEMBER *2010* GRAPHICS AND CODE BY MICK '
db ' ',0
Str_addr_font:
incbin "font.fnt"
Str_end_font:
; .end