
        NAM WRITCHAR
        
***     Writes one character to terminal.
*
*       Version 1.0
*       hjoel 1987-12-04
*
*       Entry:  ASCII-code of character-to-be-
*                 typed in AccA.
*       AccB changed during operation.
*       All other registers unchanged.
***

ACIACR  EQU     $E004           Control-reg-addr of ACIA.
ACIADR  EQU     $E005           Data-reg-addr of ACIA.

        ORG     $BE10
WRITCH  LDB     ACIACR          ACIA ready to receive?
        RORB
        RORB
        BCC     WRITCH
        STA     ACIADR          Char. from AccA to ACIA.
        RTS
        END     WRITCH
        
