(c) А.Журавлев, г.Воронеж, 1996
Хочу внести маленький вклад в раздел "ЭТЮДЫ". Эта процедура симпатично
зажигает строку символов по одному. Похожий эффект я видел в загрузчике
MORTAL KOMBAT.
ORG 40000
ENT
LD A,6 ;Конечный INC.
LD HL,22528 ;Адрес в файле атрибутов
;для нулевой строки экрана.
LD BC,32 ;32 символа в строке.
L1 PUSH AF
L2 INC (HL)
DEC A
HALT
JR NZ,L2
POP AF
INC HL
DJNZ L1
RET
Перед выводом картинки нужно вывести на экран надпись, INK и PAPER
должны быть черными.
Программа на BASIC'е для демонстрации эффекта:
5 GOTO 20
10 RANDOMIZE USR 15619: REM: LOAD "PROG" CODE 40000
20 INK 0: PAPER 0: BORDER 0: CLS
30 PRINT AT 0,0;" FLASH (C) AZH soft 1996"
40 RANDOMIZE USR 40000: INK 6
Еще хочу сообщить об одной неточности. В ZX-РЕВЮ 95/5 на стр. 31
должно быть 210 TEXT DEFS 1 вместо DEFS 0, а то некоторые ассемблеры не
понимают команду DEFS 0. Например TASM 128 зависает.
