;--------------------------------------------------------------------
; Описание: Бегущая строка
; Автор порта: Тарасов М.Н.(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,16
ld (Str_count_bit),a
ret
Str_update_string:
ld a,(Str_count_bit)
dec a
ld (Str_count_bit),a
and 1
ret nz
ld de,Str_symbol_buf
ld bc,0
ld a,(de)
rlca
ld (de),a
rl c
ld hl,5056h
ld a,(hl)
and 0FEh
or c
ld (hl),a
ld c,b
inc de
ld a,(de)
rlca
ld (de),a
rl c
inc h
ld a,(hl) ;4AD3h
and 0FEh
or c
ld (hl),a
ld c,b
inc de
ld a,(de)
rlca
ld (de),a
rl c
inc h
ld a,(hl) ;54B3h
and 0FEh
or c
ld (hl),a
ld c,b
inc de
ld a,(de)
rlca
ld (de),a
rl c
inc h
ld a,(hl) ;56B3h
and 0FEh
or c
ld (hl),a
ld c,b
inc de
ld a,(de)
rlca
ld (de),a
rl c
inc h
ld a,(hl) ;4AD3h
and 0FEh
or c
ld (hl),a
ld c,b
inc de
ld a,(de)
rlca
ld (de),a
rl c
inc h
ld a,(hl) ;54B3h
and 0FEh
or c
ld (hl),a
ld c,b
inc de
ld a,(de)
rlca
ld (de),a
rl c
inc h
ld a,(hl) ;56B3h
and 0FEh
or c
ld (hl),a
ld c,b
inc de
ld a,(de)
rlca
ld (de),a
rl c
inc h
ld a,(hl) ;56B3h
and 0FEh
or c
ld (hl),a
ret
Str_move_string:
ld de,5056h
call Str_move_line
inc d
call Str_move_line ;52B3h
inc d
call Str_move_line ;54B3h
inc d
call Str_move_line ;56B3h
inc d
call Str_move_line
inc d
call Str_move_line ;52B3h
inc d
call Str_move_line ;54B3h
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)
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 ' *LOAD*',0
Str_addr_text:
db ' ПРИВЕТ! ПРИВЕТ! И ОПЯТЬ MICK ПРИВЕТСТВУЕТ ВАС!!!'
db ' ВОТ И ПОСЛЕДНИЙ ВЫПУСК ТЮНЕСА. ОН ОКАЗАЛСЯ КРУГЛЫМ - АЖ 20. ЕСЛИ ПОСМОТРЕТЬ НА ИСТОРИЮ СОЗДАНИЯ'
db ' ВЫПУСКОВ, ТО МОЖНО ЗАМЕТИТЬ ЧТО ЧУТЬ БОЛЬШЕ ГОДА Я НАДОЕДАЛ ВАМ СО СВОИМИ СБОРНИКАМИ. ТЕПЕРЬ УЖ'
db ' ОТСТАНУ, МУЗЫКА ЗАКОНЧИЛАСЬ ПО КРАЙНЕЙ МЕРЕ ИЗ МОИХ ЗАПАСОВ. ИДЕЙ ОСОБО НИ КАКИХ НЕ ВОЗНИКЛО, ДА И'
db ' ЗАТЯГИВАТЬ С ВЫПУСКОМ СБОРНИКА НЕ ИМЕЛО СМЫСЛА. ВОТ ВСЕ ЧТО МОГ ИЗОБРАЗИТЬ. КСТАТИ RINDEX НАВЕРНОЕ ДОГАДАЛСЯ'
db ' ЧТО ПОСЛУЖИЛО ОСНОВОЙ ДЛЯ БУКВ И НОМЕРА. ХОТЕЛ ЕЩЕ В 8 ВЫПУСКЕ БУКВЫ ТАКИЕ ПРИЛЕПИТЬ. AAA ТАМ ДАЖЕ НАБРОСКИ ДАВАЛ,'
db ' НО БЫЛИ КАК ТО НЕ К МЕСТУ. А ТУТ КАК РАЗ ПРИШЛИСЬ. НАДЕЮСЬ СИЛЬНО НЕ БУДЕШЬ РУГАТЬСЯ. ТАКЖЕ ВСПОМНИЛ НЕМНОГО'
db ' ПРО АНИМАЦИЮ, ТАК СКАЗАТЬ ПОВТОРЕНИЕ ЭТО ЧЬЯ ТО МАТЬ :) :) ИЗ ПРОШЕДШИХ СОБЫТИЙ ОТМЕЧУ ПОЕЗДКУ НА СВОЕ ПЕРВОЕ'
db ' ПАТИ - ARTFIELD 2011. ДАЖЕ ПО ЭТОМУ ПОВОДУ СЛОБАЛ НЕБОЛЬШУЮ ОДНОЭКРАННУЮ ДЕМКУ. ВОБЩЕМ Я ОСТАЛСЯ ДОВОЛЕН,'
db ' ПРАВДА НЕМНОГО ВСЕ ТАКИ ПОВОРЧАЛ ПО ПОВОДУ ОРГАНИЗАЦИИ :) :) НУ ВОТ ВРОДЕ И ВСЕ. КСТАТИ ОПЯТЬ ВЫПУСК ПРИУРОЧЕН К ПРАЗДНИКУ'
db ' 12 ИЮНЯ. ЗАОДНО УЖЕ НА СЛЕДУЮЩЕЙ НЕДЕЛЕ ВЫХОДИТ DUKE NUKEM FOREVER - УХ СВИНОК ПОГОНЯЮ :) :) '
db ' ИТАК, ЭТО УЖЕ ДВАДЦАТЫЙ ВЫПУСК ДЕМО-ПРОГРАММЫ "E-TUNES", ОН ЖЕ И ЗАКЛЮЧИТЕЛЬНЫЙ.'
db ' ЭТОТ ВЫПУСК ВКЛЮЧАЕТ В СЕБЯ 27 МУЗЫКАЛЬНЫХ КОМПОЗИЦИЙ РАЗНОЙ ПРОДОЛЖИТЕЛЬНОСТИ.'
db ' НАПОМНЮ ЧТО ДАННЫЕ МУЗЫКАЛЬНЫЕ КОМПОЗИЦИИ СОЗДАНЫ В РЕДАКТОРЕ'
db ' "E-TRACKER" И ПОЗАИМСТВОВАНЫ С КОМПЬЮТЕРА "SAM COUPE".'
db ' ИТОГО УЖЕ НА СПЕККИ 587 КОМПОЗИЦИЙ ДОСТУПНЫХ ДЛЯ ПРОСЛУШИВАНИЯ.'
db ' ПРОСЛУШАТЬ МУЗЫКУ МОЖНО ЧЕРЕЗ ЗВУКОВУЮ КАРТУ "ZXM-SOUNDCARD" ИЛИ В ЭМУЛЯТОРЕ "UNREAL SPECCY",'
db ' ПРОПАТЧЕННЫЙ МОЛОДЦОВЫМ АЛЕКСАНДРОМ.'
db ' НЕМНОГО ОБ УПРАВЛЕНИИ. ПЕРЕХОД К СЛЕДУЮЩЕМУ ПРОИЗВЕДЕНИЮ ОСУЩЕСТВЛЯЕТСЯ ПРИ ПОМОЩИ КЛАВИШИ'
db ' "SPACE", ВЫХОД В TR-DOS ПРИ ПОМОЩИ КЛАВИШИ "BREAK"'
db ' О ПРОГРАММЕ: МАТЕРИАЛ ДЛЯ БУКВ НАГЛЫМ ОБРАЗОМ ПОЗАИМСТВОВАЛ ИЗ ГИФТА ОТ RINDEX.'
db ' АНИМАЦИЯ СОЗДАНА В ПРОГРАММЕ "BLUFFTITLER" И СКОНВЕРЧЕНА В ФОРМАТ ДАННЫХ ДЛЯ АССЕМБЛЕРА'
db ' ПРИ ПОМОЩИ МАЛЕНЬКИХ ПРОГРАММ-ПОМОШНИКОВ, НЕКОТОРЫЕ ИЗ НИХ НАПИСАЛ НА VISUAL C ОТ МЕЛКОМЯГКИХ.'
db ' ОСТАЛЬНОЕ ВЗЯТО ИЗ ПРЕДЫДУЩИХ ВЫПУСКОВ'
db ' "E-TUNES" ИЛИ ПРИДУМАНО. ВСЕ ЭТО СОБИРАЛОСЬ НА РС ПРИ ПОМОЩИ АССЕМБЛЕРА SJASMPLUS.'
db ' ПОСТОЯННАЯ РУБРИКА - ПРИВЕТЫ И СПАСИБЫ! '
db ' ААА, КАК ВСЕГДА И ВЕЗДЕ ГРОМАДНЫЙ ПРИВЕТИЩЕ. С ПРОШЕДШИМ ДНЕМ РОЖДЕНИЯ!'
db ' БОЛЬШУЩИЙ РЕСПЕКТ MOLODCOV_ALEX (МОЛОДЦОВ АЛЕКСАНДР) ЗА ЭМУЛЯТОР.'
db ' RINDEX ПРИВЕТ И СПАСИБО ЗА КРИТИКУ И СОВЕТЫ, НУ И ЗА ГИФТ ТОЖЕ СПАСИБОЧКИ'
db ' ПРИВЕТ ВЛАДЕЛЬЦАМ КАРТЫ "ZXM-SOUNDCARD". НАЗОВЕМ ИХ ПОИМЕННО: AAA, PIROXILIN, КИРЛИАН, LUZANOV,'
db ' ДМИТРИЙ И EWGENY7 .'
db ' ВСЕМ ФЕНИКСОИДАМ ОТДЕЛЬНЫЙ ПРИВЕТ :).'
db ' ПРИВЕТ ZEK И ZOREL ЗА ВЫПУСК ТРЕТЬЕЙ РЕВИЗИИ ПЕРВОГО ФЕНИКСА. БЫЛ ФЕНИКС ЗЕЛЕНЫМ, ПОТОМ СИНИМ,'
db ' А ТЕПЕРЬ КРАСНЫМ - РУЛЕЗ!'
db ' ПРИВЕТ ТАКЖЕ ВСЕМ СПЕКТРУМИСТАМ, БЫВШИМ, НАСТОЯЩИМ И ВОЗМОЖНО БУДУЩИМ.'
db ' И ПОСЛЕДНИЙ АБЗАЦ :) :)'
db ' НЕ ЗАБЫВАЕМ ПОСЕЩАТЬ САЙТ WWW.MICKLAB.NAROD.RU ТАМ МОЖНО НАЙТИ ПОСЛЕДНЮЮ ИНФОРМАЦИЮ'
db ' ПО МОИМ ПРОЕКТАМ. СВЯЗАТСЯ СО МНОЙ МОЖНО ЧЕРЕЗ САЙТ WWW.ZX.PK.RU - НИКНЕЙМ MICK ИЛИ ЧЕРЕЗ МЫЛО'
db ' MICKLAB@MAIL.RU '
db ' ПОРА ПРОЩАТЬСЯ. НА СЕЙ РАЗ ОКОНЧАТЕЛЬНО :) ПОКА! ПОКА! '
db ' IT', 27h,'S FINISH '
db ' JUNE *2011* GRAPHICS AND CODE BY MICK '
db ' ',0
Str_addr_font:
incbin "font.fnt"
Str_end_font:
; .end