optimisation scrolling horizontal

J'essaie de faire un scrolling horizontal (vers la gauche) le plus performant possible en Hires.

Je déroule une ligne entière de scrolling pour gagner de la vitesse.

Si quelqu'un peut m'indiquer si je peux encore optimiser ce scrolling (à part dérouler toutes les lignes de l'écran) ?

Code:


_Hleftscroll
sta $FFFF ; only to debug in oricutron
 
 ldx #0
 
suiteLH
 
 lda HiresScreenAdressLow,x
 sta tmp0
 lda HiresScreenAdressHigh,x
 sta tmp0+1
 
 ldy #1
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #2
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #3
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #4
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #5
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #6
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #7
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #8
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #9
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #10
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #11
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #12
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #13
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #14
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #15
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #16
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #17
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #18
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #19
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #20
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #21
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #22
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #23
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #24
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #25
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #26
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #27
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #28
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #29
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #30
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #31
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #32
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #33
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #34
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #35
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #36
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #37
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #38
 lda (tmp0),y
 dey
 sta (tmp0),y
 ldy #39
 lda (tmp0),y
 dey
 sta (tmp0),y
 ;ldy #40
 ;lda (tmp0),y
 ;dey
 ;sta (tmp0),y

 inx
 cpx height
 bcs saut
 jmp suiteLH
 saut
rts

height .byt 200

Si tu utilises 2 variables en page zéro tmp0 et tmp1, en mettant dans tmp1 la valeur de tmp0 +1, tu supprimes tous les ldy et tu remplaces les dey par des iny:

Code:


ldy #$00
lda (tmp1),y
sta (tmp0),y
iny
lda (tmp1),y
sta (tmp0),y
iny
...


assinie a écrit:Si tu utilises 2 variables en page zéro tmp0 et tmp1, en mettant dans tmp1 la valeur de tmp0 +1, tu supprimes tous les ldy et tu remplaces les dey par des iny:

Code:


ldy #$00
lda (tmp1),y
sta (tmp0),y
iny
lda (tmp1),y
sta (tmp0),y
iny
...


Super ! Ça fait gagner 2 points de timer (0x276)
Merci Assinie

J ai fait ce bout de code qui tourne sans trop de saccades

Si quelqu'un peut m'indiquer si je peux encore optimiser ce scrolling (à part dérouler toutes les lignes de l'écran) ?

Vu que tu as déja déroulé le code pour une ligne complete, a mon avis l'alternative la plus rapide c'est de faire a la place un déroulement vertical:

Code:


suiteLH

 lda $a000+1+(40*0),x
 sta $a000+0+(40*0),x

 lda $a000+1+(40*1),x
 sta $a000+0+(40*1),x

 (...)

 lda $a000+1+(40*198),x
 sta $a000+0+(40*198),x

 lda $a000+1+(40*199),x
 sta $a000+0+(40*199),x

 inx
 cpx #39
 bcs saut
 jmp suiteLH
 saut
rts


Dans la version de Kenneth, le BEQ n'est exécuté qu'à la fin mais fait perdre 2 cycles à chaque fois, donc, si tu remplaces la fin:

Code:

DEX
BEQ $10EF
JMP $100E


par

Code:

DEX
BNE $100E


tu gagnes 2 cycles par ligne (un JMP utilise 3 cycles tout comme le BNE qui est ecécuté à chaque fois)
2 * 200 => 400 cycles gagnés au total.

En fait le JMP remplace le saut relatif parce il me semble que la distance de saut est trop grande.

Oups, je n'ai pas vérifié la distance

Dbug a écrit:

Si quelqu'un peut m'indiquer si je peux encore optimiser ce scrolling (à part dérouler toutes les lignes de l'écran) ?

Vu que tu as déja déroulé le code pour une ligne complete, a mon avis l'alternative la plus rapide c'est de faire a la place un déroulement vertical:

Code:


suiteLH

 lda $a000+1+(40*0),x
 sta $a000+0+(40*0),x

 lda $a000+1+(40*1),x
 sta $a000+0+(40*1),x

 (...)

 lda $a000+1+(40*198),x
 sta $a000+0+(40*198),x

 lda $a000+1+(40*199),x
 sta $a000+0+(40*199),x

 inx
 cpx #39
 bcs saut
 jmp suiteLH
 saut
rts


Merci Dr Dbug!
Incroyable , un gros gain de vitesse ! je gagne au moins 5 points de vitesse !
J’ai l’impression qu’on peut pas faire mieux
(A l'aide de Python j'ai généré les 400 lignes de code assez facilement)

Techniquement on peut faire mieux, en décrémentant:

Code:

   ldx width
(...)
        dex
        bmi saut


Comme ca on évite 40 instructions "cpx width", mais bon, c'est un détail

Dbug a écrit:Techniquement on peut faire mieux, en décrémentant:

Code:

 ldx width
(...)
        dex
        bmi saut


Comme ca on évite 40 instructions "cpx width", mais bon, c'est un détail

I think this will not work because it will replicate the last byte 40 times i.e. byte from pos 39 goes to pos 38, on next iteration the same byte will go from pos 38 to pos 37 etc...

PS: this is almost like the difference between memcpy() and memmove() when we have overlapping source and destination .

Dbug a écrit:Techniquement on peut faire mieux, en décrémentant:

Code:

 ldx width
(...)
        dex
        bmi saut


Comme ca on évite 40 instructions "cpx width", mais bon, c'est un détail

Merci, je vais essayer
aussi on peut désactiver l'interruption clavier durant le scrolling :
j'ai cru comprendre qu'elle est appelée 200 fois par seconde...

Code:

poke (782,64);
scrolling();
poke (782,192);

C'est pas "l'interruption clavier", c'est "l'interruption système", qui entre autre s'occupe du clavier, mais aussi de tout ce qui nécessite un traitement régulier, comme les mises a jour de timers, le curseur clignotant, l'instruction WAIT, etc...

Il me semble qu'elle tourne a 100hz (alors que 50hz serait largement suffisant), et prend environ 20% du temps machine global.

Pour gagner le maximum de vitesse tout en conservant la possibilité d'utiliser les interruptions, l'idéal c'est de faire ca avec un lecteur de disquette, comme ca on peut remplacer directement le vecteur IRQ en haut de ram vu que maintenant on est en mode overlay, ce qui évite de passer par le système de trampoline de la ROM basic qui fait une série d'appels intermédiaires histoire de pouvoir exécuter les routines utilisateur en page 2.

Dbug a écrit:C'est pas "l'interruption clavier", c'est "l'interruption système", qui entre autre s'occupe du clavier, mais aussi de tout ce qui nécessite un traitement régulier, comme les mises a jour de timers, le curseur clignotant, l'instruction WAIT, etc...

Il me semble qu'elle tourne a 100hz (alors que 50hz serait largement suffisant), et prend environ 20% du temps machine global.

Pour gagner le maximum de vitesse tout en conservant la possibilité d'utiliser les interruptions, l'idéal c'est de faire ca avec un lecteur de disquette, comme ca on peut remplacer directement le vecteur IRQ en haut de ram vu que maintenant on est en mode overlay, ce qui évite de passer par le système de trampoline de la ROM basic qui fait une série d'appels intermédiaires histoire de pouvoir exécuter les routines utilisateur en page 2.

Oui pardon tu as raison ça ne gère pas que le clavier.
J'ai quand même essayé cette désactivation dans mon jeu d'action 'rain panic' qui en cours de développement et ça marche. Comme je n'utilise pas le wait et que des compteurs maison, ça passe et j'ai l'impression que ça tourne bien plus vite.
L'Oric avec lecteur de disquette je ne connais pas du tout, pour l'instant je vais rester sur l'Oric atmos simple.