Процедура "Снег"
(С) Максим Мучкаев,
г.Самара, 1995.
Предлагаю доработку процедуры "Снег" Романа Щербакова, опубликованной в ZX-PEBK)*-95, N2, на стр.30. При этом устраняется недостаток, 6 котором ИНФОРКОМ упомянул в конце статьи. Для доработки наберите листинг:
|
LD |
В,7 |
|
LD |
Е,(HL) |
|
INC |
HL |
|
LD |
D,(HL) |
|
INC |
HL |
|
LD |
A,(DE) |
|
LD |
(HL),А |
|
INC |
HL |
|
INC |
D |
|
LD |
A,(DE) |
|
LD |
(HL),А |
|
ЩС |
(HL) |
DJNZ F1 LD В,14
F2 LD Е, (HL) INC HL LD D,(HL) INC HL LD A,(DE) LD (HL),A INC HL DJNZ F2 RET
Перед входом в эту процедуру в регистре HL должен находиться адрес начала таблицы/буфера.
Порядок работы теперь таков.
1. Вывести на экран картинку.
2. Вызвать вышеописанную процедуру .
3. Циклически вызывать процедуру "Снег".
Теперь читатели ZX-РЕВЮ могут подумать о том, как передать в HL адрес таблицы/буфера, чтобы программа стала вновь релоцируемой. ★ * *
