Grey    xor a
        ld (compt),a
        ld hl,&6400
        ld (base),hl
boucle  ld hl,0
        ld de,(base)
        inc de

; Traitement du vert

        ld a,(de)
        and %1111
        ld c,a
        ld b,0
        add hl,bc
        add hl,bc
        add hl,bc
        dec de

; Traitement du rouge

        ld a,(de)
        and %11110000
        rra
        rra
        rra
        rra
        ld c,a
        add hl,bc
        add hl,bc

; Traitement du bleu

        ld a,(de)
        and %1111
        ld c,a
        add hl,bc

; Division par 6

        xor a
        ld bc,6
divise  sbc hl,bc
        inc a
        jr nc,divise
        ld (resultat),a
        or a
        jr z,annul
        dec a
        ld (resultat),a

; Recopiage bits 0-3 dans
; bits 4-7 puis envoi a
; l'Asic.   

annul   ld b,a
        and %1111
        rla
        rla
        rla
        rla
        add a,b

        ld hl,(base)
        ld (hl),a
        inc hl
        ld (hl),a
        inc hl
        ld (base),hl

; On passe a l'encre
; suivante...

        ld a,(compt)
        inc a
        ld (compt),a
        cp 16
        jp nz,boucle
        ret                        

; Compteurs - Stockage

resultat nop
compt   nop
base    ds 2
    JP REVIENS

PUTOFF2  LD HL,&4000-64
        JP REVIEN2

AFFREA  LD B,16
BOUCL    rla
        rla
        rla
        rla
        add a,b

        ld hl,(base)
        ld (hl),a
        inc hl
    ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее