
                  .888

       8col, -
     v0. ,     
,   ,    .

 !
         
  8x8 ( ,  , 32   -
  24    ).   8  -  2
    : G, R, B.

    2 :   , 
 hrust2.1 (. AlCoNews#11).    -
,     .

      :
3  -   (  )
[] -      -
    (..    )
[]  -    , , 24  - -
          .

 :
0 - 8-  ,     24  -
   , 3  (  R, G, B)    
   . ( ,   ,   
   .)  .
1 -      8-  -
   ,    .
2 -   .    , 
    .    3 : G, R, B. -
     .
3 -   .       
     ,  ,  1   . 0 - -
       (  ), 1 - 
     (  ).
4 -  .   : 0, 10, 11
   (   , ..     
   ).
5 -   .     : 00,
   01, 10, 11 (   ).
6 -   .    : 00, 01,
   10, 110, 111 (   ).
7 -   .   : 00, 01,
   100, 101, 110, 111 (   ).

      -
,   hrust2.1,      .

:

;  , 
;8     

;   :  

FROM=#D000
TO=#8000
        ORG #6000
TCOL_S ;DS 6
GO
        LD HL,FROM
        LD C,128
        EXX
        LD HL,TO
        LD DE,125
        LD C,1
DEP     EXX
        CALL DEP3
        CALL NZ,oldcl
        JR NZ,COLQQ
        LD B,8
COL80   LD E,(HL) ;R
        INC HL
        LD D,(HL) ;G
        INC HL
;(DE)=%0GRB0grb
       DUP 4
        XOR A
        RL D
        RLA
        RL E
        RLA
        RLC (HL)
        RLA
        ADD A,A
        RL D
        RLA
        RL E
        RLA
        RLC (HL)
        RLA
        EXX
        LD (HL),A
        INC L
        EXX
       EDUP
        ORG $-2
        ADD HL,DE
        EXX
        INC HL
        DJNZ COL80
COLQQ   EXX
        LD A,H
        INC L,L,L,L
        JP PE,$+6
        SUB 4
        LD H,A
        RES 7,L
        CP 'TO+96
        JP C,DEP
CHL     LD C,(HL)
        INC HL
        RL C
        RET

oldcl   LD D,'TCOL_S
        DEC A
        JR Z,COLOLD
        LD LX,A
        LD E,A
DEPTAB  CALL DEP3
        DEC E
        LD (DE),A
        JR NZ,DEPTAB
COLOLD  LD A,LX
        LD B,64
        CP 4
        JR NC,COL45O
        DEC A
        JR Z,COL1
        DEC A
        JR Z,COL2
;2=11
;1=10
;0=0
COL3
        LD A,#80
        CALL DEPCOL0
        JR Z,COL3N1
       SLA C
       CALL Z,CHL
        RLA
        DEC A
COL3N1  CALL PUTCOL
        DJNZ COL3
        RET
;1=1
;0=0
COL2
        LD A,#80
        CALL DEPCOL0
        CALL PUTCOL
        DJNZ COL2
        RET
COL45O
        JR Z,COL4
        RRA
        JR C,COL5
;5=111
;4=110
;3=101
;2=100
;1=01
;0=00
COL6    LD A,#40
        CALL DEPCOL0
        CP 2
        JR C,COL6N1
        DEC A
        SLA C
        CALL Z,CHL
        RLA
COL6N1  CALL PUTCOL
        DJNZ COL6
        RET
;4=111
;3=110
;2=10
;1=01
;0=00
COL5    LD A,#40
        CALL DEPCOL0
        CP 3
        JR C,COL5N1
        SLA C
        CALL Z,CHL
        RLA
        SUB 3
COL5N1  CALL PUTCOL
        DJNZ COL5
        RET
;3=11
;2=10
;1=01
;0=00
COL4
        LD A,#40
        CALL DEPCOL0
        CALL PUTCOL
        DJNZ COL4
        RET
COL1
        LD A,(DE)
        LD D,A
        RLCA
        RLCA
        RLCA
        RLCA
        OR D
        EXX
        LD B,8
COL10   LD (HL),A
        INC L
        LD (HL),A
        INC L
        LD (HL),A
        INC L
        LD (HL),A
        ADD HL,DE
        DJNZ COL10
        EXX
        RET

PUTCOL  LD E,A
        LD A,(DE)
        EXX
       RLD
       LD A,C
       AND #2A
       JR Z,$+3
       INC L
       RLC C
       JR NC,$+3
       ADD HL,DE
        EXX
        RET
DEP3
        LD A,#20
DEPCOL0 SLA C
        CALL Z,CHL
        ADC A,A
        JR NC,DEPCOL0
        RET
