ZX Review #11-12 26 ноября 1997

Этюды - Графический эффект "плазма 2".

   А теперь - следующий  эффект.
По логике  работы  он  похож  на
предыдущий, но  выглядит  совер-
шенно по-другому. Здесь происхо-
дит  не  изменение  атрибутов, а
изменение  штриховки  знакомест.
Именно он используется в  качес-
тве Screen Saver'а в этом номере 
"РЕВЮ" (нажмите CS+S для его вы-
зова, а клавишей C  переключайте
цвета).
140.
;--------------------------;
3; (c) Иван Рощин, 1997     ;
; ЭФФЕКТ "PLASMA-2"        ;
;--------------------------;

BUF     EQU     #8000  ;Адрес буфера

;Установка атрибутов:

        LD      HL,#5800
        LD      (HL),%00101111
        LD      DE,#5801
        LD      BC,#2FF
        LDIR

;Очищаем буферную область
;(#640 байт с адреса BUF):

        LD      HL,BUF
        LD      (HL),0
        LD      DE,BUF+1
        LD      BC,#63F
        LDIR

;Переносим содержимое верхней строки
;буферной области вниз и наоборот,
;т.е. экран как бы замкнут по вертикали:

M2      LD      HL,BUF+32
        LD      DE,BUF+#300+32
        LD      BC,32
        LDIR
        LD      HL,BUF+#300
        LD      DE,BUF
        LD      BC,32
        LDIR

;В цикле обновляем атрибуты в буфере:

        LD      IX,BUF+32
M1      LD      A,(IX+1)
        ADD     A,(IX-1)
        ADD     A,(IX+32)
        ADD     A,(IX-32)

        SRL     A
        DEC     A
        SRL     A

        LD      (IX),A
        CALL    TO_SCR
        INC     IX
        LD      A,XL
        CP   BUF+#320-((BUF+#320)/256*256)
        JP      NZ,M1
        LD      A,XH
        CP      (BUF+#320)/256
        JP      NZ,M1

;Обновили весь буфер:

        XOR     A
        IN      A,(254)
        CPL
        AND     31
        JR      Z,M2
        RET

;--------------------------------------
;Процедура TO_SCR штрихует текущее
;знакоместо.
;
;Вход: A  - значение из буфера,
;           определяющее тип штриховки
;      IX - текущий адрес в буфере

TO_SCR  AND     %00111000
        RRCA
        LD      L,A
        LD      H,0
        LD      DE,TAB-4
        ADD     HL,DE
        LD      B,H
        LD      C,L

;BC - адрес штриховки

        PUSH    IX
        POP     HL
        LD      DE,#320
        ADD     HL,DE

;HL - адрес во вспомогательном буфере,
;     где хранится прошлое значение
;     штриховки для этого знакоместа

        CP      (HL)  ;значения совпали?
        RET     Z     ;если да - выходим

        PUSH    AF
        LD      (HL),A
        LD      DE,-BUF-#340
        ADD     HL,DE

;HL - смещение в основном буфере, узнаем
;     по нему координаты знакоместа:

        LD      A,L
        AND     31
        LD      D,A    ;X
        RL      L
        RL      H
        RL      L
        RL      H
        RL      L
        RL      H
        LD      A,H
        AND     31
        LD      E,A    ;Y

        AND     #18
        OR      #40
        LD      H,A
        LD      A,E
        AND     #7
        RRA
        RRA
        RRA
        RRA
        ADD     A,D
        LD      L,A

;HL - адрес на экране

        POP     AF       ;если A=0,
        AND     A        ;просто очищаем
        JP      Z,TO_CL  ;знакоместо

        LD      D,H
        LD      E,L
        INC     D
        INC     D
        INC     D
        INC     D

;HL указывает на верхнюю линию знакоместа,
;а DE - на четыре линии ниже

        LD      A,(BC)
        LD      (HL),A
        LD      (DE),A
        INC     H
        INC     D
        INC     BC
        LD      A,(BC)
        LD      (HL),A
        LD      (DE),A
        INC     H
        INC     D
        INC     BC
        LD      A,(BC)
        LD      (HL),A
        LD      (DE),A
        INC     H
        INC     D
        INC     BC
        LD      A,(BC)
        LD      (HL),A
        LD      (DE),A
        RET

;Если нужно просто очистить знакоместо:

TO_CL   LD      (HL),A
        INC     H
        LD      (HL),A
        INC     H
        LD      (HL),A
        INC     H
        LD      (HL),A
        INC     H
        LD      (HL),A
        INC     H
        LD      (HL),A
        INC     H
        LD      (HL),A
        INC     H
        LD      (HL),A
        RET

;Таблица, определяющая различные типы
;штриховок:

TAB     DB  %01000100
        DB  %00000000
        DB  %00010001
        DB  %00000000

        DB  %01000100
        DB  %00010001
        DB  %01000100
        DB  %00010001

        DB  %01010101
        DB  %10101010
        DB  %01010101
        DB  %10101010

        DB  %11011101
        DB  %10101010
        DB  %01110111
        DB  %10101010

        DB  %01010101
        DB  %10101010
        DB  %01010101
        DB  %10101010

        DB  %01000100
        DB  %00010001
        DB  %01000100
        DB  %00010001

        DB  %01000100
        DB  %00000000
        DB  %00010001
        DB  %00000000