© Командин Илья, г. Калуга.
КОРР: Предлагаю пару процедур проявления экрана.
; "APPERNCE BY PLOT"
; (C) ZX-MANIAC, 1995
50000 $
40000 B, 10
HL,16384 DE,ADDR A, R DE, HL (HL) DE, HL (HL) (HL),A HL DE A, H
ORG
ENT
EQU
LD
LD
LD
LD
EX
AND
EX
OR
LD
INC
INC
LD
CP
JR NZ,M2
DJNZ M1
LD HL,ADDR
LD DE,16384
LD BC,6912
LDIR
RET
Длина процедуры 36 байт.
Данная процедура проявляет картинку, загруженную по адресу ADDR, по точкам в случайном порядке, используя регистр регенерации.
Следующая процедура действует так: по экрану пробегает квадрат желтого цвета, оставляя за собой проявленную картинку. Эффект достигается за счет манипуляции атрибутами. Скорость работы программы может регулироваться в широких пределах путем изменения числа в метке "PAUSE". "APPERNCE BY PLOT" (C) ZX-MANIAC, 1995
50000 $
40000 1300
HL,22528 DE,22529 BC,7 67 (HL),0
HL,ADDR DE,16384 BC,6144
BC,7 68 A,54 (DE),A HL
HL,PAUSE
HL
A, H
L
NZ,WAIT HL
A, (HL) (DE),A HL DE BC A, B C
NZ,LOOP
ORG ENT EQU EQU
LD LD LD LD
LDIR LD LD LD
LDIR LD LD LD
PUSH LD DEC LD OR JR POP LD LD INC INC DEC LD OR JR RET
Длина процедуры 50 байт.
Обе процедуры лучше всего смотрятся при темном PAPER и светлом INK.
