Инициализация мультиколора 8х1

[drbars]

Полноэкранный возможен только 8х2. см. исходники IRIS'а.. часть Color movie

CODE_INS1:

        LD B,24
INS_L   PUSH BC
        CALL SETLINE
        CALL SETLINE
        CALL SETLINE
        CALL SETLINE
        LD BC,32
        LD HL,(TO+1)
        ADD HL,BC
        LD (TO+1),HL
        LD HL,(TO2+1)
        ADD HL,BC
        LD (TO2+1),HL
        POP BC
        DJNZ INS_L
        RET

SETLINE LD HL,SAMPLE1
MEMPC   LD DE,COLORCODE
        LD BC,EOS1-SAMPLE1
        LD A,(PAGE+1)
        XOR 10
        LD (PAGE+1),A
        AND 8
        JR NZ,$+5
        DEC BC
        DEC BC
        DEC BC
        LDIR
        LD (MEMPC+1),DE
        RET

SAMPLE1 LD SP,0
        POP HL
        POP DE
        POP AF
        POP IX
        EX AF,AF'
        EXX
        POP HL
        POP DE
        POP BC
        POP AF
TO      LD SP,#D810
        PUSH AF
        PUSH BC
        PUSH DE
        PUSH HL
        EXX
        EX AF,AF'
        PUSH IX
        PUSH AF
        PUSH DE
        PUSH HL
        LD SP,0
        POP HL
        POP DE
        POP AF
        POP IX
        EX AF,AF'
        EXX
        POP HL
        POP DE
        POP BC
        POP AF
TO2     LD SP,#D820
        PUSH AF
        PUSH BC
        PUSH DE
        PUSH HL
        EXX
        EX AF,AF'
        PUSH IX
        PUSH AF
        PUSH DE
        PUSH HL
PAGE:   LD A,#1D
        OUT (C),A
        LD HL,#FFFF
EOS1:
;----------------------------

CODE_INS2:
        LD DE,INSCODE
        LD B,48
CDI2    PUSH BC
        LD HL,SAMPLE2
        LD BC,EOS2-SAMPLE2
        LDIR
        LD HL,SAMPLE2+1
        LD B,4
NX_ADD  LD A,(HL)
        ADD A,123
        LD (HL),A
        INC HL
        JR NC,$+3
        INC (HL)
        INC HL
        INC HL
        INC HL
        DJNZ NX_ADD
        POP BC
        DJNZ CDI2
        RET

SAMPLE2 LD (COLORCODE+1),HL
        ADD HL,BC
        LD (COLORCODE+#1D),HL
        ADD HL,BC
        LD (COLORCODE+#3D),HL
        ADD HL,BC
        LD (COLORCODE+#59),HL
        ADD HL,BC
EOS2:

[Advertiser]