;--------------------------------------------------------------------
; Описание: Бегущая строка
; Автор порта: Тарасов М.Н.(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 (Str_addr_symb),hl
ld a,8
ld (Str_count_bit),a
ret
Str_update_symbol:
ld hl, (Str_addr_symb)
ld a,(Str_count_bit)
ld c,a
dec c
ld b,0
add hl,bc
ld a,(hl)
ld de, 4820h
ld (de),a
ld hl, (Str_addr_symb)
ld a,(Str_count_bit)
ld c,a
ld a,8
sub c
ld c,a
add hl,bc
ld a,(hl)
ld de, 573Fh
ld (de),a
ld a,(Str_count_bit)
dec a
ld (Str_count_bit),a
ret
Str_draw_symbol_up:
ld de,483Fh
ld h,d
inc h
ld l,e
ld b,8
Str_loop_up:
ld a,(hl)
ld (de),a ;48
inc h
inc d
ld a,(hl)
ld (de),a ;49
inc h
inc d
ld a,(hl)
ld (de),a ;4a
inc h
inc d
ld a,(hl)
ld (de),a ;4b
inc h
inc d
ld a,(hl)
ld (de),a ;4c
inc h
inc d
ld a,(hl)
ld (de),a ;4d
inc h
inc d
ld a,(hl) ;4f
ld (de),a ;4e
ld d,h
ld e,l
inc h
ld a,h
and 7
jr nz,Str_next_line_up
ld a,l
add 20h
ld l,a
jr c,Str_next_line_up
ld a,h
sub 8
ld h,a
Str_next_line_up:
ld a,(hl)
ld (de),a
ld d,h
ld e,l
inc h
djnz Str_loop_up
ld a,(hl)
ld (de),a
inc h
inc d
ld a,(hl)
ld (de),a
inc h
inc d
ld a,(hl)
ld (de),a
inc h
inc d
ld a,(hl)
ld (de),a
inc h
inc d
ld a,(hl)
ld (de),a
inc h
inc d
ld a,(hl)
ld (de),a
inc h
inc d
ld a,(hl)
ld (de),a
ret
Str_draw_symbol_dw:
ld de,5720h
ld h,d
dec h
ld l,e
ld b,8
Str_loop_dw:
ld a,(hl)
ld (de),a ;48
dec h
dec d
ld a,(hl)
ld (de),a ;49
dec h
dec d
ld a,(hl)
ld (de),a ;4a
dec h
dec d
ld a,(hl)
ld (de),a ;4b
dec h
dec d
ld a,(hl)
ld (de),a ;4c
dec h
dec d
ld a,(hl)
ld (de),a ;4d
dec h
dec d
ld a,(hl) ;4f
ld (de),a ;4e
ld d,h
ld e,l
dec h
ld a,l
sub 20h
ld l,a
cp 0E0h
jr z,Str_next_line_dw
ld a,h
add 8
ld h,a
Str_next_line_dw:
ld a,(hl)
ld (de),a
ld d,h
ld e,l
dec h
djnz Str_loop_dw
ld a,(hl)
ld (de),a
dec h
dec d
ld a,(hl)
ld (de),a
dec h
dec d
ld a,(hl)
ld (de),a
dec h
dec d
ld a,(hl)
ld (de),a
dec h
dec d
ld a,(hl)
ld (de),a
dec h
dec d
ld a,(hl)
ld (de),a
dec h
dec d
ld a,(hl)
ld (de),a
ret
Str_flg_end:
db 0
Str_count_bit:
db 0
Str_addr_work:
dw 0
Str_addr_symb:
dw 0
Str_addr_load:
db 'LOADING ',0
Str_addr_text:
db ' ПРИВЕТ! С ВАМИ ОПЯТЬ БЕССМЕННЫЙ КЛЕПАТЕЛЬ ТЮНЕСОВ, MICK!!!! '
db 'ВОТ И ВЫШЕЛ ОЧЕРЕДНОЙ ВЫПУСК, СПУСТЯ ПАРУ ДНЕЙ ПОСЛЕ ТРИНАДЦАТОГО ВЫПУСКА.'
db ' ТУТ У ААА ЛОМКА ОТ БЕЗДЕМЬЕ ВОЗНИКАЕТ СПУСТЯ 48 ЧАСОВ ПОСЛЕ ПРОСМОТРА ЛЮБОЙ ДЕМЫ.'
db ' ДА И В ДОБАВОК ОН АЛЬФА РЕЛИЗ УЖЕ ВИДЕЛ, Я НЕ УДЕРЖАЛСЯ И ПОХВАЛИЛСЯ ЕМУ АНАЛИЗАТОРАМИ.'
db ' ПОЭТОМУ И ВЫШЕЛ ОН ТАК БЫСТРО :). СКАЗАТЬ ПО ПРАВДЕ, ЭТОТ ВЫПУСК БЫЛ ГОТОВ СРАЗУ ПОСЛЕ 11'
db ' ВЫПУСКА. ИДЕЯ ТАКИХ АНАЛИЗАТОРОВ ПРИШЛА ТОГДА, ДАЙ ДУМАЮ ПОСТЕБАЮСЬ НАД ЛАМПАМИ ТИПА 6Е1П'
db ' ИЛИ ИМ ПОДОБНЫМ. РЕЗУЛЬТАТ ВИДЕН ТАК СКАЗАТЬ НА ЭКРАНЕ. ГРАФИЧЕСКОЕ ОФОРМЛЕНИЕ ДОСТАТОЧНО'
db ' ПРОСТОЕ, АНИМАЦИИ СЧИТАЙ НЕТ. В ПРИНЦИПЕ МОЖНО ОДИН ВЫПУСК И ОТДОХНУТЬ ОТ ВСЯКИХ ТАМ ЭФФЕКТОВ :)'
db ' ВООБЩЕМ САМИ ОЦЕНИВАЙТЕ И КОММЕНТИРУЙТЕ, ПОСЛЕ ЭТОГО ВЫПУСКА НЕМНОГО ПЕРЕДОХНУ И БУДУ'
db ' БОРОТЬСЯ С ЛЕНЬЮ, ДАБЫ ЧТО НИБУДЬ СЛОБАТЬ НА "AAA DEMO COMPO 2010" ДЛЯ МАССОВОСТИ.'
db ' ИДЕИ НА ПАРУ ЧАСТЕЙ ДЕМО ЕСТЬ, А ВОТ ХВАТИТ ЛИ МОЗГОВ - ВОТ В ЧЕМ ВОПРОС ;).'
db ' НУ ДА ЛАДНО, ПЕРЕХОДИМ К ОФИЦИАЛЬНОЙ ЧАСТИ. '
db ' ИТАК, ЭТО УЖЕ ЧЕТЫРНАДЦАТЫЙ ВЫПУСК ДЕМО-ПРОГРАММЫ "E-TUNES".'
db ' ЭТОТ ВЫПУСК ВКЛЮЧАЕТ В СЕБЯ 30 МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ РАЗНОЙ ПРОДОЛЖИТЕЛЬНОСТИ.'
db ' НАПОМНЮ ЧТО ДАННЫЕ МУЗЫКАЛЬНЫЕ КОМПОЗИЦИИ СОЗДАНЫ В РЕДАКТОРЕ'
db ' "E-TRACKER" И ПОЗАИМСТВОВАНЫ С КОМПЬЮТЕРА "SAM COUPE".'
db ' ИТОГО УЖЕ НА СПЕККИ 410 КОМПОЗИЦИЙ ДОСТУПНЫХ ДЛЯ ПРОСЛУШИВАНИЯ.'
db ' МУЗЫКИ ЕЩЕ НА ПАРУ ВЫПУСКОВ ТОЧНО ХВАТИТ, ПОЭТОМУ ЕЩЕ НЕМНОГО ПОНАДОЕДАЮ ВАМ :). '
db ' ПРОСЛУШАТЬ МУЗЫКУ МОЖНО ЧЕРЕЗ ЗВУКОВУЮ КАРТУ "ZXM-SOUNDCARD" ИЛИ В ЭМУЛЯТОРЕ "UNREAL SPECCY",'
db ' ПРОПАТЧЕННЫЙ МОЛОДЦОВЫМ АЛЕКСАНДРОМ.'
db ' НЕМНОГО ОБ УПРАВЛЕНИИ. ПЕРЕХОД К СЛЕДУЮЩЕМУ ПРОИЗВЕДЕНИЮ ОСУЩЕСТВЛЯЕТСЯ ПРИ ПОМОЩИ КЛАВИШИ'
db ' "SPACE", ВЫХОД В TR-DOS ПРИ ПОМОЩИ КЛАВИШИ "BREAK"'
db ' О ПРОГРАММЕ: КАК ВСЕГДА ДВИЖОК ТЮНЕСА КОЧУЕТ ОТ ВЫПУСКА К ВЫПУСКУ, ОБРАСТАЯ РАЗНООБРАЗНЫМ МЯСЦОМ.'
db ' ВСЕ ЭТО СОБИРАЕТСЯ ПО ПРЕЖНЕМУ НА РС ПРИ ПОМОЩИ АССЕМБЛЕРА SJASMPLUS.'
db ' ПРИВЕТЫ И СПАСИБЫ! '
db ' ААА, КАК ВСЕГДА И ВЕЗДЕ ГРОМАДНЫЙ ПРИВЕТИЩЕ. ВОТ ТЕБЕ ДЕМКА, А ТО ЛОМКА ЭТО НЕ ХОРОШО :)'
db ' ПРИВЕТ ВСЕЙ ГРУППЕ AAA BAND - НАПОМНЮ ПРО НОВОГОДНИЙ ВЫПУСК "E-TUNES THE BEST" СО'
db ' СНЕГУРКОЙ И ЕЛКОЙ. ОБЕЩАЛИ, ЖДЕМС!!!!'
db ' БОЛЬШУЩИЙ РЕСПЕКТ MOLODCOV_ALEX (МОЛОДЦОВ АЛЕКСАНДР) ЗА ЭМУЛЯТОР.'
db ' RINDEX ПРИВЕТ И СПАСИБО ЗА КРИТИКУ И СОВЕТЫ.'
db ' EWGENY7, ДМИТРИЙ, PIROXILIN СПАСИБО ЗА ТЕСТИНГ ЗВУКОВУХИ НА РАЗЛИЧНЫХ КОМПАХ, ОТЛИЧНЫХ ОТ ФЕНИКСА.'
db ' ПРИВЕТ ВЛАДЕЛЬЦАМ КАРТЫ "ZXM-SOUNDCARD". НАЗОВЕМ ИХ ПОИМЕННО: AAA, PIROXILIN, КИРЛИАН, LUZANOV'
db ' И ДМИТРИЮ.'
db ' ВСЕМ ФЕНИКСОИДАМ ОТДЕЛЬНЫЙ ПРИВЕТ :).'
db ' ПРИВЕТ ТАКЖЕ ВСЕМ СПЕКТРУМИСТАМ, БЫВШИМ, НАСТОЯЩИМ И ВОЗМОЖНО БУДУЩИМ. '
db ' НЕ ЗАБЫВАЕМ ПОСЕЩАТЬ САЙТ WWW.MICKLAB.NAROD.RU ТАМ МОЖНО НАЙТИ ПОСЛЕДНЮЮ ИНФОРМАЦИЮ'
db ' ПО МОИМ ПРОЕКТАМ. СВЯЗАТСЯ СО МНОЙ МОЖНО ЧЕРЕЗ САЙТ WWW.ZX.PK.RU - НИКНЕЙМ MICK ИЛИ ЧЕРЕЗ МЫЛО'
db ' MICKLAB@MAIL.RU '
db ' ПОРА ПРОЩАТЬСЯ. ДО НОВЫХ ТЮНЕСОВ. ИХ НЕ ТАК МНОГО ОСТАЛОСЬ :) '
db ' DECEMBER *2010* GRAPHICS AND CODE BY MICK '
db ' ',0
Str_addr_font:
incbin "font.fnt"
Str_end_font:
; .end