;--------------------------------------------------------------------
; Описание: Бегущая строка
; Автор порта: Тарасов М.Н.(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,50B6h
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
ld a,h
and 7
jr nz,Str_next_line
ld a,l
add a,20h
ld l,a
ld c,a
jr c,Str_next_line
ld a,h
sub 8
ld h,a
Str_next_line:
inc h
ld a,h
and 7
jr nz,Str_next_line_1
ld a,l
add a,20h
ld l,a
ld c,a
jr c,Str_next_line_1
ld a,h
sub 8
ld h,a
Str_next_line_1:
inc de
djnz Str_update_loop
ld a,(Str_count_bit)
dec a
ld (Str_count_bit),a
ret
Str_move_string:
ld de,50B6h
call Str_move_line ;50B6h
inc d
inc d
call Str_move_line ;52B6h
inc d
inc d
call Str_move_line ;54B6h
inc d
inc d
call Str_move_line ;56B6h
ld de,50D6h
call Str_move_line ;50D6h
inc d
inc d
call Str_move_line ;52D6h
inc d
inc d
call Str_move_line ;54D6h
inc d
inc d ;56D6h
Str_move_line:
ld h,d
ld l,e
and a
rl (hl)
dec l
inc h
rl (hl)
dec l
dec h
rl (hl)
dec l
rl (hl)
dec l
inc h
rl (hl)
dec l
dec h
rl (hl)
dec l
inc h
rl (hl)
dec l
dec h
rl (hl)
dec l
inc h
rl (hl)
dec l
dec h
rl (hl)
dec l
inc h
rl (hl)
dec l
dec h
rl (hl)
dec l
inc h
rl (hl)
dec l
dec h
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 ПОД НАЗВАНИЕМ "E-TUNES".'
db ' ДУМАЛ ОН БУДЕТ ПОСЛЕДНИМ, НО КАК ОКАЗАЛОСЬ Я ПОТОРОПИЛСЯ. С МОЛЧАЛИВОГО СОГЛАСИЯ И'
db ' НЕ ТОЛЬКО МОЛЧАЛИВОГО КРИТИКОВ ТЮНЕСАМ ЕЩЕ БЫТЬ. НАДЕРГАЛ Я СНАЧАЛА НЕМНОГО МУЗЫКИ'
db ' И СПРОСИВ ОБЩЕСТВЕННОСТЬ О ЦЕЛЕСООБРАЗНОСТИ ДЕЛАТЬ НОВЫЙ ТЮНЕС, А МУЗЫКА СКАЖЕМ НЕ ХИТОВАЯ,'
db ' НА ЧТО RINDEX ОТВЕТИЛ ЧТО ЛУЧШЕ ТАКАЯ МУЗЫКА ЧЕМ НИЧЕГО. Я СОБСТВЕННО ЧТОБЫ НАБРАТЬ МУЗОНОВ'
db ' НА 17 ТЮНЕС РАСПОТРОШИЛ НЕСКОЛЬКО ЖУРНАЛОВ С SAM COUPE. В ИТОГЕ МУЗЫКИ НАБРАЛОСЬ АЖ НА 19'
db ' ВЫПУСК. ТАК ЧТО РАНО С ВАМИ ПОПРАЩАЛСЯ :) :) :) КАК ГОВОРИТСЯ НЕ ДОЖДЕТЕСЬ :) :) :)'
db ' ЛАДНО ТЕПЕРЬ О ВЫПУСКЕ. ИДЕЙ ПОКА НЕ БЫЛО ОСОБО, ПОЭТОМУ ПРОСТО ОФОРМИЛ, ДА И АНАЛИЗАТОРЫ'
db ' ИЗРЯДНО ОТЖИРАЮТ РЕСУРСЫ. КСТАТИ ПРО АНАЛИЗАТОРЫ. ИДЕЯ ВОПЛОТИТЬ ТАКИЕ АНАЛИЗАТОРЫ ВОЗНИКЛА СО'
db ' ВРЕМЕН 10 ТЮНЕСА, КОГДА ОПРОБОВАЛ СВОИ ПЕРВЫЕ СТРЕЛОЧНЫЕ АНАЛИЗАТОРЫ. ТЕПЕРЬ СКАЗАТЬ ПРИШЛО ИХ'
db ' ВРЕМЯ. ЕСЛИ КТО ПОМНИТ НАШИ СТАРЕНЬКИЕ МАГНИТОФОНЧИКИ, ТО МОГУТ ДОГАДАТЬСЯ С ЧЕГО Я ДЕЛАЛ ЭТИ'
db ' АНАЛИЗАТОРЫ. ВРОДЕ ПОЛУЧИЛИСЬ НОРМАЛЬНЕНЬКО. НУ В ОСТАЛЬНОМ ВСЕ ДОСТАТОЧНО ПРОСТЕНЬКО. '
db ' ИТАК, ЭТО УЖЕ ШЕСТНАДЦАТЫЙ ВЫПУСК ДЕМО-ПРОГРАММЫ "E-TUNES".'
db ' ЭТОТ ВЫПУСК ВКЛЮЧАЕТ В СЕБЯ 30 МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ РАЗНОЙ ПРОДОЛЖИТЕЛЬНОСТИ.'
db ' НАПОМНЮ ЧТО ДАННЫЕ МУЗЫКАЛЬНЫЕ КОМПОЗИЦИИ СОЗДАНЫ В РЕДАКТОРЕ'
db ' "E-TRACKER" И ПОЗАИМСТВОВАНЫ С КОМПЬЮТЕРА "SAM COUPE".'
db ' ИТОГО УЖЕ НА СПЕККИ 470 КОМПОЗИЦИЙ ДОСТУПНЫХ ДЛЯ ПРОСЛУШИВАНИЯ.'
db ' ЕЩЕ МУЗЫКА ЕСТЬ, А ЗНАЧИТ И ТЮНЕСЫ ДОЛЖНЫ БЫТЬ :) . '
db ' ПРОСЛУШАТЬ МУЗЫКУ МОЖНО ЧЕРЕЗ ЗВУКОВУЮ КАРТУ "ZXM-SOUNDCARD" ИЛИ В ЭМУЛЯТОРЕ "UNREAL SPECCY",'
db ' ПРОПАТЧЕННЫЙ МОЛОДЦОВЫМ АЛЕКСАНДРОМ.'
db ' НЕМНОГО ОБ УПРАВЛЕНИИ. ПЕРЕХОД К СЛЕДУЮЩЕМУ ПРОИЗВЕДЕНИЮ ОСУЩЕСТВЛЯЕТСЯ ПРИ ПОМОЩИ КЛАВИШИ'
db ' "SPACE", ВЫХОД В TR-DOS ПРИ ПОМОЩИ КЛАВИШИ "BREAK"'
db ' О ПРОГРАММЕ: СТОИТ УПОМЯНУТЬ ЧТО ЗВЕЗДОЧКИ СТЯНУЛ ИЗ ПРОГРАММЫ "ZYX ZAX BOOT".'
db ' ОСТАЛЬНОЕ ВЗЯТО ИЗ ПРЕДЫДУЩИХ ВЫПУСКОВ'
db '"E-TUNES" ИЛИ ПРИДУМАНО. ВСЕ ЭТО СОБИРАЛОСЬ НА РС ПРИ ПОМОЩИ АССЕМБЛЕРА SJASMPLUS.'
db ' ТЕПЕРЬ ПРИВЕТЫ И СПАСИБЫ! '
db ' ААА, КАК ВСЕГДА И ВЕЗДЕ ГРОМАДНЫЙ ПРИВЕТИЩЕ. У ААА ПОХОЖЕ КАКИЕ ТО ИНОПЛАНЕТНЫЕ ПРОБЛЕМЫ РАЗ ОН'
db ' ПОКА ЗАБИЛ НА ДЕМОМЕЙКИНГ. КАК ТЯЖЕЛО НАВЕРНОЕ БЫТЬ ИНОПЛАНЕТЯНИНОМ :)'
db ' БОЛЬШУЩИЙ РЕСПЕКТ MOLODCOV_ALEX (МОЛОДЦОВ АЛЕКСАНДР) ЗА ЭМУЛЯТОР.'
db ' RINDEX ПРИВЕТ И СПАСИБО ЗА КРИТИКУ И СОВЕТЫ.'
db ' ПРИВЕТ ВЛАДЕЛЬЦАМ КАРТЫ "ZXM-SOUNDCARD". НАЗОВЕМ ИХ ПОИМЕННО: AAA, PIROXILIN, КИРЛИАН, LUZANOV,'
db ' ДМИТРИЙ И EWGENY7 .'
db ' ВСЕМ ФЕНИКСОИДАМ ОТДЕЛЬНЫЙ ПРИВЕТ :).'
db ' ПРИВЕТ ТАКЖЕ ВСЕМ СПЕКТРУМИСТАМ, БЫВШИМ, НАСТОЯЩИМ И ВОЗМОЖНО БУДУЩИМ.'
db ' НУ ВОТ ПОСЛЕДНИЙ АБЗАЦ ИЛИ ВРОДЕ ТОГО :) :)'
db ' НЕ ЗАБЫВАЕМ ПОСЕЩАТЬ САЙТ WWW.MICKLAB.NAROD.RU ТАМ МОЖНО НАЙТИ ПОСЛЕДНЮЮ ИНФОРМАЦИЮ'
db ' ПО МОИМ ПРОЕКТАМ. СВЯЗАТСЯ СО МНОЙ МОЖНО ЧЕРЕЗ САЙТ WWW.ZX.PK.RU - НИКНЕЙМ MICK ИЛИ ЧЕРЕЗ МЫЛО'
db ' MICKLAB@MAIL.RU '
db ' ПОРА ПРОЩАТЬСЯ. ДО НОВЫХ ТЮНЕСОВ. ПОКА, ПОКА....... ЕЩЕ БУДУТ ТЮНЕСЫ, НАВЕРНОЕ :) . '
db ' FEBRUARY *2011* GRAPHICS AND CODE BY MICK '
db ' ',0
Str_addr_font:
incbin "font.fnt"
Str_end_font:
; .end