MSX Village forum

 ;// Écriture directe en VRAM en mode 8
 
lda,5(ix)          ;// Bits haut de mon adresse en VRAM
and#0xC0          ;// Ne garder que les bits 15-14
        rra
        rra
        rra
        rra
        rra
        rra          ;// Décalage des 2 bits les plus haut vers les plus bas
        ;// Ici, on peux mettre le 3e bit (0x04) a 1 pour atteindre la VRAM au delà de 0xFFFF
di
out(VDP_ADDR),a          ;// Envoi des donné vers le port 1 du VDP; VDP_ADDR = #0x99
 
lda,VDP_REG(14)          ;// Sélection du registre 14; VDP_REG(x) = #0x80 + x
out(VDP_ADDR),a
 
lda,4(ix)          ;// On envoi les bits 7-0 de l'adresse VRAM
out(VDP_ADDR),a
 
lda,5(ix)          ;// Bits haut de mon adresse en VRAM (ne garder que les bits 13-8)
and#0x3F          ;// Mettre à 0 les 2 dernier bits
or#0x40          ;// Demander l'accès en écritude
out(VDP_ADDR),a
 
lda,6(ix)          ;// Ma couleur (8 bits)
out(VDP_DATA),a
ei
 

;// Copie des 63 couleurs restants (sprites de 8x8)
di ;// je le laisse la pour l'instant pour plus de clarté
 
SEND_NEXT_COLOR:
 
;// 3 - envoyer l'octet suivant à mettre en VRAM dans le registre 45 (le premier octet a été traité à l'étape 1) par un OUT du Z80
;// Send next color
lda,#252 ;// couleur en dur pour mes tests
out(VDP_ADDR),a ;// VDP_ADDR = 99h
lda,VDP_REG(45) ;// VDP_REG(x) = 80h + x
out(VDP_ADDR),a
 
WAIT_REG2:
 
;// 4 - lire le registre d'état 2 (status)
;// Get status ragister #2
lda,#2
out(VDP_ADDR),a
lda,VDP_REG(15)
out(VDP_ADDR),a
 
;// 5 - lire le registre d'état du bit CE, si celui-ci est à 0, alors l'instruction est terminée, sinon on passe à l'étape 6
nop
ina,(VDP_ADDR)
ldb,a ;// backup reg#2
rra     ;// send CE bit into Carry
jrnc,COLOR_COPY_END
 
;// 6 - tester l'état du bit TR, si celui-ci se trouve à 0, alors le processeur vidéo n'est pas
;// prêt à recevoir l'octet suivant, recommencer en 4. Si par contre, ce bit est à 1, reprendre toute l'opération au niveau 3
lda,b ;// restore reg#2
rla     ;// send TR bit in the Carry
jrnc,WAIT_REG2
jpSEND_NEXT_COLOR
 
COLOR_COPY_END:
 
ei