MSX Village forum

;mise en place décor
ldb,3;nombre de bank(boucle)
ldhl,CHRTBL+32*8  ;redéfinition du caractère 32 (espace)...     
bank:
        ld      a,1; ...de juste 1 point^^
callWRTVRM; écriture en VRAM
ldde,256*8;écart de bank
addhl,de;ajouté à l'adresse en VRAM
djnzbank; et on boucle
        ld      hl,NAMTBL; début de l'affichage écran
        ld      bc,256*3; nombre de caractères à l'écran
lda,32; valeur à afficher
        call    FILVRM; et on remplit!
 ei ;
xor a
ld[VAR_ANI_H],a; init variable animation
ld[VAR_ORI_H],a;init variable orientation
ld[VAR_STICK],a; init de la variable "manette"

LOOP:
    call    WAIT_REFRESH 
call GST_SPRITES
call GST_DEP_Heros
ld    a,[VAR_TIMER] ; Chargement du timer
    and    3
callz,GST_STICK
jpLOOP
;-----------------------------------------------!
;
;
;
;- - - SOUS PROGRAMME BOUCLE- - -
;
;----------------------------------------------------------
GST_STICK:;---- Gestion mouvement -----
;----------------------------------------------------------
;
    xor     a; A=0 (test clavier) 
    call    GTSTCK; A= direction flèches clavier 
    cp      0; Si A=0
    jr     nz,@@GST_ORI; si non (a<>0) saut à la boucle  
    inc     a; si oui A=A+1 (A=1)
    call    GTSTCK; A= direction manette 1 
    cp      0; Si A=0
jr     nz,@@GST_ORI; si non (a<>0) saut à la boucle
ld[VAR_STICK],a;MAJ de la variable "manette"
ret
@@GST_ORI:
ld[VAR_STICK],a;MAJ de la variable "manette"
dec a; on décale de -1 pour partir de 0
ldhl,VAL_ORI_H; HL = adr. orientation heros
ldb,0; mise dans BC de a
ldc,a; "
addhl,bc; HL = On met HL à l'adresse correspondant à adresse d'orientation voulue.
lda,[hl]; on met la valeur pointée par hl dans a
ldb,a; dans b la nouvelle orientation 
lda,[VAR_ORI_H]; dans a l'ancienne orientation
cpb; comparaison...
jpz,@@fin; si égal pas de modif on finit
ld a,b
ld[VAR_ORI_H],a; si ineégal->MAJ de la variable + ...
    ld     [VAR_SPRITES+(0*4)+2],a ; MAJ N° 1er sprite heros (plan0)
    add    4            ; +4 pour le second sprite 
    ld     [VAR_SPRITES+(1*4)+2],a ; MAJ N° 2nd sprite heros(plan1)
 xora; et remise à 0...
 ld[VAR_STICK],a; ...de la variable "manette" pour empecher le mouvement!
@@fin:
ret