MSX Village forum

;// 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