(c) Жиленков Сергей, Мурманская
обл., пос.Видяево
Предлагаю вам одну из сво-
их "зажигалок", которая довольно
эффектно выводит на экран кар-
тинку, помещенную в буфер - эк-
ран раздвигается влево и вправо
от центра с шагом, равным знако-
месту (действие ведется одновре-
менно и с графикой, и с атрибу-
тами), причем если перед этим на
экране уже находилось изображе-
ние, то оно также раздвигается,
пока не исчезнет за краями экра-
на (как в программе "Doors" - ZX
РЕВЮ 93, стр.121). Программа ре-
лоцируема и занимает всего 56
байтов. Наберите - не пожалеете!
140.
BUF EQU 40056
;адрес буфера
LD C,16
L0 LD HL,16385
LD B,216
HALT
L1 PUSH BC
LD BC,15
PUSH BC
PUSH HL
POP DE
DEC DE
LDIR
POP BC
ADD HL,BC
PUSH HL
POP DE
DEC HL
LDDR
POP BC
PUSH BC
PUSH HL
LD DE,BUF-16383
ADD HL,DE
LD B,0
SBC HL,BC
LD E,(HL)
DEC HL
ADD HL,BC
ADD HL,BC
LD D,(HL)
POP HL
LD (HL),E
INC HL
LD (HL),D
LD DE,17
ADD HL,DE
POP BC
DJNZ L1
DEC C
JR NZ,L0
RET
* * *
