*
*  outch12.lib      send a character to the output device (9s12c)
*
*  This routine sends a single character, passed in the A reg, to the
*  active output device, normally the SCI.
*
*  This is the low-level SBasic output routine, used by other library
*  functions such as _prtstrc.  You can change this routine, if you
*  wish, to support other output devices.  Make sure, however, that
*  you retain _outch as the subroutine's name.
*
*  This routine preserves all registers.
*

_outch
	brclr	$cc,#$80 *		loop until ready to send
	staa	$cf			send char
	rts