****	COUT -- Console Output
**
**	Function:
**		Output character in D1.B to CON:
**	Inputs:   D1.B == character to output
**	Outputs:  -none- (character is output)
**	Registers affected: -none-
**	Routines called: -none-
**	Special error conditions: -none-
*
	.globl	cout
	.text
cout:
	movem.l	d0-d1,-(a7)	* save d0 and d1
	moveq	#2,d0
	trap	#2		* output character
	movem.l	(a7)+,d0-d1
	rts
	.end