
        NAM     WHICHKEY
        
***     [Sub]routine that senses which key is
*       activated.
*       (This routine was developed for use on
*       Terminal Module 8415.
*       LSNibble = bit 0..3 of PIAA is connected 
*       to keypad columns.
*       MSNibble = bit 4..7 of PIAA is connected 
*       to keypad rows.)
*
*       Version 1.0
*       hjoel 1987-12-18
*
*       Exit:   Coded value of pressed
*               key i AccA.
*       Other registers unchanged.
***

GOORA   EQU     %00000100       Change CRA-flags -> ORA.
DDRORA  EQU     $E020           Adress of PIA DDRA & ORA.
CRA     EQU     $E