
        NAM     DECODE
        
***     [Sub]routine that checks incoming key-value
*       against key-code-table and delivers
*       corresponding definition-value.
*
*       Version 1.0
*       hjoel 1987-12-20
*
*       Entry:  Coded key-value in AccA.
*       Exit:   Decoded key-value in AccA.
*       IX changed during operation.
*       All other registers unchanged.
***

        ORG     $A070
        
KEYCOD  FCB     $77,$7B,$7D,$7E         Table of
        FCB     $B7,$BB,$BD,$BE         coded key-
        FCB     $D7,$DB,$DD,$DE         pad key-
        FCB     $E7,$EB,$ED,$EE         values.
        
KEYDEF  FCB     $07,$08,$