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

           *   *   *