Discussion :

[kidpaddle2]

Bonjour,

Je dois décoder une touche détectée sur le port H ; j'ai donc pensé à l'algorithme suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Pour B de 0 à 3
<div style="margin-left:40px">PIFH <- 0
PIFH[B] <- 1
DELAY_1MS
Pour A de 0 à 3
<div style="margin-left:40px">Si PIFH[7 - B] = 1
<div style="margin-left:40px">A <- A + 12 - 4*B</div></div></div>Fin

Où A est l'offset d'une chaîne ASCII "*0#D789C456B123A".

Mon problème se situe au niveau de l'instruction PIFH[B]<- 1. Je dois mettre à 1 le bit dont le numéro est le contenu d'un registre, et je ne vois absolument pas comment faire... Pourriez-vous m'aider ?

Merci d'avance.

P.S: Naturellement, si je fais fausse route ou si des optimisations sont possibles, n'hésitez pas à me le dire (je serais bien au contraire ravi de le savoir), j'ai conçu l'algorithme sans conviction.

[Obsidian]

Mon problème se situe au niveau de l'instruction PIFH[B]<- 1. Je dois mettre à 1 le bit dont le numéro est le contenu d'un registre, et je ne vois absolument pas comment faire... Pourriez-vous m'aider ?

Hello,

Je ne connais pas le jeu du 68HCS12 en particulier mais pour faire varier en général un bit isolé dans un registre, on passe par une opération logique. En l'occurence :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
LDAA PTH
ORAA #40
STAA PTH

... charge le contenu du port H dans A, force le bit 6 de A à un, et restocke la valeur mise à jour dans le port H. À noter que PTH est une « equate » qui correspond à une adresse particulière, que je ne connais pas.

Pour forcer le bit n d'un registre à un, il faut donc faire un OU logique avec 2^n. Pour trouver 2^n, soit tu procèdes par décalages en mettant un registre à 1 et en décalant son contenu vers la gauche tant que n est non-nul, soit tu te fais une petite table qui contient 80h,40h,20h,10h,08h,04h,02h,01h et tu te sers de n comme index pour aller chercher directement la bonne valeur. Cette dernière méthode est de loin la plus efficace tant que l'on reste sur huit bits.

[kidpaddle2]

Merci de ta réponse, je n'avais pas pensé à cette alternative (honte à moi de ne pas avoir mes réflexes de programmation C en assembleur).

Je pense que ça devrait donner quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
MASKS		DC.B		#$01, #$02, #$04, #$08, #$10, #$20, #$40, #$80
 
FINDKEY:	LDX		#0
TCOL:		CMPX		#3
		BHI		ECOL
 
		MOVB		PIFH, X, MASKS
		DELAY_1MS
 
		LDY		#0
TLIN:		CMPY		#3
		BHI		ELIN
 
		; si PIFH[7 - X] = 1
		; A <- Y + 12 - 4 * X
 
		INY
		BRA		TLIN
 
ELIN:		INX
		BRA		TCOL
 
ECOL:		RTS

Peux-tu déjà confirmer le "MOVB PIFH, X, MASKS" pour l'utilisation que je veux en faire ? Ensuite, je ne sais pas quoi mettre au niveau des commentaires... Le problème, c'est que je ne peux pas comparer PIFH directement avec un masque, puisque le test ne porte que sur un seul bit (je précise qu'un autre bit est à 1, et je ne peux pas a priori déterminer lequel)... Donc un AND ne marchera pas. D'autant plus que l'opération 7 - X ne doit pas modifier X, alors que dois-je faire ?

Merci.

[kidpaddle2]

En fait, il me faudrait uniquement un moyen de mettre à 1 un bit sans affecter les autres...

[Obsidian]

Je ne suis pas un expert du 68HCS12, mais tu ne peux pas faire un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
LDAA PIFH
ORAA X,MASK
STAA PIFH

?

[kidpaddle2]

Oups, euh oui je me suis trompé, je voulais dire "récupérer la valeur d'un et un seul bit"... En gros, faire un if() sur un bit.

Désolé ^^

[Obsidian]

Dans ce cas, tu fais un AND sur ton registre avec la table qu'on a définie ci-dessus, ce qui aura pour effet de préserver un seul bit, et tu vérifies si, à l'issue, ton registre est nul ou pas.

[kidpaddle2]

Très juste ! Merci pour l'aide

Je reviens une fois le programme terminé...

[kidpaddle2]

Voici le code commenté...

Qu'en pensez-vous ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
; ==== FINDKEY routine : returns in A accumulator ASCII code of pressed hex key 
STRING:  FCC  "*0#D789C456B123A"
MASKS:   DCB  %00000001, %00000010, %00000100, ; ...
CLIN:    DC.B 3 ; Lines counter (index)
CCOL:    DC.B 3 ; Columns counter (index)
 
 
FINDKEY: ; for(; CLIN != 0 ; --CLIN) {
         ; PIFH[CLIN] = 1
         LDX  MASKS
         LDAB CLIN
         ABX
         MOVB X, PIFH
         DELAY_1MS
 
TCOL:    ; for(; CCOL != 0 ; --CCOL) {
         ; if(PIFH[CCOL] = 1) { /* ... */ } else goto ENCOL
         LDX  4,  MASKS
         LDAB CCOL
         ABX
         LDAA PIFH
         ANDA X
         CMPA #0
         BNE  ENDCOL
 
         ; A = CCOL + 12 - 4 * CLIN
         LDAB #4
         LDAA CLIN
         MUL
         NEG  B
         LDAA CCOL
         ADDA #12
         ABA
 
ENCOL:   ; } //for_columns
         DEC  CLIN
         BNE  FINDKEY
 
         ; } //for_lines
         DEC  CCOL
         BNE  TCOL
 
         RTS

Merci d'avance.