L'objectif :

Si plusieurs boutons-poussoirs sont connectés, disons sur PORTA, quelle est la méthode la plus efficace de tester qu'un seul bouton est actionné à la fois ?

Voici une suggestion en assembleur (un extrait de code fourni par Scott Dattalo):

     MOVF  PORTA,W
     ANDLW BUTTON_MASK
     SKPNZ 
     return       ; No buttons are pressed

     MOVWF temp   ; Clear one bit by using x &(x-1)
     ADDLW 0xff   ; W=PORTA-1
     ANDWF temp,W ; W=PORTA&(PORTA-1)
     SKPZ 
     return       ; More than one button is pressed 

     ; temp holds the one and only button press

Génial non ?

Et voici l'équivalent Pascal tout prêt :

Temp := PORTA and BUTTON_MASK;
if Temp = 0 then exit; // exit if no button
if ((Temp - 1) and Temp) <> 0 then exit; // Exit if more than one at once
// Here Temp has the bit of the pressed button.