статейки о multicolor и border effects?

[Электрик]

У зонова ещё вдобавок с головой проблем не было, в отличие от...

[lvd]

У зонова ещё вдобавок с головой проблем не было, в отличие от...

Ну, кого это волнует? Компы были - были, хорошие - более-менее, а что там с головой так то пох...
Кста Зонов мегатерпеливый чувак - на каком-то инлайте (есть аудиозаписи) мегатерпеливо объяснял бухому рст7 и ещё кому-то, как у него плмка в гмхе работает, а те то ли спьяну тупили, то ли пытались над Зоновым издеваться (опять же спьяну)... Я бы не вытерпел - послал бы нах таких придурков...

[Электрик]

Да, помню распечатка была в ламержи или в какой подобной шняге. Там кстати Зонов сам непонятно объяснял - типа схема зашита в ПЗУ, но это _НЕ_ альтера или что-то подобное, просто ПЗУ... От чего RST7 собственно и тупил.

[Jukov]

Вот пример 8-цветного бордюрного эффекта в верхней части экрана для виртуального скорпиона (на реальном не проверял). Хочется упомянуть об одной особенности при создании мультиколор и бордюрных эффектов. Если число тактов за прерывание не равно 69888, то изображение будет скакать. И еще, если необходимо точно совместить бордюрную картинку и экран необходимо настроить INT точно на начало прерывания, например как это делалось в ZX-Ревю 96 4-5

[Vitamin]

Древнючий исход мультиколорной спирали. Тормозной декранчинг, ничего не переделывал, оставил как есть. Есть еще и полноэкранная версия, но там перерасчет медленный очень

        MACRO WAIT      ;374
        LD B,33         ;7,5
        DJNZ $          ;13,5*Q-5,5
        NOP             ;8
        NOP             ;              E=455,5
        ENDM 

RAD     EQU 37

        ORG 24576

        CALL CALCTAB
        CALL CALCUS
        LD HL,16384
        LD DE,16385
        LD BC,4095
        LD (HL),15
        LDIR 
        LD HL,PLAY
        LD (#FBFF),HL
        LD A,251
        LD I,A
        IM 2
        EI 
        LD HL,DATA
        LD DE,BUFFER
        LD BC,1536
        LDIR 
CYCL
        HALT 
        CALL RECALC
        LD HL,(PREW+1)
        LD A,#FB
        IN A,(254)
        RRA 
        JR C,W1
        LD A,H
        OR L
        JR Z,W1
        DEC HL
W1      LD A,#FD
        IN A,(254)
        RRA 
        JR C,W2
        INC HL
W2      LD (PREW+1),HL
        LD A,(FINE+1)
        LD B,A
        LD A,#DF
        IN A,(254)
        RRA 
        LD C,A
        JR C,L1
        LD A,B
        INC A
        JR Z,L1
        LD B,A
L1      RR C
        JR C,L2
        LD A,B
        AND A
        JR Z,L2
        DEC B
L2      LD A,B
        LD (FINE+1),A
        LD A,191
        IN A,(254)
        RRA 
        JR C,CYCL
        IM 1
        EI 
        RET 

PLAY    PUSH AF,BC,DE,HL
        EXX 
        EX AF,AF'
        PUSH AF,BC,DE,HL,IX,IY
ZADA    CALL TASK
        POP IY,IX,HL,DE,BC,AF
        EXX 
        EX AF,AF'
        POP HL,DE,BC,AF
        EI 
        RET 

TASK
PREW    LD HL,665
        INC HL
DEL     DEC HL
        LD A,H
        OR L
        JR NZ,DEL
FINE    LD A,0
        INC A
DEL1    DEC A
        JR NZ,DEL1

        LD IX,BUFFER

PUTMLT1                         ;IX-SOURCE
ADR1=22528
        LD (STAKA+1),SP
        DUP 16
        DUP 2
        LD SP,IX
        POP HL,DE,BC,AF
        EXX 
        EX AF,AF'
        POP HL,DE,BC,AF
        LD SP,ADR1+16
        PUSH AF,BC,DE,HL
        EXX 
        EX AF,AF'
        PUSH AF,BC,DE,HL
        LD DE,16
        ADD IX,DE

        LD SP,IX
        POP HL,DE,BC,AF
        EXX 
        EX AF,AF'
        POP HL,DE,BC,AF
        LD SP,ADR1+32
        PUSH AF,BC,DE,HL
        EXX 
        EX AF,AF'
        PUSH AF,BC,DE,HL
        LD DE,16
        ADD IX,DE
        WAIT
        EDUP 


ADR1=ADR1+32
        EDUP 
STAKA   LD SP,0
        RET 

CALCTAB LD HL,RECTAB
RETY    LD A,L
        SUB 8
        AND 56
        LD E,A
        LD A,L
        DEC A
        AND 7
        OR E
        LD (HL),A
        INC L
        JR NZ,RETY
        RET 

CALCUS  LD B,RAD
        LD C,0
ICY     PUSH BC
        PUSH BC
        LD A,RAD
        SUB B
        LD (ORO+1),A
        LD (ARA+1),A
        LD L,A
        LD A,C
        CALL LSINA
        SUB 16
        NEG 
        LD L,A
        PUSH HL
ARA     LD L,0
        LD A,C
        ADD A,64
        CALL LSINA
        ADD A,32
        LD E,A
        POP HL
        POP BC
        LD A,C
ORO     ADD A,0
        AND 28
        RRA 
        RRA 
        LD C,A
        CALL PLOT
        POP BC
        INC C
        JR NZ,ICY
        DJNZ ICY
        RET 


RECALC  LD DE,BUFFER
        LD HL,RECTAB
        LD BC,1024
REC     LD A,(DE)
        LD L,A
        LDI 
        JP PE,REC
        RET 





PLOT    LD A,L                  ;L-Y
        CP 32                   ;E-X
        RET NC                  ;C-COLOR
        LD A,E
        CP 64
        RET NC
        LD H,0
        DUP 5
        ADD HL,HL
        EDUP 
        LD B,56
        RR E
        JR C,ORE
        LD B,7
        AND A
        RL C
        RL C
        RL C
ORE     LD D,'DATA
        ADD HL,DE
        LD A,(HL)
        AND B
        OR C
        LD (HL),A
        RET 

LSINA                           ;A=L*SIN A
        LD D,'SINUS
        LD E,A
        LD A,(DE)
        AND A
        JP M,NEGE
        BIT 7,L
        JR Z,ALPOS
        EX AF,AF'
        LD A,L
        NEG 
        LD L,A
        EX AF,AF'
        JR NEGRES
ALPOS   CALL MULS
        ADD HL,HL
        LD A,H
        RET 

NEGE    NEG 
        BIT 7,L
        JR Z,NEGRES
        EX AF,AF'
        LD A,L
        NEG 
        LD L,A
        EX AF,AF'
        JR ALPOS
NEGRES  CALL MULS
        ADD HL,HL
        LD A,H
        NEG 
        RET 

MULS                    ;HL=L*A
        LD      DE,0
        LD      H,E
CWERT   DUP     8
        RRA 
        JR      NC,$+5
        EX      DE,HL
        ADD     HL,DE
        EX      DE,HL
        ADD     HL,HL
        EDUP 
        EX      DE,HL
        RET 


MULT    LD      HL,0    ;HL=DE*A
        EX      DE,HL
        JR      CWERT



DIV     XOR     A       ;BC=HL/DE  HL- остаток
        LD      B,A
        LD      C,A
SUBU    SBC     HL,DE
        JR      C,ZI
        INC     BC
        JR      SUBU

DIVIS   XOR     A       ;A=HL/DE  HL- остаток
SUBU1   SBC     HL,DE
        JR      C,ZI
        INC     A
        JR      SUBU1
ZI      ADD     HL,DE
        RET 

DIVI                    ;C=A/B   A-остаток
        INC     B
        DEC     B
        RET     Z
        LD      C,0
        AND     A
SUBU2   SUB     B
        JR      C,ZU
        INC     C
        JR      SUBU2
ZU      ADD     A,B
        RET 


        ORG '($-1)+1*256
SINUS   INCBIN "SINUS

BUFFER  DEFS 1536
DATA    DEFS 1536
RECTAB  DEFS 255
        ORG 24576

[bpm]

И хорошо, что забил

p.s.: Wait must DIE!

Не, плохо. У меня тогда складывалось ощущение, что Зонов созревал на то, чтобы скрестить gmx со Скорпом не на соплях, а на единой плате, выкинув лишнее и оставив слоты. Была бы прикольная компактная плата без соплей и с выбором схемы.

[bpm]

Я бы не стал говорить, что скорп как цомпуньтель был лучшим, но вот что фирма зоноffа была одной из самых удачливых на рынке клонов спектрума - готов согласиться. У неё нашлись ресурсы, чтобы спонсировать создание теневика и профпзу, чтобы создать множество железок для спектрума (контроллеры пцшных клавмышей и особенно - гмх). По этому признаку с скорпом разве что кай может сравниться.

Чем именно кай может сравниться? Не вспоминается мне что-то для кая теневик, ппзу и вагон плат...

[bpm]

Кста Зонов мегатерпеливый чувак - на каком-то инлайте (есть аудиозаписи) мегатерпеливо объяснял бухому рст7 и ещё кому-то, как у него плмка в гмхе работает, а те то ли спьяну тупили, то ли пытались над Зоновым издеваться (опять же спьяну)... Я бы не вытерпел - послал бы нах таких придурков...

E'97 - Зонов, rst#7 и kan0.
rst, как я подозреваю, помимо того, что был пьян, скорп тогда видел, наверное, только мой (плата sc-12, желтая, с кучей мгтф-а), на котором сатис-2 финально собирал. Поэтому, наверное, и не врубался какая еще зеленая плата, какой еще гмх... ;-)