
        NAM     GETKEY
        
*       Exit:   Decoded key-value in AccA.

MAKSUR  EQU     $A041
DECODE  EQU     $A090

        ORG     $A0B0
GETKEY  JSR     MAKSUR
        JSR     DECODE
        RTS
        END     GETKEY
