
        NAM     READCHAR
        
***     Reads one character from terminal.
*
*       Version 1.0
*       hjoel 1987-12-04
*       
*       Exit:   ASCII-code of typed character 
*                 in AccA.
*       All other registers unchanged during operation.
***
        
ACIACR  EQU     $E004
ACIADR  EQU     $E005

        ORG     $BE00
READCH  LDA     ACIACR          ACIA contains character?
        RORA
        BCC     READCH
        LDA     ACIADR          Char. from ACIA to AccA.
        RTS
        END     READCH
