MSX Village forum

;----------------------------------------------------------
; VARIABLES
;----------------------------------------------------------
        .page   3
;
; variables sprites
VAR_SPRITES:
    ds  2*4
; variable pour la tempo
VAR_TEMPO:
ds1 

; initialisation des attributs sprites
        ld      hl,ATT_SPRITES; on prend les paramètres initiaux
        ld      de,SPRATR; à envoyer vers la table des attributs des sprites en VRAM
        ld      bc,2*4; nombre de sprites * nb d'attributs (ça va évoluer)
        call    LDIRVM; la routine de copie en VRAM
        ld      hl,SPRATR; on prend les paramètres de la VRAM
        ld      de,VAR_SPRITES; à envoyer vers les variables des sprites
        ld      bc,2*4; nombre de sprites * nb d'attributs (ça va évoluer)
        call    LDIRMV; la routine de copie de VRAM en RAM
; Installation de la routine d'interruption
        ld      hl,$fd9f; on met le crochet "d'interruption"(H.TIMI) dans hl
        ld      bc,INTERRUPTION; On met l'adresse de notreinterruption dans bc
        ld      [hl],$c3; on remplace la première instruction par jump
        inc     hl;puis ensuite
        ld      [hl],c;l'adresse 
        inc     hl;de notre 
        ld      [hl],b  ;interruption.
xora;mise à 0
ld[VAR_TEMPO],a; de la variable de la tempo

;----------------------------------------------------------
INTERRUPTION:;- on incrémente automatiquement et régulièrement
;----------------------------------------------------------
;
        push    af;on
        push    bc;sauve
        push    de;tout
        push    hl;!
        ldhl,VAR_TEMPO; la variable de tempo
inc[hl]; est incrémentée
        pop     hl;on
        pop     de;récupère
        pop     bc;tout
        pop     af;!
        ret

;-----------------------------------------------!
;!
;!
;!
;   BOUCLE PRINCIPALE!
;!
;!
;!
LOOP:
call GST_DEP_Heros
call GST_SPRITES
callGST_TEMPO; Gestion timing 
jpLOOP
;-----------------------------------------------!

;----------------------------------------------------------
GST_DEP_Heros:;---- Gestion mouvement -----
;----------------------------------------------------------
;
    xor     a; A=0 (test clavier) 
    call    GTSTCK; A= direction flèches clavier 
    cp      0; Si A=0
    jr     nz,@@GST_MOVE; si non (a<>0) saut à la boucle  
    inc     a; si oui A=A+1 (A=1)
    call    GTSTCK; A= direction manette 1 
;  
;Gestion mouvement
@@GST_MOVE:
    push  af; sauve A (valeur joystick)
; Déplacement horizontaux
    ldhl,VAL_DEP_X; HL = adr. déplacement X
ldb,0; mise dans BC de A
ldc,a; "
addhl,bc; HL = On met HL à l'adresse correspondant à adresse de déplacement en X + position manette.
lda,[hl]; a = val. déplacement X
ldb,a; B = val. déplacement X
lda,[VAR_SPRITES+1] ; a=X avant déplacement
addb; a=a+val. déplacement X
cp 6; si X=X mini -2 (< à X mini)
jr nz,@@X_MAX; si non saut à X_MAX
lda,8; si oui X=X mini
jp@@X_MAJ; et saut à MAJ de X
@@X_MAX:
cp 234; si X=X maxi +2 (> à X maxi)
jr nz,@@X_MAJ; si non saut à MAJ de X
lda,232; si oui X=X maxi
@@X_MAJ:
ld [VAR_SPRITES+(0*4)+1],a; X 1er sprite heros (plan0)
ld [VAR_SPRITES+(1*4)+1],a  ; X 2nd sprite heros(plan1)
; Déplacement verticaux
pop af; recup de A (valeur joystick)
    ldhl,VAL_DEP_Y; HL = adr. déplacement Y
ldb,0; mise dans BC de A
ldc,a; "
addhl,bc; HL = On met HL à l'adresse correspondant à adresse de déplacement en Y + position manette.
lda,[hl]; A = val. déplacement Y
ldb,a; B = val. déplacement Y
ld a,[VAR_SPRITES]; A=Y avant déplacement
addb; A=a+val. déplacement Y
cp 6; si Y=Y mini -2 (< à Y mini)
jr nz,@@Y_MAX; si non saut à Y_MAX
lda,8; si oui Y=Y mini
jp@@Y_MAJ; et saut à MAJ de Y
@@Y_MAX:
cp 172; si Y=Y maxi +2 (> à Y maxi)
jr nz,@@Y_MAJ; si non saut à MAJ de Y
lda,170; si oui Y=Y maxi
@@Y_MAJ:
ld [VAR_SPRITES+(0*4)],a; Y 1er sprite heros (plan0)
ld [VAR_SPRITES+(1*4)],a  ; Y 2nd sprite heros(plan1)
ret; Retour à la boucle principale

; Test déplacement
VAL_DEP_X:
;------ 0,1,2,3,4,5,6, 7,8
db  0,0,0,2,0,0,0,-2,0
VAL_DEP_Y:
;------ 0, 1,2,3,4,5,6,7,8
db  0,-2,0,0,0,2,0,0,0

;------------------------------------------------------
GST_SPRITES:;- envoi variables vers sprites 
;------------------------------------------------------
;
        ld      hl,VAR_SPRITES; on prend les variables des sprites
        ld      de,SPRATR; à envoyer vers les attributs de sprites en VRAM
        ld      bc,2*4; nombre de sprites * nb d'attributs (ça va évoluer)
        call    LDIRVM; c'est parti!
ret

;----------------------------------------------------------
GST_TEMPO:
;----------------------------------------------------------
;
lda,[VAR_TEMPO];on récupère ce qui reste dans tempo
ldb,a;
lda,50;
subb;on lui soustrait 50
ldb,a;
xora;
ld[VAR_TEMPO],a;remise à zéro de la variable
@@time:;
pushbc;
ldb,30;on
@@time2:;marque
nop;une
djnz@@time2;pause
popbc;jusqu'à  
djnz@@time;0
ret;

;----------------------------------------------------------
INTERRUPTION:;- on incrémente automatiquement et régulièrement
;----------------------------------------------------------
        ldhl,VAR_TEMPO; la variable de tempo
inc[hl]; est incrémentée
ret