NAM INCH
MTTYSI EQU $FCF4
MTTYDI EQU $FCF5
AECHO  EQU $FF53
OUTCH  EQU $F9DC
       ORG $FA8B
*      REV. 1.0 BY MOTOROLA MICROSYSTEMS MARCH 15, 1977
*
*      ALL REFERENCES TO ROUTINE VIA EXBUG SHOULD
*      USE EXBUG'S JUMP VECTOR ENTRY AT F012
*      
*      INPUT ONE CHAR INTO A-REGISTER
INCH   LDA A MTTYSI
       ASR A
       BCC INCH RECEIVE NOT READY
       LDA A MTTYDI INPUT CHAR
       TST AECHO
       BNE *+5 NON-ECHO
       JMP OUTCH ECHHO CHARACTER
       CLR AECHO RESET NON-ECHO FLAG
       RTS NON-ECHO

*      INPUT ONE CHAR - REMOVE PARITY
INCHNP BSR INCH
       AND A #$7F
       RTS
       END