*SUBRUTIN KEYB1
*Beskrivning:
*Rutinen används vid simulering
*Tangentbordet ML2 använder
*Interfacet ML15
*Anrop JSR KEYB1
*Indata: Inga
*Utdata: Tangentnummer (0-F) för
*nedtryckt tangent i register A.
*Reg-påverkan: A
*Anr sub.: Ingen
*---------------------------------
KeyB    EQU $600
Output  EQU $400
    ORG     $1000

    PSHB
KeyDown LDAA    KeyB
    TSTA
    BPL KeyUp
    BRA KeyDown

KeyUp   LDAA    KeyB
    TSTA
    BMI Exit
    BRA     KeyUp

Exit    STAA    Output
    PULB
*   RTS Should actually be used
    BRA KeyDown