
        NAM     NOKEY
        
***     [Sub]routine that ckecks #MANY times in
*       succession that no keys are pressed.
*
*       Version 1.0
*       hjoel 1987-12-21
*
*       Exit:   Bounce-liberated coded key-value
*                 in AccA.
***
                
WCHKEY  EQU     $A001

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

        ORG     $A040
NOKEY   LDB     #MANY
SPINN   JSR     WCHKEY
        CMPA    #ALLUP
        BNE     NOKEY 
        DECB
        BNE     SPINN
        RTS        
