MSX Village forum

;
; définition des tiles
TIL_PATRON:
.INCBIN"drop02.bin.chr.rle"
;
; couleur des tiles
TIL_COULEUR:
.INCBIN"drop02.bin.clr.rle"
;

;
; vidange écran
    xor a                          ;tiles 0 qui sera pris qui provoque un flash vert au début
ld    hl,NAMTBL                    ;
ld    bc,256*8*3                    ; nombre de tiles à mettre pour remplir l'écran
call    FILVRM       
;définition des tiles
        ld        b,3                ; 3 comme le nombre de bank
        ld      de,CHRTBL        ; on charge la valeur de l'emplacement de la table de caractère
bank_t:
    push    bc
    push    de
        ld      hl,TIL_PATRON    ; on charge le'emplacement des données des tiles
        ld      bc,64*32
        call     DEPACK_VRAM
    pop        hl
    pop        bc
    ld      de,256*8            ; on incrémente de pour passer au bank suivant
    add        hl,de
    ex        de,hl
djnz    bank_t                    ; on boucle pour les 3 bank
;couleur des tiles
        ld        b,3
        ld      de,CLRTBL        ; on charge la valeur de l'emplacement de la table de couleurs
bank_c:
    push    bc
    push    de
        ld      hl,TIL_COULEUR
        ld      bc,64*32
        call     DEPACK_VRAM
    pop        hl
    pop        bc
    ld      de,256*8
    add        hl,de
    ex        de,hl
djnz    bank_c

;
;------------------------------------------------------
DEPACK_VRAM:; Décompresse les données compressées avec RLEpack de RAM a VRAM
;------------------------------------------------------
;
; Paramètres:
;    HL=adresse des données compressées
;    DE=adresse où sont envoyées les données
; 
ex de,hl
call SETWRT
ex de,hl
@@LOOP:
ld a,[hl]
inc hl
cp 0C0h
jr c,@@SINGLE
and 3Fh
inc a
ld b,a
ld a,[hl]
inc hl
@@DUMP:
out [98h],a
djnz @@DUMP
jr @@LOOP
@@SINGLE:
ld c,a
or [hl]
ld a,c
ret z
ld b,1
jr @@DUMP;