ZX Review
#7-8-9-10
08 ноября 1997 |
|
Этюды - Программа вывода картинки.
(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 * * *
Другие статьи номера:
Похожие статьи:
В этот день... 13 декабря