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

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

        ORG     $A0B0
        
GETKEY  JSR     NOKEY
        JSR     MAKSUR
        JSR     DECODE
        RTS
        END     GETKEY
