
        NAM     GETKEY
        
*       Utilizes subroutines WCHKEY, NOKEY,
*       MAKSUR & DECODE.
*
*       Version 1.1
*       hjoel 1987-12-30
*
*       Exit:   Decoded key-value in AccA.
***

NOKEY   EQU     $A040
MAKSUR  EQU     $A050
DECODE  EQU     $A070

        ORG     $A0B0
        
GETKEY  JSR     NOKEY
GETK2   JSR     MAKSUR
        LDY     #GETK2
        JSR     DECODE
        RTS
        
        END     GETKEY
        
