
        NAM     MAKESURE
        
*       Exit:   Bounce-liberated coded
*               key-value i AccA.

WCHKEY  EQU     $A001

MANY    EQU     $A0             No. of key-scan loops.
ALLUP   EQU     $FF             Keypad-value when
*                               all keys are up.

        ORG     $A040
CHECK   RMB     1               Storage of key-value to test.

******  Checks that no keys are pressed.
MAKSUR  JSR     WCHKEY          
        CMPA    #ALLUP
        BNE     MAKSUR
******  Gets key-value, which is compared #MANY
*       times with successive key-scans.        
MAKSUR  JSR     WCHKEY
        STA     CHECK
        LDB     #MANY
TWIRL   JSR     WCHKEY
        CMPA    CHEC